index.asp

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

<!--#include file="conn.asp"-->
激情开放|<% 
Dim Url,Html,start,over,body,wap,wstr,str

Url="http://61.145.124.12/photo/"
wstr=getHTTPPage(url)
start=Instr(wstr,"【")
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.12/photo/upload/")
body = replace(body,"aspx","asp")
body = replace(body,"【","")
body = replace(body,"】","")
body = replace(body,"","")
'--------------------------------------------------
Response.write body
%>

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