<% @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 id id=Request.QueryString("id") if id="" then id="1" %>

3秒自动刷新一次手动刷新
<% CurrentPage=request("CurrentPage") if CurrentPage="" then CurrentPage="1" cols=request("cols") ctype=request("ctype") id=request("id") Dim url,Html,start,over,body,wap,wstr,str Url="http://souwap.net/Plugin/inforoom/" wstr=getHTTPPage(url) start=Instr(wstr,"

") over=Instrrev(wstr,"返回首页")+8 body=mid(wstr,start,over-start) body = replace(body,"

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

","") body = replace(body,"刷新","") body = replace(body,"view.aspx","view.asp") Response.write body %> 报时:<%=time%>