counter.asp

中介之家房产中介系统 V4.0企业共享版

<!--#include file=conn/conn.asp -->
<%
picnum=6	

'POWERED BY SLIGHTBOY

Set rs=Server.CreateObject("ADODB.Recordset")
sql= "select * from counter 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=counterimg/"&mid(counternum,i,1)&".gif>"
dispic="document.write(""" & pic & """);"
response.write dispic
next
%>