admin_user.asp

da jia lai kan kan hao dong dong

<!--#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
Sub checksuper()
If siteinfo(4,0)<>"" Then 
sql=Sqlinfo("id","Admin_User"," a_UserId = '"&siteinfo(4,0)&"'","","","")
rs_super = connopen(sql)
If IsArray(rs_super) Then superid=rs_super(0,0)
End If
If Int(superid)<>0 And Int(id)=Int(superid) And siteinfo(4,0)<>admin25175(1) Then errormsg "当前所操作的是超级管理员权限，其它权限用户不可对其进行编辑。"
End Sub
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 "参数错误"
	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 "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
	If id="" Then errormsg "参数错误"
	checksuper
	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
	isn id,"id",1
	sqldel "Admin_User",id
	rightmsg "?action=list",""
elseIf action="powers" Then
	Ispower 1045
	If id="" Then errormsg "参数错误"
	checksuper
	nowtit="管理员权限"
	restit nowtit,infotit(1)
	nowmenu
	powerinfos
ElseIf action="set" Then 
	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 If
res footer(1),0
%>