Para conseguir a exclusão de registros e de imagens ao mesmo tempo, geralmente por uma questão de desempenho, o editor é usado para salvar as imagens do artigo em um campo. Várias imagens são separadas por vírgulas para facilitar o processamento posterior de exclusão. O primeiro método: este é o código para excluir imagens de campo único. É relativamente simples, porque o campo picture já existe pré-existente no campo bookpic da tabela do banco de dados.
Copie o código do código da seguinte forma:
<!--#include arquivo=conn.asp-->
<%
fileid=trim(request(fileid))'ID do registro a ser excluído
definir rs=server.createobject(adodb.recordset)
sql=select * de shop_books onde bookid=3090
rs.open sql,conn,3,2
upfile=rs(bookpic) 'Com caminho e nome do arquivo
definir fso=server.CreateObject(scripting.filesystemobject)
fso.deletefile(servidor.MapPath(upfile))
definir fso = nada
rs.delete
rs.atualização
rs.fechar
definir rs = nada
%>
O segundo método: para várias fotos
No programa ASP, você pode usar o ewebeditor ao adicionar informações. Isso pode extrair as imagens do artigo e colocá-las em um campo.
Copie o código do código da seguinte forma:
Id=Solicitação(Id)
Se Id = Então
Response.Write(<script>alert('Falha na operação de exclusão: Selecione as informações a serem excluídas!'); hitory.go(-1);</script>)
Outro
Id=Dividir(Id,,)
Para i=0 para UBound(Id)
definir oRs = SerVer.CreateObject (Adodb.recordset)
sSql = SELECT D_SavePathFileName FROM &data& WHERE ID=&id(i)&
ouRs.Open sSql, Conn, 0, 1
Se não ouRs.Eof então
asSavePathFileName = oRs(D_SavePathFileName)
Outro
asSavePathFileName=
Terminar se
ouRs.Fechar
Definir oRs=Nada
Dim aSavePathFileName
se len(aSavePathFileName)>0 então
aSavePathFileName = Dividir(asSavePathFileName, |)
Escurecer
Para n = 0 para UBound (aSavePathFileName)
'Exclui arquivos pelo caminho do nome do arquivo
Chame DoDelFile(aSavePathFileName(n))
Próximo
'Excluir artigo www.vevb.com
Conn.Execute(excluir do artigo onde id=&id(i)&)
Próximo
terminar se
SubDoDelFile(sPathFile)
'Em caso de erro, retomar próximo
Diminuir oFSO
Definir oFSO = Server.CreateObject (Scripting.FileSystemObject)
se objFSO.fileExists(Server.MapPath(sPathFile)) então
oFSO.DeleteFile(Server.MapPath(sPathFile))
terminar se
Definir oFSO = Nada
Finalizar sub