<%
'**************************************************************************************************
' 程序名称: 七禧舞曲管理系统
' 程序作者: 花心萝卜
' 官方网站: http://www.cmsdj.com http://www.7xiwl.com
' 编写日期: 2009年8月27日
' 版权所有: 本程序由七禧网络开发，未经同意请勿用于商业用途
'**************************************************************************************************
%>
系统用户管理
<%
Dim Action,arr1,arr2,Rs,CmsDjAdmin
Dim CD_ID,CD_AdminUserName,CD_AdminPassWord,CD_LoginIP,CD_LoginNum,CD_LastLogin,CD_IsLock,CD_Permission,AdminPassWord1,AdminUserNameOld,AdminPassWordold,CD_Columns
Set CmsDjAdmin = New CmsDj_Com_Admin
action=Request.QueryString("action")
Select Case Lcase(action)
Case "add" : Call Add()
Case "edit": Call Edit()
Case "saveedit": Call SaveEdit()
Case "del" : Call Del()
Case "islock":Call Islock()
Case "exhide":Call ExHide()
Case Else : Call Main():Call EditBoard("添加管理员","?action=add",1)
End Select
Call Admin_FooterB
%>
<%Sub Main()%>
<%
End Sub
Sub EditBoard(Title,ActionUrl,emValues)
'Dim CD_AdminUserName,CD_AdminPassWord,CD_LoginIP,CD_LoginNum,CD_LastLogin,CD_IsLock,CD_Permission
'Dim SelectMark
'Dim Rs
IF IsArray(emValues) Then
CD_AdminUserName = emValues(0)
CD_AdminPassWord = emValues(1)
CD_IsLock = emValues(2)
CD_Permission = emValues(3)
End IF
%>
<%
End Sub
Sub SaveEdit()
Dim TitleName
CD_ID=SafeRequest("CD_ID","get")
CD_AdminUserName = SafeRequest("CD_AdminUserName","post")
CD_AdminPassWord = SafeRequest("CD_AdminPassWord","post")
AdminPassWord1 =SafeRequest("AdminPassWord1","post")
CD_IsLock = SafeRequest("CD_IsLock","post")
CD_Permission = SafeRequest("CD_Permission","post")
IF CD_LoginNum="" Then CD_LoginNum=0
'判断用户名
IF CD_AdminUserName="" Then
Call AdminAlert("出错了，用户帐号不能为空！","Admin_Admin.asp",0):Response.End
Else
Set Rs = CmsDjAdmin.GetRs("",0,"CD_AdminUserName='"&CD_AdminUserName&"' And CD_ID<>"&CD_ID&"")
IF Not Rs.Eof Then
Call AdminAlert("出错了，用户帐号已经存在！","Admin_Admin.asp",0):Response.End
End IF
Rs.Close
End IF
'判断密码
IF CD_AdminPassWord="" Then
Call AdminAlert("出错了，密码不能为空！","Admin_Admin.asp",0):Response.End
End IF
IF CD_AdminPassWord<>AdminPassWord1 Then
Call AdminAlert("出错了，两次输入的密码不一致！","Admin_Admin.asp",0):Response.End
End IF
'判断密码是否被修改
Set Rs = CmsDjAdmin.GetRs("CD_AdminPassWord",0,"CD_ID="&CD_ID)
AdminPassWordold = Rs("CD_AdminPassWord")
If AdminPassWordold<>AdminPassWord1 Then
CD_AdminPassWord=Md5(CD_AdminPassWord)
End IF
Rs.Close
arr1=Array("CD_AdminUserName","CD_AdminPassWord","CD_LoginNum","CD_IsLock","CD_Permission")
arr2=Array(CD_AdminUserName,CD_AdminPassWord,CD_LoginNum,CD_IsLock,CD_Permission)
Call CmsDjAdmin.update(arr1,arr2,"CD_ID="&CD_ID)
Call AdminAlert("恭喜您，后台管理员修改成功！","Admin_Admin.asp",0)
End Sub
Sub Edit()
CD_ID = SafeRequest("CD_ID","get")
IF Not IsNum(CD_ID) Then Call AdminAlert("出错了，ID必须是数值型！","Admin_Admin.asp",0):Response.End
Set Rs = CmsDjAdmin.GetRs("",0,"CD_ID="&CD_ID)
CD_AdminUserName = Rs("CD_AdminUserName")
CD_AdminPassWord = Rs("CD_AdminPassWord")
CD_IsLock = Rs("CD_IsLock")
CD_Permission = Rs("CD_Permission")
arr1=Array(CD_AdminUserName,CD_AdminPassWord,CD_IsLock,CD_Permission)
Call Main():Call EditBoard("修改后台管理员","?action=SaveEdit&CD_ID="&CD_ID,arr1)
End Sub
Sub Add()
Dim TitleName
CD_ID=SafeRequest("CD_ID","get")
CD_AdminUserName = SafeRequest("CD_AdminUserName","post")
CD_AdminPassWord = SafeRequest("CD_AdminPassWord","post")
AdminPassWord1 =SafeRequest("AdminPassWord1","post")
CD_IsLock = SafeRequest("CD_IsLock","post")
CD_Permission = SafeRequest("CD_Permission","post")
IF CD_LoginNum="" Then CD_LoginNum=0
'判断用户名
IF CD_AdminUserName="" Then
Call AdminAlert("出错了，用户帐号不能为空！","Admin_Admin.asp",0):Response.End
Else
Set Rs = CmsDjAdmin.GetRs("",0,"CD_AdminUserName='"&CD_AdminUserName&"'")
IF Not Rs.Eof Then
Call AdminAlert("出错了，用户帐号已经存在！","Admin_Admin.asp",0):Response.End
End IF
Rs.Close
End IF
'判断密码
IF CD_AdminPassWord="" OR AdminPassWord1="" Then
Call AdminAlert("出错了，密码不能为空！","Admin_Admin.asp",0):Response.End
Else
CD_AdminPassWord=Md5(CD_AdminPassWord)
AdminPassWord1=Md5(AdminPassWord1)
End IF
IF CD_AdminPassWord<>AdminPassWord1 Then
Call AdminAlert("出错了，两次输入的密码不一致！","Admin_Admin.asp",0):Response.End
End IF
arr1=Array("CD_AdminUserName","CD_AdminPassWord","CD_LoginNum","CD_IsLock","CD_Permission")
arr2=Array(CD_AdminUserName,CD_AdminPassWord,CD_LoginNum,CD_IsLock,CD_Permission)
IF Not IsNum(CD_ID) Then
Call CmsDjAdmin.add(arr1,arr2)
TitleName="恭喜您，后台管理员增加成功！"
Else
Call CmsDjAdmin.Update(arr1,arr2,"CD_ID="&CD_ID)
TitleName="恭喜您，后台管理员修改成功！"
End IF
Call AdminAlert(TitleName,"Admin_Admin.asp",0)
End Sub
Sub Del()
CD_ID=SafeRequest("CD_ID","get")
IF Not IsNum(CD_ID) Then Call AdminAlert("出错了，ID必须是数值型！","Admin_Admin.asp",0):Response.End
IF Cint(Request.Cookies("CmsDJ_AdminCooikes")("CD_AdminID"))=Cint(CD_ID) Then
Call AdminAlert("出错了，不能删除自己！","Admin_Admin.asp",0):Response.End
Else
Call CmsDjAdmin.del("CD_ID="&CD_ID)
Response.redirect "Admin_Admin.asp"
End IF
End Sub
Sub IsLock()
CD_ID=SafeRequest("CD_ID","get")
CD_IsLock=SafeRequest("CD_IsLock","get")
IF Not IsNum(CD_ID) Then Call AdminAlert("出错了，ID必须是数值型！","Admin_Admin.asp",0):Response.End
IF CD_IsLock=1 Then CD_IsLock=0 :Else CD_IsLock=1 End IF
arr1=Array("CD_IsLock")
arr2=Array(CD_IsLock)
Call CmsDjAdmin.update(arr1,arr2,"CD_ID="&CD_ID)
Response.redirect "Admin_Admin.asp"
End Sub
Function PermissionResponse(HavePermission)
HavePermissionText=""
If HavePermission<>"" Then
HavePermissionArray=Split(HavePermission,", ")
HavePermissionText="| "
Dim SysCount
SysCount=0
For I=0 To Ubound(HavePermissionArray)
SysCount=SysCount+1
IF SysCount Mod 6=0 Then
HavePermissionText=HavePermissionText&" "
End IF
Select Case HavePermissionArray(I)
Case 1
HavePermissionText=HavePermissionText&"系统设置 | "
Case 2
HavePermissionText=HavePermissionText&"生成HTML | "
End Select
Next
End IF
PermissionResponse=HavePermissionText
End Function
%>