데이터와 사진을 동시에 삭제하는 ASP 코드

기록 삭제와 사진 삭제를 동시에 수행하려면 일반적으로 성능을 위해 편집기를 사용하여 기사의 사진을 필드에 저장하고 나중에 삭제 처리를 용이하게 하기 위해 여러 사진을 쉼표로 구분합니다. 첫 번째 방법: 단일 필드 이미지를 삭제하는 코드입니다. 그림 필드가 데이터베이스 테이블의 bookpic 필드에 이미 존재하기 때문에 비교적 간단합니다.

다음과 같이 코드 코드를 복사합니다.

<!--#포함 파일=conn.asp-->

<%

fileid=trim(request(fileid))'삭제할 레코드의 ID

rs=server.createobject(adodb.recordset) 설정

sql=select * from shop_books, 여기서 bookid=3090

rs.open SQL,콘,3,2

upfile=rs(bookpic) '경로와 파일명 포함

fso=server.CreateObject(scripting.filesystemobject) 설정

fso.deletefile(server.MapPath(업파일))

fso=아무것도 설정하지 않음

RS.삭제

RS.업데이트

RS.닫기

rs=아무것도 설정하지 않음

%>

두 번째 방법: 여러 장의 사진

ASP 프로그램에서 정보를 추가할 때 ewebeditor를 사용할 수 있습니다. 그러면 기사의 사진을 추출하여 필드에 넣을 수 있습니다.

다음과 같이 코드 코드를 복사합니다.

ID=요청(ID)

Id= 그러면

Response.Write(<script>alert('삭제 작업 실패: 삭제할 정보를 선택하세요!'); hitory.go(-1);</script>)

또 다른

ID=분할(ID,,)

i=0에서 UBound(Id)까지

oRs=SerVer.CreateObject(Adodb.recordset) 설정

sSql = &data& WHERE ID=&id(i)&에서 D_SavePathFileName을 선택합니다.

oRs.Open SQL, Conn, 0, 1

oRs.Eof가 아닌 경우

asSavePathFileName = oRs(D_SavePathFileName)

또 다른

asSavePathFileName=

종료 조건

또는Rs.Close

oRs=아무것도 설정하지 않음

SavePathFileName을 흐리게 표시

len(aSavePathFileName)>0이면

aSavePathFileName = 분할(asSavePathFileName, |)

희미한 n

n = 0인 경우 UBound(aSavePathFileName)로

'경로 파일 이름으로 파일 삭제

DoDelFile(aSavePathFileName(n))을 호출합니다.

다음

'www.vevb.com 기사 삭제

Conn.Execute(id=&id(i)&인 기사에서 삭제)

다음

종료하면

하위 DoDelFile(sPathFile)

'오류 발생 시 다음 재개

희미한 FSO

oFSO = Server.CreateObject(Scripting.FileSystemObject) 설정

if objFSO.fileExists(Server.MapPath(sPathFile)) 다음

oFSO.DeleteFile(Server.MapPath(sPathFile))

종료하면

oFSO 설정 = 없음

서브 끝