Script House は以前にも関連コードをリリースしましたが、一部の特別な Web サイトは完璧ではありませんでした。最近、顧客のシステム変更を手伝ったところ、このコードが非常に優れていることがわかったので、皆さんの便宜のために抽出しました。
次のようにコードをコピーします。
<%
ウェブフォルダー="/"
host="index_cn.asp"'フロントデスクの動的アドレス
フォルダ="/"'フォルダ
filename="index_cn.html"'静的ファイル名を生成
Fso_info ホスト、フォルダー、ファイル名
response.write "Web サイトの中国語ホームページ用の静的 HTML の生成を完了しました。<br />"
'HTMLを生成
関数 Fso_info(ホスト,フォルダー,ファイル名)
host="http://"+Request.ServerVariables("HTTP_HOST")&webfolder&host
if SaveFile(""&フォルダ&ファイル名&"",""&ホスト&"") then
response.Write ""&folder&filename&" が正常に生成されました。<br />"
それ以外
Response.write ""&folder&filename&" は <font color='#FF0000'></font> の生成に失敗しました。ファイル名に特殊文字が含まれている可能性があります。<br />"
終了する場合
終了機能
'ファイルを生成
関数 SaveFile(ローカルファイル名,リモートファイルURL)
薄暗い広告、取得、GetRemoteData
エラー時は次へ再開
Set Retrieval = Server.CreateObject("Microso" & "ft.XM" & "LHTTP") '//ウイルス対策ソフトウェアによる偶発的な強制終了を防ぐために単語を分割します
検索あり
.Open "Get"、RemoteFileUrl、False、""、""
。送信
GetRemoteData = .ResponseBody
で終わる
取得 = なしを設定します
Set Ads = Server.CreateObject("Ado" & "db.Str" & "eam") '//ウイルス対策ソフトウェアによる偶発的な強制終了を防ぐために単語を分割します
広告あり
.Type = 1
。開ける
.Write GetRemoteData
.SaveToFile Server.MapPath(ローカルファイル名)、2
。キャンセル（）
。近い（）
で終わる
「広告=なし」を設定します
エラー <> 0 の場合
ファイルを保存 = false
エラークリア
それ以外
ファイルを保存 = true
終了する場合
終了機能
%>