online.asp

来自「下载管理系统,重新修改,无错.放心使用. 用户名和密码都是admin:admi」· ASP 代码 · 共 66 行

<%
dim statuserid,R_Host,rsuser,R_U_Agent,rsonline,dtDateTime
R_Host=Request.ServerVariables("REMOTE_HOST")
R_U_Agent=Request.ServerVariables("HTTP_USER_AGENT")
statuserid=replace(R_Host,".","")
	set rsuser=server.createobject("adodb.recordset")
		if session("userid")="" then
		   sql="select * from online where ip='"&R_Host&"'"
		   rsuser.open sql,conn,1,3
		   if rsuser.eof and rsuser.bof then
            	sql="insert into online(id,username,userclass,ip,startime,lastimebk,lastime,browser,stats,actforip) values "&_
				"("&statuserid&",'客人','客人','"&_
				R_Host&"',now(),now(),'"&DateToStr(now())&"','"&_
				R_U_Agent&"','耶瑟','"&_
                Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"')"
		        conn.execute(sql)
		   else
		    session("userid")=statuserid
            sql="update online set lastimebk=now(),lastime='"&DateToStr(now())&"' where id="&cstr(session("userid"))
            conn.execute(sql)
		   end if
		   rsuser.close
		else
		sql="select * from online where id="&cstr(session("userid"))
		rsuser.open sql,conn,1,3
		if rsuser.eof and rsuser.bof then
		sql="insert into online(id,username,userclass,ip,startime,lastimebk,lastime,browser,stats,actforip) values "&_
				"("&statuserid&",'客人','客人','"&_
				R_Host&"',now(),now(),'"&DateToStr(now())&"','"&_
				R_U_Agent&"','耶瑟','"&_
                Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"')"
		conn.execute(sql)
		else
		sql="update online set lastimebk=now(),lastime='"&DateToStr(now())&"' where id="&cstr(session("userid"))
		conn.execute(sql)
		end if
		rsuser.close
		end if
		set rsuser=nothing
		session("userid")=statuserid
		

	        sql="Delete FROM online WHERE DATEDIFF('s', lastimebk, Now()) > "&strOnlineTimedOut&""
	        Conn.Execute sql

	
	       function online()
	       rsonline=conn.execute("Select Count(*) From online")
    	   online=rsonline(0)

	       if isnull(online) then online=0
           end function

           function DateToStr(dtDateTime)
           DateToStr = year(dtDateTime) & doublenum(Month(dtdateTime)) & doublenum(Day(dtdateTime)) & doublenum(Hour(dtdateTime)) & doublenum(Minute(dtdateTime)) & doublenum(Second(dtdateTime)) & ""
           end function
           
           function doublenum(fNum)
           if fNum > 9 then 
           doublenum = fNum 
           else 
           doublenum = "0" & fNum
           end if
           end function
response.write "當前在綫朋友 <b>"&online()&"</b> 位&nbsp;&nbsp;"
%>