<% tid=cnum(request("tid")) id=cnum(request("id")) action=request("action") page=cnum(request("page")) if page=0 then page=1 end if if bbs_show=false and nowid="" then call go("log.asp?action=log") end if if action<>"" and nowid="" then call err("对不起，您尚未登录，不能执行此项搜索") end if sql2="" list="" select case action case "mine" sql="select topic from tie where writer='" & nowid & "'" record1.open sql,cnn,1,3 for i=1 to record1.recordcount list=list & record1("topic") & "," record1.movenext next record1.close if list="" then shownum=0 else sql="select topic from tie where (topic in (" & list & ") or zhiding=2) and parent<=0 order by zhiding,topic desc" record1.open sql,cnn,1,3 allnum=record1.recordcount call getpages() if record1.recordcount>0 then record1.move (page-1)*bbs_mainnum end if list="" for i=1 to shownum list=list & record1("topic") & "," record1.movenext next record1.close if list="" then shownum=0 else sql="select * from tie where topic in (" & list & ") order by zhiding,topic desc,xu" record1.open sql,cnn,1,3 end if end if head=bbs_name & "-我的帖子" case "jinghua" sql="select topic from tie where parent=-1 or (zhiding=2 and parent<=0) order by zhiding,topic desc" record1.open sql,cnn,1,3 allnum=record1.recordcount call getpages() if record1.recordcount>0 then record1.move (page-1)*bbs_mainnum end if for i=1 to shownum list=list & record1("topic") & "," record1.movenext next record1.close if list="" then shownum=0 else sql="select * from tie where topic in (" & list & ") order by zhiding,topic desc,xu" record1.open sql,cnn,1,3 end if head=bbs_name & "-系统精华" case "terday" sql="select topic from tie where (wtime>#" & date & "# or zhiding=2) and parent<=0 order by zhiding,topic desc" record1.open sql,cnn,1,3 allnum=record1.recordcount call getpages() if record1.recordcount>0 then record1.move (page-1)*bbs_mainnum end if for i=1 to shownum list=list & record1("topic") & "," record1.movenext next record1.close if list="" then shownum=0 else sql="select * from tie where topic in (" & list & ") order by zhiding,topic desc,xu" record1.open sql,cnn,1,3 end if head=bbs_name & "-今日新帖" case "search" sql="select topic from tie where" & request("sql") record1.open sql,cnn,1,3 for i=1 to record1.recordcount list=list & record1("topic") & "," record1.movenext next record1.close if list="" then shownum=0 else sql="select topic from tie where topic in (" & list & ") and parent<=0 order by topic desc" record1.open sql,cnn,1,3 allnum=record1.recordcount call getpages() if record1.recordcount>0 then record1.move (page-1)*bbs_mainnum end if list="" for i=1 to shownum list=list & record1("topic") & "," record1.movenext next record1.close if list="" then shownum=0 else sql="select * from tie where topic in (" & list & ") order by zhiding,topic desc,xu" record1.open sql,cnn,1,3 end if end if head=bbs_name & "-搜索" case "newre" sql="select topic from tie where parent<=0 order by zhiding,lasttime desc" record1.open sql,cnn,1,3 allnum=record1.recordcount call getpages if record1.recordcount>0 then record1.move (page-1)*bbs_mainnum end if for i=1 to shownum list=list & record1("topic") & "," record1.movenext next record1.close if list="" then shownum=0 else sql="select * from tie where topic in (" & list & ") or zhiding=2 order by zhiding,lasttime desc,xu" record1.open sql,cnn,1,3 end if head=bbs_name & "-最新回复" case "hot" sql="select topic from tie where parent<=0 order by zhiding,allre desc" record1.open sql,cnn,1,3 allnum=record1.recordcount call getpages if record1.recordcount>0 then record1.move (page-1)*bbs_mainnum end if for i=1 to shownum list=list & record1("topic") & "," record1.movenext next record1.close if list="" then shownum=0 else sql="select * from tie where topic in (" & list & ") order by zhiding,allre desc,xu" record1.open sql,cnn,1,3 end if head=bbs_name & "-最热主题" case "newtie" sql="select topic from tie where parent<=0 order by zhiding,topic desc" record1.open sql,cnn,1,3 allnum=record1.recordcount call getpages if record1.recordcount>0 then record1.move (page-1)*bbs_mainnum end if for i=1 to shownum list=list & record1("topic") & "," record1.movenext next record1.close if list="" then shownum=0 else sql="select * from tie where topic in (" & list & ") or zhiding=2 order by zhiding,topic desc,xu" record1.open sql,cnn,1,3 end if head=bbs_name & "-最新回复" case else action="" end select if action="" then if tid=0 then sql="select topic from tie where parent<=0 order by zhiding,lasttime desc" record1.open sql,cnn,1,3 allnum=record1.recordcount call getpages if record1.recordcount>0 then record1.move (page-1)*bbs_mainnum end if for i=1 to shownum list=list & record1("topic") & "," record1.movenext next record1.close if list="" then shownum=0 else sql="select * from tie where topic in (" & list & ") order by zhiding,lasttime desc,xu" record1.open sql,cnn,1,3 end if head=bbs_name else if showtoall(tid)=false and nowid="" then call err("此板块只对会员开放,请先登录或注册.") end if sql="select topic from tie where parent<=0 and (tid=" & tid & " or zhiding=2) order by zhiding,topic desc" record1.open sql,cnn,1,3 allnum=record1.recordcount call getpages if record1.recordcount>0 then record1.move (page-1)*bbs_mainnum end if for i=1 to shownum list=list & record1("topic") & "," record1.movenext next record1.close if list="" then shownum=0 else sql="select * from tie where topic in (" & list & ") order by zhiding,topic desc,xu" record1.open sql,cnn,1,3 end if head=bbs_name & "-" & tidname(tid) end if end if '================================================== sub getpages() allpages=mint(allnum/bbs_mainnum) if page>allpages then page=allpages end if if page<=0 then page=1 end if shownum=min(allnum-bbs_mainnum*(page-1),bbs_mainnum) end sub '==================================================== shownum=cnum(shownum) %>
<% response.write "返回结果 " & allnum & " 篇：" response.write showpage("index.asp?sql=" & server.urlencode(request("sql")) & "&action=" & action & "&tid=" & tid & "&",allpages,page) %>　 今日新帖 我的帖子 系统精华 最新主题 最新回复 最热主题
<% dim lastul,renum lastul=0 %>
<% if shownum>0 then response.write bbs_ul call showmain(shownum) response.write bbs_ul2 else response.write "无匹配帖子" end if %>
<% response.write "返回结果 " & allnum & " 篇" response.write showpage("index.asp?sql=" & server.urlencode(request("sql")) & "&action=" & action & "&tid=" & tid & "&",allpages,page) %>

友情链接
<% if bbs_ljnum>=0 then for i=0 to bbs_ljnum %> <% next end if %>

<% if tid<>0 then response.write "" end if %>
当前在线 <%=bbs_usnum%> 人（不计游客）　<% application("max_online")=cnum(application("max_online")) if application("max_online")
<% for i=1 to bbs_usnum if i mod 10=1 then response.write "" end if response.write "" if i mod 10=0 or i=bbs_usnum then response.write "" end if next %>

" & showperson(bbs_users(i-1)) & "
版主：" adms=application("tid" & tid & "_ads") if adms<>"" then ads=split(adms,",") for i=0 to ubound(ads) response.write showperson(ads(i)) & " " next end if response.write "