📄 web_master_manage.asp
字号:
<!--#include file="../Include/Class_Conn.asp" -->
<!--#include file="../Include/Class_Main.asp" -->
<!--#include file="Web_Session.asp" -->
<!--#include file="../Include/Class_Pass.asp" -->
<%
Dim Action
'//检测是否跨站
'Call Check_url()
'//检测管理员是否有权限操作该页面
If Instr(1,Session("Web_Power"),"190") <= 0 Then
Call CloseDB()
Response.write "对不起!您没有访问该页面的权限..."
Response.End()
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<script language="javascript">
<!--
function CheckForm()
{
document.form1.content.value=document.form1.doc_html.value;
return true
}
//-->
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="../CSS/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellspacing="1" bgcolor="fb7a03">
<tr>
<td> <font color="#FFFFFF"><strong>管理员管理 <a href="?Action=Add"><font color="#FFFFFF">添加</font></a></strong></font></td>
</tr>
</table>
<table width="99%" border="0" cellspacing="0">
<tr>
<td height="4"></td>
</tr>
</table>
<%
Action=Request.QueryString("Action")
Select Case Action
Case "Add"
Call AddSupper()
Case "AddSubmit"
Call AddSubmit()
Case "Mod"
Call Modadmin()
Case "ModSubmit"
Call ModSubmit()
Case "Del"
Call Del()
Case "Edit"
Call Edit()
Case "EditSubmit"
Call EditSubmit()
Case Else
Call Main()
End Select
Sub Main()
SQL="Select su_ID,su_SupperName,su_Lastime,su_LastIp,su_Iflag From [pH_Web_Supper]"
Set Rs=Conn.Execute(SQL)
%>
<SCRIPT>
function cm(nn){
qus=confirm("真的要删除订单吗？")
if(qus!=0){
window.location='?Action=del&id='+nn;
}
}
</SCRIPT>
<%
If Rs.Eof Then
Response.write "系统中没有管理员"
Else
%>
<table width="99%" border="0" align="center" cellspacing="1" bgcolor="eff0eb">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="1">
<tr bgcolor="eff0eb">
<td width="5%" height="25"> 编 号</td>
<td width="20%" height="25"> 登陆名</td>
<td width="20%" height="25"> 最后登陆时间</td>
<td width="20%" height="25"> 最后登陆IP</td>
<td width="8%" height="25"> 状 态</td>
<td width="12%"> 操 作</td>
</tr>
<%
Tmp = Rs.GetRows()
Rs.Close:Set Rs = Nothing
For i=0 to UBound(Tmp,2)
%>
<tr bgcolor="eff0eb">
<td width="20" height="25"> <%= i+1 %></td>
<td height="25"> <a href="?Action=Mod&id=<%= Tmp(0,i) %>"><%= Tmp(1,i) %></a></td>
<td height="25"> <%= Tmp(2,i) %></td>
<td height="25"> <%= Tmp(3,i) %></td>
<td height="25">
<%
If Tmp(4,i)=True Then
Response.write "正常"
Else
Response.write "<Font Color=#ff0000>禁止</Font>"
End if%>
</td>
<td height="25"> <a href="?Action=Del&id=<%= Tmp(0,i) %>" onclick="{if(confirm('确定删除吗?')){return true;}return false;}">删除</a>
<a href="?Action=Edit&id=<%= Tmp(0,i) %>">编辑权限</a></td>
</tr>
<%
Next
%>
</table></td>
</tr>
</table>
<% End if %>
<table width="99%" border="0" align="center" cellspacing="1">
<tr>
<td height="4"></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellspacing="1" bgcolor="eff0eb">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="1">
<tr>
<td bgcolor="eff0eb"> </td>
</tr>
</table></td>
</tr>
</table>
<%
Set Rs=Nothing
CloseDB
End Sub
Sub AddSupper()
%>
<table width="99%" border="0" align="center" cellspacing="1" bgcolor="eff0eb">
<tr>
<td bgcolor="#FFFFFF"><table width="60%" border="0" cellspacing="1">
<Form action="?Action=AddSubmit" method="post" name="theForm" >
<tr align="left">
<td height="25" colspan="2" bgcolor="eff0eb"> -添加管理员-</td>
</tr>
<tr>
<td width="100" height="25" align="right" bgcolor="eff0eb">后台登陆名：</td>
<td bgcolor="eff0eb"><input name="username" type="text" id="username2"></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="eff0eb">登陆密码：</td>
<td bgcolor="eff0eb"><input name="password" type="password" id="password"></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="eff0eb">登陆状态：</td>
<td bgcolor="eff0eb"><input type="radio" name="flag" value="1">
正常
<input name="flag" type="radio" value="0" checked>
禁止</td>
</tr>
<tr>
<td height="25" align="right" bgcolor="eff0eb"> </td>
<td bgcolor="eff0eb"><input type="submit" name="Submit" value=" 添 加 "></td>
</tr>
</Form>
</table></td>
</tr>
</table>
<%
End Sub
Sub ModAdmin()
ID = Request.QueryString("ID")
Check_ID(ID)
Set Rs = Conn.Execute("Select su_SupperName,su_Iflag From [pH_Web_Supper] Where su_ID="&Cstr(ID))
Tmp = Rs.GetRows()
Rs.Close : Set Rs = Nothing
%>
<table width="99%" border="0" align="center" cellspacing="1" bgcolor="eff0eb">
<tr>
<td bgcolor="#FFFFFF"><table width="60%" border="0" cellspacing="1">
<Form action="?Action=ModSubmit" method="post" name="theForm" >
<tr align="left">
<td height="25" colspan="2" bgcolor="eff0eb"> -修改管理员密码-</td>
</tr>
<tr>
<td width="100" height="25" align="right" bgcolor="eff0eb">后台登陆名：</td>
<td bgcolor="eff0eb"><input name="username" type="text" id="username" value="<%= Tmp(0,0) %>">
<input name="id" type="hidden" id="id" value="<%= ID %>"></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="eff0eb">登陆密码：</td>
<td bgcolor="eff0eb"><input name="password" type="password" id="password">
[不修改密码时请保持为空]</td>
</tr>
<tr>
<td height="25" align="right" bgcolor="eff0eb">登陆状态：</td>
<td bgcolor="eff0eb"> <input type="radio" name="flag" value="1" <% If Tmp(1,0)=True Then Response.write "Checked" %>>
正常
<input name="flag" type="radio" value="0" <% If Tmp(1,0)=False Then Response.write "Checked" %>>
禁止</td>
</tr>
<tr>
<td height="25" align="right" bgcolor="eff0eb"> </td>
<td bgcolor="eff0eb"><input type="submit" name="Submit" value=" 添 加 "></td>
</tr>
</Form>
</table></td>
</tr>
</table>
<%
End sub
Sub Edit()
Dim id
id= Request.QueryString("id")
Check_id(id)
Set Rs = Conn.Execute("Select su_Setting From [pH_Web_Supper] Where su_ID="&Cstr(ID))
Powers = Rs(0)
%>
<script language="JavaScript">
<!--
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}
//-->
</script>
<table width="99%" border="0" align="center" cellspacing="1" bgcolor="eff0eb">
<Form name="theForm" action="?Action=EditSubmit" method="post">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="1">
<tr>
<td height="24" bgcolor="EFF0EB"> <font color="#990000">企业会员
<input name="id" type="hidden" id="id" value="<%= id %>">
</font></td>
</tr>
<tr>
<td height="25" bgcolor="EFF0EB"><table width="99%" border="0" align="center" cellspacing="0">
<tr>
<td width="15%" height="25"> <input name="Set" type="checkbox" id="Set" value="110" <% If Instr(Powers,"110")>0 Then Response.write "Checked" %>>
全部企业 </td>
<td width="15%" height="25"> <input name="Set" type="checkbox" id="Set" value="111" <% If Instr(Powers,"111")>0 Then Response.write "Checked" %>>
收费企业 </td>
<td width="15%" height="25"> <input name="Set" type="checkbox" id="Set" value="112" <% If Instr(Powers,"112")>0 Then Response.write "Checked" %>>
视频企业</td>
<td width="15%" height="25"> <input name="Set" type="checkbox" id="Set" value="113" <% If Instr(Powers,"113")>0 Then Response.write "Checked" %>>
免费企业</td>
<td width="15%" height="25"> <input name="Set" type="checkbox" id="Set" value="114" <% If Instr(Powers,"114")>0 Then Response.write "Checked" %>>
到期收费企业</td>
<td width="15%" height="25"> <input name="Set" type="checkbox" id="Set" value="115" <% If Instr(Powers,"115")>0 Then Response.write "Checked" %>>
等待审核企业</td>
</tr>
<tr>
<td height="25"> <input name="Set" type="checkbox" id="Set" value="116" <% If Instr(Powers,"116")>0 Then Response.write "Checked" %>>
等待升级企业</td>
<td height="25"> <input name="Set" type="checkbox" id="Set" value="117" <% If Instr(Powers,"117")>0 Then Response.write "Checked" %>>
企业权限管理 </td>
<td height="25"><input name="Set" type="checkbox" id="Set" value="118" <% If Instr(Powers,"118")>0 Then Response.write "Checked" %>>
注册企业会员 </td>
<td height="25"> </td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -