?? admin_master.asp
字號:
<!--#include file="setup.asp" -->
<!--#include file="check.asp"-->
<!--#include file="../inc/md5.asp"-->
<%
'=====================================================================
' 軟件名稱：新云網站管理系統
' 當前版本：NewCloud Site Management System Version 2.1
' 文件名稱：admin_master.asp
' 更新日期：2004-12-20
' 官方網站：新云網絡(www.newasp.net www.newasp.cn) QQ：94022511
'=====================================================================
' Copyright 2002-2005 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
Dim selAdminID
Dim i,Action,strClass
Admin_header
If Not ChkAdmin("999") Then
Server.Transfer("showerr.asp")
Response.End
End If
Response.Write "<table cellpadding=2 cellspacing=1 border=0 class=tableBorder align=center>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <th height=22 colspan=6>管理員操作</th>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td class=TableRow1> <b>管理選項：</b> <a href=admin_master.asp>管理首頁</a> <a href=admin_master.asp?action=add>添加管理員</a>"
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table><br>" & vbCrLf
Action = LCase(Request("action"))
Select Case Trim(Action)
Case "renew"
Call UpdateFlag
Case "del"
Call del
Case "pasword"
Call pasword
Case "newpass"
Call newpass
Case "add"
Call addadmin
Case "edit"
Call userinfo
Case "savenew"
Call savenew
Case "active"
Call ActiveLock
Case Else
Call userlist
End Select
If FoundErr = True Then
ReturnError(ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
CloseConn
Private Sub userlist()
Response.Write "<table cellpadding=""2"" cellspacing=""1"" border=""0"" class=""tableBorder"" align=center>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <th height=22 colspan=6>管理員管理(點擊用戶名進行操作)</th>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr align=center>" & vbCrLf
Response.Write "<td height=22 class=TableTitle><B>用戶名</B></td>" & vbCrLf
Response.Write "<td class=TableTitle><B>上次登陸時間</B></td>" & vbCrLf
Response.Write "<td class=TableTitle><B>上次登陸IP</B></td>" & vbCrLf
Response.Write "<td class=TableTitle><B>操作</B></td>" & vbCrLf
Response.Write "<td class=TableTitle><B>狀態</B></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Set Rs = Newasp.Execute("select * from NC_Admin order by Logintime desc")
i = 0
Do While Not Rs.EOF
If (i mod 2) = 0 Then
strClass = "class=TableRow1"
Else
strClass = "class=TableRow2"
End If
Response.Write " <tr>" & vbCrLf
Response.Write " <td " & strClass & "><a href=""?id="
Response.Write Rs("id")
Response.Write "&action=pasword"" title='點擊此處修改管理員信息'>"
Response.Write Rs("username")
Response.Write "</a></td>" & vbCrLf
Response.Write "<td align=center " & strClass & ">"
Response.Write Rs("Logintime")
Response.Write "</td>" & vbCrLf
Response.Write "<td align=center " & strClass & ">"
Response.Write Rs("Loginip")
Response.Write "</td>" & vbCrLf
Response.Write "<td align=center " & strClass & "><a href=""?action=Active&id=" & Rs("id") & "&lock="
If Rs("isLock") = 0 Then
Response.Write "1"" onclick=""return confirm('您確定要鎖定此管理員嗎?')"">鎖定管理員</a> | "
Else
Response.Write "0"" onclick=""return confirm('您確要激活此管理員嗎?')"">激活管理員</a> | "
End If
Response.Write "<a href=""?action=del&id="
Response.Write Rs("id")
Response.Write "&name="
Response.Write Rs("username")
Response.Write """ onclick=""return confirm('此操作將刪除該管理員\n 您確定執行此操作嗎?')"">刪除</a> | <a href=""?id="
Response.Write Rs("id")
Response.Write "&action=edit"">編輯權限</a></td>" & vbCrLf
Response.Write "<td align=center " & strClass & ">"
If Rs("isLock") = 0 Then
Response.Write "正常"
Else
Response.Write "<font color=red>鎖定<font>"
End If
Response.Write "</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Rs.movenext
i = i + 1
Loop
Rs.Close
Set Rs = Nothing
Response.Write " <tr>" & vbCrLf
Response.Write " <td colspan=""6"" align=center Class=TableRow1>" & vbCrLf
Response.Write " <input class=""button"" type=button name=""Submit"" value=""添加管理員"" onClick=""self.location='admin_master.asp?action=add'"" >" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
End Sub
Private Sub del()
If Trim(Request("id")) <> "" Then
Newasp.Execute ("delete from NC_Admin where username<>'" & AdminName & "' And id=" & Request("id"))
Response.Redirect (Request.ServerVariables("HTTP_REFERER"))
Else
ErrMsg = "<li>錯誤的系統參數！</li>"
Founderr = True
Exit Sub
End If
End Sub
Private Sub ActiveLock()
If Trim(Request("lock")) <> "" And Trim(Request("id")) <> "" Then
Newasp.Execute ("update NC_Admin set isLock="&Request("lock")&" where username<>'" & AdminName & "' And id=" & Request("id"))
Response.Redirect (Request.ServerVariables("HTTP_REFERER"))
Else
ErrMsg = "<li>錯誤的系統參數！</li>"
Founderr = True
Exit Sub
End If
End Sub
Private Sub pasword()
Dim oldpassword
If Not ChkAdmin("9999") Then
ErrMsg = "<li>您沒有此操作權限!</li><li>如有什么問題請聯系站長？</li>"
Founderr = True
Exit Sub
End If
Set Rs = Newasp.Execute("select * from NC_Admin where id=" & Request("id"))
oldpassword = Rs("password")
Response.Write "<table cellpadding=""2"" cellspacing=""1"" border=""0"" class=""tableBorder"" align=center>" & vbCrLf
Response.Write "<form action=""?action=newpass"" method=post>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <th colspan=2 height=23>管理員資料管理－－密碼修改" & vbCrLf
Response.Write " </th>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr >" & vbCrLf
Response.Write " <td width=""26%"" align=""right"" class=tablerow1>后臺登陸名稱：</td>" & vbCrLf
Response.Write " <td width=""74%"" class=tablerow1>" & vbCrLf
Response.Write " <input type=hidden name=""oldusername"" value="""
Response.Write Rs("username")
Response.Write """>" & vbCrLf
Response.Write " <input type=text size=25 name=""username2"" value="""
Response.Write Rs("username")
Response.Write """>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr >" & vbCrLf
Response.Write " <td width=""26%"" align=""right"" class=tablerow1>后臺登陸密碼：</td>" & vbCrLf
Response.Write " <td width=""74%"" class=tablerow1>" & vbCrLf
Response.Write " <input type=""password"" size=25 name=""password2"">"
Response.Write " (如果不修改密碼請留空)" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td width=""26%"" align=""right"" class=tablerow1>管理員級別：</td>" & vbCrLf
Response.Write " <td width=""74%"" class=tablerow1>" & vbCrLf
Response.Write " <input type=radio name=AdminGrade value='0' "
If Rs("AdminGrade") = 0 Then Response.Write " checked"
Response.Write " > 普通管理員 " & vbCrLf
Response.Write " <input type=radio name=AdminGrade value='999' "
If Rs("AdminGrade") = 999 Then Response.Write " checked"
Response.Write " > 高級管理員 （擁有最高權限）" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td align=""right"" class=tablerow1>是否激活管理員：</td>" & vbCrLf
Response.Write " <td class=tablerow1>" & vbCrLf
Response.Write " <input type=radio name=isLock value='1' "
If Rs("isLock") = 1 Then Response.Write " checked"
Response.Write " > 否 " & vbCrLf
Response.Write " <input type=radio name=isLock value='0' "
If Rs("isLock") = 0 Then Response.Write " checked"
Response.Write " > 是" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td align=""right"" class=tablerow1>限制一個管理員登陸：</td>" & vbCrLf
Response.Write " <td class=tablerow1>" & vbCrLf
Response.Write " <input type=radio name=isAloneLogin value='0' "
If Rs("isAloneLogin") = 0 Then Response.Write " checked"
Response.Write " > 否 " & vbCrLf
Response.Write " <input type=radio name=isAloneLogin value='1' "
If Rs("isAloneLogin") = 1 Then Response.Write " checked"
Response.Write " > 是" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr align=""center"">" & vbCrLf
Response.Write " <td colspan=""2"" class=tablerow1>" & vbCrLf
Response.Write " <input type=hidden name=id value="""
Response.Write Request("id")
Response.Write """>" & vbCrLf
Response.Write " <input type=button name=Submit4 onclick='javascript:history.go(-1)' value='返回上一頁' class=Button> <input type=""submit"" name=""Submit"" value=""更 新"" class=""button"">" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </form>" & vbCrLf
Response.Write " </table>" & vbCrLf
Rs.Close
Set Rs = Nothing
End Sub
Private Sub newpass()
Dim passnw
Dim usernw
Dim aduser
Dim oldpassword
If Not ChkAdmin("9999") Then
ErrMsg = "<li>您沒有此操作權限!</li><li>如有什么問題請聯系站長？</li>"
Founderr = True
Exit Sub
End If
Set Rs = Newasp.Execute("select * from NC_Admin where id=" & Request("id"))
oldpassword = Rs("password")
If Request("username2") = "" Then
ErrMsg = "<li>請輸入管理員名字。<a href=?>［ <font color=red>返回</font> ］</a>"
Founderr = True
Exit Sub
Else
usernw = Trim(Request("username2"))
End If
If Request("password2") = "" Then
passnw = "沒有修改"
Else
passnw = Request("password2")
End If
Set Rs = CreateObject("adodb.recordset")
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -