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

　　想返回远程动态页面执行后的静态HTML代码然后用邮件发出去！下面是远程获取内容的代码：
content=getHTTPPage("http://www.google.net")
 
response.write content
 
function getHTTPPage(url) 
 on error resume next 
 dim http 
 set http=Server.createobject("Msxml2.XMLHTTP") 
 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

最新文章

多域名后缀同时查询的域名查询系统[01-10]

用asp提供在线文章翻译的功能[01-10]

用ASP+Flash实现电子地图的在线标注功能[01-10]

汉字GB2312和UTF-8的编码转换[01-10]

ASP实现多域名同一空间的处理实例[01-10]

ASP无组件上载,带进度条,多文件上载[01-10]

相关文章

Flash MX 2004 支持的HTML标签[01-10]

DHTML幻灯片播放程序（三）[01-10]

DHTML幻灯片播放程序（二）[01-10]

DHTML幻灯片播放程序（一）[01-10]

Xhtml第11天:如何制作不用表格的菜单[01-10]

Xhtml第10天:div自适应高度[01-10]