Generating HTML pages with XMLHTTP

xml| Generate html| Page

<% ' definition 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

convert to character
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 = no
end Function

' Save file
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
%>

<% savefile bytestobstr (Getxmltext ("http://127.0.0.1/index.asp"), "GB2312"), "index.htm"%>