<%id = request("id") scid = request("scid") wjm = request("wjm") cx = request("keyword") cz = request("cz") page = request("page") If id="" and page="" and scid="" and cx = "" and cz = "" and wjm = "" Then serversc=Request.ServerVariables("QUERY_STRING") id=replace(serversc,"/","") id=replace(id,htmlhz&".html","") idl = split(id,"_") for i = 0 to ubound(idl) if i=0 then id = idl(0) if i=1 then page = idl(1) if i=2 then scid = idl(2) if i=3 then wjm = idl(3) if i=4 then cz = idl(4) if i=5 then cx = idl(5) next end if %> <% if cz = "hfsc" and scid <> "" then hfdel scid,wjm response.redirect("bbsview.asp?/"+id&".html") end if set rs=server.createobject("adodb.recordset") exec = "select a.id,a.id,zp,a.lb,dx,a.zt,fj,a.yhm,b.cs,hf,dj,a.sj,ip,qm,ly 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 zid = rs("lb") zt = rs("zt") lljl yhm,"id" & id & ":" & zt xyhm = rs("yhm") qr = rs("dx") jf = rs("cs") ip = rs("ip") id = rs("id") 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 wjm = LCase(wjm) xwjm = split(wjm,";") for i = 0 to ubound(xwjm) xswjm = gqzh(trim(xwjm(i))) if qr<>"" then xswjm = "
"+xswjm+"
" end if if len(xwjm(i))>4 then xwjm(i) = gpath&xwjm(i) tpxs = tpxs & "
" & xswjm + "
附件下载:[" &xwjm(i)&"]" else tpxs = tpxs & "
" & xswjm end if if instr(xwjm(i),"swf")>0 or xswjm="" then tpxs = "
打开链接：[" + xwjm(i) +"]" if fjxs="0" then tpxs = xswjm & "" end if next else tpxs = "" end if jifenr = jifenrange("附件") if left(jifenr,1) = "1" then ly = ly & tpxs else ly = ly & "
[积分要达到 " + right(jifenr,len(jifenr)-1) + " 才能看到附件]" end if rs.close exec="select count(*) as hf from yrwl_tb_lt where zid='"&id&"'" rs.open exec,conn,3,1 hfs = rs("hf") 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%> <%=zt%>-<%=jbm%>

首页 <%=lx%> 

<%=zt%>
查看:<%=djs%> | 发布：<%=xyhm%> 等级: <%=getlevel(jf)%> | IP: <%=ip%> <%if yhm=xyhm or jb="admin" then%> | 编辑 <%end if%>
<%=ly%>

本文地址：

浏览 <%=zt%> 的用户还浏览了：
<%exec="select top 5 ck,left(sj,8) as sj from yrwl_tb_dlxx where ck not like 'id" & id & "%' and ck like 'id%' group by ck,left(sj,8)" set rst=server.createobject("adodb.recordset") rst.open exec,conn,3,1 for i=1 to rst.recordcount if rst.eof then exit for ck = rst("ck") sj = rst("sj") cid = replace(left(ck,instr(ck,":")-1),"id","") czt = right(ck,len(ck)-instr(ck,":")-1)%> <%=czt%> [<%=sj%>]      <%rst.movenext next rst.close%>