<!--#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)
%>