최초등록

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
+48
View File
@@ -0,0 +1,48 @@
<!-- #include virtual = "/common/lib/dbcon.asp" -->
<!-- #include virtual = "/common/lib/func.asp" -->
<%
Dim status, tot_level_chk, ct_chk, ct_idx, ct_ref, chk, sql, ok_url
'//파라미터정보 ***********************************************
status = InputValue( request.Form("status") )
tot_level_chk = InputValue( request.Form("tot_level_chk") )
ct_chk = InputValue( request.Form("ct_chk") )
ct_idx = InputValue( request.Form("ct_idx") )
ct_ref = InputValue( request.Form("ct_ref") )
chk = InputValue( request.Form("chk") )
chk = Replace(chk, " ", "")
chk = split(chk, ",")
'//************************************************************
If status = "totlevel" Then '//다중삭제
For z=0 To UBound(chk)
sql = " Update member_div set ct_chk = '" & tot_level_chk & "' Where ct_idx = " & chk(z)
dbcon.execute sql
next
Else
sql = " Update member_div set ct_chk = '" & ct_chk & "' Where ct_idx = " & ct_idx
dbcon.execute sql
End if
If ct_ref = "0" then ct_ref = ""
ok_url = "write.asp?ct_idx=" & ct_ref
Call loding ("0", ok_url)
dbcon.close
Set dbcon = nothing
%>