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

新闻资讯

点击排行

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

【解决方案】asp生成静态页的方法

来源:安信科技    浏览: 次    日期:2015年12月26日

 <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
FilePath = Server.MapPath("/")&"/index.htm"
 'response.Write(FilePath)
 Do_Url = "http://"
 Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&"/default.aspx"
 strUrl = Do_Url
 'response.Write(strUrl)
 dim objXmlHttp
 set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
 objXmlHttp.open "GET",strUrl,false
 objXmlHttp.send()
 Dim binFileData
 binFileData = objXmlHttp.responseBody
 Dim objAdoStream
 set objAdoStream = Server.CreateObject("ADODB.Stream")
 objAdoStream.Type = 1
 objAdoStream.Open()
 objAdoStream.Write(binFileData)
 objAdoStream.SaveToFile FilePath,2
 objAdoStream.Close()
 
 Response.Write("<script language=javascript>alert('首页静态转换成功!');</script>")
%>

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

精彩推荐

陕西快乐十分前三直选最大遗漏数据
云南十一选五购买技巧 青海11选5的开奖结果 熊猫四川麻将 英超直播切尔西 北京快中彩 麻将技巧实战打法视频 云南快乐十分走势分析预测 彩票平台代理怎么赚钱 网络上哪里能买彩票 竞彩足球比分直播结果