日期:2013-08-23  浏览次数:20934 次

这个程序难一点,特点在于,因为他是分别的传送每个图片,所以不像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 "<img src=http://www.163design.net/a/y/"imgurl&imgname&Mid(cnt,i,1)&".gif>"
  next
  Response.Write "
  ?????"
  for i=1 to 4-len(dnt)
  Response.Write "<img src=http://www.163design.net/a/y/"&imgurl&"0.gif>"
  next
  for i=1 to len(dnt)
  Response.Write "<img src=http://www.163design.net/a/y/"imgurl&imgname&Mid(dnt,i,1)&".gif>"
  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<application("zxsj"&i) then
  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 "<img src=http://www.163design.net/a/y/"&imgurl&"0.gif>"
  for j=1 to len(i)
  Response.Write "<img src=http://www.163design.net/a/y/"imgurl&imgname&Mid(i,j,1)&".gif>"
  next
  Response.Write "');"%>