pic_new.asp

7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。

<!--#include file="conn1.asp"-->

<% 
 dim act,tid,spid,pn,ps,part
act=request.QueryString("act")
if act="" then act="1"
tid=request.QueryString("tid")
if tid="" then tid="0"
spid=request.QueryString("spid")
part=request.QueryString("part")
if part="" then part="1"
pj=request.QueryString("pj")
ps=request.QueryString("ps")
if ps="" then ps="2"
pn=request.QueryString("pn")
if pn="" then pn="1"
%>
<% 
Dim Url,Html,start,over,body,wap,wstr,str
Url="http://61.145.124.12/photo/Pic_new.aspx?act="&act&"&tid="&tid&"&pn="&pn&"&ps="&ps&"&pj="&pj&"&spid="&spid&"&part="&part&""
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,"photo.3g.cn/upload","61.145.124.12/photo/upload")

body = replace(body,"http://3gyy.net.cn/i/l.php","")
body = replace(body,"spec_search","")
body = replace(body,"<a href=""?q=%e7%a5%9e%e8%af%9d%e7%bb%84%e5%90%88Eric&amp;fr=3g_p"">搜所有wap网站神话组合Eric图片</a><br/>","")
body = replace(body,".asp?sid=","http://wap.wapstart.cn/11.wap?from=sz.3g9.cn")
body = replace(body,"<a href=""http://ad.3g.net.cn/channelad/ad.asp?sp=139&amp;c=23"">玩游戏看美女私密照片2</a>","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
'--------------------------------------------------
Response.write body
%>

<!--#include file="footer.asp"--> 

</p>
</card>
</wml>