spec_star.asp

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

<!--#include file="conn1.asp"-->
<% 
 dim sort,pn,sid,wid
sort=request.QueryString("sort")
if sort="" then sort="1"
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/Spec_Star.aspx?sort="&sort&"&pn="&pn&"&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,".aspx",".asp")
body = replace(body,"photo.3g.cn/upload","61.145.124.12/photo/upload")
'--------------------------------------------------
Response.write body
%>
<!--#include file="footer.asp"--> 
</p>
</card>
</wml>