用XMlhttp生成html页面

用XMlhttp生成html页面，相关函数如下：

<％ 
’定义xmlhttp 
function GetXmlText(Url) 
dim GetXmlHttp 
set GetXmlHttp=server.Createobject("Microsoft.XMLHTTP") 
GetXmlHttp.open "Get",url,false,"","" GetXmlHttp.Send  
’GetXmlText=GetXmlHttp.Responsetext 
GetXmlText=GetXmlHttp.ResponseBody 
set GetXmlHttp=Nothing 
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 
’保存文件 
Sub SaveToFile(strBody,File)  
Dim objStream 
Set objStream = Server.CreateObject("ADODB.Stream") 
With objStream  
.Type = 2  
.Open  
.Charset = "GB2312"  
.Position = objStream.Size 
.WriteText = strBody  
.SaveToFile Server.MapPath(File),2  
.Close 
End With  
Set objStream = Nothing End Sub  
％>

使用方法：

<％SaveToFile BytesToBstr(GetXmlText("http://127.0.0.1/index.asp"),"GB2312"),"index.htm")％>