admin_user.asp

asp学生信息管理系统

<!--#include file="../conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/language.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="admin_page_top.asp"-->
<!--#include file="admin_user_inc.asp"-->
<%

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"

If action="list" Then
	Ispower 1041
	const MaxPerPage=10
	restit nowtit,infotit(0)
	listinfos
ElseIf action="add" Then
	Ispower 1042
	restit nowtit,infotit(1)
	addinfos
ElseIf action="save" Then
	Ispower 1042
	Call jstable
	If a_UserId = "" or a_PassWord = "" or a_UserName = "" Then errormsg "参数错误"
	Sql_Lists="id"
	Sql_tables="Admin_User"
	Sql_Conditions=" a_UserId = '"&a_UserId&"'"
	sql=Sqlinfo(Sql_Lists,Sql_tables,Sql_Conditions,Sql_Sortings,Sql_Orders,Sql_Additional)
	user_check = connopen(sql)
	If isArray(user_check) Then  errormsg "用户名已存在!"
	set rs=server.createobject("adodb.recordset")
	Sql = "SELECT * FROM [Admin_User] WHERE id=0"
	rs.Open Sql, Conn, 1, 3
	rs.AddNew
	Call sqltable("add")
	rs.Update
	rs.close
	rightmsg "admin_user.asp?action=list",""
ElseIf action="edit" Then
	Ispower 1043
	restit nowtit,infotit(2)
	editinfos
ElseIf action="mod" Then
	Ispower 1043
	jstable
	set rs=server.createobject("adodb.recordset")
	Sql = "SELECT * FROM [Admin_User] WHERE id="&id
	rs.Open Sql, Conn, 1, 3
	If Not rs.Eof Then
	Call sqltable("mod")
	rs.Update
	Else
	errormsg "参数错误"
	End If
	rs.close
	rightmsg "admin_user.asp?action=list",""
ElseIf action="del" Then
	Ispower 1044
	if id="" then errormsg "参数错误！"
	set dels=conn.execute("delete from Admin_User where id in ("&id&")")
	set dels=Nothing 
	rightmsg "admin_user.asp?action=list",""
End If

%>
<!--#include file="admin_page_footer.asp"-->