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

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


<%
imgurl=图片路径
imgname=xxx 图片名字
cnt=0
dnt=0
s=Request.ServerVariables(path_translated)
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)

next
Response.Write
?????
for i=1 to 4-len(dnt)

next
for i=1 to len(dnt)

next
t=(cint(day(date()))*24+cint(hour(time())))*60+cint(minute(time()))
k=0
i=1
y=0

if application(zxipi)=Request.ServerVariables(REMOTE_ADDR) then
application(zxsji)=t
y=1
end if
9 or t<application(zxsji) then
k=k+1
else
0 then
application.lock
application(zxipi-k)=application(zxipi)
application(zxsji-k)=application(zxsji)
application.unlock
end if
end if
0 then
application.lock
application(zxipi)=
application.unlock
end if
i=i+1
loop
if y=0 then
application(zxipi)=Request.ServerVariables(REMOTE_ADDR)
application(zxsji)=t
else
i=i-1
end if
Response.Write ?????

for j=1 to len(i)

next
Response.Write );%>