📄 admin_admin.asp
字号:
</tr>
<tr>
<td width="40%" class="tdbg"><strong>用 户 名：</strong></td>
<td width="60%" class="tdbg"><%=rs("UserName")%> <input name="ID" type="hidden" value="<%=rs("ID")%>"></td>
</tr>
<tr>
<td width="40%" class="tdbg"><strong>新 密 码：</strong></td>
<td width="60%" class="tdbg"><input type="password" name="Password">
</td>
</tr>
<tr>
<td width="40%" class="tdbg"><strong>确认密码：</strong></td>
<td width="60%" class="tdbg"><input type="password" name="PwdConfirm">
</td>
</tr>
<tr>
<td colspan="2" align="center" class="tdbg"><input name="Action" type="hidden" id="Action" value="SaveModifyPwd">
<input type="submit" name="Submit" value="保存修改结果" style="cursor:hand;">
<input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="window.location.href='Admin_Admin.asp'" style="cursor:hand;"></td>
</tr>
</table>
</form>
<%
end if
rs.close:set rs=Nothing
end sub
sub SaveAdd()
dim username,adduser,password,PwdConfirm
dim Purview
dim cMaxID,sPurview
dim arrClassInput,arrClassCheck,arrClassMaster
cMaxID=Cl.Execute("select Max(ChannelID) from Cl_Channel")(0)
if Not IsNumeric(cMaxID) then cMaxID=5
username=Trim(Request("username"))
adduser=Trim(Request("adduser"))
password=Trim(Request("Password"))
PwdConfirm=Trim(request("PwdConfirm"))
Purview=Trim(Request("Purview_0"))
if Purview="" or Not IsNumeric(Purview) then Purview=2
for i=1 to cMaxID
sPurview=Trim(Request("Purview_"&i&""))
if sPurview="" or Not IsNumeric(sPurview) then sPurview=4
Purview=Purview & "," & Clng(sPurview)
next
Purview_Other = Trim(Request("Purview_Other"))
arrClassInput = Trim(Request("arrClassInput"))
arrClassCheck = Trim(Request("arrClassCheck"))
arrClassMaster = Trim(Request("arrClassMaster"))
Purview_Other = Replace(Purview_Other," ","")
arrClassInput = Replace(arrClassInput," ","")
arrClassCheck = Replace(arrClassCheck," ","")
arrClassMaster = Replace(arrClassMaster," ","")
if username="" then
Cl.ShowErr("<br /><li>后台用户名不能为空！</li>")
end if
if adduser="" then
Cl.ShowErr("<br /><li>前台用户名不能为空！</li>")
end if
if password="" then
Cl.ShowErr("<br /><li>后台密码不能为空！</li>")
end if
if PwdConfirm<>Password then
Cl.ShowErr("<br /><li>确认密码必须与后台密码相同！</li>")
end if
'if Not IsNumeric(Replace(Replace(Purview,",","")," ","")) then
' Cl.ShowErr("<br /><li>用户权限错误为空！</li>")
'end if
'提升前台用户权限
Cl.Execute_U("Update "&Db.UserTable&" Set "&Db.UserGroupID&"=1 Where "&Db.UserName&"='"&adduser&"'")
sql="Select * from Cl_Admin where username='"&username&"'"
Set rs=Server.CreateObject("Adodb.RecordSet")
OpenConn : rs.Open sql,Conn,1,3
if not (rs.bof and rs.EOF) Then
rs.close:set rs=Nothing
Cl.ShowErr("<br /><li>数据库中已经存在此管理员！</li>")
end if
rs.addnew
rs("username")=username
rs("password")=md5(password,16)
rs("Purview")=Purview
rs("Purview_Other")=Lcase(Purview_Other)
Rs("arrClassMaster")=arrClassMaster
Rs("arrClassCheck")=arrClassCheck
Rs("arrClassInput")=arrClassInput
rs("AddUser")=adduser
rs.update
rs.Close:set rs=Nothing
'Cl.SaveAdminLog
Cl.Execute_L("insert into [Cl_AdminLog] (UserID,UserName,UserGroupID,UserIP,ScriptName,LogContent,LogTime) values ('"&Cl.UserID&"','"&Cl.MemberName&"','"&Cl.UserGroupID&"','"&Cl.UserTrueIP&"','"&Cl.ScriptName&"','添加管理员成功！','"&Now&"')")
Call Cl.ShowSuc("<div align='center'>添加新管理员成功！>><b><a href=Admin_Admin.asp>点击返回</a></b><div>")
end sub
sub SaveModifyPurview()
dim UserID,username
dim Purview
dim cMaxID,sPurview
dim arrClassInput,arrClassCheck,arrClassMaster
cMaxID=Cl.Execute("select Max(ChannelID) from Cl_Channel")(0)
if Not IsNumeric(cMaxID) then cMaxID=5
UserID = Cl.GetClng(Request("ID"))
Purview = Trim(Request("Purview_0"))
if Purview="" or Not IsNumeric(Purview) then Purview=2
for i=1 to cMaxID
sPurview=Trim(Request("Purview_"&i&""))
if sPurview="" or Not IsNumeric(sPurview) then sPurview=4
Purview=Purview & "," & Clng(sPurview)
next
Purview_Other = Trim(Request("Purview_Other"))
arrClassInput = Trim(Request("arrClassInput"))
arrClassCheck = Trim(Request("arrClassCheck"))
arrClassMaster = Trim(Request("arrClassMaster"))
Purview_Other = Replace(Purview_Other," ","")
arrClassInput = Replace(arrClassInput," ","")
arrClassCheck = Replace(arrClassCheck," ","")
arrClassMaster = Replace(arrClassMaster," ","")
if UserID=0 then
Cl.ShowErr("<br /><li>请指定要修改的管理员ID</li>")
end if
'if Not IsNumeric(Replace(Replace(Purview,",","")," ","")) then
' Cl.ShowErr("<br /><li>用户权限错误为空！</li>")
'end if
dim RsAdmin
Set RsAdmin=Server.CreateObject("ADODB.Recordset")
OpenConn : RsAdmin.Open "Select * from Cl_Admin where ID=" & UserID & "",Conn,1,3
if RsAdmin.bof and RsAdmin.eof Then
RsAdmin.Close:Set RsAdmin=Nothing
Cl.ShowErr("<br /><li>查无此管理员！</li>")
end if
'if RsAdmin("UserName")=Cl.Admin_Info(1) then
' ErrMsg=ErrMsg & "<br /><li>您不能在此修改自己的登录密码！</li>"
' ErrMsg=ErrMsg & "<br /><li>请点击链接修改 <a href='Admin_ModifyPwd.asp'><font color='red'>修改密码</font></a>"
' RsAdmin.Close:Set RsAdmin=Nothing
' Cl.ShowErr(ErrMsg)
'end if
RsAdmin("Purview")=Purview
RsAdmin("Purview_Other")=Lcase(Purview_Other)
RsAdmin("arrClassMaster")=arrClassMaster
RsAdmin("arrClassCheck")=arrClassCheck
RsAdmin("arrClassInput")=arrClassInput
RsAdmin.Update
RsAdmin.Close:Set RsAdmin=Nothing
'Cl.Execute("update Cl_Admin set Purview='"&Purview&"',Purview_Other='"&Purview_Other&"', where ID=" & UserID & "")
if UserID=Clng(Cl.Admin_Info(0)) then Session("AdminPurview")=replace(Purview,"'","''")
'Cl.SaveAdminLog
Cl.Execute_L("insert into [Cl_AdminLog] (UserID,UserName,UserGroupID,UserIP,ScriptName,LogContent,LogTime) values ('"&Cl.UserID&"','"&Cl.MemberName&"','"&Cl.UserGroupID&"','"&Cl.UserTrueIP&"','"&Cl.ScriptName&"','管理员权限修改成功！','"&Now&"')")
Call Cl.ShowSuc("<div align='center'>管理员权限修改成功！>><b><a href=Admin_Admin.asp>点击返回</a></b><div>")
end sub
sub SaveModifyPwd()
dim UserID, UserName,password,PwdConfirm
UserID = Cl.GetClng(Request("ID"))
password = Trim(Request("Password"))
PwdConfirm = Trim(request("PwdConfirm"))
if UserID=0 then
Cl.ShowErr("<br /><li>请指定要修改的管理员ID</li>")
end if
if password="" then
Cl.ShowErr("<br /><li>新密码不能为空！</li>")
end if
if PwdConfirm<>Password then
Cl.ShowErr("<br /><li>确认密码必须与新密码相同！</li>")
end if
dim RsAdmin
Set RsAdmin=Server.CreateObject("ADODB.Recordset")
OpenConn : RsAdmin.Open "Select * from Cl_Admin where ID=" & UserID & "",Conn,1,3
if RsAdmin.bof and RsAdmin.eof then
RsAdmin.Close:Set RsAdmin=Nothing
Cl.ShowErr("<br /><li>查无此管理员！</li>")
end if
if RsAdmin("UserName")=Cl.Admin_Info(1) then
ErrMsg=ErrMsg & "<br /><li>您不能在此修改自己的登录密码！</li>"
ErrMsg=ErrMsg & "<br /><li>请点击链接修改 <a href='Admin_ModifyPwd.asp'><font color='red'>修改密码</font></a>"
RsAdmin.Close:Set RsAdmin=Nothing
Cl.ShowErr(ErrMsg)
end if
RsAdmin("PassWord")=md5(password,16)
RsAdmin.Update
'Cl.Execute("UpDate Cl_Admin Set password='" & md5(password,16) & "' where ID=" & UserID & "")
'Cl.SaveAdminLog
Cl.Execute_L("insert into [Cl_AdminLog] (UserID,UserName,UserGroupID,UserIP,ScriptName,LogContent,LogTime) values ('"&Cl.UserID&"','"&Cl.MemberName&"','"&Cl.UserGroupID&"','"&Cl.UserTrueIP&"','"&Cl.ScriptName&"','修改管理员密码成功！','"&Now&"')")
RsAdmin.Close:Set RsAdmin=Nothing
Call Cl.ShowSuc("<div align='center'>修改管理员密码成功！<br />新密码为:<b>"& password &"</b>,请记住新密码！<div>")
end sub
sub DelAdmin()
dim UserID
UserID=Cl.GetClng(Request("ID"))
if UserID=0 then
Cl.ShowErr("<br /><li>请指定要删除的管理员ID</li>")
end if
UserID=Clng(UserID)
'先取消前台用户权限
Set rs=Cl.Execute("Select AddUser from Cl_Admin where ID="&UserID)
Cl.Execute_U("Update "&Db.UserTable&" Set "&Db.UserGroupID&"=4 Where "&Db.UserName&"='"&Rs(0)&"'")
Rs.Close:Set Rs=Nothing
Cl.Execute("delete from Cl_Admin where ID=" & UserID)
Cl.SaveAdminLog
Call Cl.ShowSuc("<div align='center'>删除管理员成功！>><b><a href=Admin_Admin.asp>点击返回</a></b><div>")
end sub
Function TrueCheckBox(sValue)
TrueCheckBox=""
if Purview_Other="" or IsNull(Purview_Other) then Exit Function
sValue=Lcase(sValue)
if Instr(","&Purview_Other&",",","&sValue&",")>0 then
TrueCheckBox="checked"
else
TrueCheckBox=""
end if
End Function
%>
<%
'<!--
'┌───────────────────────────────────────────────────────┐
'│ │
'│ CreateLive CMS Version 4.0 │
'│ Powered by Aspoo.CN │
'│ │
'│ 邮箱: support@aspoo.cn Info@aspoo.cn │
'│ ＱＱ: 3315263 596197794 │
'│ 网站: www.aspoo.cn www.aspoo.com │
'│ 论坛: bbs.aspoo.cn bbs.aspoo.com │
'│ │
'│ Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved. │
'└───────────────────────────────────────────────────────┘
'-->
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -