code asp pour supprimer des données et des images en même temps

Pour réaliser simultanément la suppression des enregistrements et la suppression des images, généralement pour des raisons de performances, l'éditeur est utilisé pour enregistrer les images de l'article dans un champ. Plusieurs images sont séparées par des virgules pour faciliter le traitement de suppression ultérieur. La première méthode : c'est le code pour supprimer les images à champ unique. C'est relativement simple, car le champ image est déjà préexistant dans le champ bookpic de la table de la base de données.

Copiez le code comme suit :

<!--#include file=conn.asp-->

<%

fileid=trim(request(fileid))'ID de l'enregistrement à supprimer

définir rs=server.createobject(adodb.recordset)

sql=select * from shop_books où bookid=3090

rs.open sql, conn, 3,2

upfile=rs(bookpic) 'Avec chemin et nom de fichier

set fso=server.CreateObject(scripting.filesystemobject)

fso.deletefile(server.MapPath(upfile))

définir fso = rien

rs.supprimer

rs.mise à jour

rs.fermer

définir rs = rien

%>

La deuxième méthode : pour plusieurs images

Sous le programme ASP, vous pouvez utiliser ewebeditor lors de l'ajout d'informations. Cela peut extraire les images de l'article et les placer dans un champ.

Copiez le code comme suit :

Id = Demande (Id)

Si ID = Alors

Response.Write(<script>alert('Échec de l'opération de suppression : veuillez sélectionner les informations à supprimer !'); hitory.go(-1);</script>)

Autre

Id=Split(Id,,)

Pour i=0 à UBound(Id)

set oRs = SerVer.CreateObject (Adodb.recordset)

sSql = SELECT D_SavePathFileName FROM &data& WHERE ID=&id(i)&

oRs.Open SQL, Conn, 0, 1

Si non oRs.Eof Alors

asSavePathFileName = oRs(D_SavePathFileName)

Autre

asSavePathFileName=

Fin si

oRs.Fermer

Définir oRs=Rien

Dim aSavePathFileName

si len(aSavePathFileName)>0 alors

aSavePathFileName = Split(asSavePathFileName, |)

Dim n

Pour n = 0 Vers UBound (aSavePathFileName)

'Supprimer les fichiers par chemin d'accès

Appelez DoDelFile (aSavePathFileName (n))

Suivant

'Supprimer l'article www.vevb.com

Conn.Execute (supprimer de l'article où id=&id(i)&)

Suivant

finir si

Sous-DoDelFile(sPathFile)

'En cas d'erreur, reprendre ensuite

Faible OFSO

Définir oFSO = Server.CreateObject (Scripting.FileSystemObject)

si objFSO.fileExists(Server.MapPath(sPathFile)) alors

oFSO.DeleteFile(Server.MapPath(sPathFile))

finir si

Définir oFSO = Rien

Fin du sous-marin