online.asp

BBS源码 利用ASP的一个功能齐全的BBS论坛源码

<!--#include file="inc.asp"-->
<meta http-equiv="Content-Type' content="text/html; charset=gb2312">
<%
Dim ID,OnlineList
ID=request.querystring("ID")
If ID="1" Then Session(BBS94KK.CacheName&"Online")=""
If Session(BBS94KK.CacheName&"Online")="1" Then
	If ID<>"1" Then Session(BBS94KK.CacheName&"Online")=""
	OnlineList=""
Else
	Session(BBS94KK.CacheName&"Online")="1"
	OnlineList=ShowOnlineList()
End If
Set BBS94KK=Nothing

Function ShowOnlineList()
	Dim Temp,Rs,Sql,Templist,Page,PageMax,PageInfo,Arr_Rs,I,AllOnlineNum,sintPageSize,II
	Dim onlineName,LookUser,OnlineIP,Title,UserPic
	TempList=""
	sintPageSize=30
	Page = BBS94KK.CheckNum(request.QueryString("page"))
	AllOnlineNum=BBS94KK.Execute("SELECT COUNT(ID) From[KK_Online]"&Temp&"")(0)
	Session(BBS94KK.CacheName & "AllOnlineNum")=AllOnlineNum
	If AllOnlineNum mod sintPageSize = 0 Then
		PageMax = AllOnlineNum \ sintPageSize
	Else
		PageMax = AllOnlineNum \ sintPageSize + 1
	End If
	If Page>PageMax Then Page=PageMax
	If Page<1 Then Page=1
	If BBS94KK.BoardID<>0 Then
	Temp="where BoardID="&BBS94KK.BoardID&" "
	End If
	Sql = "Select Id,Admin,Name,Ip,BoardID,oldtime,LastTime,locate From[KK_Online]"&Temp&" order by Name desc"
	If Not IsObject(Conn) Then ConnectionDatabase
	Set rs = Server.CreateObject("Adodb.RecordSet")
	Rs.open Sql, Conn, 1, 1
	If Not(rs.eof or rs.bof) Then
		Rs.PageSize = sintPageSize
		Rs.AbsolutePage = Page
		If Not(rs.eof or rs.bof) Then Arr_Rs = Rs.getrows(sintPageSize)
	End If
	Rs.Close:Set Rs=Nothing
	If IsArray(Arr_Rs) Then
		Temp=Split(Replace(BBS94KK.Template.ReadTemplate("用户类型图片"),VbCrlf,""),"|")
	  For i = 0 to UBound(Arr_Rs,2)
	  II=II+1
		onlineName=Arr_Rs(2,i)
		LookUser=True
		Select case Arr_Rs(1,i)
		Case 0
			OnlineName="游客"
			LookUser=False
			UserPic=Temp(0)
		Case 1
			UserPic=Temp(1)
		Case 2
			UserPic=Temp(2)
		Case 3
			UserPic=Temp(3)
		Case 4
			UserPic=Temp(4)
		Case 5
			UserPic=Temp(5)
		Case 6 
			IF BBS94KK.MyAdmin<>1 then
				OnlineName="隐士"
				LookUser=False
			End If
			UserPic=Temp(6)
		End Select
		If BBS94KK.MyAdmin=1 or BBS94KK.MyAdmin=2 Then
			OnlineIP=Arr_Rs(3,i)
		Else
			OnlineIP="已设置保密"
		End If
		Title="所在位置："&Arr_Rs(7,i)&"<br>进入时间："&Arr_Rs(5,i)&"<br>活动时间："&Arr_Rs(6,i)&"<br>真实IP地址："&OnlineIp&""
		If BBS94KK.FoundUser And OnlineName=BBS94KK.Myname then 
			Templist=Templist&"<td><span title='这个就是你自己哦' >"&UserPic&OnlineName&"</span><span title='这个就是你自己哦' style='color:red'>⊕</span></td>"
		Else
			If LookUser Then
				Templist=Templist&"<td>"&UserPic&"<a title='"&Title&"' href='userinfo.asp?name="&Arr_Rs(2,i)&"'>"&OnlineName&"</a></td>"
			Else
				Templist=Templist&"<td>"&UserPic&"<span title='"&Title&"'> "&OnlineName&"</span></td>"
			End If
		End If
		IF II=6 then II=0:Templist=Templist&"</tr><tr>"
	  Next
		PageInfo="页次："&Page&" / "&PageMax&"页 每页："&sintPageSize&" 人 "
		if Page<>1 then
			PageInfo=PageInfo&"【<a target='hiddenframe' href='Online.asp?page=1&BoardID="&BBS94KK.BoardID&"&id=1'>首页</a>】"
			PageInfo=PageInfo& "<a target='hiddenframe' href='Online.asp?page="&cstr(Page-1)&"&BoardID="&BBS94KK.BoardID&"&id=1'>【上一页】</a>"
		Else
			PageInfo=PageInfo& "<Font Color=#CCCCCC>【首页】【上一页】</Font>"
		end if
		If PageMax-Page>=1 then
			PageInfo=PageInfo& "<a target='hiddenframe' href='Online.asp?page="&cstr(Page+1)&"&BoardID="&BBS94KK.BoardID&"&id=1'>【下一页】</a>"
			PageInfo=PageInfo& "<a target='hiddenframe' href='Online.asp?page="&PageMax&"&BoardID="&BBS94KK.BoardID&"&id=1'>【尾页】</a>"
		Else
			PageInfo=PageInfo& "<font Color=#CCCCCC>【上一页】【尾页】</font>"
		End if
		TempList="<table border=0 width='100%'>"&TempList&"</table>"
	End If
		Temp=BBS94KK.Template.ReadTemplate("在线显示")
		Temp=Replace(Temp,"{用户列表}",Templist)
		Temp=Replace(Temp,"{分页}",PageInfo)
		Temp=Replace(Temp,CHR(34),CHR(39))
		Temp=Replace(Temp,VbCrlf,"")
		ShowOnlineList=Temp
End Function
%>
<script language="JavaScript" type="text/JavaScript">
parent.showon.innerHTML="<%=OnlineList%>";
</script>