?? admin_master.asp
字號:
SQL = "select * from NC_Admin where username='" & Trim(Request("oldusername")) & "'"
Rs.Open SQL, conn, 1, 3
If Not Rs.EOF And Not Rs.bof Then
Rs("username") = usernw
If Request("password2") <> "" Then Rs("password") = md5(Request("password2"))
If CInt(Request.Form("AdminGrade")) = 999 Then
Rs("status") = "高級管理員"
Else
Rs("status") = "普通管理員"
End If
Rs("AdminGrade") = Request.Form("AdminGrade")
Rs("isLock") = Request.Form("isLock")
Rs("isAloneLogin") = Request.Form("isAloneLogin")
Succeed ("<li>管理員資料更新成功，請記住更新信息。<br> 管理員：" & Request("username2") & " <BR> 密 碼：" & passnw & "")
Rs.update
End If
Rs.Close
Set Rs = Nothing
End Sub
Private Sub addadmin()
If Not ChkAdmin("9999") Then
ErrMsg = "<li>您沒有此操作權限!</li><li>如有什么問題請聯系站長？</li>"
Founderr = True
Exit Sub
End If
Response.Write "<table cellpadding=""2"" cellspacing=""1"" border=""0"" class=""tableBorder"" align=center>" & vbCrLf
Response.Write "<form action=""?action=savenew"" 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=text name=""username2"">" & 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"" name=""password2"">" & 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' checked> 普通管理員 " & vbCrLf
Response.Write " <input type=radio name=AdminGrade value='999'> 高級管理員 （擁有最高權限）" & 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' checked> 否 " & vbCrLf
Response.Write " <input type=radio name=isAloneLogin value='1'> 是" & 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=isLock value='1' checked> 否 " & vbCrLf
Response.Write " <input type=radio name=isLock value='0'> 是" & 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=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
End Sub
Private Sub savenew()
Dim adminuserid
If Not ChkAdmin("9999") Then
ErrMsg = "<li>您沒有此操作權限!</li><li>如有什么問題請聯系站長？</li>"
Founderr = True
Exit Sub
End If
If Request.Form("username2") = "" Then
ErrMsg = "請輸入后臺登陸用戶名！"
Founderr = True
Exit Sub
Else
adminuserid = Request.Form("username2")
End If
If Request.Form("password2") = "" Then
ErrMsg = "請輸入后臺登陸密碼！"
Founderr = True
Exit Sub
End If
Set Rs = Newasp.Execute("select username from NC_Admin where username='" & Replace(Request.Form("username2"), "'", "") & "'")
If Not (Rs.EOF And Rs.bof) Then
ErrMsg = "您輸入的用戶名已經在管理用戶中存在！"
Founderr = True
Exit Sub
End If
Set Rs = Server.CreateObject("adodb.recordset")
SQL = "select * from NC_Admin where (id is null)"
Rs.open SQL,conn,1,3
Rs.addnew
Rs("username") = Replace(Request.Form("username2"), "'", "")
If CInt(Request.Form("AdminGrade")) = 999 Then
Rs("status") = "高級管理員"
Else
Rs("status") = "普通管理員"
End If
Rs("password") = md5(Request.Form("password2"))
Rs("isLock") = Request.Form("isLock")
Rs("AdminGrade") = Request.Form("AdminGrade")
Rs("Adminflag") = ",,,,,,,,,,,,,,,"
Rs("LoginTime") = Now()
Rs("Loginip") = Newasp.GetUserIP
Rs("RandomCode") = Newasp.GetRandomCode
Rs("isAloneLogin") = Request.Form("isAloneLogin")
Rs.update
Rs.close:set Rs=Nothing
Succeed ("用戶ID:" & adminuserid & " 添加成功，請到管理員管理給予相應的權限，如需修改請返回管理員管理！")
End Sub
Private Sub userinfo()
Dim Adminflag,rsChannel
Dim ChanID,ModuleName,strModules
Set Rs = Newasp.Execute("SELECT id,Adminflag FROM NC_Admin WHERE id=" & Request("id"))
Adminflag = Rs("Adminflag")
Rs.Close
Set Rs = Nothing
%>
<table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder>
<tr>
<th colspan=6>管理員權限管理(請選擇相應的權限分配給管理員)</th>
</tr>
<form name=myform method=post action=?action=renew>
<input type=hidden name=id value="<%=Request("id")%>">
<tr>
<td class=tablerow2 colspan=6> <b>常規設置</b></td>
</tr>
<tr>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="SiteConfig" <%If InStr(Adminflag, "SiteConfig") <> 0 Then Response.Write "checked"%>> 基本設置</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="Advertise" <%If InStr(Adminflag, "Advertise") <> 0 Then Response.Write "checked"%>> 廣告管理</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="Channel" <%If InStr(Adminflag, "Channel") <> 0 Then Response.Write "checked"%>> 頻道設置</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="Template" <%If InStr(Adminflag, "Template") <> 0 Then Response.Write "checked"%>> 模板管理</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="TemplateLoad" <%If InStr(Adminflag, "TemplateLoad") <> 0 Then Response.Write "checked"%>> 模板導入、導出</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="Announce" <%If InStr(Adminflag, "Announce") <> 0 Then Response.Write "checked"%>> 公告管理</td>
</tr>
<tr>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="AdminLog" <%If InStr(Adminflag, "AdminLog") <> 0 Then Response.Write "checked"%>> 日志管理</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="SendMessage" <%If InStr(Adminflag, "SendMessage") <> 0 Then Response.Write "checked"%>> 發送信息</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="CreateIndex" <%If InStr(Adminflag, "CreateIndex") <> 0 Then Response.Write "checked"%>> 生成首頁</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="CustomLabel" <%If InStr(Adminflag, "CustomLabel") <> 0 Then Response.Write "checked"%>> 自定義標簽</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="Classad" <%If InStr(Adminflag, "Classad") <> 0 Then Response.Write "checked"%>> 分類廣告管理</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="Admin_Card" <%If InStr(Adminflag, "Admin_Card") <> 0 Then Response.Write "checked"%>> 充值卡管理</td>
</tr>
<%
Set rsChannel = Newasp.Execute("SELECT ChannelID,ChannelName,modules,ModuleName FROM NC_Channel WHERE StopChannel = 0 And ChannelID <> 4 And ChannelType < 2 Order By orders Asc")
Do While Not rsChannel.EOF
ChanID = rsChannel("ChannelID")
Select Case rsChannel("modules")
Case 1:strModules = "Article"
Case 2:strModules = "Soft"
Case 3:strModules = "Shop"
Case 5:strModules = "Flash"
Case Else
strModules = "Article"
End Select
%>
<tr>
<td class=tablerow2 colspan=6> <b><%=rsChannel("ChannelName")%></b></td>
</tr>
<tr>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="Add<%=strModules & ChanID%>" <%If InStr(Adminflag, "Add" & strModules & ChanID) <> 0 Then Response.Write "checked"%>> 添加<%=rsChannel("ModuleName")%></td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="Admin<%=strModules & ChanID%>" <%If InStr(Adminflag, "Admin" & strModules & ChanID) <> 0 Then Response.Write "checked"%>> <%=rsChannel("ModuleName")%>管理</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="AdminClass<%=ChanID%>" <%If InStr(Adminflag, "AdminClass" & ChanID) <> 0 Then Response.Write "checked"%>> <%=rsChannel("ModuleName")%>分類管理</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="Special<%=ChanID%>" <%If InStr(Adminflag, "Special" & ChanID) <> 0 Then Response.Write "checked"%>> <%=rsChannel("ModuleName")%>專題管理</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="Create<%=strModules & ChanID%>" <%If InStr(Adminflag, "Create" & strModules & ChanID) <> 0 Then Response.Write "checked"%>> 生成HTML管理</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="Comment<%=ChanID%>" <%If InStr(Adminflag, "Comment" & ChanID) <> 0 Then Response.Write "checked"%>> <%=rsChannel("ModuleName")%>評論管理</td>
</tr>
<tr>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="AdminJsFile<%=ChanID%>" <%If InStr(Adminflag, "AdminJsFile" & ChanID) <> 0 Then Response.Write "checked"%>> JS文件管理</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="AdminUpload<%=ChanID%>" <%If InStr(Adminflag, "AdminUpload" & ChanID) <> 0 Then Response.Write "checked"%>> 上傳文件管理</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="AdminSelect<%=ChanID%>" <%If InStr(Adminflag, "AdminSelect" & ChanID) <> 0 Then Response.Write "checked"%>> 選擇上傳文件</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="Auditing<%=ChanID%>" <%If InStr(Adminflag, "Auditing" & ChanID) <> 0 Then Response.Write "checked"%>> <%=rsChannel("ModuleName")%>審核管理</td>
<td class=tablerow1><%If rsChannel("modules") = 2 Or rsChannel("modules") = 5 Then%><input type="checkbox" name="Adminflag" value="DownServer<%=ChanID%>" <%If InStr(Adminflag, "DownServer" & ChanID) <> 0 Then Response.Write "checked"%>> 下載服務器管理<%End If%></td>
<td class=tablerow1><%If rsChannel("modules") = 2 Then%><input type="checkbox" name="Adminflag" value="ErrorSoft<%=ChanID%>" <%If InStr(Adminflag, "ErrorSoft" & ChanID) <> 0 Then Response.Write "checked"%>> 錯誤軟件報告<%End If%></td>
</tr>
<%
rsChannel.movenext
Loop
Set rsChannel = Nothing
%>
<tr>
<td class=tablerow2 colspan=6> <b>用戶管理</b></td>
</tr>
<tr>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="AddUser" <%If InStr(Adminflag, "AddUser") <> 0 Then Response.Write "checked"%>> 添加會員</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="AdminUser" <%If InStr(Adminflag, "AdminUser") <> 0 Then Response.Write "checked"%>> 會員管理</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="ChangePassword" <%If InStr(Adminflag, "ChangePassword") <> 0 Then Response.Write "checked"%>> 修改管理員密碼</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="UserGroup" <%If InStr(Adminflag, "UserGroup") <> 0 Then Response.Write "checked"%>> 用戶組管理</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="MainList" <%If InStr(Adminflag, "MainList") <> 0 Then Response.Write "checked"%>> 郵件列表管理</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="FlashCollect" <%If InStr(Adminflag, "FlashCollect") <> 0 Then Response.Write "checked"%>> 動畫采集</td>
</tr>
<tr>
<td class=tablerow2 colspan=6> <b>其它管理</b></td>
</tr>
<tr>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="Online" <%If InStr(Adminflag, "Online") <> 0 Then Response.Write "checked"%>> 在線統計管理</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="Vote" <%If InStr(Adminflag, "Vote") <> 0 Then Response.Write "checked"%>> 投票管理</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="FriendLink" <%If InStr(Adminflag, "FriendLink") <> 0 Then Response.Write "checked"%>> 友情連接管理</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="ArticleCollect" <%If InStr(Adminflag, "ArticleCollect") <> 0 Then Response.Write "checked"%>> 文章采集</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="SoftCollect" <%If InStr(Adminflag, "SoftCollect") <> 0 Then Response.Write "checked"%>> 軟件采集</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="UploadFile" <%If InStr(Adminflag, "UploadFile") <> 0 Then Response.Write "checked"%>> 上傳文件</td>
</tr>
<tr>
<td class=tablerow2 colspan=6> <b>數據庫處理</b></td>
</tr>
<tr>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="RenameData" <%If InStr(Adminflag, "RenameData") <> 0 Then Response.Write "checked"%>> 數據庫更名</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="BackupData" <%If InStr(Adminflag, "BackupData") <> 0 Then Response.Write "checked"%>> 數據庫備份</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="RestoreData" <%If InStr(Adminflag, "RestoreData") <> 0 Then Response.Write "checked"%>> 數據庫恢復</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="CompressData" <%If InStr(Adminflag, "CompressData") <> 0 Then Response.Write "checked"%>> 數據庫壓縮</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="SpaceSize" <%If InStr(Adminflag, "SpaceSize") <> 0 Then Response.Write "checked"%>> 系統空間占用</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" value="BatchReplace" <%If InStr(Adminflag, "BatchReplace") <> 0 Then Response.Write "checked"%>> 批量替換</td>
</tr>
<tr>
<td class=tablerow2 colspan=6 align=center><input type=button name=Submit4 onclick='javascript:history.go(-1)' value='返回上一頁' class=Button> <input class=Button type=button name=chkall value='全選' onClick='CheckAll(this.form)'><input class=Button type=button name=chksel value='反選' onClick='ContraSel(this.form)'>
<input type="submit" name="Submit" value="更新管理員權限" class=button></td>
</tr>
</form>
</table>
<%
End Sub
Private Sub UpdateFlag()
Set Rs = Server.CreateObject("adodb.recordset")
SQL = "SELECT * FROM NC_Admin WHERE id=" & Request("id")
Rs.Open SQL, conn, 1, 3
If Not (Rs.EOF And Rs.BOF) Then
Rs("Adminflag") = Replace(Replace(Request("Adminflag"), "'", ""), " ", "")
Rs.update
End If
Rs.Close
Set Rs = Nothing
Sucmsg = "<li>管理員更新成功，請記住更新信息。"
Succeed (Sucmsg)
End Sub
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -