<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %> <% Response.ContentType = "text/vnd.wap.wml" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" %>

<% 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 Dim Url,Html,start,over,body,wap,wstr,str Url="http://wap.moezu.com/cp/g.asp" wstr=getHTTPPage(url) start=Instr(wstr,"

") over=Instr(wstr,"stock/index.asp")-10 body=mid(wstr,start,over-start) '------------------------------------------------ body = replace(body,"

","")'这是把

替换成空 body = replace(body,"

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

","") body = replace(body,"pic/logo.gif","http://wap.moezu.com/stock/pic/logo.gif") body = replace(body,"pic/down.gif","http://wap.moezu.com/stock/pic/down.gif") body = replace(body,"pic/up.gif","http://wap.moezu.com/stock/pic/up.gif") Response.write body response.write "
返回上级" response.write "
网站首页
" response.write""&Month(Now)&"月"&Day(Now)&"日"&FormatDateTime(Now,vbshortTime)&"" response.write "

" %>