虹雨的功能较全的计数程序

这个程序难一点，特点在于，因为他是分别的传送每个图片，所以不像CGI产生的图片那样大。而且图片可以重复的利用所以较率高速度快。只是没有JavaScript就不行了。

程序原代码：





<%

imgurl="http://xxx.xxx.xxx/xxxx/"　　'图片路径

imgname="xxx"　　　　　　　　'图片名字

cnt=0

dnt=0

s=Request.ServerVariables("path_translated")

cName = left(s,instrrev(s,"\",len(s)))&"chy.cnt"

dName = left(s,instrrev(s,"\",len(s)))&"dchy.cnt"

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objCountFile = objFSO.OpenTextFile(cName,1,True)

If Not objCountFile.AtEndOfStream Then cnt=CLng(objCountFile.ReadAll)

objCountFile.Close

Set objCountFile=Nothing

cnt=cnt+1

Set objCountFile=objFSO.CreateTextFile(cName,True)

objCountFile.Write cnt

objCountFile.Close

Set objCountFile=Nothing



if application("dntime")<=cint(hour(time())) then

　　Set objCountFile = objFSO.OpenTextFile(dName,1,True)

　　If Not objCountFile.AtEndOfStream Then dnt=CLng(objCountFile.ReadAll)

　　objCountFile.Close

　　Set objCountFile=Nothing

end if

application("dntime")=cint(hour(time()))

dnt=dnt+1

Set objCountFile=objFSO.CreateTextFile(dName,True)

objCountFile.Write dnt

objCountFile.Close

Set objCountFile=Nothing

Set objFSO = Nothing

Response.Write "document.write('99?7?10???"

for i=1 to len(cnt)

Response.Write ""

next

Response.Write "

?????"

for i=1 to 4-len(dnt)

Response.Write ""

next

for i=1 to len(dnt)

Response.Write ""

next

t=(cint(day(date()))*24+cint(hour(time())))*60+cint(minute(time()))

k=0

i=1

y=0

Do While application("zxip"&i)<>""

　　if application("zxip"&i)=Request.ServerVariables("REMOTE_ADDR") then

　　　　application("zxsj"&i)=t

　　　　y=1

　　end if

　　if t-application("zxsj"&i)>9 or t
　　　　k=k+1

　　else

　　　　if k>0 then

　　　　　　application.lock

　　　　　　application("zxip"&i-k)=application("zxip"&i)

　　　　　　application("zxsj"&i-k)=application("zxsj"&i)

　　　　　　application.unlock

　　　　end if

　　end if

　　if k>0 then

　　　　application.lock

　　　　application("zxip"&i)=""

　　　　application.unlock

　　end if

　　i=i+1

loop

if y=0 then

　　application("zxip"&i)=Request.ServerVariables("REMOTE_ADDR")

　　application("zxsj"&i)=t

else

　　i=i-1

end if

Response.Write " ?????"

if len(i)=1 then Response.Write ""

for j=1 to len(i)

　　Response.Write ""

next

Response.Write "');"%>

分享：