online.asp

本系统是一套开源WEB的网站管理系统

<%
'==============================================================
'程序名称：茂盛网站管理系统(Maoin CSM)
'当前版本：Maosin CMS Version 1.1   Powered by maosin.com
'程序作者：阿茂（李胜茂）
'网站地址：www.maosin.com   www.maosin.net
'      QQ：57861417  
'电子邮箱：[e-mail]  [e-mail]
'--------------------------------------------------------------
'Copyright (C) 2006 maosin.com All Rights Reserved.
'免费版本请在程序首页保留(Powered by：Maosin CMS)版权链接信息；
'您可以对此版本进行修改，美化，但请保留此ASP文件内的版权信息；
'茂盛设计网保留此软件的法律追究权利
'==============================================================
if isOpenCounter>0 then
if isOpenCounter=1 or isOpenCounter=2 then
dim ip,onlineuser,onwhere,onrs
ip=Request.ServerVariables("REMOTE_ADDR")
if session(userVar)=userVal then
	userInfo=Session("userInfo")
	onlineuser=userInfo(1)
else
	onlineuser="游客"
end if
onwhere=Request.ServerVariables("SCRIPT_NAME")
'if Request.ServerVariables("query_string")<>"" then
'	onwhere=onwhere&"?"&Request.ServerVariables("query_string")
'end if
'onwhere="<a href="&onwhere&" target=_blank>"&onwhere&"</a>"
onwhere=replace(replace(onwhere,"'",""),"""","")
Set onrs=conn.execute("Select * from ms_online where ip='"&cstr(ip)&"'")
if onrs.eof and onrs.bof then
	conn.execute("insert into ms_online(username,ip,onwhere,actforip,lastTime) values('"&onlineuser&"','"&ip&"','"&onwhere&"','"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"',#"&NOW()&"#)")
else
	conn.execute("update ms_online set username='"&onlineuser&"',ip='"&ip&"',onwhere='"&onwhere&"',actforip='"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"',lastTime=#"&NOW()&"# where ip='"&ip&"'")
end if
Set onrs=conn.execute("select * from ms_online")
do while not onrs.eof
	if cstr(datediff("n",onrs("lastTime"),Now()))>cstr(onlinetime) then
		conn.execute("delete from ms_online where id="&onrs("id"))
	end if
	onrs.movenext
loop
onrs.close
set onrs=nothing
end if
end if
%>