<% Response.Expires=0 Dvbbs.LoadTemplates("online") Response.Write "" Response.Write vbNewLine Response.Write "" Response.Write vbNewLine Response.Write "" Response.Write Dvbbs.Forum_Info(0) Response.Write "-" Response.Write template.Strings(0) Response.Write "" Response.Write vbNewLine Response.Write template.html(0) Response.Write vbNewLine Response.Write "" Response.Write vbNewLine Response.Write "" Response.Write vbNewLine Response.Write "" Response.Write "" Sub Getonline() Response.Write "nowbodarid="& Dvbbs.boardid &";" If Dvbbs.userid <> 0 Then Response.Write "username='"& Dvbbs.MemberName &"';" Else Response.Write "myid='"& Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@statuserid").text &"';" End If If Dvbbs.master Then Response.Write "var master=1;" Dim Rs,SQL,page,tmpdata,SearchUser page=Request("page") If page="" Then page=1 page=CLng(page) Dim Selectlist Selectlist="" '在线资料列表显示登录和活动时间 If CInt(Dvbbs.forum_setting(33))=1 Then Selectlist=Selectlist&",stats" End If If CInt(Dvbbs.forum_setting(34))=1 Then Selectlist=Selectlist&",startime,lastimebk" End If '显示浏览器和操作系统 If CInt(Dvbbs.forum_setting(35))=1 Then Selectlist=Selectlist&",browser" End If '在线资料列表显示来源 If CInt(Dvbbs.forum_setting(36))=1 Then Selectlist=Selectlist&",actCome" End If '可以查看来访IP及来源 0-否 1-是 If (Dvbbs.master Or Dvbbs.Superboardmaster) And CInt(Dvbbs.GroupSetting(30)) =1 Then Selectlist=Selectlist&",IP" End If If Dvbbs.Forum_setting(15) = "0" and Dvbbs.Forum_setting(14) = "1" Then SearchUser = " userid<>0 " End If If Dvbbs.Forum_setting(14) = "0" and Dvbbs.Forum_setting(15) = "1" Then SearchUser = " userid=0 " End If If Not IsObject(Conn) Then ConnectionDatabase Set Rs = Server.CreateObject("adodb.recordset") If Dvbbs.boardid=0 Then If SearchUser<>"" Then SearchUser = "Where " & SearchUser SQL="Select id,username,UserGroupID,userhidden,userid,userclass"&Selectlist&" from Dv_online "&SearchUser&" Order by userid desc,lastimebk Desc" Else If SearchUser<>"" Then SearchUser = " and " & SearchUser SQL="Select id,username,UserGroupID,userhidden,userid,userclass"&Selectlist&" from Dv_online where boardid="&Dvbbs.Boardid&" "&SearchUser&" Order by userid desc,lastimebk Desc" End If 'Response.Write "SQL="&sql Dim j j=0 'Dvbbs.Forum_setting(58)=30 rs.open sql,conn,3,1 If Not(Rs.BOF And Rs.EOF) Then If Dvbbs.BoardID=0 Then Dvbbs.Name="Forum_Online" Dvbbs.Value=Rs.recordcount End If Response.Write "Count="&Rs.recordcount&";" Rs.PageSize= CInt(Dvbbs.Forum_setting(58)) Rs.AbsolutePage=page Response.Write "pageCount="&Rs.pageCount&";" Response.Write "PageSize="&Dvbbs.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(Dvbbs.Forum_setting(58)) Then Exit Do Loop End If tmpdata=Dvbbs.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 %>