Files
sms_host20170829/manager/content/04ebook/delete_ok.asp
T
2026-02-23 10:01:00 +09:00

102 lines
2.2 KiB
Plaintext

<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<!--#include file = "config.asp" -->
<%
' 파라미터정보 *************************************************************************************
eb_idx = InputValue(request("eb_idx"))
status = InputValue(request("status"))
' **************************************************************************************************
If status = "totdel" Then ' 다중삭제
chk = Replace( request("chk"), " ", "")
arr_chk = Split(chk,",")
For z=0 To UBound(arr_chk)
sql = "select eb_pk, eb_logoimg from ebook where eb_idx= "&arr_chk(z)
Set Rs = Dbcon.Execute (sql)
If Not rs.eof Then
eb_pk = rs("eb_pk")
eb_logoimg = rs("eb_logoimg")
End If
rs.close : Set rs = nothing
' ebook 삭제
sql = " delete from ebook where eb_pk = "&eb_pk
Dbcon.execute sql
' 페이지 삭제
sql = " delete from ebook_page where eb_pk = "&eb_pk
Dbcon.execute sql
Call dfolder (server.mappath("/")&"\data\ebook\"&eb_pk&"\middle")
Call dfolder (server.mappath("/")&"\data\ebook\"&eb_pk&"\small")
Call dfolder (server.mappath("/")&"\data\ebook\"&eb_pk)
''''''''''''''''''''''''''''
' 폴더삭제
' exec("rm -rf ".$_SERVER[DOCUMENT_ROOT]."/data/ebook/".$eb_pk);
strDir = server.mappath("/")&"\data\ebook\logo\"
If eb_logoimg <> "" then
Call dfile(strDir, eb_logoimg)
End if
next
Else ' 일반삭제
sql = "select eb_pk, eb_logoimg from ebook where eb_idx= "&eb_idx
Set Rs = Dbcon.Execute (sql)
eb_pk = rs("eb_pk")
eb_logoimg = rs("eb_logoimg")
rs.close : Set rs = nothing
' ebook 삭제
sql = " delete from ebook where eb_pk = "&eb_pk
Dbcon.execute sql
' 페이지 삭제
sql = " delete from ebook_page where eb_pk = "&eb_pk
Dbcon.execute sql
' 폴더삭제
Call dfolder (server.mappath("/")&"\data\ebook\"&eb_pk&"\middle")
Call dfolder (server.mappath("/")&"\data\ebook\"&eb_pk&"\small")
Call dfolder (server.mappath("/")&"\data\ebook\"&eb_pk)
strDir = server.mappath("/")&"\data\ebook\logo\"
If eb_logoimg <> "" then
Call dfile(strDir, eb_logoimg)
End If
End If
Dbcon.close : Set Dbcon = Nothing
ok_url = "list.asp?"&page_info
Call loding ("0", ok_url)
%>