復(fù)制代碼 代碼如下:
%
webfolder="/"
host="index_cn.asp"'前臺(tái)動(dòng)態(tài)地址
folder="/"'文件夾
filename="index_cn.html"'生成靜態(tài)文件名
Fso_info host,folder,filename
response.write"生成網(wǎng)站中文首頁靜態(tài)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
%>
您可能感興趣的文章:- IIS6 中"ASP 0201 錯(cuò)誤 無效的默認(rèn)腳本語言" 的解決方法
- 使用ASP控制指定站點(diǎn)解析腳本語言函數(shù)
- 用InstallShield打包ASP程序的腳本
- asp分頁生成html的程序腳本代碼
- 隱藏修改文件時(shí)間和文件屬性的ASP腳本
- ASP.NET調(diào)用javascript腳本的常見方法小結(jié)
- iis、apache與nginx禁止目錄執(zhí)行asp、php腳本的實(shí)現(xiàn)方法
- ASP上傳漏洞之利用CHR(0)繞過擴(kuò)展名檢測(cè)腳本
- ASP中Server.Execute和Execute實(shí)現(xiàn)動(dòng)態(tài)包含(include)腳本的區(qū)別
- ASP.NET中后臺(tái)注冊(cè)js腳本使用的方法對(duì)比
- ASP程序中常用的腳本語言
