www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/admin_classsave.asp
<!--#include file="const.asp"--> <%CheckAdmin%> <% founderr=false act=request("act") ClassID=request.QueryString("ClassID") if act="rename" then FunRename elseif act="del" then FunDel elseif act="add" then FunAdd else errmsg=errmsg+"<br>"+"<li>操作出错!请联系管理员" founderr=true end if if founderr=true then call error() else Response.Redirect "admin_ClassMana.asp" end if function FunRename if trim(request.form("Class"))="" then errmsg=errmsg+"<br>"+"<li>分类名不能为空!" founderr=true else set rs=server.createobject("adodb.recordset") sql = "SELECT * FROM [class] where classid=" & ClassID rs.Open sql,conn,1,3 'if err.Number<>0 then ' err.clear ' errmsg=errmsg+"<br>"+"<li>操作出错!请联系管理员" ' founderr=true 'else rs("class") = request.form("Class") rs.Update 'end if rs.Close set rs=nothing conn.close set conn=nothing end if end function function FunDel sql="delete from class where classid=" & ClassID conn.execute sql end function function FunAdd if trim(request("Class"))="" then errmsg=errmsg+"<br>"+"<li>分类名不能为空!" founderr=true else set rs=server.createobject("adodb.recordset") sql = "SELECT * FROM [class] where (classid IS NULL)" rs.Open sql,conn,1,3 'if err.Number<>0 then ' err.clear ' errmsg=errmsg+"<br>"+"<li>操作出错!请联系管理员" ' founderr=true 'else rs.AddNew rs("class") = request.form("Class") rs.Update 'end if rs.Close set rs=nothing conn.close set conn=nothing end if end function %>