📄 nr.asp

📁 7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。
💻 ASP
字号:
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<% Response.ContentType="text/vnd.wap.wml" %><?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>

<head>
<meta http-equiv="Cache-Control" content="no-cache" forua="true"/>
<meta http-equiv="Cache-Control" content="max-age=0" forua="true"/>
</head>
<card id="main" title="图片内容">
<p>
<% 
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
 t = GetBody(Path)      
End function
function getHTTPPage(url) 
dim Http 
set Http=server.createobject("Microsoft.XMLHTTP") 
Http.open "GET",url,false 
Http.send() 
if Http.readystate<>4 then 
exit function 
end if 
getHTTPPage=bytesToBSTR(Http.responseBody,"utf-8")
set http=nothing 
if err.number<>0 then err.Clear 
end function 

Function BytesToBstr(body,Cset) 
dim objstream 
set objstream = Server.CreateObject("adodb.stream") 
objstream.Type = 1 
objstream.Mode =3 
objstream.Open 
objstream.Write body 
objstream.Position = 0 
objstream.Type = 2 
objstream.Charset = Cset 
BytesToBstr = objstream.ReadText 
objstream.Close 
set objstream = nothing 
End Function
album=request("album")
page=request("page")
uuurr = "http://un.maomle.cn/tu/tu2/nr.asp?album="&album&"&page="&page&""
%>
<% 
Dim Url,Html,start,over,body,wap,wstr,str
Url=""&uuurr&""
wstr=getHTTPPage(url)
start=Instr(wstr,"<p>")
over=Instr(wstr,"</p>")+4
body=mid(wstr,start,over-start)
'------------------------------------------------
body = replace(body,"<p>","")
body = replace(body,"</p>","")
body = replace(body,"/tu/tu2/","")
body = replace(body,"un.maomle.cn","33333g.cn")
body = replace(body,"","")
body = replace(body,"<a href=''index.asp?curl=33333g.cn''>&#x8FD4;&#x56DE;&#x56FE;&#x5E93;&#x9996;&#x9875;</a>","")
body = replace(body,"<a href=''http://33333g.cn''>&#x8FD4;&#x56DE;&#x7F51;&#x7AD9;&#x9996;&#x9875;</a>","")
body = replace(body,"<a href=""/""><img src=""http://s.mmclick.com/mmc.jsp?s=14166&amp;p=1"" alt=""MMC"" /></a>","")
body = replace(body,"&#x8FD4;&#x56DE;&#x7F51;&#x7AD9;&#x9996;&#x9875;","")
body = replace(body,"&#x8FD4;&#x56DE;&#x56FE;&#x5E93;&#x9996;&#x9875;","")
body = replace(body,"","")
body = replace(body,"","")


'--------------------------------------------------
%>
<%
Set objRegExp = New RegExp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern="yiha.cn"
body= objRegExp.Replace(body,"")
%>
<%if len(body)>30 then%>
<%
Response.write body
%>
<%else%>
该地址无法查看
<%end if%>
<br/>
<%
urlr = replace(uuurr,"&","&amp;")
%>

<!--#include file="wap/footer.asp"-->
</p>
</card>
</wml>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -