news_luantan.asp

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

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

Dim Url,Html,start,over,body,wap,wstr,str
Url="http://news2.3g.net.cn/news_luantan.aspx?wid=21121"
wstr=getHTTPPage(url)
start=Instr(wstr,"<p>")
over=Instr(wstr,">>")
body=mid(wstr,start,over-start)
'------------------------------------------------
body = replace(body,"<p align=""left"">","")
body = replace(body,"<p align=""center"">","")
body = replace(body,"images/","http://news2.3g.net.cn/images/")
body = replace(body,"<p>","")
body = replace(body,"upload/","http://news2.3g.net.cn/upload/")
body = replace(body,".aspx",".asp")
body = replace(body,"images/"," ")
body = replace(body,"搜哈哈Wap站","*网站首页*")
body = replace(body,"http://sohaha.cn","")
body = replace(body,"<a href=""joke_user.asp"">*原创发表*</a><br/>","")
body = replace(body,"<a href=""Joke_search.asp?sid=&amp;wid=2286"">站内搜索>></a><br/>","")
body = replace(body,"<a href=""index.asp?sid=&amp;wid=2286&amp;waped=2"">切换到""2.0版""</a><br/>","")
body = replace(body,"<a href=""index.asp?sid=&amp;wid=2286&amp;waped=1"">切换到""1.0版""</a><br/>","")
'--------------------------------------------------
Response.write body
%><!--#include file="hhh.asp"-->
</p>
</card>
</wml>