コードコピーは次のとおりです。
<％@言語= vbscriptcodepage = 936％>
<％
'バッチファイル自動検索挿入ver2.0を交換します
'Feiyun Writing、CSDNアカウント：JSPADMIN、QQ：33323489
'個人のウェブサイトhttp://www.pifoo.com中国のウェブサイト、交換リンクへようこそ。このサイトは、無料のブログアプリケーションと登録を提供します。
「このコードを使用または変更できますが、著作権情報またはリンクを保持してください。使用していただきありがとうございます。
'ご質問や提案がある場合は、メッセージを残してくださいhttp://www.pifoo.com/guestbook/
％>
<％
bakpath = request（ "bakpath"）
delbak = server.mappath（bakpath）
setFSO = createObject（ "Scripting.filesystemObject"）
response.write "削除操作の結果は次のとおりです："＆ "<br>"
iterate（delbak）
functionterate（パス）
Dimfolder、フォルダー、ファイル、ファイル
setFolder = fso.getFolder（PATH）
setfiles = folder.files
foreachfileinfiles
iffso.getExtExtensionName（file.name）= "bak" then
Response.WriteFile.Name＆ "が正常に削除されました！<br>"＆file.path＆ "<br> <br>"
file.deletetrue
endif
次
setFolders = folder.subfolders
foreachfinfolders
iteratef.path
次
エンド機能
setfso =何もない
％>
<ahref = "index.asp">ホームページに戻る</a>