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

Dim Url,Html,start,over,body,wap,wstr,str
Url="http://news2.3g.net.cn/news_guonei.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站","*網(wǎng)站首頁(yè)*")
body = replace(body,"http://sohaha.cn","")
body = replace(body,"<a href=""joke_user.asp"">*原創(chuàng)發(fā)表*</a><br/>","")
body = replace(body,"<a href=""Joke_search.asp?sid=&amp;wid=2286"">站內(nèi)搜索>></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>