<head><meta http-equiv="Cache-Control" content="max-age=0"/></head><card id="main" title="〓小說書城〓"><p><%id=request("classid")if request("typeid")<>"" thena1="&typeid="&request("typeid")&""elsea1=""end ifif request("pagenum")<>"" thena2="&pagenum="&request("pagenum")&""elsea2=""end if%><%On Error Resume NextServer.ScriptTimeOut=9999999Function getHTTPPage(Path) t = GetBody(Path)End functionfunction getHTTPPage(url)dim Httpset Http=server.createobject("MSXML2.XMLHTTP")Http.open "GET",url,falseHttp.send()if Http.readystate<>4 then exit functionend ifgetHTTPPage=bytesToBSTR(Http.responseBody,"UTF-8")set http=nothingif err.number<>0 then err.Clear end functionFunction bytestobstr(body,CSET)DIM OBJSTREAMSET OBJSTREAM = Server.CreateObject("adodb.stream")objstream.type = 1objstream.Mode = 3objstream.Open objstream.Write bodyobjstream.Position = 0objstream.type = 2objstream.Charset=CsetbytesTobstr = objstream.readTextobjstream.closeset objstream=nothingend functioncontent=getHTTPPage("http://wap.feiku.com/list.asp?classid="&id&""&a1&""&a2&"")numstart=InStr(content,"</a><br/>")+9numstart1=InStr(content,"轉到該頁</a><br/>")+13numstarts=numstart1-numstartcontent=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>