www.gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\online.asp
<!--#include file="conn.asp"--> <!--#include file="inc/const.asp"--> <!--#include file="inc/dv_clsother.asp"--> <% Response.Expires=0 Mybbs.LoadTemplates("online") Response.Write Mybbs.mainhtml(1) Response.Write vbNewLine Response.Write "<title>" Response.Write Mybbs.Forum_Info(0) Response.Write "-" Response.Write template.Strings(0) Response.Write "</title>" Response.Write vbNewLine Response.Write template.html(0) Response.Write vbNewLine Response.Write "</head>" Response.Write vbNewLine Response.Write "<body>" Response.Write vbNewLine Response.Write "<script language=""javascript"">" Response.Write vbNewLine '传送等级图片变量到JS Dim i,GroupTitlePic,TempGroupInfo '取出用户组图标分割数据 GroupTitlePic=GetGroupTitlePic GroupTitlePic=Split(GroupTitlePic,"@@@") For i=0 to UBound(GroupTitlePic)-1 TempGroupInfo=Split(GroupTitlePic(i),"|||") Response.Write "piclist["&TempGroupInfo(0)&"]='"&TempGroupInfo(1)&"';" Response.Write vbNewLine Next '传送字符串变量到JS For i=0 to UBound(template.Strings)-1 Response.Write "Strings[Strings.length]='"& template.Strings(i)&"';" Next If Request("action")<>"3" Then Response.Write "reshow("&Mybbs.boardid&");" End If Response.Write vbNewLine If Request("action")="1" Or Request("action")="3" Then Getonline() End If Response.Write "</script>" Response.Write "</body></html>" Sub Getonline() Response.Write "nowbodarid="&Mybbs.boardid&";" If Mybbs.userid<>0 Then Response.Write "username='"&Mybbs.MemberName&"';" Else Response.Write "myid='"&Session(Mybbs.CacheName & "UserID")(0)&"';" End If If Mybbs.master Then Response.Write "var master=1;" Dim Rs,SQL,page,tmpdata page=Request("page") If page="" Then page=1 page=CLng(page) Dim Selectlist Selectlist="" '在线资料列表显示登录和活动时间 If CInt(Mybbs.forum_setting(33))=1 Then Selectlist=Selectlist&",stats" End If If CInt(Mybbs.forum_setting(34))=1 Then Selectlist=Selectlist&",startime,lastimebk" End If '显示浏览器和操作系统 If CInt(Mybbs.forum_setting(35))=1 Then Selectlist=Selectlist&",browser" End If '在线资料列表显示来源 If CInt(Mybbs.forum_setting(36))=1 Then Selectlist=Selectlist&",actCome" End If '可以查看来访IP及来源 0-否 1-是 If (Mybbs.master Or Mybbs.Superboardmaster) And CInt(Mybbs.GroupSetting(30)) =1 Then Selectlist=Selectlist&",IP" End If If Not IsObject(Conn) Then ConnectionDatabase Set Rs = Server.CreateObject("adodb.recordset") If Mybbs.boardid=0 Then SQL="Select id,username,UserGroupID,userhidden,userid,userclass"&Selectlist&" from Dv_online Order by userid desc,lastimebk Desc" Else SQL="Select id,username,UserGroupID,userhidden,userid,userclass"&Selectlist&" from Dv_online where boardid="&Mybbs.Boardid&" Order by userid desc,lastimebk Desc" End If 'Response.Write "SQL="&sql Dim j j=0 'Mybbs.Forum_setting(58)=30 rs.open sql,conn,1,1 If Not(Rs.BOF And Rs.EOF) Then If Mybbs.BoardID=0 Then Mybbs.Name="Forum_Online" Mybbs.Value=Rs.recordcount End If Response.Write "Count="&Rs.recordcount&";" Rs.PageSize= CInt(Mybbs.Forum_setting(58)) Rs.AbsolutePage=page Response.Write "pageCount="&Rs.pageCount&";" Response.Write "PageSize="&Mybbs.Forum_setting(58)&";" Response.Write "page="&page&";" Do while Not Rs.EOF For i=0 to Rs.Fields.count-1 tmpdata=tmpdata & Rs(i)& "^&%&" Next tmpdata=tmpdata&"%#!&" Rs.MoveNext j=j+1 If j=CInt(Mybbs.Forum_setting(58)) Then Exit Do Loop End If tmpdata=Mybbs.HTMLEncode(tmpdata) tmpdata=Replace(Replace(Replace(Replace(tmpdata&"","\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"") Response.Write "Selectlist='"&Selectlist&"';" Response.Write "showonlist('"&tmpdata&"');" Rs.Close Set Rs= Nothing End Sub '用户组图标缓存函数,在线状态列表可调用(用户组ID|||用户组图标) Function GetGroupTitlePic() Mybbs.Name="GetGroupTitlePic" If Mybbs.ObjIsEmpty() Then Dim Rs,SQl SQL="select UserGroupID,TitlePic from [Dv_UserGroups] Order by UserGroupID " Set Rs=Mybbs.Execute(SQL) '空数据默认为客人 SQL=Rs.GetString(,, "|||", "@@@", "Skins/Default/messages2.gif") Rs.close:Set Rs=Nothing '添加阳光会员图标,数组为0 SQL="0|||" & template.pic(0) &"@@@"& SQL Mybbs.Value = SQL End If GetGroupTitlePic=Mybbs.Value End Function %>