WAP小偷
来源：互联网 发布：zepto.animate.fx.js 编辑：程序博客网 时间：2024/04/30 03:48
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<card id="main" title="〓小说书城〓">
<p>
<%
id=request("classid")
if request("typeid")<>"" then
a1="&typeid="&request("typeid")&""
else
a1=""
end if
if request("pagenum")<>"" then
a2="&pagenum="&request("pagenum")&""
else
a2=""
end if
%>
<%
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetBody(Path)
End function
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.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
content=getHTTPPage("http://wap.feiku.com/list.asp?classid="&id&""&a1&""&a2&"")
numstart=InStr(content,"</a><br/>")+9
numstart1=InStr(content,"转到该页</a><br/>")+13
numstarts=numstart1-numstart
content=MID(content,numstart,numstarts)
'取内容结束
content=replace(content,"<a href=""#downimg"">[下载图片]</a><br/>","")
<a href="index.asp">返回小说书城</a><br/>
<a href="http://wap.wapdh.cn/">返回诱惑天空</a><br/>
</p>
</card></wml>
