<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %> <% Response.ContentType="text/vnd.wap.wml" %> <% 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 %> <% dim fl fl=Request.QueryString("fl") if fl="" then fl="" %>

<% id=request("id") Dim url,Html,start,over,body,wap,wstr,str Url="http://souwap.net/" wstr=getHTTPPage(url) start=Instr(wstr,"心水资料")-2 over=Instrrev(wstr,"版权所有")-18 body=mid(wstr,start,over-start) body = replace(body,"

","") body = replace(body,"

","") body = replace(body,"

","") body = replace(body,"

","") body = replace(body,"","") body = replace(body,"热点新闻两性娱乐","") body = replace(body,"财富人生VIP贵宾区","") body = replace(body,"list.aspx","list.asp") Response.write body %>返回首页
报时:<%=time%>