ID无效！") end if if bbsid="" or Isnumeric(bbsid)=false then Call Error("

ID无效！") end if '检查有几条新留言 dim newguest newguest = 0 IF myid > 0 THEN newguest = ForNewGuest(myid) END IF dim bbsname set rs=server.createobject("adodb.recordset") rs.open" select title from bbszt where bbsid="&bbsid&" and ID="&ID,conn,1,1 if rs.eof then Call Error("不存在的记录！") end if bbsname=rs("title") rs.close set rs=nothing response.write"" response.write"

"&chr(13) if myid<>0 then if newguest > 0 then Response.write "您有"&newguest&"条新消息
"& chr(13) end if else Response.write "欢迎您:登陆/注册
"& chr(13) end if response.write "发贴|" response.write "精华|" response.write "专题|" response.write "全部
" set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from sell where yc=0 and bbsid="&bbsid&" and ztid="&id&" order by ID desc",conn,1,1 If Not rs.eof Then Dim PageSize,i PageSize=listnum Dim Count,page,pagecount,gopage gopage="ztlist.asp?id="&id&"&bbsid="&bbsid&"&sid="&sid&"&" Count=rs.recordcount page=int(request.QueryString ("page")) if page<=0 or page="" then page=1 pagecount=(count+pagesize-1)\pagesize if page>pagecount then page=pagecount rs.move(pagesize*(page-1)) For i=1 To PageSize If rs.eof Then Exit For dim nowtx if rs("fs")=1 then nowtx="综合" elseif rs("fs")=2 then nowtx="经验" elseif rs("fs")=3 then nowtx="分享" elseif rs("fs")=4 then nowtx="提问" else nowtx="综合" end if response.write ""&i+(page-1)*PageSize&"." if rs("num")=1 then response.write("[顶]") if rs("num")=20 then response.write("[固]") if rs("jj")=1 then response.write("[精]") if rs("st")=1 then response.write("[锁]") if rs("lx")=2 then response.write("[投]") if rs("lx")=4 then response.write("[隐]") if rs("lx")=5 then response.write("[币]") if rs("paycent")<>0 then response.write("[卖]") response.write "" dim reCount reCount=conn.execute("Select count(ID) from [relist] where tid="&rs("id"))(0) response.write ubb(rs("name"))&"
[" response.write ubb(rs("fname"))&"/"&nowtx&"/"&ubb(rs("rc"))&"/" if reCount<=0 then response.write reCount else response.write ""&reCount&"" end if response.write"]
" rs.moveNext Next 'response.write "
"&chr(13) if page-pagecount<0 then response.write "下一页"&chr(13) if page>1 then response.write "上一页"&chr(13) response.write "
("&page&"/"&pagecount&")共"&count&"贴" if pagecount>1 then response.write "页" response.write "
" Else response.write "暂时没有贴子！
" end if Response.write "返回本版|" Response.write "社区首页
" Response.write "现在时间:"&time()&"
" '更改以下版权者,取消合作关系!!!! Response.write "" & chr(13) dim ttt ttt=FormatNumber((timer()-tss)*1000,3) 'response.write "页面执行:" & ttt & "毫秒
"&chr(13) conn.close set conn=nothing response.write "