sp1000je
65 lines
1.1 KiB
Plaintext
65 lines
1.1 KiB
Plaintext
<!-- #include virtual = "/common/lib/dbcon.asp" -->
|
|
<!-- #include virtual = "/common/lib/func.asp" -->
|
|
<%
|
|
Dim R_Fields, rs
|
|
Dim s_num, s_code, s_menuname, s_chk, s_wdate
|
|
|
|
R_Fields = "s_num, s_code, s_menuname, s_chk, s_wdate"
|
|
|
|
Call RequestAll (R_Fields, "request.form")
|
|
|
|
If s_num = "" then '//저장
|
|
|
|
|
|
'//순서
|
|
'//*****************************************
|
|
sql = "select max(s_code) as s_code from emt_category"
|
|
'response.write sql
|
|
'response.end
|
|
Set rs = dbcon.execute( sql )
|
|
|
|
s_code = rs("s_code")
|
|
|
|
if IsNull( s_code ) or s_code = "" then
|
|
s_code = 1
|
|
else
|
|
s_code = s_code + 1
|
|
End if
|
|
'//*****************************************
|
|
|
|
|
|
|
|
|
|
R_Fields_i = "s_code, s_menuname, s_chk, s_wdate"
|
|
|
|
s_wdate = getDateFm(Now(), 3)
|
|
|
|
Call InsertQuery (R_Fields_i, "emt_category")
|
|
|
|
ok_url = "write.asp?s_num=" & ct_ref
|
|
|
|
|
|
Else '//수정
|
|
|
|
|
|
R_Fields = "s_menuname, s_wdate"
|
|
|
|
s_wdate = getDateFm(Now(), 3)
|
|
|
|
Call UpdateQuery (R_Fields, "emt_category", "where s_num=" & s_num)
|
|
|
|
|
|
If ct_ref = "0" then ct_ref = ""
|
|
|
|
ok_url = "write.asp?s_num=" & ct_ref
|
|
|
|
|
|
End if
|
|
|
|
dbcon.close
|
|
Set dbcon = nothing
|
|
|
|
Call loding("0",ok_url)
|
|
|
|
|
|
%> |