<% checklg() dim topicinfo,retopic,reinfo,renum,repage,n,nn,hot,width,face if isnull(lguserid) or lguserid="" then if conn.execute("select userid from online where ip='"&ip&"'").eof then sql="insert into online(ip,lasttime,onbd,nowon) values('"&ip&"',now(),"&bd&",'"&bdinfo(0)&"')" else sql="update online set userid=0,name='',lasttime=now(),pic=0,onbd="&bd&",nowon='"&bdinfo(0)&"' where ip='"&ip&"'" end if else if conn.execute("select userid from online where userid="&lguserid&" or ip='"&ip&"'").eof then sql="insert into online(userid,name,ip,lasttime,pic,onbd,nowon) values("&lguserid&",'"&lgname&"','"&ip&"',now(),"&usertype&","&bd&",'"&bdinfo(0)&"')" else sql="update online set userid="&lguserid&",name='"&lgname&"',ip='"&ip&"',lasttime=now(),pic="&usertype&",onbd="&bd&",nowon='"&bdinfo(0)&"' where userid="&lguserid&" or ip='"&ip&"'" end if end if conn.execute(sql) conn.execute("delete * from online where now()-lasttime>"&onlinetime&"/24") dim action,sql,wzcount,wzrep,wzpagecount,wzpage,pagestr,urlstr urlstr="bd="&bd&"&action="&action wzrep=application(prefix&"topiclistpage") action=request.querystring("action") wzpage = clng(request.querystring("page")) %>

<%dim papern,paper,papers papern=0 response.write"" %>

本版帖数:<%=topicnum%>, 今日帖数：<%=todaynum%>, <%if isnull(thisbdadmin) or thisbdadmin="" then:response.write"本版面还没有版主":else:response.write"本版版主:"&replace(checktitle(thisbdadmin),"|"," ")&"":end if%>

<% dim adminmenu,quickglmenu quickglmenu=Request.cookies(prefix&"2")("quickgl") adminmenu="发布公告
公告管理
" if bdtype=3 then adminmenu=adminmenu&"认证用户
" adminmenu=adminmenu&"回收站
" if quickglmenu=1 then adminmenu=adminmenu&"关闭快捷管理
" else%> <% adminmenu=adminmenu&"开启快捷管理
" end if response.write"" response.write"

| 管理选项 | 本版精华

" %>

<% '_____________________________________________________________________________________________________________________________________________ dim newtopicbutton newtopicbutton="

" if action="good" then sql="select*from topic where bd="&bd&" and type=1 order by top desc,edittime desc" else sql="select*from topic where (bd="&bd&" or top=2) and type<>3 order by top desc,edittime desc" end if set rs = server.createobject("adodb.recordset") rs.Open sql,conn,1 if rs.eof or rs.bof then response.write"

暂无记录。

"&newtopicbutton else wzcount=rs.recordcount conn.execute("update bdinfo set topicnum="&wzcount&" where id="&bd&" and followid<>0") wzpagecount = abs(int(-abs(wzcount/wzrep))) if len(wzpage) = 0 or wzpage = 0 then wzpage = 1 rs.absoluteposition=rs.absoluteposition+((abs(wzpage)-1)*wzrep) pagestr="每页"&wzrep&"条共"&wzpagecount&"页 ["&pagination(wzpagecount,urlstr)&"] " response.write"

"&pagestr&"

" response.write newtopicbutton %>

选择

表情

主题（点击表情在新窗口打开）

作者

回复/人气

最后回复

<% for i = 0 to wzrep-1 if rs.eof then exit for topicinfo=rs("topicinfo") topicinfo=split(topicinfo,"|") retopic=rs("retopic") if isnull(retopic) or retopic="" then reinfo="——" retopic="未有人回复。|——|0" retopic=split(retopic,"|") else retopic=split(retopic,"|") reinfo=""&checktitle(retopic(1))&"" end if renum=rs("renum") hot=checknum(application(prefix&"showbbspage")) if renum/hot>(renum\hot) then repage=(renum\hot)+1 else repage=renum\hot end if width=35 face=topicinfo(0) if rs("type")=1 then face="jing" if rs("type")=2 then face="lock" if rs("top")=1 then face="top" if rs("top")=2 then face="alltop" if repage>1 then width=25 response.write"

"&topicinfo(3)&" "&lefttrue(checktitle(topicinfo(1)),width)&"" if repage>1 then response.write"

[ " if repage<=4 then for n=1 to repage response.write""&n&" " next else for nn=1 to 3 response.write""&nn&" " next response.write"... "&repage&" " end if response.write" ]" end if response.write"

"&checktitle(topicinfo(2))&"

"&renum&"/"&rs("hits")&"

"&reinfo&"
"&rs("edittime")&"

" rs.movenext next%>

全选

<% end if rs.Close set rs=nothing response.write"

"&pagestr&"

" %> <%if bd<>0 then if bdad(1)<>"" then response.write "

"&bdad(1)&"

" end if%> <% dim onbd1,onbd2 onbd1=conn.execute("select count(userid) from online where onbd="&bd&"")(0) onbd2=conn.execute("select count(userid) from online where onbd="&bd&" and userid=0")(0) %>

在线统计：

目前本版面总共有 <%=onbd1%> 人在线。其中有 <%=onbd1-onbd2%> 位会员， <%=onbd2%> 位游客。 [ 详细列表 ]

<%call down%>