<% call SQLin() if Len(Trim(Request("page")))=0 Then '返回目标页码的判断 page=1 Else page=Trim(Request("page")) End if if not isnumeric(page) or page="" then Call AlertUrl("缺少参数:p!","index.asp") Response.End end if q=replace(Trim(Request("q")),"|","") if len(q)>18 then Call AlertUrl("请按照要求输入,18字以内!","index.asp") Response.End end if list = "" set rs=Server.CreateObject("ADODB.RecordSet") sql1="order by time desc,view desc,adid desc" if len(q)>1 then sql2="select * from ewuyi_info where type > 0 and (title like '%"&q&"%' or text like '%"&q&"%' or tel like '%"&q&"%' or dqq like '%"&q&"%' or user like '%"&q&"%') " else sql2="select * from ewuyi_info where type > 0 " end if sql=sql2&sql1 rs.open sql,conn,1,1 rs.PageSize=18 if rs.bof and rs.eof then list=listkong() end if if not (rs.bof and rs.eof) then rs.AbsolutePage=page for k=1 to rs.PageSize iii=iii+1 if rs("type")>1 then idc=" id=""fRed""" else idc="" end if if rs("stop")>=date() then Sytime="剩"&rs("stop")-date()&"天" else Sytime="已过期" end if if rs("img")<>"" then pic=" >>!有图片<<" else pic="" end if set rs1=Server.CreateObject("ADODB.RecordSet") sql="select * from ewuyi_class where id="&rs("cid") rs1.open sql,conn,1,1 if not( rs1.bof and rs1.eof ) and ( rs("change")>0 or len(rs("user"))>1 ) then Yesclass = "【"&rs1("C_name")&"】" else Yesclass = "" end if list = list&"
  • "&vbcrlf 'list = list&"
    "&vbcrlf list = list&"
    "&vbcrlf list = list&"
    "&rs("time")&" 【查看"&rs("hits")&"次_"&Sytime&"】"&iii&". → "&replace(rs("title"),q,""&q&"")&pic&" "&Yesclass&"
    "&vbcrlf list = list&"
    "&replace(left(HTMLEncode(rs("text")),48),q,""&q&"")&"...
    "&vbcrlf list = list&"
  • "&vbcrlf rs.movenext if rs.EOF Then Exit For next end If if not( rs.bof and rs.eof )then r=Formatnumber(rs.recordcount,0) Total="【共 "&r&" 条信息】" p=rs.PageCount pages=getpage(r,p,"q",q) End If rs.close set rs=nothing %> <%if q <> "" then %> 【<%=q%>】发布或相关信息<%=Total%>,上高久留网 Sg96.cN - 上高久留信息网 - <%else%> 上高久留网 Sg96.cN - 上高久留信息网 -<%=Total%> <%end if%> <%=sitetitle%>
    在顶部搜索框输入你要的关键词,系统会帮你检索你要的信息!
      <%=list%>
      <%=pages%>