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

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