<% Function UserSysInfo(info,Seperator) If InStr(info,";")>0 Then Dim aryUserSysInfo aryUserSysInfo=split(info,";") If UBound(aryUserSysInfo)>=2 Then If InStr(info," Firefox/")>0 Then aryUserSysInfo(1)="Mozilla Firefox" ElseIf InStr(info," Firebird/")>0 Then aryUserSysInfo(1)="Mozilla Firebird" ElseIf InStr(info,"Maxthon")>0 Then aryUserSysInfo(1)="Maxthon" ElseIf InStr(info," MyIE2")>0 Then aryUserSysInfo(1)="MyIE2" ElseIf InStr(info," TencentTraveler")>0 Then aryUserSysInfo(1)="TencentTraveler" ElseIf aryUserSysInfo(1)="U" Then aryUserSysInfo(1)="Mozilla" Else aryUserSysInfo(1)=replace(trim(aryUserSysInfo(1)),"MSIE","Internet Explorer") End If aryUserSysInfo(2)=replace(aryUserSysInfo(2),")","") aryUserSysInfo(2)=replace(aryUserSysInfo(2),"NT 5.2","2003") aryUserSysInfo(2)=replace(aryUserSysInfo(2),"NT 5.1","XP") aryUserSysInfo(2)=replace(aryUserSysInfo(2),"NT 5.0","2000") aryUserSysInfo(2)=replace(aryUserSysInfo(2),"9x","Me") aryUserSysInfo(1)="浏 览 器：" & Trim(aryUserSysInfo(1)) aryUserSysInfo(2)="操作系统：" & Trim(aryUserSysInfo(2)) UserSysInfo=aryUserSysInfo(1) & Seperator & aryUserSysInfo(2) Else UserSysInfo="浏 览 器：未知" & Seperator & "操作系统：未知" End If Else UserSysInfo="未知" & Seperator & "未知" End If End Function Function welcomeInfo(LoginUserName) Dim nowtime,sRslt nowtime=hour(DateAdd("n",serverTimeAdd,now())) If nowtime<5 then sRslt="凌晨好，" ElseIf nowtime>=5 and nowtime<12 then sRslt="上午好，" ElseIf nowtime>=12 and nowtime<18 then sRslt="下午好，" Else sRslt="晚上好，" End If welcomeInfo=sRslt & "" & LoginUserName & "！你来自:" & userip End Function If mustUserLogined and u_name="" Then Server.Transfer "userLogin.asp" End If Dim i,n,iSpbCatID,sWhereStr,mailCount,loginTime,forumInfo,cookieSaveTime iSpbCatID=Request.QueryString("cat") If iSpbCatID<>"" And IsNumeric(iSpbCatID) Then iSpbCatID=Fix(iSpbCatID) If iSpbCatID<1 Then iSpbCatID=0 End If Else iSpbCatID=0 End If Call opendb() Call lockedIpCheck() If u_name<>"" Then sql="select count(mailId) from " & SpbStrTabPre & "forumMail where toUserId='" & u_name & "' and mailIsRead=0 and mailOwnerDel=0" rs.open sql,conn,0,1 mailCount=rs(0) rs.close Else mailCount=0 End If Call usertrack(0,"论坛首页") %> <% call showForumHead("") %>

<%=application(appPrefix & "forumannounce")%>

<%If iSpbCatID>0 Then%> <%ElseIf u_name<>"" Then%> <%Else%> <%End If%>

<%=forumname%> 8 查看主分类上的论坛版块

<%=welcomeinfo(u_name)%>

您上次访问是在 <%=Request.Cookies(appPrefix & "SpbUser")("lasttime")%>

用户名： 密码： 有效期：无效一天一周一月一年 　注册

欢迎您，来自<%=userip%>的游客!

欢迎新加入会员&ntime=<%=ntime%>"><%=application(appPrefix & "lastuser")%>[新进来宾]

论坛短信(<%if mailCount=0 then%>0 新<%else%><%=mailCount%> 新<%end if%>)

