📄 modifyuser.asp
字号:
<!--#include virtual="/include/check.asp"-->
<% CheckAdminIsLogin("用户管理") %>
<!--#include virtual="/include/conn.asp"-->
<!--#include virtual="/include/md5.asp"-->
<%
set rs=conn.execute("Select * from SysAdmin where AdminID="&Request.QueryString("id"))
if request.querystring("action")="modify" then
AdminName=Request.Form("AdminName")
AdminPass=Request.Form("AdminPass")
AdminName=trim(AdminName)
AdminPass=trim(AdminPass)
if Replace(AdminName,"'","")<>AdminName then
response.write "<script>alert('用户名中包含非法字符，请重新输入！');history.go(-1);</script>"
response.end
end if
if Replace(AdminPass,"'","")<>AdminPass then
response.write "<script>alert('密码中包含非法字符，请重新输入！');history.go(-1);</script>"
response.end
end if
AdminName=Replace(AdminName,"'","")
AdminPass=Replace(AdminPass,"'","")
if AdminName="" then
response.write "<script>alert('用户名不能为空！');history.go(-1);</script>"
response.end
end if
if AdminPass="" then
response.write "<script>alert('密码不能为空！');history.go(-1);</script>"
response.end
end if
if len(AdminPass)<6 then
response.write "<script>alert('请输入长度大于5的密码，以保证系统安全！');history.go(-1);</script>"
response.end
end if
if AdminPass<>"********" then
conn.execute("Update SysAdmin set AdminName='"&AdminName&"',AdminPass='"&md5(AdminPass)&"',QuanXian='"&Request.Form("QuanXian")&"',ChangeDate='"&date()&"' where AdminID="&Request.QueryString("id") )
else
conn.execute("Update SysAdmin set AdminName='"&AdminName&"',QuanXian='"&Request.Form("QuanXian")&"',ChangeDate='"&date()&"' where AdminID="&Request.QueryString("id") )
end if
response.write"<script>alert('提交成功！');</script>"
end if
%>
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/style.css" rel="stylesheet" type="text/css">
<script language="javascript" src="/js/Manage.js" type="text/javascript"></script>
<style type="text/css">
.style1 {
color: #FF0000;
}
</style>
</head>
<body>
<form name="UserModify" method="post" action="?action=modify&id=<%=rs("AdminID")%>" onsubmit="return CheckUserModify();">
<table border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder" style="width: 100%">
<tr>
<th colspan="2">== 修改用户 ==</th>
</tr>
<tr>
<td width="40%" height="22" align="right" class="forumRowHighlight">用户名：</td>
<td width="60%" class="forumRow">
<input name="AdminName" type="text" size="40" value='<%=rs("AdminName")%>'> <span class="style1">*</span></td>
</tr>
<tr>
<td width="40%" height="22" align="right" class="forumRowHighlight">密 码：</td>
<td width="60%" class="forumRow">
<input name="AdminPass" type="text" size="40" value='********'> <span class="style1">*</span></td>
</tr>
<tr>
<td width="40%" height="22" align="right" class="forumRowHighlight">权
限：</td>
<td width="60%" class="forumRow">
<input name="QuanXian" type="checkbox" value="用户管理" <% if instr(rs("QuanXian"),"用户管理")>0 then %> checked="checked" <% end if %>>用户管理
<input name="QuanXian" type="checkbox" value="信息管理" <% if instr(rs("QuanXian"),"信息管理")>0 then %> checked="checked" <% end if %>>信息管理
<input name="QuanXian" type="checkbox" value="上传文件" <% if instr(rs("QuanXian"),"上传文件")>0 then %> checked="checked" <% end if %>>上传文件</td>
</tr>
<tr>
<td height="22" align="center" class="forumRowHighlight" colspan="2">
<input type=Submit class=button value="提 交" name=Submit>
<input type=reset name=Submit2 class=button value="清 除"> </td>
</tr>
</table>
</form>
</body>
</html>
<% ConnClose() %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -