<% ids=request("id") if not isnumeric(ids) or ids="" then Call AlertUrl("错误参数:ID!","../?id=0") Response.End end if set rs=Server.CreateObject("ADODB.RecordSet") sql="select * from ewuyi_info where adid="&ids&"" rs.open sql,conn,1,1 If rs.bof and rs.eof then rs.close set rs=nothing Call AlertUrl("你访问的信息不存在!","../?tp=0") Response.End else Sytime=rs("stop")-date() sidd=rs("cid") SiteImg=""&rs("img") if siteimg<>"" then pic=" >>!有图片<<" else pic="" end if if len(rs("user"))>1 then infouser = ""&rs("user") else infouser = "详见信息内容" end if Siteadid=""&rs("adid") set rs8=Server.CreateObject("ADODB.RecordSet") sql="select * from ewuyi_info where adid="&ids&"" rs8.open sql,conn,3,3 rs8("hits")=rs8("hits")+1 rs8("view")=FormatDateTime(Now(),0) rs8.update rs8.close set rs8=nothing TextNo=RemoveHTML(rs("text")) if len(TextNo)-45 >0 then squ=len(TextNo)-45 else squ="N多" end if set rs1=Server.CreateObject("ADODB.RecordSet") sql="select * from ewuyi_class where id="&sidd rs1.open sql,conn,1,1 class_namex=rs1("C_name") Class_Tidx=rs1("c_id") set rs1x=Server.CreateObject("ADODB.RecordSet") sqlx="select * from ewuyi_class where id="&Class_Tidx rs1x.open sqlx,conn,1,1 if not( rs1x.bof and rs1x.eof ) then class_nameb=rs1x("C_name") else class_nameb="" end if rs1x.close set rs1x=nothing rs1.close set rs1=nothing If rs("type")<1 Then Call AlertUrl("该条信息没有被批准显示或者已经删除!","../?tp=1") Response.End End If end if function rtrimVBcrlf(str) dim pos,isBlankChar pos=len(str) isBlankChar=true while isBlankChar and pos>=2 if mid(str,pos,1)=" " then pos=pos-1 elseif mid(str,pos-1,2)=VBcrlf then pos=pos-2 else isBlankChar=false end if wend rtrimVBcrlf=rtrim(left(str,pos)) end function TestStr="【发布后.可删可改,可上传.广告图片.的免费信息网,您见过?】|→→上高久留网 Www.sg96.cN|→→亲,您的信息已投放至^三十多家网吧、酒店及N多家庭!|--这是上高久留网 第"&Formatnumber(rs("adid"),0)&"条信息|--上高久留网 Since(始于)2008年11月|>>>上高久留网 立足上高,服务上高!|>>>^_^ 复制→ 与她(他)分享|【上高尚网电脑 0795-2516 681,为久留网提供全程技术支持!】|***畅快上网,就选尚网!上高尚网电脑 Since(始于)2006年 0795-2516 681|***上高人的上网主页 - 久留(居)上高,上高久留.网" TestArr=Split(TestStr,"|") Function RndNumber(MaxNum,MinNum) Randomize RndNumber=int((MaxNum-MinNum+1)*rnd+MinNum) RndNumber=RndNumber End Function copyrighti=RndNumber(Ubound(TestArr),0) copyright=TestArr(copyrighti) %> <%=sitecity%>.<%=rs("title")&pic%>,<%=sitecity%><%=class_namex%>,<%=sitecity%>久留信息网【 Sg96.cN 】- 这是第<%=Formatnumber(rs("adid"),0)%>条信息 ,<%=sitecity%><%=class_namex%>" /> =date() then%>剩<%=rs("stop")-date()%>天到期<%else%>已过期<%end if%>】^_^点击进入{<%=sitecity%>久留网}完整查看和全部【<%=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")&" 】还发布了↓↓
    ") else soususer="" end if Do While Not rsxg.EOF xgtotal=xgtotal+1 response.Write("
  • "&xgtotal&". "&rsxg("title")&" ("&rsxg("user")&" @ "&rsxg("time")&")

  • ") 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("
  • "&xgtotal&". "&rss("title")&" ( "&rss("time")&" )
  • ") rss.MoveNext Loop end if sous5=left(ReHTMLEncode(soustitle),5) sous6=left(ReHTMLEncode(soustxt),5) Response.Write(".
    亲,不要|不要 再往下脱(拖) 咯!!!

    →→ 搜索更多《 "&sous5&"... 》《 "&sous6&"... 》"&soususer&"相关信息 或 点此免费发布 ←←")%>

" /> 修改 删除 ','<%=rs("title")%> - <%=sitecity%>久留信息网_Sg96.cN');" class="anniu">收 藏 打 印
<%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)%>次】