asp生成html文件代码

<%
on error resume next            
Const adTypeBinary = 1
Const adTypeText = 2
Function Bytes2bStr(vin)
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream")
With BytesStream
.Type = adTypeText
.Open
.WriteText vin

.Position = 0
.Charset = "GB2312"
.Position = 2
StringReturn = .ReadText
.close
End With
Set BytesStream = Nothing

Bytes2bStr = StringReturn

End Function

Url = ""&nameurl&"/"&admin&"/Get_Html_Index.asp"   '生成哪个页的代码
set oSend=createobject("Microsoft.XMLHTTP")
SourceCode = oSend.open ("GET",url,false)
oSend.send()
if err.number<>0 then
Response.write err.description
Response.End()
end if 
SourceCode = bytes2BSTR(oSend.responseBody)
%>
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("../Html/index.htm"))   '这里是生成文件保存的地址与文件名
fout.Write SourceCode
fout.close
set fout=nothing
set fso=nothing
response.write "生成 首页 文件名：Index.htm成功！<a href=../Html/Index.htm target=_blank><font color=#FF0000>点击这里查看</font></a>"
%>