陕西快乐十分前三直选最大遗漏数据|陕西快乐十分近期开奖|

新闻资讯

点击排行

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

【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
 
在需要生成静态页面的位置,调用该过程即可。

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

精彩推荐

陕西快乐十分前三直选最大遗漏数据
1378李逵捕鱼规则 棋牌王中王如何下载 pc蛋蛋计划软件哪款好用 猫咖啡店赚钱 k8彩票app下载 飞艇计划6码公式 时时乐开奖走势图今天的 有玩天津时时平台 时时彩真正稳赚方法 拳击比赛报名