A exclusão de imagens não gravadas pelo ASP requer um loop duplo para comparar cada imagem na pasta (a pasta onde as imagens estão armazenadas) com todos os registros no banco de dados. Divida a imagem e pergunte a primeira parte do nome, depois compare-a com os registros do caminho da imagem no banco de dados restante.
Se a função InStr de vb existir, o valor de retorno será >0 e você poderá tirar uma conclusão.
O código é o seguinte: deal.asp
Copie o código do código da seguinte forma:
<%@idioma=vbscript%>
<%response.Expires = 0%>
<!--#include arquivo=conn.asp-->
<%
Dim objFSO,objFolder,objFile,FF 'Declara a variável objFSO para armazenar a instância do objeto
FF = Servidor.MapPath(pro_s/)
Definir objFSO = Server.CreateObject(Scripting.FileSystemObject)
Se objFSO.FolderExists(ff) Então
Response.write Todos os arquivos na pasta &ff&:<br>
Definir objFolder = objFSO.GetFolder(ff)
Para cada objFile em objFolder.Files
%>
<%
nome do arquivo=cstr(objArquivo.nome)
meunome=dividir(nome do arquivo,.)
ffnome=meunome(0)
uma=0
defina sclass = conn.execute (selecione img de wksc_pro)
faça enquanto não sclass.eof
resultado=Instr(sclass(img),ffname)
a=a+resultado
se(a>0) então
sair, faça
terminar se
sclass.movnext
laço
se(a=0) então
resposta.Escrever &objArquivo&
resposta.Escrever<br>
arquivoobj.delete
terminar se
%>
<%
Próximo
Outro
A pasta Response.Write &ff& não existe e as informações relacionadas não podem ser lidas!
Terminar se
Definir objFolder = Nada
Set objFSO = Nothing 'Libera espaço de memória da instância do objeto FileSystemObject
%>