- <%=ReHTMLEncode(rs("title"))%>
- →【 <%=class_nameb%> 】 ←返回
- <%=rs("hits")%>次 - 发布:<%=rs("time")%> * <%if rs("stop")>=date() then%> 【<%=rs("stop")-date()%>天后】到期! <%else%> 此信息可能 已经过期! <%end if%> 浏览:
<% if siteimg<>"" then%> 》 { 点击 显示原图 } 【 上高久留信息网 Www.sg96.cN 】 " onclick="javascript:window.open(this.src);"onMouseOver="this.width=this.width*3.45;" onMouseOut="this.width=this.width/3.45;"> <%else%> <%end if%> <%=rtrimVBcrlf(rs("text"))©right%>
- 联系人:<%=infouser%> 联系电话:);">*点击查看* **【 请说是在^上高久留信息网^看到的,我定将(优先您!)】 <%if len(rs("dqq"))>4 then%> QQ:&site=<%=host%>&menu=yes">:41" alt="点击这里给我发消息" title="点击这里给我发消息" id="l"><%=rs("dqq")%> <%end if%>
- 【注意】请自行分辨真假,如有损失,本站概不负责.
猜您,一定【 还喜欢 】↓↓
相关的 最新信息-
<%xgtotal=0
Set re = new RegExp
re.Pattern = "(上高县|江西省|宜春市|上高|宜春|江西)"
re.IgnoreCase = false
re.Global = true
soustitle = re.replace(rs("title"),"")
soustxt=re.replace(TextNo,"")
sous1=left(ReHTMLEncode(soustitle),2)
sous3=left(ReHTMLEncode(soustxt),2)
if len(rs("tel"))>3 then
set rsxg=Server.CreateObject("ADODB.RecordSet")
if len(rs("dqq"))>3 then
sqlxg="select top 10 * from ewuyi_info where type > 0 and adid<>"&rs("adid")&" and (tel='"&rs("tel")&"' or dqq='"&rs("dqq")&"') order by adid desc"
else
sqlxg="select top 10 * from ewuyi_info where type > 0 and adid<>"&rs("adid")&" and tel='"&rs("tel")&"' order by adid desc"
end if
rsxg.open sqlxg,conn,1,1
If not (rsxg.EOF or rsxg.BOF) Then
if len(rs("user"))>1 then
soususer="、《 "&infouser&" 》"
response.Write("【 "&rs("user")&" 】还发布了↓↓
- "&xgtotal&". "&rsxg("title")&" ("&rsxg("user")&" @ "&rsxg("time")&")
- "&xgtotal&". "&rss("title")&" ( "&rss("time")&" ) ") rss.MoveNext Loop end if sous5=left(ReHTMLEncode(soustitle),5) sous6=left(ReHTMLEncode(soustxt),5) Response.Write(".
") else soususer="" end if Do While Not rsxg.EOF xgtotal=xgtotal+1 response.Write("
") rsxg.MoveNext Loop Response.Write("*** *** ***
") end if end if if xgtotal=0 then otherxx=19 else otherxx=20-xgtotal end if set rss=Server.CreateObject("ADODB.RecordSet") if len(rs("tel"))>3 then if len(rs("dqq"))>3 then sqls="select top "&otherxx&" * from ewuyi_info where title like '%"&sous1&"%' and type>0 and (isnull(tel) or isnull(dqq) or tel<>'"&rs("tel")&"' or dqq<>'"&rs("dqq")&"') and adid<>"&rs("adid")&" order by adid desc" else sqls="select top "&otherxx&" * from ewuyi_info where title like '%"&sous1&"%' and type>0 and (isnull(tel) or tel<>'"&rs("tel")&"') and adid<>"&rs("adid")&" order by adid desc" end if else sqls="select top "&otherxx&" * from ewuyi_info where title like '%"&sous1&"%' and type>0 and adid<>"&rs("adid")&" order by adid desc" end if rss.open sqls,conn,1,1 If not (rss.EOF and rss.BOF) Then Do While Not rss.EOF xgtotal=xgtotal+1 response.Write("
亲,不要|不要 再往下脱(拖) 咯!!!
→→ 搜索更多《 "&sous5&"... 》、《 "&sous6&"... 》"&soususer&"相关信息 或 点此免费发布 ←←")%>
<%set rs88=Server.CreateObject("ADODB.RecordSet") sql88="select * from suntech where days="&days rs88.open sql88,conn,1,3 if isnull(rs88("xx_hits")) then rs88("xx_hits")=0 rs88("xx_hits")=rs88("xx_hits")+1 rs88.update rs88.close set rs88=nothing set rs3=Server.CreateObject("ADODB.RecordSet") sql3="select * from suntech where days="&days rs3.open sql3,conn,1,1%> 【今日整站展示 <%=Formatnumber(Rs3("total"),0)%>次,信息 <%=Formatnumber(Rs3("xx_hits"),0)%>次】