최초등록

2026-02-23 10:01:00 +09:00
commit 7bc9767bf4
3120 changed files with 198447 additions and 0 deletions
@@ -0,0 +1,127 @@
+<!--#include virtual = "/common/lib/dbcon.asp" -->
+<!--#include virtual = "/common/lib/func.asp" -->
+
+<!--#include file = "config.asp" -->
+
+<%
+
+rootPath = server.MapPath("/")
+Set UploadForm = Server.CreateObject("DEXT.FileUpload")
+UploadForm.DefaultPath = rootPath&"\data\"
+
+
+
+
+R_Fields = "ebp_idx, ebp_subject, ebp_code, ebp_wdate, ebp_mdate, ebp_chk, eb_pk"
+
+Call RequestAll (R_Fields, "UploadForm")
+
+
+' ------------------- 저장공간인 [DATA]폴더가 없다면 생성 한다. -------------------
+FolderCreate( rootPath & "\data\ebook\"&eb_pk&"\")
+FolderCreate( rootPath & "\data\ebook\"&eb_pk&"\middle\")
+FolderCreate( rootPath & "\data\ebook\"&eb_pk&"\small\")
+' ------------------------------------------------------------------------------------
+
+
+If ebp_idx = "" then ' 저장
+	
+
+	' 이미지파일저장
+	' *****************************************
+	strDir		= rootPath & "\data\ebook\"&eb_pk&"\"
+	ext_str		= "jpg,gif"
+	ebp_pageimg	= wfile2("ebp_pageimg", 10, strDir, ext_str)
+	' *****************************************
+
+	' 썸네일1
+	Call GD2_make_thumb(413, 584, ebp_pageimg, strDir, strDir&"middle\" )
+
+	' 썸네일2
+	Call GD2_make_thumb(50, 71, ebp_pageimg, strDir, strDir&"small\" )
+
+
+
+	' 순서
+	' *****************************************
+	sql = " SELECT isnull(max(ebp_code),0) FROM ebook_page  WHERE eb_pk = "&eb_pk
+	Set Rs = Dbcon.Execute (sql)
+	ebp_code = rs(0)
+	rs.close : Set rs = Nothing
+	
+	ebp_code = ebp_code + 1
+	' *****************************************
+
+	
+	R_Fields_i = "ebp_subject, ebp_code, ebp_pageimg, ebp_wdate, ebp_mdate, ebp_chk, eb_pk"
+	
+	ebp_wdate = getDateFm(now,3)
+	ebp_mdate = getDateFm(now,3)
+	ebp_chk	= "Y"
+	
+	Call InsertQuery (R_Fields_i, "ebook_page")
+	
+	ok_url = "write_ui.asp?eb_pk="&eb_pk
+
+
+Else ' 수정
+	
+	ebp_subject = UploadForm("ebp_subject_"&ebp_idx) ' 수정이름
+	ebp_pageimg = UploadForm("ebp_pageimg_"&ebp_idx) ' 수정파일
+	ebp_pageimg_name = UploadForm("ebp_pageimg_"&ebp_idx&"_name") ' 수정파일
+
+	ebp_pageimg_org = UploadForm("ebp_pageimg_org_"&ebp_idx) ' 수정파일
+	ebp_pageimg_del = UploadForm("ebp_pageimg_del_"&ebp_idx) ' 수정파일
+
+		
+	strDir	= rootPath & "\data\ebook\"&eb_pk&"\"
+	strDir2	= rootPath & "\data\ebook\"&eb_pk&"\middle\"
+	strDir3	= rootPath & "\data\ebook\"&eb_pk&"\small\"
+
+
+
+	If ebp_pageimg<>"" Then
+
+		ext_str		= "jpg,gif"
+		ebp_pageimg	= wfile2("ebp_pageimg_"&ebp_idx, 10, strDir, ext_str)
+
+		' 썸네일1
+		Call GD2_make_thumb(413, 584, ebp_pageimg, strDir, strDir&"middle\" )
+
+		' 썸네일2
+		Call GD2_make_thumb(50, 71, ebp_pageimg, strDir, strDir&"small\" )
+
+		Call dfile(strDir, ebp_pageimg_org)
+		Call dfile(strDir2, ebp_pageimg_org)
+		Call dfile(strDir3, ebp_pageimg_org)
+
+
+	Else
+
+		ebp_pageimg = ebp_pageimg_org
+		If ebp_pageimg_del <> "" then ' 첨부파일만 삭제
+			Call dfile(strDir, ebp_pageimg_org)
+			Call dfile(strDir2, ebp_pageimg_org)
+			Call dfile(strDir3, ebp_pageimg_org)
+			ebp_pageimg = ""
+		End if
+
+	End If
+	
+	
+	
+	R_Fields = "ebp_subject, ebp_mdate, ebp_pageimg"
+
+	ebp_mdate = getDateFm(now,3)
+
+	Call UpdateQuery (R_Fields, "ebook_page", "where ebp_idx="&ebp_idx)
+
+	ok_url = "write_ui.asp?eb_pk="&eb_pk
+
+End If
+
+Dbcon.close : Set Dbcon = nothing
+
+Call loding("0", ok_url)
+
+%>