在網(wǎng)上看到的生成靜態(tài)頁(yè)的方法。 很是簡(jiǎn)單有效。發(fā)上來(lái)共享一下。。
暫時(shí)只支持單個(gè)靜態(tài)頁(yè)，如需要批量生成，只要把這段改成函數(shù)來(lái)調(diào)用即可。
admin_fso.asp
dim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temp
s_File = Request("file") '傳入文件名參數(shù)
If s_File = "" Then
s_File = "index.asp"
End If
FileName = Replace(s_File,"asp","htm")
FilePath = Server.MapPath("../")&"\"&FileName '設(shè)置靜態(tài)頁(yè)路徑(我的是在主目錄下建的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>" )