<!--#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 "add"
	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
	Call sqltable("mod")
	rs.Update
	Else
	errormsg "參數錯誤"
	End If
	rs.close
	rightmsg "?action=list",""
Case "del"
	Ispower 1044
	isn id,"id",1
	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
%>