counter.asp

来自「网络上找的」· ASP 代码 · 共 41 行

<!--#include file="Config.asp" -->
<%
'#################################
'
'<!--saved from url=(2004 V1.5)-->
'┌──────────Cihn───┐
'│　　  淮南设计    版权所有　　│
'└─────────────.NET┘
'#################################
picture=slt	
picnum=6	
'POWERED BY SLIGHTBOY
Set rs=Server.CreateObject("ADODB.Recordset")
sql= "select * from data where id=1"
rs.open sql,conn,3,3
'防刷代码开始
ip=Request.ServerVariables("REMOTE_ADDR")
'比对新老IP
if not ip=session("OldIp") then
	session("OldIp")=ip
	rs("counter")=rs("counter")+1
	rs.update
	counternum=rs("counter")
	rs.close
else
	counternum=rs("counter")
	rs.close
end if
counternum=cstr(counternum)
for i=1 to (picnum-len(counternum))
counternum="0"&counternum
next
counter=""
for i=1 to len(counternum)
	pic="<img src=count/images"&picture&"/"&mid(counternum,i,1)&".gif>"
	dispic="document.write('" & pic & "');"
	response.write dispic
next
%>