newsorderlist.asp

来自「wap系统程序源码 用户名密码:admin」· ASP 代码 · 共 36 行

<!--#include file="conn.asp"-->
<% 

 dim ftp,pn,sid,od
ftp=request.QueryString("ftp")
sid=request.QueryString("sid")
od=request.QueryString("od")
if od="" then od="1"
pn=request.QueryString("pn")
if pn="" then pn="1"
%>
<% 
Dim Url,Html,start,over,body,wap,wstr,str
Url="http://news2.3g.net.cn/newsorderlist.aspx?ftp="&ftp&"&od="&od&"&sid="&sid&"&wid=21121"
wstr=getHTTPPage(url)
start=Instr(wstr,"<p>")
over=Instr(wstr,"</p>")

body=mid(wstr,start,over-start)
'------------------------------------------------
body = replace(body,"<p align=""left"">","")
body = replace(body,"<p align=""center"">","")
body = replace(body,"</p>","")
body = replace(body,"http://news.3g.net.cn","")
body = replace(body,"/special/0873/","")
body = replace(body,"<p>","")
body = replace(body,"第六感博彩","")
body = replace(body,"http://66hc.net","")
body = replace(body,"images/","http://news2.3g.net.cn/images/")
body = replace(body,".aspx",".asp")
body = replace(body,"upload/","http://news2.3g.net.cn/upload/")
'--------------------------------------------------
Response.write body
%><a href="/">独舞门户首页</a></p>
</card>
</wml>