從一個網站扒下的asp生成靜態頁面的代碼 腳本之家特供版
2024-05-04 10:59:52
供稿：網友
復制代碼 代碼如下:
<%
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
%>
您可能感興趣的文章:
IIS6 中"ASP 0201 錯誤 無效的默認腳本語言" 的解決方法使用ASP控制指定站點解析腳本語言函數用InstallShield打包ASP程序的腳本asp分頁生成html的程序腳本代碼隱藏修改文件時間和文件屬性的ASP腳本ASP.NET調用javascript腳本的常見方法小結iis、apache與nginx禁止目錄執行asp、php腳本的實現方法ASP上傳漏洞之利用CHR(0)繞過擴展名檢測腳本ASP中Server.Execute和Execute實現動態包含(include)腳本的區別ASP.NET中后臺注冊js腳本使用的方法對比ASP程序中常用的腳本語言
