wall_down.asp

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

<!--#include file="conn.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/wall_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,"【专题搜索】")
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,"~~~~~~~~~~~~~","--------")
body = replace(body,"Pic_new.aspx","Pic_new.asp")
body = replace(body,"maxlength=""3""/>","maxlength=""3""/><br/>")
body = replace(body,"输入图片宽度：<br/>","图片宽度：")
body = replace(body,"输入图片高度：<br/>","图片高度：")
body = replace(body,"选择图片颜色：<br/>","图片颜色：")
body = replace(body,"选择图片格式：<br/>","图片格式：")


body = replace(body,"new_wall_down.aspx","http://61.145.124.12/photo/new_wall_down.aspx")
body = replace(body,"photo.3g.cn/upload","61.145.124.12/photo/upload")
'--------------------------------------------------
Response.write body
%>

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