返回远程动态页面执行后的静态HTML代码

核心提示：想返回远程动态页面执行后的静态HTML代码然后用邮件发出去！下面是远程获取内容的代码： content=getHTTPPage("http://www.google.net") response.write content function getHTTPPage(url) on err

想返回远程动态页面执行后的静态HTML代码然后用邮件发出去！下面是远程获取内容的代码：
content=getHTTPPage("http://www.google.net")
 
response.write content
 
function getHTTPPage(url) 
 on error resume next 
 dim http 
 set http=Server.createobject("Msxml(标准化越来越近了)2.xml(标准化越来越近了)HTTP") 
 Http.open "GET",url,false 
 Http.send() 
 if Http.readystate<>4 then exit function 
 getHTTPPage=bytes2BSTR(Http.responseBody) 
 set http=nothing
 if err.number<>0 then err.Clear　
end function 
 
Function bytes2BSTR(vIn) 
 dim strReturn 
 dim i,ThisCharCode,NextCharCode 
 strReturn = "" 
 For i = 1 To LenB(vIn) 
　ThisCharCode = AscB(MidB(vIn,i,1)) 
　If ThisCharCode < &H80 Then 
　 strReturn = strReturn & Chr(ThisCharCode) 
　Else 
　 NextCharCode = AscB(MidB(vIn,i+1,1)) 
　 strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
　 i = i + 1 
　End If 
 Next 
 bytes2BSTR = strReturn 
End Function

技术交流　永无止境