📄 sysuser.asp
字号:
<!--#include file = "../Include/DBClass.inc.asp"-->
<!--#include file = "../Include/SysLoginCheck.inc.asp" -->
<!--#include file="../Include/MD5.asp" -->
<%
' =============================================================
' Made By Xiasp & 21世纪人才周刊 http://www.sxzx.net/ QQ群：8617001
' =============================================================
%>
<%
Dim Operate, Errmsg, aUserID, aPassWD, aRePassWD, aLevel, AddSysUser, H_Level, dUserID
Operate = GetSafeStr(Trim(Request("operate")))
H_Level = Session("Sys_Level")
'添加超级用户
If Operate="add" Then
If H_Level <> 3 Then
Errmsg = "您的权限不够进行此操作！"
Else
Errmsg = "添加用户失败-您输入用户信息不全或者用户名中含有不合法字符"
aUserID = GetSafeStr(Trim(Request.Form("mUserID")))
aPassWD = GetSafeStr(Trim(Request.Form("mPassWD")))
aRePassWD = GetSafeStr(Trim(Request.Form("mRePassWD")))
aLevel = GetSafeInt(Trim(Request.Form("mLevel")),0)
AddSysUser = GetSafeStr(trim(Request.Form("addsysuser")))
If aUserID <> "" And aPassWD <> "" And aRePassWD <>"" And aLevel > 0 Then
If AddSysUser = "ok" And aPassWD = aRePassWD Then
sSql="SELECT * FROM Admin WHERE A_UserID ='"&aUserID&"'"
oRs.Open sSql,oConn,0,1
If Not oRs.Eof Then
Errmsg = "该用户已经存在，请重新建立用户！"
Else
oConn.Execute("INSERT INTO Admin (A_UserID,A_PWD,A_Level) VALUES ('"&aUserID&"','"&md5(aPassWD)&"',"&aLevel&")")
Errmsg = "添加用户成功"
End If
oRs.Close
Set oRs = Nothing
Else
Errmsg = "您两次输入的密码不一致！"
End If
Else
Errmsg = "请正确输入新用户名和密码！"
End If
End If
End If
'删除超级用户
If Operate="del" Then
If H_Level <> 3 Then
Errmsg = "您的权限不够进行此操作！"
Else
dUserID = Trim(Request.QueryString("username"))
oConn.Execute("DELETE FROM Admin WHERE A_UserID='"&dUserID&"'")
End If
End If
'哈哈，其实本人比较懒，所以修改用户权限的功能就暂时不写了
'相信有了添加删除功能，应该足够了，节省时间玩游戏！
Call Header("系统用户管理")
Call Content()
Call Footer()
' 开始写入内容
Sub Content()
%>
<!--#include file="../Include/Top.asp" -->
<br>
<script language="javascript">
<!--
function checkdel(username){
if (confirm("您确定要删除 "+username+" 这个超级用户吗？")){
window.open("SysUser.asp?operate=del&username="+username,"_self");
}
else{
//Do Nothing;
}
}
function IsValid()
{
if (document.addsysuser.mUserID.value=="")
{
alert("请输入新用户名！");
document.addsysuser.mUserID.focus();
return false;
}
if (document.addsysuser.mPassWD.value=="")
{
alert("请输入新用户的密码");
document.addsysuser.mPassWD.focus();
return false;
}
if (document.addsysuser.mRePassWD.value=="")
{
alert("请再次输入新用户的密码");
document.addsysuser.mRePassWD.focus();
return false;
}
if (document.addsysuser.mRePassWD.value != document.addsysuser.mPassWD.value)
{
alert("两次输入的密码不一致！");
document.addsysuser.mRePassWD.focus();
return false;
}
return true;
}
-->
</script>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><b><% = Homepage_title%> - <font color="#FF0000">系统用户管理</font></b></td>
</tr>
<tr>
<td><table width="82%" border="0" cellspacing="0" cellpadding="0">
<tr valign="top">
<td>
<table width="100%" cellspacing="0" cellpadding="0" height="100%" border="0">
<tr>
<td height="351" valign="top"><form name="addsysuser" method="post" action="SysUser.asp?Operate=add" onSubmit="return IsValid();">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="100" height="30"><b>添加超级用户</b></td>
<td>用 户 名：
<input name="mUserID" type="text" class="button1" size=25 maxlength="30">
</td>
</tr>
<tr>
<td height="30"> </td>
<td>用户级别：
<select name="mLevel" id="mLevel">
<option value="1">信息编辑员</option>
<option value="2">信息审核员</option>
<option value="3">系统管理员</option>
</select></td>
</tr>
<tr>
<td height="30"> </td>
<td>密 码：
<input name="mPassWD" type="password" class="button1" size=25 maxlength="30">
</td>
</tr>
<tr>
<td height="30"> </td>
<td>确认密码：
<input name="mRePassWD" type="password" class="button1" size=25 maxlength="30">
</td>
</tr>
<tr>
<td height="30"> </td>
<td>
<input type="hidden" name="addsysuser" value="ok">
<input type="submit" name="Submit2" value=" 提 交 " class="button2">
<input type="reset" name="Submit222" value=" 重 写 " class="button2">
<font color="#FF0000"><b><% = Errmsg %></b></font>
</td>
</tr>
</table>
</form>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="100" valign="top"><b>超级用户管理</b></td>
<td valign="top">
<%
Dim Num, aLevel, aLevelName, aRs, aSql
Set aRs = Server.CreateObject( "ADODB.Recordset" )
aSql="SELECT * FROM Admin ORDER BY A_ID DESC"
aRs.open aSql,oConn,1,1
Num = aRs.Recordcount
%>
<table border="0" width="100%" cellpadding="0" align="center" cellspacing="0">
<tr>
<td colspan="5">
<div align="left">共有<font color="#FF0033"><%=Num%></font>位超级用户</div></td>
</tr>
<%
Do While Not aRs.Eof
aLevel = aRs("A_level")
If aLevel = 3 Then aLevelName = "系统管理员"
If aLevel = 2 Then aLevelName = "信息审核员"
If aLevel = 1 Then aLevelName = "信息编辑员"
%>
<tr>
<td width="75"><input onClick = checkdel("<%=Trim(aRs("A_UserID"))%>") type=button class="button2" value=" 删 除 " name="button"></td>
<td align="left" colspan="4" height=24>
<input type="text" size=15 name="viewsysuser" value="<%=Trim(aRs("A_UserID"))%>" readonly class="button1"> <%=aLevelName%></td>
</tr>
<%
aRs.Movenext
Loop
aRs.Close
Set aRs = Nothing
%>
</table> </td>
</tr>
</table>
<br>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -