<% '################################# ' ' '┌──────────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="" 'dispic="document.write('" & pic & "');" 'response.write dispic 'next %>