ID无效！") end if if ptype="" or Isnumeric(ptype)=false then ptype=0 end if ptype=abs(ptype) '检查有几条新留言 dim newguest newguest = 0 IF myid > 0 THEN newguest = ForNewGuest(myid) END IF dim namebbs,vicexs,hyin,shuo,prentID,oopp,myjbin,myjyin,cityon,groupkf,logo set rs=Server.CreateObject("ADODB.Recordset") rs.open"select name,logo,shuo,id,prentID,hyin,vipin,vicexs,oopp,myjbin,myjyin,city, groupkf from ydbbs where yc=0 and lx=1 and id="&bbsid,conn,1,1 if rs.eof then Call Error("

无此论坛！") end if namebbs=rs("name") logo=rs("logo") cityon=rs("city") shuo=rs("shuo") prentID=rs("prentID") hyin=rs("hyin") vipin=rs("vipin") vicexs=rs("vicexs") oopp=rs("oopp") myjbin=rs("myjbin") myjyin=rs("myjyin") groupkf=rs("groupkf") 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 and adminzone<>abs(bbsid) then Call Error("

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

只限会员进入！") end if if keys<>1 and skey<>abs(bbsid) and adminzone<>abs(bbsid) then if clng(vipin)>0 then if clng(getvip(myjb,myjy))skey and keys<>1 then Call Error("

只限VIP"&clng(vipin)&"级会员进入！") end if end if end if if cityon=1 then response.write"" elseif cityon=2 then if groupkf=1 and myid=0 then Call Error("

只限本组群成员进入！") end if if groupkf=1 then set rs=Server.CreateObject("ADODB.Recordset") rs.open"select zoneID from users where id="&myid,conn,1,1 if rs("zoneID")<>clng(bbsid) and keys<>1 and adminzone<>abs(bbsid) then Call Error("

只限本组群成员进入！") end if rs.close set rs=nothing end if response.write"" else response.write"" end if if len(logo)>7 then response.write"

"&chr(13) response.write"
"&chr(13) else 'Response.write "" response.write"

"&chr(13) end if if myid<>0 then if newguest > 0 then Response.write "您有"&newguest&"条新消息
"& chr(13) end if else Response.write "欢迎您:登陆/注册
"& chr(13) end if if vicexs=1 then Response.write "公告:"&left(shuo,20)&"
" end if response.write "彩票投注|" response.write "球彩投注
" if ptype=1 then response.write "按跟帖时间浏览
" else response.write "按发表时间浏览
" end if '----------滚动显示一条 Set rs = Server.CreateObject("ADODB.Recordset") rs.open "SELECT top 1 ID,bbsid,name from sell where yc = 0 and bbsid="&bbsid&" and topsell=1 order by id desc",conn,1,1 if not rs.eof then dim titlerr titlerr=left(rs("name"),15) if len(rs("name"))>15 then titlerr=titlerr+".." End if dim gdranNum Randomize() gdranNum = int(rs.recordCount*rnd)+1 rs.absoluteposition=gdranNum Response.write ""&titlerr&"
" end if rs.close set rs=Nothing '----------滚动显示一条 response.write "发贴|" response.write "功能|" response.write "精华|" response.write "专题
" if cityon=2 then response.write "基金|" response.write "群聊|" response.write"成员|" response.write"加入
"&chr(13) end if set rs=Server.CreateObject("ADODB.Recordset") if ptype=1 then rs.open"select * from sell where yc=0 and bbsid="&bbsid&" order by ID desc",conn,1,1 else rs.open"select * from sell where yc=0 and bbsid="&bbsid&" order by num,retime desc",conn,1,1 end if If Not rs.eof Then Dim PageSize,i PageSize=listnum Dim Count,page,pagecount,gopage gopage="board.asp?ptype="&ptype&"&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 '记录最后页面 if myid<>0 then Dim sql if clng(endleibie)<>clng(bbsid) then sql="update Users set endleibie="&bbsid&" Where id=" & myid Application.Lock conn.execute(sql) Application.Unlock end if end if '更新在线人数 dim topuser set rs=server.CreateObject("ADODB.RecordSet") rs.Open "select topuser,toduser from ydbbs where ID="&bbsid,conn,1,2 rs("toduser")=Soduser if clng(Soduser) > rs("topuser") then rs("topuser")=Soduser end if rs.update topuser=rs("topuser") rs.close set rs=nothing toduser=Soduser conn.execute("update Users set endleibie="&bbsid&" where ID="&myid) '------------------- '随机广告开始 if adsetkf("ads2")=1 then call adstr(2) response.write"
"&chr(13) end if '------------------- if cityon=1 then response.write ">>同城交友
" end if if cityon=2 then response.write ">>群组交流
" end if response.write "浏览设置|" response.write "功能|" response.write "搜索"&chr(13) if prentID<>0 and cityon=0 then Response.write "
上级|" Response.write "社区|" elseif prentID<>0 and cityon=1 then Response.write "
上级|" Response.write "社区|" else Response.write "
社区首页|" end if 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 "