- 最新广告 <%if q <> "" then %> 与《 <%=q%> 》相关的 <%else%> <%end if%> <%=r%>条信息
- 免费发布<%=sitecity%>广告信息 <%if q <> "" then %> <%else%> <%end if%>
-
<%=list%>
-
<%=pages%>
% 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&"