최초등록

This commit is contained in:
sp1000je
2026-02-23 10:01:00 +09:00
commit 7bc9767bf4
3120 changed files with 198447 additions and 0 deletions
@@ -0,0 +1,46 @@
<!--#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)
%>