joke_menu.asp

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

<!--#include file="conn.asp"-->
<% 
'============================================================
' 更新: 2006-11-24
' 主页: http://Sohaha.Cn  
' 电邮: [e-mail]
' Q Q : QQ:55844792
' 版权: (ｋěｌè＋冰) All Rights Reserved.
'============================================================
 dim pn,stype,specid,selecttype,counttype,ftype,showsize
showsize=request.QueryString("showsize")
ftype=request.QueryString("ftype")
counttype=request.QueryString("counttype")
selecttype=request.QueryString("selecttype")
specid=request.QueryString("specid")
stype=request.QueryString("stype")
pn=request.QueryString("pn")
if pn="" then pn="1"
%>
<% 
Dim Url,Html,start,over,body,wap,wstr,str
Url="http://joke.3g.net.cn/Joke_Menu.aspx?pn="&pn&"&stype="&stype&"&specid="&specid&"&selecttype="&selecttype&"&counttype="&counttype&"&ftype="&ftype&"&showsize="&showsize&"&sid=&wid=2286"
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,"<p>","")
body = replace(body,".aspx",".asp")
body = replace(body,"搜哈哈Wap站","*网站首页*")
body = replace(body,"http://sohaha.cn","")
body = replace(body,"images/","")
'--------------------------------------------------
Response.write body
%></p>
</card>
</wml>