online.asp

程序网络论坛HigroupBBS v4.00 默认管理员帐号密码都是Marcos

<!--#include file="MarcosCB.asp"-->
<%
	getConn()
	
	dim i,body,pageCode,PageOnline
	
	str=getMainCode(mySkinId)
	pageCode=getPageCode(mySkinId,"PageOnline")
	PageOnline=split(pageCode,"$$$")
	
	pageTitle="<a href=javascript:location.reload();>当前在线</a>"
	pageOther="<script>document.title+=' - 当前在线';</script>"
	
	showHead str,pageTitle,pageOther
	doAction()
	showBody()
	showFoot(str)
	
	sub showBody()
		nowWhere "查看在线用户列表","online.asp"
		body=PageOnline(0)
		sql="select * from Marcos_Online order by lastActiveTime desc"
		rs.open sql,conn,1,1
		if rs.eof then
			body=body&PageOnline(2)
		end if
		do until rs.eof
			body=body&PageOnline(1)
			userName=rs("userName")
			if left(userName,2)="游客" then
				userName="游客"
			end if
			body=replace(body,"{$userName}",userName)
			body=replace(body,"{$lastActiveTime}",rs("lastActiveTime"))
			body=replace(body,"{$lastLoginIp}",rs("lastLoginIp"))
			body=replace(body,"{$lastPlace}",rs("lastPlace"))
			body=replace(body,"{$lastPlaceLink}",rs("lastPlaceLink"))
'			body=replace(body,"{$}",rs(""))
			rs.movenext
		loop
		body=body&PageOnline(3)
		if noGuest<>"True" then
			body=replace(body,"{$onlineCount}",rs.recordCount)
		 else
			body=replace(body,"{$onlineCount}",application("onlineCount"))
		end if
		rs.close
		queryTimes=queryTimes+1
		echo body
	end sub
	
	sub doAction()
		sql="delete from Marcos_Online where dateDiff('s',lastActiveTime,now())>40*60"
		conn.execute(sql)
	end sub
	closeConn()
%>