?? counter.asp
字號:
<!--#include file="../Include/xbqq_Setup.asp" -->
<%
picture=slt
picnum=6
set conn=Server.CreateObject("ADODB.connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../"&Gaobeidb_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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -