sp1000je
60 lines
1.5 KiB
Plaintext
60 lines
1.5 KiB
Plaintext
<!--#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)
|
|
|
|
%> |