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