<%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%>