saveadmin.asp

来自「创建和运行动态、交互的Web服务器应用程序」· ASP 代码 · 共 56 行

<!--#include file="conn.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.reload('login.asp')</script>"
response.End
else
if session("flag")>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
end if
%>
<%dim action,admin,adminid
      action = request.QueryString("action")
      adminid= request.QueryString("id")
select case action

       '//添加新数据
       case "add"
            if trim(request("admin"))<>"" and trim(request("password"))<>"" then
            set rs=server.CreateObject("adodb.recordset")
                rs.open "select * from shop_admin",conn,1,3
                rs.addnew
                rs("admin")=trim(request("admin"))
                rs("password")=trim(request("password"))
                rs("flag")=int(request("flag"))
                rs.update
                rs.close
            set rs=nothing
                response.Redirect "manageadmin.asp"
            else
               response.Write "<script language=javascript>alert('用户名或密码不能为空！');window.location.reload('manageadmin.asp')</script>"
               response.End
            end if

       '//修改数据
       case "edit"
            if trim(request("adminx"))<>"" and trim(request("passwordx"))<>"" then
            set rs=server.CreateObject("adodb.recordset")
                rs.Open "select * from shop_admin where adminid="&adminid,conn,1,3
                rs("admin")=request("adminx")
                rs("password")=trim(request("passwordx"))
                rs("flag")=int(request("flagx"))
                rs.Update
                rs.Close
            set rs=nothing
            response.Redirect "manageadmin.asp"
            else
                response.Write "<script language=javascript>alert('用户名或密码不能为空！');window.location.reload('manageadmin.asp')</script>"
                response.End
            end if
       
       '//删除数据
       case "del"
            conn.execute ("delete from shop_admin where adminid="&request.QueryString("id"))
            response.Redirect "manageadmin.asp"
end select%>