Wulin.com www.vevb.com は以前にも関連コードをリリースしましたが、一部の特別な Web サイトは完璧ではありませんでした。最近、顧客のシステム変更を手伝ったところ、このコードが非常に優れていることがわかったので、全員用に抽出しました。利便性。次のようにコードをコピーします。
<%
ウェブフォルダー=/
host=index_cn.asp'フロントデスクの動的アドレス
フォルダー=/'フォルダー
filename=index_cn.html'静的ファイル名を生成
Fso_info ホスト、フォルダー、ファイル名
response.write は、Web サイトの中国語ホームページ用の静的 HTML を生成します。<br />
'HTMLを生成
関数 Fso_info(ホスト,フォルダー,ファイル名)
ホスト=http://+Request.ServerVariables(HTTP_HOST)&webfolder&host
if SaveFile(&フォルダ&ファイル名&,&ホスト&) then
応答。&フォルダ&ファイル名&が正常に生成されました。<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
終了する場合
終了機能
%>