pic_down.asp

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

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

<% 
 dim sma,big,act,tid,spid,pn
sma=request.QueryString("sma")
big=request.QueryString("big")
act=request.QueryString("act")
if act="" then act="2"
tid=request.QueryString("tid")
spid=request.QueryString("spid")
if spid="" then spid="1"
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_down.aspx?act="&act&"&tid="&tid&"&pn="&pn&"&spid="&spid&"&sma="&sma&"&big="&big&"&wid=2286"
wstr=getHTTPPage(url)
start=Instr(wstr,"<p>")
over=Instr(wstr,"<a href=""index.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,"<p>","")
body = replace(body,".aspx",".asp")
body = replace(body,"<a href=""#shengming"">免责声明</a><br/>","")
body = replace(body,"photo.3g.cn/upload","61.145.124.12/photo/upload")
body = replace(body,"<a href=""wall_down.asp?act=1&amp;pn=1&amp;tid=0&amp;spid=12900&amp;sma=pic/070910171628_133992a.jpg&amp;big=pic/070910171628_133992b.jpg&amp;sid=&amp;wid=2286"">缩放下载>></a>","")
'--------------------------------------------------
Response.write body
%>

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