<%
Sub onlineuser()
statid = replace(Request.ServerVariables("REMOTE_HOST"),".","")
session("statid") = statid
filename = request.ServerVariables("SCRIPT_NAME")
postion = InstrRev(fileName,"/")+1
useract = Mid(fileName,postion)
dim act
select case useract
	case "adminthread.asp"
		act = "管理貼子"
	case "allface.asp"
		act = "查看論壇所有頭像"
	case "announcement.asp"
		act = "查看論壇公告"
	case "board.asp"
		act = "查看論壇版塊"
	case "delpost.asp"
		act = "刪除貼子"
	case "delthread.asp"
		act = "刪除主題"
	case "editpost.asp"
		act = "編輯貼子"
	case "editthread.asp"
		act = "編輯主題"
	case "faq.asp"
		act = "查看論壇幫助"
	case "index.asp"
		act = "論壇首頁"
	case "login.asp"
		act = "登錄論壇"
	case "lostpass.asp"
		act = "找回密碼"
	case "movethread.asp"
		act = "移動主題"
	case "newreply.asp"
		act = "發(fā)布回復"
	case "newthread.asp"
		act = "發(fā)布新的主題"
	case "newvote.asp"
		act = "發(fā)布新的投票"
	case "onlinelist.asp"
		act = "會員在線狀態(tài)"
	case "pm.asp"
		act = "使用悄悄話"
	case "register.asp"
		act = "正在注冊"
	case "search.asp"
		act = "使用論壇搜索"
	case "showposterip.asp"
		act = "查看用戶IP"
	case "showthread.asp"
		act = "瀏覽貼子"
	case "showvote.asp"
		act = "瀏覽投票結果"
	case "user.asp"
		act = "查看會員信息"
	case "usercp.asp"
		act = "使用控制面板"
	case "userlist.asp"
		act = "查看會員列表"
	case "logs.asp"
		act = "論壇日志"
End select
'response.Write(act)
userhidden = request.Cookies(JBBMasterCookies)("userhidden")
if userhidden="" or Not(ISnumeric(userhidden)) then userhidden = 0
if BoardID="" then BoardID=0
if threadID="" then threadID=0
thread_title = replace(thread_title,"'","''")
'====================================================
if useronline = true then
	set rs = conn.ExeCute("select userid From JBB_online where userid="&userid)
	if rs.Eof Or rs.Bof then
		sql="insert into JBB_online(uname,times,statid,usergroup,userid,userIP,title,thread_title,threadID,BoardID,act,userhidden) values('"&username&"','"&Now()&"',"&statid&","&usergroup&","&userid&",'"&userIP&"','"&title&"','"&thread_title&"',"&threadID&","&BoardID&",'"&act&"',"&userhidden&")"
	else
		sql="update JBB_online set times='"& Now() &"',statid="& statid &",thread_title='"& thread_title &"',threadID="& threadID &",title='"& title &"',BoardID="& BoardID &",act='"& act &"',userhidden="& userhidden &" where userid="&userid
	End if
	set rs = Nothing
	sql2="update JBB_user set lastactivity='"& Now() &"' where userid="&userid
	conn.execute(sql2)
else	
	set rs = Conn.ExeCute("select statid from JBB_online where statid='"& statid &"' and Uname='游客'")
	if rs.Eof Or rs.Bof then
		sql="insert into JBB_online(uname,times,statid,usergroup,userIP,title,thread_title,threadID,BoardID,act) values('游客','"&Now()&"','"&statid&"',6,'"&userIP&"','"&title&"','"&thread_title&"',"&threadID&","&BoardID&",'"&act&"')"
	else
		sql="update JBB_online set times='"&Now()&"',thread_title='"&thread_title&"',threadID="&threadID&",title='"&title&"',BoardID="&BoardID&",act='"&act&"' where statid='"& statid &"' and Uname='游客'"
	End if
	set rs = Nothing
End if
conn.ExeCute(sql)
'==========================================================
Conn.Execute ("delete from JBB_online where DATEDIFF('s', times, '"& now() &"') > "& BBS_Config(14) &"*60")
End Sub
%>