新聞資訊

點擊排行

您現在的位置:首頁 > 新聞資訊 > 資源共享

【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
 
在需要生成靜態頁面的位置,調用該過程即可。

親,試試微信掃碼分享本頁! *^_^*

精彩推薦

win310彩客网