www.gusucode.com > 25175 学生同学录管理系统 2007 build 1231D源码程序 > admin/admin_user.asp
<!--#include file="../conn.asp"--> <!--#include file="../inc/inc.asp"--> <!--#include file="inc/inc.asp"--> <!--#include file="common/admin_user_inc.asp"--> <% res w3chead(HTMLother),1 nowtit="管理员" Login_Judge Dim a_UserId,a_PassWord,a_UserName action=che(request("action")) id=che(request("id")) Dim users(2) users(0)="帐 号" users(1)="姓 名" users(2)="密 码" Dim userslm(2) userslm(0)="a_UserId" userslm(1)="a_UserName" userslm(2)="a_PassWord" Dim rs_super,superid superid=0 select Case action Case "list" Ispower 1041 const MaxPerPage=10 restit nowtit,infotit(0) nowmenu listinfos Case "add" Ispower 1042 restit nowtit,infotit(1) nowmenu addinfos Case "save" Ispower 1042 jstable isn a_UserId,"帐号",1 isn a_UserName,"姓名",1 Recheck "Admin_User","0","a_UserId",a_UserId,"用户名" set rs=server.createobject("adodb.recordset") sql=Sqlinfo("*","Admin_User","id=0","","","") rs.Open Sql, Conn, 1, 3 rs.AddNew sqltable action rs.Update rs.close rightmsg "?action=list","" Case "edit" Ispower 1043 restit nowtit,infotit(2) nowmenu editinfos Case "mod" Ispower 1043 isn id,"ID",1 checksuper jstable isn a_UserName,"姓名",1 set rs=server.createobject("adodb.recordset") sql=Sqlinfo("*","Admin_User","id="&id,"","","") rs.Open Sql, Conn, 1, 3 If Not rs.Eof Then sqltable action rs.Update Else errormsg "参数错误" End If rs.close rightmsg "?action=list","" Case "del" Ispower 1044 isn id,"id",1 If id<>"1" Then sqldel "Admin_User",id rightmsg "?action=list","" Case "powers" Ispower 1045 If id="" Then errormsg "参数错误" checksuper nowtit="管理员权限" restit nowtit,infotit(1) nowmenu powerinfos Case "set" Ispower 1045 Dim pID pID=che(request("pID")) If id="" Then errormsg "参数错误!" checksuper If pID<>"" Then pID="*" & Replace(pID,", ","*") & "*" set rs=server.createobject("adodb.recordset") sql=Sqlinfo("*","Admin_User"," id="&id,"","","") rs.Open Sql, Conn, 1, 3 If Not rs.Eof Then rs("a_Power") = pID rs.Update Else Response.Redirect "?action=list" End If rs.close rightmsg "?action=powers&id="&id,"" End select res footer(1),0 %>