asp刪除沒有記錄的圖片需要資料夾(存放圖片的資料夾)中的每個圖片和資料庫中的所有記錄進行比較採用雙重循環。把圖片進行.分割後名字問前面部分,那其餘資料庫中的圖片路徑記錄進行對比
採用vb的InStr函數如果存在的話回傳值>0,過可以得出結論
程式碼如下deal.asp
複製代碼代碼如下:
<%@ language=vbscript%>
<%response.Expires = 0%>
<!--#include file=conn.asp-->
<%
Dim objFSO,objFolder,objFile,FF '宣告objFSO 變數存放物件實例
FF = Server.MapPath(pro_s/)
Set objFSO = Server.CreateObject(Scripting.FileSystemObject)
If objFSO.FolderExists(ff) Then
Response.write 資料夾&ff& 裡所有的檔案:<br>
Set objFolder = objFSO.GetFolder(ff)
For Each objFile in objFolder.Files
%>
<%
filename=cstr(objFile.name)
myname=split(filename,.)
ffname=myname(0)
a=0
set sclass=conn.execute(select img from wksc_pro )
do while not sclass.eof
result=Instr(sclass(img),ffname)
a=a+result
if(a>0) then
exit do
end if
sclass.movenext
loop
if(a=0) then
response.Write &objFile&
response.Write<br>
objFile.delete
end if
%>
<%
Next
Else
Response.Write 資料夾&ff&不存在,無法讀取相關資訊!
End If
Set objFolder = Nothing
Set objFSO = Nothing '釋放FileSystemObject 物件實例記憶體空間
%>