joke_img_detail.asp

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

<!--#include file="conn.asp"-->
<% 
'============================================================
' 更新: 2006-11-24
' 主页: http://Sohaha.Cn  
' 电邮: [e-mail]
' Q Q : QQ:55844792
' 版权: (ｋěｌè＋冰) All Rights Reserved.
'============================================================
 dim npn,jokeid,sp,ips,ipn
ips=request.QueryString("ips")
if ips="" then ips="1"
ipn=request.QueryString("ipn")
if ipn="" then ipn="1"
jokeid=request.QueryString("jokeid")
sp=request.QueryString("sp")
npn=request.QueryString("npn")
if npn="" then npn="1"
%>
<% 
Dim Url,Html,start,over,body,wap,wstr,str
Url="http://joke.3g.cn/Joke_img_detail.aspx?npn="&npn&"&jokeid="&jokeid&"&sp="&sp&"&ips="&ips&"&ipn="&ipn&"&wid=2286"
wstr=getHTTPPage(url)
start=Instr(wstr,"<p>")
over=Instr(wstr,"<a href=""Joke_PingLun_List.aspx")

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://ggtv.3g.net.cn","")
body = replace(body,"http://bbs.3g.net.cn","")
body = replace(body,"http://game.3g.net.cn","")
body = replace(body,"<p>","")
body = replace(body,"http://book.3g.net.cn","")
body = replace(body,".aspx",".asp")
body = replace(body,"http://news.3g.net.cn","")
body = replace(body,"http://nba.3g.net.cn","")
body = replace(body,"搜哈哈Wap","*网站首页*")
body = replace(body,"http://sohaha.cn","")
body = replace(body,"images/","")
body = replace(body,"http://joke.3g.net.cn/Joke_list.asp?selecttype=2&amp;ftype=2","http://你的广告地址")
'--------------------------------------------------
Response.write body
%><!--#include file="hhh.asp"--></p>
</card>
</wml>