ASP生成HTML静态页面源代码

鉴于大家对ASP十分关注，我们编辑小组在此为大家搜集整理了“asp生成HTML静态页面源代码”一文，供大家参考学习

  <%
''****************************************
''
''作者主页：http://myeducs.cn/
''
''FilePath：生成静态页的文件名
''Do_Url：需要生成静态页的ASP文件
''****************************************

Private Sub CreateHtmlPage(FilePath,Do_Url)
FilePath=server.mappath(FilePath)
Dim objXmlHttp
Set objXmlHttp=Server.createObject("Microsoft.XMLHTTP")
objXmlHttp.open "GET",Do_Url,false
objXmlHttp.send()
Dim binFileData
binFileData=objXmlHttp.responseBody
Set objXmlHttp=Nothing
Dim objAdoStream
Set objAdoStream=Server.createObject("ADODB.Stream")
objAdoStream.Type=1
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFile FilePath,2
objAdoStream.Close()
Set objAdoStream=nothing
End Sub
%>

<%
''*********************************************
''以本站为例，把首页文件index.asp生成index.html
''*********************************************
FilePath="index.html"
Do_Url="http://myeducs.cn/index.asp"

Call CreateHtmlPage(FilePath,Do_Url)
Response.Write("生成成功")
%>