최초등록
This commit is contained in:
@@ -0,0 +1,60 @@
|
||||
<!--#include virtual = "/common/lib/dbcon.asp"-->
|
||||
<!--#include virtual = "/common/lib/func.asp"-->
|
||||
<%
|
||||
Dim status, a_num, tot_level_chk, ct_chk, ct_idx, ct_ref
|
||||
|
||||
|
||||
'//------------------- 저장공간인 [DATA]폴더가 없다면 생성 한다. -------------------
|
||||
FolderCreate( server.MapPath("/")&"\data\board_code\" )
|
||||
'//------------------------------------------------------------------------------------
|
||||
|
||||
Set UploadForm = Server.CreateObject("DEXT.FileUpload")
|
||||
UploadForm.DefaultPath = server.MapPath("/")&"\data\board_code\"
|
||||
|
||||
|
||||
'//파라미터정보 ***********************************************
|
||||
status = InputValue(UploadForm("status"))
|
||||
a_num = InputValue(UploadForm("a_num"))
|
||||
|
||||
tot_level_chk = InputValue(UploadForm("tot_level_chk"))
|
||||
|
||||
ct_chk = InputValue(UploadForm("ct_chk"))
|
||||
ct_idx = InputValue(UploadForm("ct_idx"))
|
||||
|
||||
ct_ref = InputValue(UploadForm("ct_ref"))
|
||||
|
||||
|
||||
chk = InputValue(UploadForm("chk"))
|
||||
chk = Replace( chk, " ", "" )
|
||||
chk = Split(chk, ",")
|
||||
|
||||
'//************************************************************
|
||||
|
||||
|
||||
If status = "totlevel" then ') { //
|
||||
|
||||
For z=0 To ubound(chk)
|
||||
|
||||
sql = " Update board_code set ct_chk = '" & tot_level_chk & "' Where ct_idx = " & chk(z)
|
||||
dbcon.execute sql
|
||||
|
||||
next
|
||||
|
||||
Else
|
||||
|
||||
|
||||
sql = " Update board_code set ct_chk = '" & ct_chk & "' Where ct_idx = " & ct_idx
|
||||
dbcon.execute sql
|
||||
|
||||
end if
|
||||
|
||||
dbcon.close
|
||||
Set dbcon = nothing
|
||||
|
||||
|
||||
If ct_ref = "0" then ct_ref = ""
|
||||
ok_url = "write.asp?a_num=" & a_num & "&ct_idx=" & ct_ref
|
||||
|
||||
Call loding ("0",ok_url)
|
||||
|
||||
%>
|
||||
Reference in New Issue
Block a user