asp-код для одновременного удаления данных и изображений

Чтобы добиться одновременного удаления записей и изображений, обычно в целях повышения производительности, редактор используется для сохранения изображений в статье в поле. Несколько изображений разделяются запятыми, чтобы облегчить последующую обработку удаления. Первый метод: это код для удаления изображений с одним полем. Это относительно просто, поскольку поле изображения уже существует в поле bookpic таблицы базы данных.

Скопируйте код кода следующим образом:

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

<%

fileid=trim(request(fileid))'ID записи, которую нужно удалить

установите rs=server.createobject(adodb.recordset)

sql=select * из shop_books, где bookid=3090

rs.open sql,conn,3,2

upfile=rs(bookpic) 'С путем и именем файла

set fso=server.CreateObject(scripting.filesystemobject)

fso.deletefile(server.MapPath(upfile))

установить fso=ничего

rs.delete

RS.обновление

RS.закрыть

установить rs=ничего

%>

Второй способ: для нескольких картинок

В программе ASP вы можете использовать ewebeditor при добавлении информации. Это позволяет извлекать изображения статьи и помещать их в поле.

Скопируйте код кода следующим образом:

Идентификатор=Запрос(Идентификатор)

Если Ид= Тогда

Response.Write(<script>alert('Операция удаления не удалась: выберите информацию для удаления!'); hitory.go(-1);</script>)

Еще

Id=Split(Id,,)

Для i=0 до UBound(Id)

set oRs=SerVer.CreateObject(Adodb.recordset)

sSql = ВЫБЕРИТЕ D_SavePathFileName ИЗ &data& ГДЕ ID=&id(i)&

oRs.Open SQL, Conn, 0, 1

Если Не oRs.Eof Тогда

asSavePathFileName = oRs (D_SavePathFileName)

Еще

asSavePathFileName=

Конец, если

oRs.Close

Установить oRs=Ничего

Уменьшите значение aSavePathFileName

если len(aSavePathFileName)>0, то

aSavePathFileName = Split(asSavePathFileName, |)

Тусклый н

Для n = 0 To UBound(aSavePathFileName)

'Удалить файлы по пути к файлу

Вызов DoDelFile(aSavePathFileName(n))

Следующий

'Удалить статью www.vevb.com

Conn.Execute(удалить из статьи, где id=&id(i)&)

Следующий

конец, если

ПодDoDelFile(sPathFile)

'При ошибке возобновить далее

Дим оФСО

Установите oFSO = Server.CreateObject(Scripting.FileSystemObject)

если objFSO.fileExists(Server.MapPath(sPathFile)) то

oFSO.DeleteFile(Server.MapPath(sPathFile))

конец, если

Установить oFSO = Ничего

Конец субтитра