ID无效！") end if set rs=Server.CreateObject("ADODB.Recordset") rs.open"select name,shuo,id,prentID,hyin,vicexs,oopp,myjbin,myjyin from ydbbs where id="&bbsid,conn,1,1 if rs.eof then Call Error("

无此论坛！") end if dim namebbs,vicexs,hyin,shuo,prentID,oopp,myjbin,myjyin namebbs=rs("name") shuo=rs("shuo") prentID=rs("prentID") hyin=rs("hyin") vicexs=rs("vicexs") oopp=rs("oopp") myjbin=rs("myjbin") myjyin=rs("myjyin") rs.close set rs=nothing if oopp=1 and keys<>1 then browsers=Lcase(Left(Request.ServerVariables("HTTP_USER_AGENT"),4)) if browsers="oper" or browsers="winw" or browsers="wapi" or browsers="mc21" or browsers="up.b" or browsers="upg1" or browsers="upsi" or browsers="qwap" or browsers="jigs" or browsers="java" or browsers="alca" or browsers="wapj" or browsers="cdr/" or browsers="nec-" or browsers="fetc" or browsers="r380" or browsers="winw" or browsers="mozi" or browsers="mozi" or browsers="m3ga" then Call Error("

请用手机访问！") end if if myjbin<>0 then if clng(myjb)

"&getcent&"不足"&myjbin&"不能浏览本版！") end if end if if myjyin<>0 then if clng(myjy)

经验不足"&myjyin&"不能浏览本版！") end if end if if hyin=2 and keys<>1 and skey=0 then Call Error("

只限版主进入！") end if if hyin=1 and myid=0 then Call Error("

只限会员进入！") end if response.write"

" if myid<>0 then%> <%'else 'response.write"您尚未登陆/注册
" end if response.write "发帖"&chr(13) response.write "版务"&chr(13) response.write "全部"&chr(13) response.write "日志
"&chr(13) 'response.write "
----------
" set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from sell where yc=0 and bbsid="&bbsid&" and jj=1 order by retime desc",conn,1,1 If Not rs.eof Then Dim PageSize,i PageSize=listnum Dim Count,page,pagecount,gopage gopage="elist.asp?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)) if page-pagecount<0 then response.write "下页"&chr(13) end if if page>1 then response.write "首页"&chr(13) end if if page-pagecount<0 or page>1 then response.write "
" For i=1 To PageSize If rs.eof Then Exit For response.write ""&i+(page-1)*PageSize&"." response.write("[精]") 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 "" 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 rs.close set rs=nothing conn.close set conn=nothing %>
返回本版