line.asp

ASP整套的建站源代码

<%
sql="select * from online where ip='"&remoteaddr&"' and username='"&Request.Cookies("username")&"' or sessionid='"&session.sessionid&"' "
rs.Open sql,Conn,1,3
if rs.eof then
strsplit=split(Request.Servervariables("HTTP_USER_AGENT"),";")
strsplit(1)=replace(strsplit(1),"MSIE","Internet Explorer")
strsplit(2)=replace(strsplit(2),")","")
strsplit(2)=replace(strsplit(2),"NT 5.1","XP")
strsplit(2)=replace(strsplit(2),"NT 5.0","2000")
strsplit(1)=Trim(strsplit(1))
strsplit(2)=Trim(strsplit(2))

rs.addnew
rs("act")=""&act&""
rs("acturl")=""&acturl&""
rs("forumid")=""&forumid&""
rs("bbsname")=""&bbsname&""
rs("eremite")=Request.Cookies("eremite")
rs("userface")=userface
rs("ip")=remoteaddr
rs("username")=Request.Cookies("username")
rs("sessionid")=session.sessionid
rs("userie")=strsplit(1)
rs("userwin")=strsplit(2)
else
rs("act")=""&act&""
rs("acturl")=""&acturl&""
rs("forumid")=forumid
rs("bbsname")=""&bbsname&""
rs("lasttime")=now
rs("eremite")=Request.Cookies("eremite")
rs("userface")=userface
rs("ip")=remoteaddr
rs("username")=Request.Cookies("username")
rs("sessionid")=session.sessionid
end if
rs.update
rs.close

conn.execute("delete from [online] where DateDiff('s',lasttime,Now)>1200 ")
onlinemany=conn.execute("Select count(sessionid)from online")(0)
%>