<%if request("keyword") = "" then xs = wyqm else xs = request("keyword") end if%>
<%id = request("id") scid = request("scid") cz = request("cz") If id="" and cz="" Then serversc=Request.ServerVariables("QUERY_STRING") id=replace(serversc,"/","") id=replace(id,".html","") idl = split(id,"_") for i = 0 to ubound(idl) if i=0 then id = idl(0) if i=1 then cz = idl(1) next End If if cz = "hfsc" and scid <> "" then response.redirect("bbsview.asp?id="&id) end if set rs=server.createobject("adodb.recordset") exec = "select a.tid,zp,a.lb,a.zt,fj,a.yhm,b.cs,hf,dj,a.sj,ip,qm,ly,dx from yrwl_tb_lt a left join yrwl_tb_admin b on a.yhm=b.yhm where a.id="&id rs.open exec , conn , 3 , 1 if rs.eof then response.redirect "bbslist.asp" zid = rs("lb") zt = rs("zt") xyhm = rs("yhm") jf = rs("cs") ip = rs("ip") qr = rs("dx") tid = rs("tid") if ip <> "" then ip = left(ip,instrrev(ip,".")) + "*" else ip = "暂无" end if djs = rs("dj") sj = rs("sj") qm = rs("qm") ly = rs("ly") zp = rs("zp") if jf = "" or isnull(jf) then jf = 0 if zp = "" or isnull(zp) then zp = "images/userpic.gif" Dim fso Set fso = CreateObject("Scripting.FileSystemObject") xzp = Server.mappath(zp) if not fso.fileExists(xzp) then zp = "images/userpic.gif" end if if qm = "" or isnull(qm) then qm = wyqm wjm = rs("fj") if wjm <> "" then if len(wjm)>4 and instr(wjm,"FJ")>=0 then wjm = gpath&wjm xswjm = gqzh(wjm) if len(wjm)>4 and instr(wjm,"FJ")>=0 then tpxs = xswjm + "
附件下载:[" &wjm&"]" else tpxs = xswjm end if if tpxs = "" or (instr(wjm,"swf")>0) then http_url = "打开链接:[" + wjm +"]" else tpxs = "" http_url = "" end if ly = ly & "
" & tpxs rs.close exec="select count(*) as hf from yrwl_tb_lt where zid='"&id&"'" rs.open exec,conn,3,1 hfs = rs("hf") if isnull(hfs) or hfs = "" then hfs=0 rs.close if xyhm <> "游客" then exec="select count(*) as hf from yrwl_tb_lt where yhm='"&xyhm&"'" rs.open exec,conn,3,1 fts = rs("hf") rs.close else fts = 0 end if ''针对操作 exec="update yrwl_tb_lt set dj=dj+1,hf="+cstr(hfs)+" where id="&id conn.execute exec if zid <> "" then set rs1=server.createobject("adodb.recordset") exec="select lb,sp,ms from yrwl_tb_type where lx='"&zid&"'" rs1.open exec,conn,3,1 if not rs1.eof then lx = rs1("lb") sp = rs1("sp") ms = rs1("ms") end if rs1.close else lx = "杂七杂八" ms = "无法归类的主题,全都都在这儿噢!" end if%>

首页 <%=lx%> 

查看<%=djs%> 回复<%=hfs%> <%=zt%>
  <%=xyhm%>

积分: <%=jf%>
发贴: <%=fts%>
IP: <%=ip%>
<%=ly%>



 <%=qm%>
<%=sj%>    回复 <%if yhm=xyhm or jb="admin" then%>    编辑 <%end if%>
<%exec="select zp,ip,t.sj,t.yhm,ly,fj,lxfs,cs,dx,qm,t.id from yrwl_tb_lt t left join yrwl_tb_admin n on n.yhm=t.yhm where t.zid='"&id&"' order by t.id" rs.open exec,conn,3,1 page = request("page") if page = "" then page = "1" page = int(page) if page >5 then page = 5 rs.PageSize = 8 zgs = rs.recordcount If page < 1 Then page = 1 If page > rs.PageCount Then page = rs.PageCount if not rs.eof then rs.AbsolutePage =page zys = rs.PageCount For i = 1 To rs.PageSize If rs.EOF Then Exit For xyhm = rs("yhm") if xyhm <> "游客" then exec="select count(*) as hf from yrwl_tb_lt where yhm='"&xyhm&"'" set rs1=server.createobject("adodb.recordset") rs1.open exec,conn,3,1 fts = rs1("hf") rs1.close else fts = 0 end if jf = rs("cs") if jf = "" then jf = 0 ip = rs("ip") if ip <> "" then ip = left(ip,instrrev(ip,".")) + "*" else ip = "暂无" end if sj = rs("sj") qm = rs("qm") ly = rs("ly") id1 = rs("id") zp = rs("zp") if zp = "" or isnull(zp) then zp = "images/userpic.gif" Set fso = CreateObject("Scripting.FileSystemObject") xzp = Server.mappath(zp) if not fso.fileExists(xzp) then zp = "images/userpic.gif" end if if qm = "" or isnull(qm) then qm = wyqm if jf = "" then jf = 0 if wjm <> "" then wjm = trim(wjm) xswjm = gqzh(wjm) if len(wjm)>4 and instr(wjm,"FJ")>0 then tpxs = xswjm + "
附件下载:[" &wjm&"]"&dx&"" else tpxs = xswjm end if if tpxs = "" or (instr(wjm,"swf")>0) then http_url = "打开链接:[" + wjm +"]" else tpxs = "" http_url = "" end if%>
  <%=xyhm%>

积分: <%=jf%>
发贴: <%=fts%>
IP: <%=ip%>
<%=ly%>
 <%=qm%>
<%=rs.pagesize*(page-1)+cstr(i)%>楼    回复 <%if (yhm = hfyhm or yhm=xyhm or jb="admin") and yhm <> "" then%> 删除    <%end if%> 顶部
<%rs.movenext next rs.close set rs=nothing%>
<%call num_page(page,zys,"?id="&id)%>
<%if (yxft<>"0" or yxft<>0) or yhm <> "" then%>

回复评价:
验证码:    
  1 then response.write"disabled"%>>    
<%else%> 登陆后发贴! <%end if%>