%
webfolder="/"
host="index_cn.asp"'前臺動態地址
folder="/"'文件夾
filename="index_cn.html"'生成靜態文件名
Fso_info host,folder,filename
response.write"生成網站中文首頁靜態HTML完成.br />"
'生成html
Function Fso_info(host,folder,filename)
host="http://"+Request.ServerVariables("HTTP_HOST")webfolderhost
if SaveFile(""folderfilename"",""host"") then
response.Write ""folderfilename" 生成成功. br />"
else
Response.write ""folderfilename" 生成font color='#FF0000'>失敗/font>,可能您的文件名含有特殊字符.br />"
end if
End Function
'生成文件
function SaveFile(LocalFileName,RemoteFileUrl)
Dim Ads, Retrieval, GetRemoteData
On Error Resume Next
Set Retrieval = Server.CreateObject("Microso" "ft.XM" "LHTTP") '//把單詞拆開防止殺毒軟件誤殺
With Retrieval
.Open "Get", RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Ado" "db.Str" "eam") '//把單詞拆開防止殺毒軟件誤殺
With Ads
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile Server.MapPath(LocalFileName), 2
.Cancel()
.Close()
End With
Set Ads=nothing
if err > 0 then
SaveFile = false
err.clear
else
SaveFile = true
end if
End function
%>