<% picture=4 '计数器 SKIN 代号(可选1--5,也可以自行增加) picnum=6 '计数器的位数（可选1--10） 'POWERED BY SLIGHTBOY set conn=Server.CreateObject("ADODB.connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../database/topboy-2002.mdb") 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 ip=session("OldIp") session("OldIp")=ip rs("counter")=rs("counter")+1 rs.update counternum=rs("counter") rs.close 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 %>