sp1000je
46 lines
981 B
Plaintext
46 lines
981 B
Plaintext
<!--#include virtual = "/common/lib/dbcon.asp" -->
|
|
<!--#include virtual = "/common/lib/func.asp" -->
|
|
|
|
<!--#include file = "config.asp" -->
|
|
|
|
<%
|
|
|
|
eb_pk = InputValue(request("eb_pk"))
|
|
ebp_idx = InputValue(request("ebp_idx"))
|
|
|
|
|
|
sql = "Select ebp_pageimg from ebook_page where ebp_idx="&ebp_idx
|
|
Set Rs = Dbcon.Execute (sql)
|
|
ebp_pageimg = rs("ebp_pageimg")
|
|
rs.close : Set rs = nothing
|
|
|
|
|
|
|
|
If ebp_pageimg <> "" then
|
|
|
|
rootPath = server.MapPath("/")
|
|
|
|
' 이미지 삭제
|
|
strDir = rootPath & "\data\ebook\"&eb_pk&"\"
|
|
strDir2 = rootPath & "\data\ebook\"&eb_pk&"\middle\"
|
|
strDir3 = rootPath & "\data\ebook\"&eb_pk&"\small\"
|
|
|
|
Call dfile( strDir, ebp_pageimg)
|
|
Call dfile( strDir2, ebp_pageimg)
|
|
Call dfile( strDir3, ebp_pageimg)
|
|
|
|
|
|
ebp_pageimg = ""
|
|
|
|
End if
|
|
|
|
|
|
R_Fields = "ebp_mdate, ebp_pageimg"
|
|
ebp_mdate = getDateFm(now,3)
|
|
Call UpdateQuery (R_Fields, "ebook_page", "where ebp_idx="&ebp_idx)
|
|
|
|
Dbcon.close : Set Dbcon = nothing
|
|
|
|
ok_url = "write.asp?eb_pk="&eb_pk
|
|
Call loding("0",ok_url)
|
|
%> |