admin_user.asp

提供学生证 的在线查询功能。界面上面是录入框

<!--#include file="../conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="admin_page_top.asp"-->
<!--#include file="common/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)
	nowmenu
	listinfos
ElseIf action="add" Then
	Ispower 1042
	restit nowtit,infotit(1)
	nowmenu
	addinfos
ElseIf action="save" Then
	Ispower 1042
	jstable
	If a_UserId = "" or a_PassWord = "" or a_UserName = "" Then errormsg "参数错误"
	sql=Sqlinfo("id","Admin_User"," a_UserId = '"&a_UserId&"'","","","")
	user_check = connopen(sql)
	If isArray(user_check) Then  errormsg "用户名已存在!"
	set rs=server.createobject("adodb.recordset")
	sql=Sqlinfo("*","Admin_User","id=0","","","")
	rs.Open Sql, Conn, 1, 3
	rs.AddNew
	Call sqltable("add")
	rs.Update
	rs.close
	rightmsg "?action=list",""
ElseIf action="edit" Then
	Ispower 1043
	restit nowtit,infotit(2)
	nowmenu
	editinfos
ElseIf action="mod" Then
	Ispower 1043
	jstable
	set rs=server.createobject("adodb.recordset")
	sql=Sqlinfo("*","Admin_User","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 "?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 "?action=list",""
elseIf action="powers" Then
	Ispower 1045
	If id="" Then errormsg "参数错误"
	nowtit="管理员权限"
	restit nowtit,infotit(1)
	nowmenu
	powerinfos
ElseIf action="set" Then 
	Ispower 1045
	Dim pID
	pID=che(request("pID"))
	If id="" Then errormsg "参数错误!"
	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 If

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