ASP para eliminar imágenes no grabadas requiere un doble bucle para comparar cada imagen en la carpeta (la carpeta donde se almacenan las imágenes) con todos los registros en la base de datos. Divida la imagen y pregunte la primera parte del nombre, luego compárela con los registros de ruta de la imagen en la base de datos restante.
Si la función InStr de vb existe, el valor de retorno es> 0 y puede sacar una conclusión.
El código es el siguiente reparto.asp
Copie el código de código de la siguiente manera:
<%@ idioma=vbscript%>
<%respuesta.Expira = 0%>
<!--#include file=conn.asp-->
<%
Dim objFSO,objFolder,objFile,FF 'Declara la variable objFSO para almacenar la instancia del objeto
FF = Servidor.MapPath(pro_s/)
Establecer objFSO = Server.CreateObject(Scripting.FileSystemObject)
Si objFSO.FolderExists(ff) Entonces
Response.write Todos los archivos en la carpeta &ff&:<br>
Establecer objFolder = objFSO.GetFolder(ff)
Para cada archivo obj en objFolder.Files
%>
<%
nombre de archivo = cstr (objFile.name)
minombre=split(nombre de archivo,.)
ffnombre=minombre(0)
a=0
establecer sclass=conn.execute (seleccione img de wksc_pro)
hacer mientras no sea sclass.eof
resultado=Instr(sclass(img),ffnombre)
a=a+resultado
si (a>0) entonces
salir hacer
terminar si
sclass.movenext
bucle
si(a=0) entonces
respuesta.Escribir &objFile&
respuesta.Escribir<br>
objFile.delete
terminar si
%>
<%
Próximo
Demás
La carpeta Response.Write &ff& no existe y la información relacionada no se puede leer.
Terminar si
Establecer objFolder = Nada
Establecer objFSO = Nothing 'Liberar espacio de memoria de instancia de objeto FileSystemObject
%>