<%if request("keyword") = "" then xs = wyqm else xs = request("keyword") end if%>
<%cx = request("keyword") cxlb = request("cxlb") zid = request("zid") ''if zid = "" then response.redirect "index.asp" page_size = 30 page =int(page) zgs = page_size*(page-1)+1 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 if sp="1" then response.redirect "index.asp" page = Request("page") if page = "" then page = "1" page = int(page) if page>5 then page=5 syhm = session(sessionvalue & "yhm") jb = session(sessionvalue & "jb") sqltj = "" lbsql = "" if cx <> "" then cx = replace(cx," "," ") cx = trim(cx) if cxlb = "yhm" then sqltj = " and yhm like '%" & cx & "%'" if cxlb = "zt" or cxlb = "" then sqltj = " and zt like '%" & cx & "%'" if cxlb = "nr" then sqltj = " and ((ly like '%" & cx & "%') or (id in (select zid from yrwl_tb_lt where zid<>'s' and ly like '%" & cx & "%')))" end if if zid <> "" then if instr(zid,"-")>0 then lbsql = " and (zd='0' or lb='" & zid & "')" else lbsql = " and (zd='0' or lb like '" & zid & "-%' or lb='" & zid & "')" end if if zid = "00" then lbsql = " and lb=''" lx = "杂七杂八" ms = "无法归类的主题,全都都在这儿噢!" end if end if set rs=server.createobject("adodb.recordset") exec="select * from yrwl_tb_lt WHERE zid='s' " & lbsql & sqltj & " order by zd,left(zhhf,14) desc,id desc" if cxlb = "jr" then exec = "select * from yrwl_tb_lt where zid='s' and left(sj,8)='"&left(jdsj,8)&"'" rs.open exec,conn,3,1 rs.PageSize =15 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%>

首页 <%=lx%>

<%=lx%> 主题 : <%=zgs%>个

<%=ms%>

<%call num_page(page,zys,"?zid="&zid&"&cx="&cx&"&cxlb="&cxlb)%>
<%For i = 1 To rs.PageSize If rs.EOF Then Exit For wjm = rs("fj") if isnull(wjm) then wjm = "" if len(wjm)>0 and instr(wjm,"http://")=0 then fjsc = "[附]" else fjsc = "" end if if instr(wjm,"http://") then fjsc = "[链]" else fjsc = "" end if zt = rs("zt") zd = rs("zd") jj = rs("jj") if isnull(zly) then zly = "" xszt = zt if len(zt)>70 then zt = left(zt,60)&".." if not isnull(zt) then zt = replace(zt,"
"," 空主题") if instr(zt,cx)>0 then zt = replace(zt,cx,""&cx&"") zzxs = rs("yhm") yhm = zzxs if instr(zzxs,".")>0 and zzxs = "游客" then if instr(zzxs,".")>0 then zzxs = left(zzxs,instrrev(zzxs,"."))&"*" else zzxs = "" & zzxs & "" end if zhhf = rs("zhhf") sj = left(zhhf,8) if len(zhhf) > 14 then zhhf = sj & right(zhhf,len(zhhf)-14) if len(zhhf) > 14 then if instr(zhhf,".")>0 then zhhf=left(zhhf,instrrev(zhhf,"."))&"*" end if id = rs("id") hf = rs("hf") sj = rs("sj") furl = rs("furl") lb = rs("lb")%> <%rs.movenext next rs.close set rs=nothing%>
主题 作者 查看/回复 最后发表
<%select case zd case "0" response.write "[顶]" case "1" response.write "[顶]" end select if jj = "1" then jj= "[荐]" else jj = "" end if%> <%=fjsc%><%=zt%><%=jj%> <%=zzxs%>
<%=sj%>
<%=rs("dj")%> / <%=hf%> <%=replace(zhhf," ","
")%>
<%call num_page(page,zys,"?zid="&zid&"&cx="&cx&"&cxlb="&cxlb)%>
<%if ((yxft="0" and syhm <> "") or (yxft="1")) then%>
<%if syhm <>"" and fjkt = "1" then%> <%end if%>
标 题:
内容0字:
网络附件:
附件上传:
 
验证码 :    
1 or yxft="2" then response.write"disabled"%>>
<%end if if cz="sb" then%> 抱歉,文件过大或别的原因,上传出错! <%end if%>