<% checklg() dim sql,pagesetup,topicinfo,retopic,reinfo,usedtable,tablestr,action if isnull(lguserid) or lguserid="" then tl=" 操作失败" mes="对不起，你不能够执行本页面。可能存在以下问题：
·你还没有登陆。" call sendinfo(tl,mes) call down response.end end if dim userid userid=Request.QueryString("userid") action=request.querystring("action") usedtable=application(prefix&"usedtable") usedtable=split(usedtable,"|") for i=1 to ubound(usedtable) tablestr=tablestr&""&usedtable(i)&" " next %>

| 今日新帖 | 论坛精华区 | 我发表的帖子 | 我参与的帖子 [<%=tablestr%>]

<% '_____________________________________________________________________________________________________________________________________________ dim wzcount,wzrep,wzpagecount,wzpage,pagestr,urlstr,renum,hot,repage,width,face,n,nn urlstr="bd="&bd&"&action="&action wzrep=25 if action="" then action="today" select case action case "today" sql="select*from topic where edittime>now()+"×et&"/24-1 and type<>3 order by edittime desc" case "mytop" sql="select*from topic where userid="&lguserid&" and type<>3 order by edittime desc" case "withmetop" sql="select*from topic where id in(select bid from bbs"&totable&" where userid="&lguserid&") and type<>3 order by edittime desc" case "good" if isnumeric(userid) and userid<>"" then sql="select*from topic where type=1 and userid="&userid&" order by edittime desc" else sql="select*from topic where type=1 order by edittime desc" end if end select set rs = server.createobject("adodb.recordset") rs.Open sql,conn,1 if rs.eof or rs.bof then response.write"

暂无记录

" else wzcount=rs.recordcount wzpagecount = abs(int(-abs(wzcount/wzrep))) wzpage = clng(request.querystring("page")) 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&"

" %>

表情

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

作者

回复/人气

最后回复

<% 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%>

<% response.write"

"&pagestr&"

" end if rs.Close set rs=nothing %> <%call down%>