imglist.asp

wap系统程序源码 用户名密码:admin

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

 dim ftp,pn,sid
ftp=request.QueryString("ftp")
sid=request.QueryString("sid")
pn=request.QueryString("pn")
if pn="" then pn="1"
%>
<% 
Dim Url,Html,start,over,body,wap,wstr,str
Url="http://news2.3g.net.cn/imglist.aspx?pn="&pn&"&ftp="&ftp&"&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>