<% 
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")&webfolder&host 
if SaveFile(""&folder&filename&"",""&host&"") then 
response.Write ""&folder&filename&" 生成成功. <br />" 
else 
Response.write ""&folder&filename&" 生成<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 
%>