최초등록

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
@@ -0,0 +1,49 @@
<!-- #include virtual = "/common/lib/dbcon.asp" -->
<!-- #include virtual = "/common/lib/func.asp" -->
<%
Dim ct_idx, status, ct_ref, ct_codeno
Dim sql, ok_url
'//파라미터정보 *************************************************************************************
ct_idx = InputValue( request("ct_idx") )
status = InputValue( request("status") )
ct_ref = InputValue( request("ct_ref") )
chk = InputValue( request("chk") )
chk = Replace(chk, " ", "")
chk = split(chk, ",")
'//**************************************************************************************************
If status = "totdel" Then '다중삭제
For z = 0 To UBound(chk)
sql = "Select ct_codeno from member_div where ct_idx=" & chk(z)
Set rs_3 = dbcon.execute( sql )
sql = " delete from member_div where ct_codeno like '%" & rs_3("ct_codeno") & "%'"
dbcon.execute sql
next
Set rs_3 = Nothing
Else '//일반삭제
'//삭제하기
sql = "Select ct_codeno from member_div where ct_idx=" & ct_idx
Set rs_3 = dbcon.execute( sql )
ct_codeno = rs_3("ct_codeno")
sql = " delete from member_div where ct_codeno like '%" & rs_3("ct_codeno") & "%'"
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)
%>