WAP小偷

 

< 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 >