ASP が未録画の画像を削除するには、フォルダー (画像が保存されているフォルダー) 内の各画像をデータベース内のすべてのレコードと比較する二重ループが必要です。写真を分割し、名前の最初の部分を尋ね、それを残りのデータベース内の写真パス レコードと比較します。
vb の InStr 関数が存在する場合、戻り値は >0 であるため、結論を導き出すことができます。
コードは次のとおりです deal.asp
次のようにコードをコピーします。
<%@ language=vbscript%>
<%response.Expires = 0%>
<!--#include file=conn.asp-->
<%
Dim objFSO,objFolder,objFile,FF 'オブジェクト インスタンスを格納する objFSO 変数を宣言します
FF = サーバー.MapPath(pro_s/)
objFSO = Server.CreateObject(Scripting.FileSystemObject) を設定します。
objFSO.FolderExists(ff) の場合
Response.write フォルダー &ff& 内のすべてのファイル:<br>
objFolder = objFSO.GetFolder(ff) を設定します。
objFolder.Files 内の各 objFile について
%>
<%
ファイル名=cstr(objFile.name)
myname=split(ファイル名,.)
ffname=私の名前(0)
a=0
set sclass=conn.execute(wksc_proから画像を選択)
sclass.eof を実行しないで実行します
result=Instr(sclass(img),ffname)
a=a+結果
if(a>0) then
終了します
終了する場合
sclass.movenext
ループ
if(a=0) then
応答.&objFile& を書き込みます
応答。書き込み<br>
objFile.delete
終了する場合
%>
<%
次
それ以外
応答。書き込みフォルダー &ff& が存在しないため、関連情報を読み取ることができません。
終了の場合
objFolder = なしを設定します
Set objFSO = Nothing 'FileSystemObject オブジェクト インスタンスのメモリ領域を解放します
%>