<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#include file="chk.asp"-->
<!--#include file="db_conn.asp"-->
<!--#include file="../my_libs/my_request.asp"-->
<!--#include file="../my_libs/my_lib.asp"-->
<%
dim action,sql,rs,id,arrline(2),sql2
action=my_request("flag",0)
id=my_request("id",1)
if action="" or id="" or isnull(id) or (isNumeric(id)=false) then
call wnourl("參數錯誤")
else
id=cint(id)
end if

select case action
case "del"
sql="delete from ssort_line where sort_id="&id
sql2="delete from ssort_lines where zm_linesort="&id
conn.execute (sql)
conn.execute (sql2)
call wurl("刪除成功","manage_line_sort.asp")
case "save"
arrline(0)=my_request("ssort_linesort",0)
arrline(1)=my_request("ssort_flag",1)
arrline(2)=my_request("ssort_content",0)
if arrline(0)="" or arrline(1)="" or arrline(2)="" or (isNumeric(arrline(1))=false) then
call wnourl("參數錯誤")
else
arrline(1)=cint(arrline(1))
conn.execute ("update ssort_line set zm_linesort='"&arrline(0)&"',zm_flag="&arrline(1)&",zm_content='"&arrline(2)&"',zm_addtime='"&now()&"' where sort_id="&id)
call wurl("修改成功","manage_line_sort.asp")
end if
case else
call wurl("wrong!","manage_line_sort.asp")
end select
%>