online.asp

BBS论坛的开发和设计

<%
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 = "发布回复"
	case "newthread.asp"
		act = "发布新的主题"
	case "newvote.asp"
		act = "发布新的投票"
	case "onlinelist.asp"
		act = "会员在线状态"
	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
%>