<% If u_name<>"" and u_admin>1 then sql="select A.forumCatId,A.forumCatName,B.forumId,B.forumName,B.forumInfo,B.forumLogo,B.forumStatus,B.forumAnnounce,B.lastTopicId,B.lastTopic,B.lastUser,B.lastPutTime,B.boardAdmins,B.topicCount,B.replyCount,B.readPermission,B.writePermission,B.forumPassWord,B.newPostCount from " & SpbStrTabPre & "forumCat As A left outer join " & SpbStrTabPre & "forumList As B on A.forumCatId=B.forumCatId" If iSpbCatID>0 Then sql=sql & " where A.forumCatId=" & iSpbCatID End If sql=sql & " order by A.displayNo,B.displayNo Asc" else sql="select A.forumCatid,A.forumCatName,B.forumId,B.forumName,B.forumInfo,B.forumLogo,B.forumStatus,B.forumAnnounce,B.lastTopicId,B.lastTopic,B.lastUser,B.lastPutTime,B.boardAdmins,B.topicCount,B.replyCount,B.readPermission,B.writePermission,B.forumPassWord,B.newPostCount from " & SpbStrTabPre & "forumCat As A left outer join " & SpbStrTabPre & "forumList As B on A.forumCatId=B.forumCatId where B.readPermission<>4" If iSpbCatID>0 Then sql=sql & " and A.forumCatId=" & iSpbCatID End If sql=sql & " order by A.displayNo,B.displayNo Asc" End If rs.open sql,conn,0,1 If not (rs.bof and rs.eof) then forumInfo=rs.getrows() rs.close dim nowcatid n=ubound(forumInfo,2) nowcatid=forumInfo(0,0) Call showBoardHead("≡ " & forumInfo(1,0) & " ≡",forumInfo(0,0)) %> <% for i=0 to n if nowcatid<>forumInfo(0,i) then nowcatid=forumInfo(0,i) Response.Write("

状态

论坛

信息

" & vbcrlf) Call showBoardFoot() Call showBoardHead("≡ " & forumInfo(1,i) & " ≡",forumInfo(0,i)) %> <% end if if isnumeric(forumInfo(2,i)) then %> <% end if next Response.Write "

状态	论坛	信息
"" then Response.Write "forumPwd.gif" else select case forumInfo(15,i) case 4 Response.Write "forumHide.gif" case 3 Response.Write "forumLock.gif" case 2 if forumInfo(16,i)>=2 then Response.Write "forumFreezeCtf.gif" else Response.Write "forumCtf.gif" end if case else if forumInfo(16,i)>=3 then Response.Write "forumfreeze.gif" elseif forumInfo(16,i)=2 then Response.Write "forumCtf.gif" else Response.Write "forumNormal.gif" end if end select end if %>" border=0>	<%if trim(forumInfo(5,i))<>"" then Response.Write ""%><%=forumInfo(3,i)%> <%=forumInfo(4,i)%> 斑竹：<%=showadmins(forumInfo(12,i))%>	新帖：<%if forumInfo(17,i)<>"" then%>保密 回复：保密<%else%><%=Replace(Replace(Replace(htmlEnc(forumInfo(9,i)),chr(8),""),chr(9),""),chr(23),"")%> 用户：<%if not isnull(forumInfo(10,i)) and trim(forumInfo(10,i))<>"" then Response.Write "" & forumInfo(10,i) & ""%><%end if%> 时间：<% if isdate(forumInfo(11,i)) then if cdate(forumInfo(11,i))>#1/2/1999# then Response.Write forumInfo(11,i) end if end if %> 新帖： <%=forumInfo(18,i)%> / <%=forumInfo(13,i)%> / <%=(forumInfo(13,i) + forumInfo(14,i))%>

" & vbcrlf Call showBoardFoot() else rs.close End If dim onlineReGnum,onlineGuestNum onlineReGnum=0 onlineGuestNum=0 '取出当前所有在线用户 sql="select iif(userName='',0,1),count(*) from " & SpbStrTabPre & "onlineUser where activeTime > dateadd('n',(0-" & sessionOut & "),DateAdd('n'," & serverTimeAdd & ",now())) group by iif(userName='',0,1)" rs.open sql,conn,0,1 do while not rs.eof if rs(0).value=0 then onlineGuestNum=rs(1).value else onlineRegNum=rs(1).value end if rs.movenext loop rs.close set rs=nothing %> <%Call showBoardHead("≡ 用户信息 ≡","")%>

<% Response.Write "您的当前IP：" & userip & "，　" & UserSysInfo(useragent,"，　") If u_name<>"" then Response.Write " 上次登录IP：" & Request.Cookies(appPrefix & "SpbUser")("lastip") & "，　上次登录时间：" & Request.Cookies(appPrefix & "SpbUser")("lastTime") & "，　Cookie有效期：" cookieSaveTime=Request.Cookies(appPrefix & "SpbUser")("saveTime") if cookieSaveTime="" or not isnumeric(cookieSaveTime) then Response.Write "0 天" else cookieSaveTime=Abs(Fix(cookieSaveTime)) if dateadd("s",cookieSaveTime,#1/1/2000#)>DateAdd("n",serverTimeAdd,now()) then Response.Write datediff("d",DateAdd("n",serverTimeAdd,now()),dateadd("s",cookieSaveTime,#1/1/2000#)) & " 天" else Response.Write "0 天" end if end if end if%>

<% Call showBoardFoot() Call showBoardHead("≡ 论坛统计信息 ≡","") %> <% Call showBoardFoot() Call showForumFoot() Call CloseDb() %>

共有注册会员 <%=application(appPrefix & "usercount")%> 位　主题总数 <%=application(appPrefix & "topicCount")%>　回帖总数 <%=application(appPrefix & "replyCount")%>　访问统计 <%=application(appPrefix & "pageView")%>　　　今日发帖 <%=application(appPrefix & "todaycount")%>　昨日发帖 <%=application(appPrefix & "yestodaycount")%>　最高日发帖 <%=application(appPrefix & "maxdaytopic")%> 本论坛历史最高在线人数 <%=application(appPrefix & "maxOnlineCount")%> 人，　发生时刻 <%=application(appPrefix & "maxOnlineTime")%>，　当前在线 <%=(onlineRegNum + onlineGuestNum)%> 人，　其中注册会员 <%=fix(onlineRegNum)%> 人，　游客 <%=onlineGuestNum%> 人