发表于 2009-1-5 19:48
| 
ASP璁℃暟鍣
鍙戝竷: 2008-6-27 11:50 | 浣滆: admin | 鏌ョ湅: 2娆
************************璋冪敤*********************
'*
'*************************************************
Javastr="
<%
max=Request("max") '//璁℃暟鍣ㄤ綅鏁
If Request.cookies("count")="" Then '//闃插埛
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set fp=fso.OpenTextFile(Server.MapPath("count.dat")) '//璁℃暟鍣ㄧ粺璁℃枃浠
countn=fp.Readline
countn=countn+1
Fp.close
Set fp=Nothing
set fp=fso.createtextfile(server.mappath("count.dat"))
fp.Writeline countn
set fp=nothing
set fso=nothing
Response.Cookies("count")=countn
End If
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set fp=fso.OpenTextFile(Server.MapPath("count.dat"))
s=fp.Readline
For n=(max-len(s)) to 1 step -1
%>
javastr=javastr+"
" '//璁℃暟鍣ㄥ浘鐗囨枃浠
<%
Next
j=0
For i=(max-len(s)) to max-1
j=j+1
%>
javastr=javastr+"%>.gif)
"
<%
Next
Set fp=Nothing
Set fso=Nothing
javastr=javastr+"
%>
document.write(javastr)
