allspec.asp

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

<!--#include file="conn.asp"-->
<%
 dim m,d,t,pn,sid,wid
m=request.QueryString("m")
if m="" then m="6"
d=request.QueryString("d")
if d="" then d="25"
t=request.QueryString("t")
if t="" then t="2"
sid=request.QueryString("sid")
wid=request.QueryString("wid")
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/AllSpec.aspx?m="&m&"&d="&d&"&pn="&pn&"&t="&t&"&sid="&sid&"&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,"upload/","http://61.145.124.238/SexPic/upload/")
body = replace(body,".aspx",".asp")
'--------------------------------------------------
Response.write body
%>
<!--#include file="footer.asp"-->