<script language=vbscript runat=server>
sub application_onstart
filepath=server.mappath("/count")
filename=filepath+"\counter.txt"
set fs=createobject("scripting.filesystemobject")
if not fs.fileexists(filename) then
fs.createtextfile(filename)
set f=fs.getfile(filename)
s=1
set ts = f.openastextstream(2, -2)
ts.writeline(cstr(s))
ts.close
else
set f=fs.getfile(filename)
set ts = f.openastextstream(1, -2)
s=ts.readline+1
ts.close
end if
application(“visitor”)=s
end sub
sub session_onstart
session.timeout=5
application("visitor ")=application("visitor ")+1
set f=fs.getfile(filename)
set ts = f.openastextstream(2, -2)
ts.writeline (cstr(application("visitor ")))
ts.close
end sub
</script>
<%
s=cstr(application("visitor")+10^6)
s=mid(s,2,6)
for i=1 to 6
response.write "<img src='flashdays/liyanbing/images/"
&mid(s,i,1)&".gif' width='18' height='25'>"
next
%>[1]
如对本文有疑问, 点击进行留言回复!!
Error while updating property ‘stroke‘ in shadow node of type: ARTShape
20200802 T3 我永远喜欢【生成函数容斥,拉格朗日反演】
「出金」 一款屌丝逆袭的回合制网游《神武4》端游详细搬砖攻略
[Unity]创建项目环境用GithubDesktop管理Git代码的安装流程
网友评论