📄 user_add.asp
字号:
<% Set hdobj = Server.CreateObject("HD.comOpen")'请确保此行在最前
conn = hdobj.WeekaaConn()
%>
<html>
<head>
<title>管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.style1 {
color: #FF0000;
font-size: 16;
}
body,td,th {
font-size: 12px;
}
body {
background-image: url(../Image/bg.gif);
margin-left: 0px;
margin-top: 30px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #DEE7FF;
}
.STYLE4 {
color: #FFFFFF;
font-weight: bold;
font-size: 14px;
}
.style6 {
color: #000000;
font-size: 18px;
font-family: "黑体";
}
-->
</style>
</head>
<script language="JavaScript">
<!--
function chk(theForm){
if (theForm.a.value == ""){
alert("原密码不能为空!");
theForm.name.focus();
return (false);
}
if (theForm.b.value == ""){
alert("新密码不能为空!");
theForm.pwd.focus();
return (false);
}
if (theForm.c.value == ""){
alert("请重复新密码!");
theForm.pwd.focus();
return (false);
}
}
//-->
</script>
<body>
<%
dim Use_nam
Use_nam=session("AdminUser")
if mid(Use_nam,1,3)<>"adm" then
response.write "<br><br><br><br><br><br><p align='center'>对不起，你没有获得使用本功能的授权。</p>"
response.end
end if
If Request.QueryString("action")="" Then
%>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#DEE7FF">
<tr>
<td height="28" align="center" background="../Image/bg01.jpg"> </td>
</tr>
<tr>
<td><table cellpadding="0" cellspacing="0" border="0" width="100%" class="tableBorder" align=center>
<form action="../User/?action=add" method=post id=form1 name=form1 onSubmit="return chk(this)">
<tr align="center" bgcolor=ffffff>
<td height="40" colspan="2" class=forumrow><span class="style6">添加管理员用户</span></td>
</tr>
<tr bgcolor=ffffff>
<td width="42%" height="30" align="right" class=forumrow>用户名：</td>
<td width="58%" class=forumrow><input name="La" type=text class="style1" id="La" maxlength="16">
必须以adm开始</td>
</tr>
<tr bgcolor=ffffff>
<td width="42%" height="30" align="right" class=forumrow>新密码：</td>
<td class=forumrow><input name="Lb" type="password" class="style1" id="Lb" maxlength="16"> </td>
</tr>
<tr align="center" bgcolor=ffffff>
<td height="30" align="right" class=forumrow>新密码：</td>
<td align="left" class=forumrow><input name="Lc" type="password" class="style1" id="Lc" maxlength="16"></td>
</tr>
<tr align="center" bgcolor=ffffff>
<td class=forumrow> </td>
<td class=forumrow><div align="left">
<input type="submit" name="Submit" value="添加">
</div></td>
</tr>
<tr align="center" bgcolor=ffffff>
<td height="40" colspan="2" class=forumrow> </td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td height="28" background="../Image/bg01.jpg"> </td>
</tr>
</table>
</body>
</html>
<%
else
La = Request.Form("La")
Lb = Request.Form("Lb")
Lbb=hdobj.md(Lb)
Lc =trim(Request.Form("Lc"))
if mid(La,1,3)="adm" then
Set rs = Server.CreateObject("ADODB.RecordSet")
Sql = "Select * From [admin] Where c='"&La&"'"
rs.Open Sql,Conn,1,3
if rs.eof then
rs.addnew
rs("a")="worker"
rs("c")=La
rs("d")=Lbb
rs("tim")=now()
rs.update
response.write "<br><br><br><div align='center'><span class='style6'>用户添加成功</span></div>"
response.write "<br><div align='center'><span class='style6'>帐户:"&La&"</span></div>"
response.write "<br><div align='center'><span class='style6'>密码:"&Lb&"</span></div>"
else
response.write "<br><br><br><div align='center'><span class='style6'>该用户名已经使用，请重选用户名！</span></div>"
end if
else
response.write "<br><br><br><div align='center'><span class='style6'>用户名必须以 amd 开始！</span></div>"
end if
End if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -