admin_master.asp

来自「小游戏网站演示www.4399.io 拥有4万条游戏数据」· ASP 代码 · 共 527 行 · 第 1/2 页
ASP
527 行
			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> 普通管理员&nbsp;&nbsp;" & vbCrLf
	Response.Write " <input type=radio name=AdminGrade value='999'> 高级管理员（拥有最高权限）&nbsp;&nbsp;" & vbCrLf
	Response.Write " <input type=radio name=AdminGrade value='111'> 只读管理员" & 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> 否&nbsp;&nbsp;" & 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> 否&nbsp;&nbsp;" & 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") = "高级管理员"
		ElseIf CInt(Request.Form("AdminGrade")) = 111 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=" & CLng(Request("id")))
	Adminflag = Rs("Adminflag")
	Rs.Close
	Set Rs = Nothing
	m_strAdminflag = Adminflag
%>
<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">&nbsp;<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">&nbsp;<b><%=rsChannel("ChannelName")%></b></td>

</tr>
<tr>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="Add<%=strModules & ChanID%>" <%If ChkAdminflag("Add" & strModules & ChanID) Then Response.Write "checked"%>> 添加<%=rsChannel("ModuleName")%></td>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="Admin<%=strModules & ChanID%>" <%If ChkAdminflag("Admin" & strModules & ChanID) Then Response.Write "checked"%>> <%=rsChannel("ModuleName")%>管理</td>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="AdminClass<%=ChanID%>" <%If ChkAdminflag("AdminClass" & ChanID) Then Response.Write "checked"%>> <%=rsChannel("ModuleName")%>分类管理</td>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="Special<%=ChanID%>" <%If ChkAdminflag("Special" & ChanID) Then Response.Write "checked"%>> <%=rsChannel("ModuleName")%>专题管理</td>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="Create<%=strModules & ChanID%>" <%If ChkAdminflag("Create" & strModules & ChanID) Then Response.Write "checked"%>> 生成HTML管理</td>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="Comment<%=ChanID%>" <%If ChkAdminflag("Comment" & ChanID) Then Response.Write "checked"%>> <%=rsChannel("ModuleName")%>评论管理</td>
</tr>
<tr>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="AdminJsFile<%=ChanID%>" <%If ChkAdminflag("AdminJsFile" & ChanID) Then Response.Write "checked"%>> JS文件管理</td>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="AdminUpload<%=ChanID%>" <%If ChkAdminflag("AdminUpload" & ChanID) Then Response.Write "checked"%>> 上传文件管理</td>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="AdminSelect<%=ChanID%>" <%If ChkAdminflag("AdminSelect" & ChanID) Then Response.Write "checked"%>> 选择上传文件</td>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="Auditing<%=ChanID%>" <%If ChkAdminflag("Auditing" & ChanID) 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 ChkAdminflag("DownServer" & ChanID) Then Response.Write "checked"%>> 下载服务器管理<%End If%></td>
	<td class="tablerow1"><%If rsChannel("modules") = 2 Then%><input type="checkbox" name="Adminflag" value="ErrorSoft<%=ChanID%>" <%If ChkAdminflag("ErrorSoft" & ChanID) Then Response.Write "checked"%>> 错误软件报告<%End If%></td>
</tr>
<%
		rsChannel.movenext
	Loop
	Set rsChannel = Nothing
%>
<tr>
	<td class="tablerow2" colspan="6">&nbsp;<b>用户管理</b></td>
</tr>
<tr>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="AddUser" <%If ChkAdminflag("AddUser") Then Response.Write "checked"%>> 添加会员</td>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="AdminUser" <%If ChkAdminflag("AdminUser") Then Response.Write "checked"%>> 会员管理</td>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="ChangePassword" <%If ChkAdminflag("ChangePassword") Then Response.Write "checked"%>> 修改管理员密码</td>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="UserGroup" <%If ChkAdminflag("UserGroup") Then Response.Write "checked"%>> 用户组管理</td>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="MainList" <%If ChkAdminflag("MainList") Then Response.Write "checked"%>> 邮件列表管理</td>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="FlashCollect" <%If ChkAdminflag("FlashCollect") Then Response.Write "checked"%>> 动画采集</td>
</tr>
<tr>
	<td class="tablerow2" colspan="6">&nbsp;<b>其它管理</b></td>
</tr>
<tr>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="Online" <%If ChkAdminflag("Online") Then Response.Write "checked"%>> 在线统计管理</td>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="Vote" <%If ChkAdminflag("Vote") Then Response.Write "checked"%>> 投票管理</td>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="FriendLink" <%If ChkAdminflag("FriendLink") Then Response.Write "checked"%>> 友情连接管理</td>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="ArticleCollect" <%If ChkAdminflag("ArticleCollect") Then Response.Write "checked"%>> 文章采集</td>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="SoftCollect" <%If ChkAdminflag("SoftCollect") Then Response.Write "checked"%>> 软件采集</td>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="UploadFile" <%If ChkAdminflag("UploadFile") Then Response.Write "checked"%>> 上传文件</td>
</tr>
<tr>
	<td class="tablerow2" colspan="6">&nbsp;<b>数据库处理</b></td>
</tr>
<tr>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="RenameData" <%If ChkAdminflag("RenameData") Then Response.Write "checked"%>> 数据库更名</td>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="BackupData" <%If ChkAdminflag("BackupData") Then Response.Write "checked"%>> 数据库备份</td>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="RestoreData" <%If ChkAdminflag("RestoreData") Then Response.Write "checked"%>> 数据库恢复</td>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="CompressData" <%If ChkAdminflag("CompressData") Then Response.Write "checked"%>> 数据库压缩</td>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="SpaceSize" <%If ChkAdminflag("SpaceSize") Then Response.Write "checked"%>> 系统空间占用</td>
	<td class="tablerow1"><input type="checkbox" name="Adminflag" value="BatchReplace" <%If ChkAdminflag("BatchReplace") 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=" & CLng(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

Function ChkAdminflag(ByVal strFlag)
	Dim strAdminflag
	strAdminflag = "," & Trim(m_strAdminflag) & ","
	If strFlag = "" Or Len(strAdminflag) < 3 Then
		ChkAdminflag = False
		Exit Function
	End If
	strFlag = "," & Trim(strFlag) & ","
	If InStr(strAdminflag, strFlag) = 0 Then
		ChkAdminflag = False
	Else
		ChkAdminflag = True
	End If
End Function

%>
admin_master.asp - 源码说明

本页面展示了「小游戏网站演示www.4399.io 拥有4万条游戏数据」中的 admin_master.asp 源码文件，采用 ASP 编程语言编写，共 527 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。
虫虫下载站收录了大量与4399相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。
⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?