%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'---------定义变量
dim rs
dim ip
dim timeout
dim x
dim conn
dim dbpath
'---------定义变量结束
'---------建议数据库链接
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "dsn=bookstores;uid=coco;pwd=Galaxy,105s,Tech;"
'---------新建数据库RS对象
set rs = server.createobject("adodb.recordset")
'---------建立数据库RS对象完成
'--------删除10分钟以前所加入的值
timeout = dateadd("n", -60, now())
sql="update Counter set Mark = 0 where LogTime < '" & timeout & "'"
conn.Execute sql
'--------删除完毕
'---------读取客户端IP地址
ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") '若是对方使用的是代理服务器上网的话,用Request.ServerVariables("HTTP_X_FORWARDED_FOR")可以得到对方的真实IP,若对方不是通过代理服务器上网的话,则IP的值为空
If ip = "" Then ip = Request.ServerVariables("REMOTE_ADDR") '如果IP的值为空,则得到他的本地客户端地址
'---------IP读取完毕
'---------查看数据库中是否已经有相同的值,有则 x="yes"没有则x="no"
sql="select Ip from Counter where Ip='" & ip & "' and Mark = 1"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
x="yes"
else
x="no"
end if
rs.close
'--------判断完毕
'--------如果数据库中没有相同的值则加入一个新值
if x="yes" then
sql="select top 1 * from Counter"
rs.Open sql,conn,3,2
rs.AddNew
rs("Ip")=ip
rs("LogTime")=now()
rs("Mark")= 1
rs.update
rs.close
end if
'--------判断加入完毕
'---------读出数据库内近10分钟所加入的新内容数,group by ip-表IP值相同的记作1
sql="select Ip from Counter where LogTime >= dateadd(n,-60,'" + cstr(now()) + "') and Mark = 1 group by Ip"
rs.Open sql,conn,1,1
zai=rs.RecordCount
rs.Close
'---------得到在线人数值
'-----------GetTotalAccess
sql="select count(*) as MyTotal from Counter"
rs.Open sql,conn,1,1
zaiCount = rs("MyTotal")
rs.Close
'--------关闭数据对象
set rs=nothing
conn.Close
set conn=nothing
%>
上海世界图书出版公司首页
| 建议用IE4.0以上,800*600分辨率观看 |
您是第 72008 位访问者 |
|
>>>世图期刊进入 |