counter.asp

来自「带OA办公的动态源码网站」· ASP 代码 · 共 37 行

<!--#INCLUDE FILE="../HXINCLUDE/datapath.ASP"-->
<%
    picture=slt	
    picnum=6	
    set conn=Server.CreateObject("ADODB.connection")
    conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../"&a125db_All&"")
    Set rs=Server.CreateObject("ADODB.Recordset")
    sql= "select * from VisitCount 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
	Conn.close
	Set conn = Nothing
%>