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
%>