新闻资讯

点击排行

您现在的位置:首页 > 新闻资讯 > 资源共享

【ASP】ASP生成静态页面最佳方法!

来源:安信科技    浏览: 次    日期:2017年3月10日

 Private Sub ToHtml(FromURL,FilePath)'FilePath·?"/url/file.html"

dim objXmlHttp,binFileData,objAdoStream
Response.Write("<a href=""" & FilePath & """ target=""_blank"">" & FilePath & " --> Ok</a><br>")
FilePath = Server.MapPath(FilePath)
Set objXmlHttp=Server.createObject("Microsoft." & "XMLHTTP")
objXmlHttp.open "GET",FromURL,false
objXmlHttp.send()
binFileData=objXmlHttp.responseBody
Set objXmlHttp = Nothing
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
 
在需要生成静态页面的位置,调用该过程即可。

亲,试试微信扫码分享本页! *^_^*

精彩推荐