news.asp

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

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

 dim npn,jokeid,sp,ips,ipn
id=request.QueryString("id")
bak=request.QueryString("bak")
ord=request.QueryString("ord")
act=request.QueryString("act")
gsp=request.QueryString("gsp")
sid=request.QueryString("sid")
npn=request.QueryString("npn")
if npn="" then npn="1"
%>
<% 
Dim Url,Html,start,over,body,wap,wstr,str
Url="http://news2.3g.net.cn/news.aspx?id="&id&"&bak="&bak&"&ord="&ord&"&npn="&npn&"&act="&act&"&gsp="&gsp&"&sid="&sid&"&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,"</p>","")
body = replace(body,"<p>","")

body = replace(body,".aspx",".asp")
body = replace(body,"upload/","http://news2.3g.net.cn/upload/")
'--------------------------------------------------
Response.write body
%><!--#include file="hhh.asp"--></p>
</card>
</wml>