新聞資訊

點擊排行

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

【解決方案】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>")
%>

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

精彩推薦

重庆福利彩票双色球复式 3d百期开机号和试机号 今天股票大盘多少点 外盘配资软件价格 福彩快乐十分开奖结果 福彩快乐十分就是赌博 极速赛车开奖网址 好彩一开奖结果 北京赛车pk10软件 云南快乐10分前三遗漏 奉化期货配资