<div id="f3jr1"><span id="f3jr1"><ruby id="f3jr1"></ruby></span></div>

                                                                  新聞資訊

                                                                  點擊排行

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

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

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

                                                                  精彩推薦

                                                                  冰球运动视频

                                                                                                                                  <div id="f3jr1"><span id="f3jr1"><ruby id="f3jr1"></ruby></span></div>

                                                                                                                                                                                                  <div id="f3jr1"><span id="f3jr1"><ruby id="f3jr1"></ruby></span></div>
                                                                                                                                                                                                  莱特币挖矿速度显示 伊蒂哈德足球场 广西快乐双彩基本走势图 白日梦工厂 2014年4月瑞波币价格 三重魔力电子 新剑侠情缘v6多少钱 探灵笔记系统攻略 轩辕帝传援彩金 彩票官网往年148开奖号码 辽宁十一选五几点开始 ac米兰vs那不勒斯直播 尤文弗罗西诺内全场回放 时界门之将军电子 浙江十一选五开奖走势图 山东麻将二五八胡牌