<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>