count.asp
<%
select case request("sid")
case "1"
yzma="uselogin"
case "2"
yzma="reg"
case "3"
yzma="gou"
end select
'---+---使用部分---------------+---------------------
function letter()
for n=1 to 8
randomize timer
s=97+int(rnd*26)
response.write chr(s) '你也可以使用大小写转换函数 ucase(A) lcase(a)
next
end function
'---+---测试部分---------------+---------------------
function yanzhengma(yzma)
for n=1 to 9
randomize timer
s=97+int(rnd*26)
if s<97 or s>122 then
counttong=counttong&chr(s)
else
counttong=counttong&chr(s)
end if
next
counttong=left(counttong,4)
session(yzma&"counttong")=counttong
end function
if Trim(Request.QueryString("shuaxin"))="1" then
call yanzhengma(yzma)
Response.Write("<LINK href='fun/style.css' rel=Stylesheet type=text/css><body leftmargin=0 topmargin=0 marginwidth=0 marginheight=0>")
Response.Write("<font size=4 style='FONT-FAMILY: Tahoma,Verdana,宋体;' ><b>"&session(yzma&"counttong")&"</b></font> <a href=# onClick=location.reload()><font style='FONT-FAMILY: Tahoma,Verdana,宋体;font-size: 9pt;'><u>刷新</u></font></a>")
else
response.write( "document.write
[bo]('<iframe width=90 height=23 ALIGN=top SCROLLING=no id=shuaxin src=fun/count.asp?sid="&request("sid")&"&shuaxin=1></iframe>')[/bo];" )
end if
'---+---结束测试---------------+---------------------
%>
这段代码在本地测试没问题的，，，放到服务器上就说有错
单个浏览count.asp结果是这样的
[[it] 本帖最后由 dhdhzzw 于 2008-3-26 10:47 编辑 [/it]]
