ASP一个简单的asp生成html函数

只是简单的XMLHTTP应用，生成方式是先使用XMLHTTP访问asp的文件，然后通过ADODB.Stream将得到的流另存为html文档

neturl = “/”

Function MakeHtml(strUrl,sfilename)
MakeHtml=False
dim objXmlHttp
set objXmlHttp = Server.CreateObject(“Microsoft.XMLHTTP”)
objXmlHttp.open “GET”,NetUrl & strUrl,false
objXmlHttp.send()
Dim binFileData
binFileData = objXmlHttp.responseBody
Dim objAdoStream
set objAdoStream = Server.CreateObject(“ADODB.Stream”)
objAdoStream.Type = 1
objAdoStream.Open()
objAdoStream.Write(binFileData)
Response.Write(sfilename)
objAdoStream.SaveToFile Server.MapPath(neturl & sfilename) ,2
objAdoStream.Close()
IF Err.number=0 Then
MakeHtml=True
End If
End Function

使用：<%=MakeHtml(“templates_index.asp”,”index.html”)%>

当然也可以用在别的地方，比如远程得到对方网页^_^，这是个简单的演示，没用到比如编码、模板等方面的东西，不过用来做个简单的生成html的cms是绰绰有余啦，我就用它来做企业站，很简单。