count.asp

安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!

<%
'在线用户统计
set onlinecount=conn.execute("select count (*) from hx66online")
set rs=server.createobject("adodb.recordset")
set onabout=conn.execute("select*from hx66count where hx66='hx66'")
onabo=onlinecount(0)
onabo2=onabout("hx66count")
if onabo>onabo2 then
rs.open "select*from hx66count where hx66='hx66'",conn,1,3
rs("hx66count")=onabo
rs("hx66date")=now()
rs.update
rs.close
end if
onabout.close
%>
<%
ckuname=Request.Cookies("HX_USER")("User_Name")
userhidden=Request.Cookies("HX_USER")("userhidden")
youip=Request.servervariables("REMOTE_ADDR") 
'在线会员-游客统计
conn.execute("delete * from hx66online where hx66date<now-0.015")
set rs=server.createobject("adodb.recordset")
'游客在线信息更新开始
yousql="select * from hx66online where hx66ips='"&youip&"'"
set onlineip=conn.execute(yousql)
rs.open yousql,conn,1,3

if onlineip.eof then
'增加
rs.addnew
if Request.Cookies("HX_USER")("User_Name")="" then
rs("hx66name")="游客"
rs("hx66type")=0
else
rs("hx66name")=""&ckuname&""
rs("hx66type")=userhidden
end if
rs("hx66ips")=Request.servervariables("REMOTE_ADDR")
rs("hx66date")=now()
rs("hx66title")=""&start&""
rs("hx66bid")=bid
rs.update
rs.close
else '更新
if Request.Cookies("HX_USER")("User_Name")="" then
rs("hx66name")="游客"
rs("hx66type")=0
else
rs("hx66name")=""&ckuname&""
rs("hx66type")=userhidden
end if
rs("hx66title")=""&start&""
rs("hx66date")=now()
rs("hx66bid")=bid
rs.update
rs.close
end if
'信息结束
%>