在網上看到的生成靜態頁的方法。 很是簡單有效。發上來共享一下。。
暫時只支持單個靜態頁，如需要批量生成，只要把這段改成函數來調用即可。
admin_fso.asp
dim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temp
s_File = Request("file") '傳入文件名參數
If s_File = "" Then
s_File = "index.asp"
End If
FileName = Replace(s_File,"asp","htm")
FilePath = Server.MapPath("../")&"\"&FileName '設置靜態頁路徑(我的是在主目錄下建的admin文件夾)
Do_Url = "http://"
Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&Replace(Request.ServerVariables("SCRIPT_NAME"),"admin/admin_fso.asp","")&s_File
strUrl = Do_Url
dim objXmlHttp
'set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
set objXmlHttp = Server.CreateObject("MSXML2.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>parent.msg.innerHTML='文件已成功生成！';</script>" )