<% id=cint(Request("id")) if id<>empty then Response.Cookies("ForumID")=id if ""&SiteSettings("AdminPassword")&""=empty then response.redirect "Install.asp" top Set Statistics=Conn.Execute("[BBSXP_Statistics_Site]") %>
<% if CookieUserName<>"" then sql="select * from [BBSXP_Users] where UserName='"&CookieUserName&"'" Set Rs1=Conn.Execute(sql) ShowRank() %> <% Set Rs1 = Nothing else %> <% end if %>
" onload='javascript:if(this.width>60)this.width=60;if(this.height>60)this.height=60;'>

我的资料 上传头像 上传照片
我的日志 我的帖子 我的收藏
等级:<%=RankName%> 社区金币:<%=Rs1("UserMoney")%> 发表文章:<%=Rs1("PostTopic")%>
经验:<%=Rs1("experience")%> 社区存款:<%=Rs1("savemoney")%> 回复文章:<%=Rs1("Postrevert")%>
用户密码: <%if sitesettings("EnableAntiSpamTextGenerateForLogin")=1 then%>
验 证 码:   验证码,看不清楚?请点击刷新验证码 <%end if%>  
注册会员:<%=Statistics("TotalUser")%>  主题总数:<%=Statistics("TotalThread")%>  帖子总数:<%=Statistics("TotalPost")%>  今日帖数:<%=Statistics("TodayPost")%>  新会员:"><%=Statistics("NewUser")%>
<% Set Rs=Conn.ExeCute("Select top 5 * From [BBSXP_Affiche] Order By ID Desc") Do While Not Rs.Eof title=Rs("title") if len(title)>17 then title=Left(""&title&"",14)&"..." %> <% Rs.MoveNext Loop Rs.Close %>

<% if Request.Cookies("forumid")<>empty then sql="select * from [BBSXP_Forums] where id="&int(Request.Cookies("forumid"))&" " Set Rs1=Conn.Execute(sql) if Rs1.eof then Response.Cookies("forumid")="" ShowForum() Set Rs1 = Nothing else sql="Select * From [BBSXP_Forums] where followid=0 and ForumHide=0 order by SortNum" Set Rs=Conn.Execute(sql) do while not Rs.eof ForumIntro=replace(Rs("ForumIntro"),"
",CHR(10)) %> <% i=0 sql="Select * From [BBSXP_Forums] where followid="&Rs("id")&" and ForumHide=0 order by SortNum" Set Rs1=Conn.Execute(sql) do while not Rs1.eof if SiteSettings("DisplayForumFloor")=1 then ShowForumFloor else ShowForum end if Rs1.Movenext loop Set Rs1 = Nothing if SiteSettings("DisplayForumFloor")=1 and i>0 then for i = i to 2 response.write "" next end if Rs.Movenext loop Rs.close end if ForumName=SiteSettings("SiteName") ForumID=0 %>

<% regOnline=Conn.execute("Select count(sessionid)from [BBSXP_UsersOnline] where UserName<>''")(0) if Statistics("BestOnline") < Onlinemany then Conn.execute("update [BBSXP_Statistics_Site] set BestOnline="&Onlinemany&",BestOnlineTime="&SqlNowString&"") end if if SiteSettings("DisplayWhoIsOnline")=1 then %>
  目前论坛总共 有 <%=Onlinemany%> 人在线。其中注册用户 <%=regOnline%> 人,访客 <%=Onlinemany-regOnline%> 人。最高在线 <%=Statistics("BestOnline")%> 人,发生在 <%=Statistics("BestOnlineTime")%>

<%end if if SiteSettings("DisplayLink")=1 then %>
 ■ 友情链接
<% Rs.Open "[BBSXP_Link]",Conn do while not Rs.eof if Rs("Logo")="" or Rs("Logo")="http://" then Link1=Link1+""&Rs("name")&" " else Link2=Link2+" " end if Rs.Movenext loop Rs.close %> <%=Link1%>

<%end if%>
 /Board0.gif" alt="禁止浏览"> 关闭论坛  /Board1.gif" alt="任何人均可浏览"> 正规论坛  /Board2.gif" alt="游客禁止浏览"> 会员论坛  /Board3.gif" alt="需要授权才能浏览"> 特殊论坛
<% Set Statistics=Nothing htmlend sub ShowForumFloor() ForumIntro=replace(Rs1("ForumIntro"),"
",CHR(10)) if rs1("Moderated")<>empty then ModeratedList="版主:" filtrate=split(rs1("Moderated"),"|") ModeratedList=ModeratedList&""&filtrate(0)&" " if ubound(filtrate)>0 then ModeratedList=ModeratedList&" ..." else ModeratedList=" " end if i=i+1 if i=1 then response.write "" %>
今日 <%=Rs1("ForumToday")%>主题 <%=Rs1("ForumThreads")%>帖子 <%=Rs1("ForumPosts")%>
<% if i=3 then i=0:response.write "" end sub %>