<% dim couponid,action 'action=FormatSQL(SafeRequest("action",0)) action=FormatSQL(Request.form("submit")) couponid=SafeRequest("id",1) if couponid="" then couponid=request.form("couponid") select case action case "添加" if session("rank")>1 then conn.close set conn = nothing response.Write "" response.End end if if request.form("code")="" then response.Write "" response.End end if if Not isNumeric(request.form("content")) then response.Write "" response.End end if if Not isNumeric(request.form("max")) then response.Write "" response.End end if set rs=server.CreateObject("adodb.recordset") rs.Open "select * from acoupon ",conn,1,3 rs.addnew rs("code")=request.form("code") rs("kind")=request.form("kind") rs("content")=request.form("content") rs("max")=request.form("max") rs("state")=1 rs("startdate")=trim(request.form("startdate")) rs("enddate")=trim(request.form("enddate")) rs("deadline")=trim(request.form("deadline")) rs.update rs.close set rs=nothing response.Write "" response.Redirect "admincoupon.asp" case "确认提交" '"save" if session("rank")>1 then conn.close set conn = nothing response.End end if set rs=server.CreateObject("adodb.recordset") rs.Open "select * from acoupon where id="& couponid ,conn,1,3 rs("code")=request.form("code") rs("kind")=request.form("kind") rs("content")=request.form("content") rs("max")=request.form("max") rs("state")=1 rs("startdate")=trim(request.form("startdate")) rs("enddate")=trim(request.form("enddate")) rs("deadline")=trim(request.form("deadline")) rs.Update rs.Close set rs=nothing response.Write "" 'response.Redirect "addcoupon.asp?action=edit&id="&userid case "删除所选礼券" '"del" if couponid<>"" then if session("rank")>1 then conn.close set conn = nothing response.Write "" response.End end if conn.execute "delete from acoupon where id in ("&couponid&") " end if response.Redirect "admincoupon.asp" case "停用" '"disable" if couponid<>"" then if session("rank")>1 then conn.close set conn = nothing response.Write "" response.End end if conn.execute "update acoupon set state=0 where id in ("&couponid&") " 'conn.execute "delete from orders where userid in ("&userid&")" end if response.Redirect "admincoupon.asp" case "启用" '"enable" if couponid<>"" then if session("rank")>1 then conn.close set conn = nothing response.Write "" response.End end if conn.execute "update acoupon set state=1 where id in ("&couponid&") " 'conn.execute "delete from orders where userid in ("&userid&")" end if response.Redirect "admincoupon.asp" end select %>