Para lograr la eliminación de registros y la eliminación de imágenes al mismo tiempo, generalmente por motivos de rendimiento, se utiliza el editor para guardar las imágenes del artículo en un campo. Varias imágenes se separan con comas para facilitar el procesamiento de eliminación posterior. El primer método: este es el código para eliminar imágenes de un solo campo. Es relativamente simple, porque el campo de imagen ya existe preexistente en el campo de imagen de libro de la tabla de la base de datos.
Copie el código de código de la siguiente manera:
<!--#include file=conn.asp-->
<%
fileid=trim(solicitud(fileid))'ID del registro que se eliminará
establecer rs=servidor.createobject(adodb.recordset)
sql=seleccionar * de shop_books donde bookid=3090
rs.open sql, conexión, 3,2
upfile=rs(bookpic) 'Con ruta y nombre de archivo
establecer fso=servidor.CreateObject(scripting.filesystemobject)
fso.deletefile(servidor.MapPath(archivo superior))
establecer fso = nada
rs.eliminar
rs.actualización
rs.cerrar
establecer rs = nada
%>
El segundo método: para varias imágenes.
En el programa ASP, puede utilizar ewebeditor al agregar información. Esto puede extraer las imágenes del artículo y colocarlas en un campo.
Copie el código de código de la siguiente manera:
Identificación=Solicitud(Identificación)
Si id = entonces
Response.Write(<script>alert('Error en la operación de eliminación: ¡seleccione la información que desea eliminar!'); hitory.go(-1);</script>)
Demás
Identificación = Dividir (Identificación,,)
Para i=0 a UBound(Id)
establecer oRs=Server.CreateObject(Adodb.recordset)
sSql = SELECCIONE D_SavePathFileName DESDE &datos& DONDE ID=&id(i)&
oRs.Abrir sql, Conexión, 0, 1
Si no es oRs.Eof entonces
asSavePathFileName = oRs(D_SavePathFileName)
Demás
asSavePathFileName=
Terminar si
oRs.Cerrar
Establecer oR = Nada
Atenuar un nombre de archivo de ruta de guardado
si len(aSavePathFileName)>0 entonces
aSavePathFileName = Split(asSavePathFileName, |)
tenue
Para n = 0 a UBound(aSavePathFileName)
'Eliminar archivos por nombre de archivo de ruta
Llamar a DoDelFile(aSavePathFileName(n))
Próximo
'Eliminar artículo www.vevb.com
Conn.Execute (eliminar del artículo donde id=&id(i)&)
Próximo
terminar si
SubDoDelFile(sPathFile)
'En caso de error, reanudar siguiente
OSF tenue
Establecer oFSO = Server.CreateObject(Scripting.FileSystemObject)
si objFSO.fileExists(Server.MapPath(sPathFile)) entonces
oFSO.DeleteFile(Server.MapPath(sPathFile))
terminar si
Establecer oFSO = Nada
Subtítulo final