📄 oper.asp
字号:
}
else if (document.AddUserForm.PassWord.value == "") {
alert("\请填写用户管理密码!");
document.AddUserForm.PassWord.focus();
}
else if (document.AddUserForm.UserLevel.value == "#") {
alert("\请选择用户身份!");
document.AddUserForm.UserLevel.focus();
}
else {
return true;
}
return false;
}
// End of validation form script -->
</script>
<form method="post" action="DataDeal.asp" OnSubmit="return AddUser()" name="AddUserForm">
<input type="hidden" name="Oper" value="AddUser">
<table cellSpacing="1" cellPadding="0" width="100%" class="booktable" border="0" align="center">
<tr>
<td width="100%" colspan="2" height="35" class="bottom" align="center">添 加 用 户</font></td>
</tr>
<tr>
<td width="45%" height="25" align="center" bgcolor="#FFFFFF">用 户 名：</td>
<td width="55%" height="25" bgcolor="#FFFFFF"> <input type="text" name="Account" size="15" class="face"></td>
</tr>
<tr>
<td width="45%" height="25" align="center" bgcolor="#FFFFFF">管理密码：</td>
<td width="55%" height="25" bgcolor="#FFFFFF"> <input type="password" name="PassWord" size="15" class="face"></td>
</tr>
<tr>
<td width="45%" height="25" align="center" bgcolor="#FFFFFF">用户身份：</td>
<td width="55%" height="25" bgcolor="#FFFFFF">
<select name="UserLevel" size="1" class="face">
<option value="#">选择身份</option>
<option value="1">普通用户</option>
<option value="3">管 理 员</option>
</select>
</td>
</tr>
<tr>
<td width="100%" height="30" colspan="2" align="center" bgcolor="#FFFFFF"><input type="submit" value="确 定" name="Submit15" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="关 闭" class="button" name="button15"></td>
</tr>
</form>
</table>
<%elseif UCase(Request.QueryString("Oper")) = "EDITUSER" then '/编辑系统管理用户/
Dim intUserID
Dim rdsUser
Dim sqlUser
intUserID = Request.QueryString("ID")
set rdsUser = Server.CreateObject("ADODB.Recordset")
sqlUser = "Select * From Sys_Account Where UserKey = "& intUserID
rdsUser.Open sqlUser,Conn
if not rdsUser.EOF then
Response.Write "<title>编辑用户</title>"%>
<script language="javascript">
<!-- Begin validation form script
//检验表单的合法性
function EditUser() {
if (document.EditUserForm.Account.value == "") {
alert("\请填写用户名!");
document.EditUserForm.Account.focus();
}
else if (document.EditUserForm.PassWord.value == "") {
alert("\请填写用户管理密码!");
document.EditUserForm.PassWord.focus();
}
else if (document.EditUserForm.UserLevel.value == "#") {
alert("\请选择用户身份!");
document.EditUserForm.UserLevel.focus();
}
else {
return true;
}
return false;
}
// End of validation form script -->
</script>
<form method="post" action="DataDeal.asp" OnSubmit="return EditUser()" name="EditUserForm">
<input type="hidden" name="Oper" value="EditUser">
<input type="hidden" name="ID" value="<% = intUserID%>">
<table cellSpacing="1" cellPadding="0" width="100%" class="booktable" border="0" align="center">
<tr>
<td width="100%" colspan="2" height="35" class="bottom" align="center">编 辑 用 户</font></td>
</tr>
<tr>
<td width="45%" height="25" align="center" bgcolor="#FFFFFF">用 户 名：</td>
<td width="55%" height="25" bgcolor="#FFFFFF"> <input type="text" name="Account" size="15" class="face" value="<% = rdsUser("Account")%>"></td>
</tr>
<tr>
<td width="45%" height="25" align="center" bgcolor="#FFFFFF">管理密码：</td>
<td width="55%" height="25" bgcolor="#FFFFFF"> <input type="password" name="PassWord" size="15" class="face" value="<% = rdsUser("PassWord")%>"></td>
</tr>
<tr>
<td width="45%" height="25" align="center" bgcolor="#FFFFFF">用户身份：</td>
<td width="55%" height="25" bgcolor="#FFFFFF">
<select name="UserLevel" size="1" class="face">
<option value="#">选择身份</option>
<%if rdsUser("UserLevel") > 2 then%>
<option value="1">普通用户</option>
<option value="3" selected>管 理 员</option>
<%else%>
<option value="1" selected>普通用户</option>
<option value="3">管 理 员</option>
<%end if%>
</select>
</td>
</tr>
<tr>
<td width="100%" height="30" colspan="2" align="center" bgcolor="#FFFFFF"><input type="submit" value="更 新" name="Submit16" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="关 闭" class="button" name="Button16"></td>
</tr>
</form>
</table>
<%end if
rdsUser.Close
set rdsUser = nothing
elseif UCase(Request.QueryString("Oper")) = "LOCKUSER" then '/关闭系统管理用户/
Response.Write "<title>关闭用户</title>"%>
<form method="post" action="DataDeal.asp" name="form1gfd">
<input type="hidden" name="Oper" value="LockUser">
<input type="hidden" name="ID" value="<% = Request.QueryString("ID")%>">
<table cellSpacing="1" cellPadding="0" width="100%" class="booktable" border="0" align="center">
<tr>
<td width="100%" height="35" class="bottom" align="center">关 闭 用 户</font></td>
</tr>
<tr>
<td width="100%" align="center" height="72" bgcolor="#FFFFFF">真的要关闭该用户么？</td>
</tr>
<tr>
<td width="100%" height="35" align="center" bgcolor="#FFFFFF"><input type="submit" value="确 定" name="Submit17" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="关 闭" class="button" name="Button17"></td>
</tr>
</form>
</table>
<%elseif UCase(Request.QueryString("Oper")) = "UNLOCKUSER" then '/开启系统管理用户/
Response.Write "<title>开启用户</title>"%>
<form method="post" action="DataDeal.asp" name="form2hre">
<input type="hidden" name="Oper" value="UnLockUser">
<input type="hidden" name="ID" value="<% = Request.QueryString("ID")%>">
<table cellSpacing="1" cellPadding="0" width="100%" class="booktable" border="0" align="center">
<tr>
<td width="100%" height="35" class="bottom" align="center">开 启 用 户</font></td>
</tr>
<tr>
<td width="100%" align="center" height="72" bgcolor="#FFFFFF">真的要开启该用户么？</td>
</tr>
<tr>
<td width="100%" height="35" align="center" bgcolor="#FFFFFF"><input type="submit" value="确 定" name="Submit18" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="关 闭" class="button" name="Button18"></td>
</tr>
</form>
</table>
<%elseif UCase(Request.QueryString("Oper")) = "DELUSER" then '/删除系统管理用户/
Response.Write "<title>删除用户</title>"%>
<form method="post" action="DataDeal.asp" name="form3r">
<input type="hidden" name="Oper" value="DelUser">
<input type="hidden" name="ID" value="<% = Request.QueryString("ID")%>">
<table cellSpacing="1" cellPadding="0" width="100%" class="booktable" border="0" align="center">
<tr>
<td width="100%" height="35" class="bottom" align="center">删 除 用 户</font></td>
</tr>
<tr>
<td width="100%" align="center" height="72" bgcolor="#FFFFFF">真的要删除该用户么？</td>
</tr>
<tr>
<td width="100%" height="35" align="center" bgcolor="#FFFFFF"><input type="submit" value="确 定" name="Submit19" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="关 闭" class="button"name="Button19"></td>
</tr>
</form>
</table>
<%elseif UCase(Request.QueryString("Oper")) = "DELFEEDBACK" then '/删除留言反馈新闻/
Response.Write "<title>删除留言反馈信息</title>"%>
<form method="post" action="DataDeal.asp" name="form34d">
<input type="hidden" name="Oper" value="DelFeedBack">
<input type="hidden" name="ID" value="<% = Request.QueryString("ID")%>">
<table cellSpacing="1" cellPadding="0" width="100%" class="booktable" border="0" align="center">
<tr>
<td width="100%" height="35" class="bottom" align="center">删 除 留 言 反 馈 信 息</font></td>
</tr>
<tr>
<td width="100%" align="center" height="72" bgcolor="#FFFFFF">真的要删除该条留言反馈信息么？</td>
</tr>
<tr>
<td width="100%" height="35" align="center" bgcolor="#FFFFFF"><input type="submit" value="确 定" name="Submit21" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="关 闭" class="button" name="button21"></td>
</tr>
</form>
</table>
<%else%>
<title>出错了</title>
<table cellSpacing="1" cellPadding="0" width="100%" class="booktable" border="0" align="center">
<tr>
<td width="100%" height="35" class="bottom" align="center">出 错 信 息</font></td>
</tr>
<tr>
<td width="100%" align="center" height="75" bgcolor="#FFFFFF">无工作任务？</td>
</tr>
<tr>
<td width="100%" height="35" colspan="2" align="center" bgcolor="#FFFFFF"><input onclick="parent.location.href='javascript:close();'" type="button" value="关闭窗口" class="button"></td>
</tr>
</table>
<%end if%>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -