📄 user_add.asp

📁 一个做得非常精美的进存销系统,可惜某些功能上做了限制．
💻 ASP
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file ="Inc/MD5.asp"-->
<html>
<head>
<title>管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="Image/style.css" type=text/css rel=stylesheet>
<script language="JavaScript" src="Image/js.js"></SCRIPT>
</head>
<%
Dim isadmin
isadmin = Manage_Level(adl)
If Request.QueryString("action")="add" Then
    If isadmin="管理员" Then 
       Call UserSave
    Else
       Response.write "<script language='javascript'>alert('对不起,你没有权限进行此项操作!');" & chr(13)
       Response.write "window.document.location.href='User_Add.asp';</script>"
    End if
Else
%>
<script language="JavaScript">
<!--
function chk(theForm){
if (theForm.name.value == ""){
                alert("请输入姓名!");
                theForm.name.focus();
                return (false);
        } 
if (theForm.pwd.value == ""){
                alert("密码不能为空!");
                theForm.pwd.focus();
                return (false);
        } 
if (theForm.sellev.value == ""){
                alert("请选择级别!");
                theForm.sellev.focus();
                return (false);
        } 
}
//-->
</script>
<body text="#000000">
<table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder" align=center>
  <form action="?action=add" method=post id=form1 name=form1 onSubmit="return chk(this)">
    <tr bgcolor=ffffff> 
      <th height=25 colspan=2 align="center">管理员管理－－添加员工</th>
    </tr>
    <tr bgcolor=ffffff> 
      <td width="26%" align="right" class=forumrow>名称：</td>
      <td width="74%" class=forumrow><input name="name" type=text maxlength="16"></td>
    </tr>
    <tr  bgcolor=ffffff> 
      <td width="26%" align="right" class=forumrow>密码：</td>
      <td width="74%" class=forumrow><input name="pwd" type="password" maxlength="16"></td>
    </tr>
    <tr  bgcolor=ffffff> 
      <td class=forumrow><div align="right">级别：</div></td>
      <td class=forumrow>
<select name="sellev" id="sellev">
          <option selected value="">请选择级别</option>
<%
Dim lev,i
Set lev = Conn.Execute("Select Admin,CaiWuYuan,ManJinLi,CaiGouJinLi,CaiGouYuan,Manage,KuGuan From [User_Levels]")
For i=1 to 6
Response.Write "<option value='"& lev(i) &"'>"& Manage_Level(lev(i)) &"</option>"
Next
lev.Close
Set lev=Nothing
%>
        </select></td>
    </tr>
    <tr  bgcolor=ffffff> 
      <td colspan="2" align="center" class=forumrow>
<input type="submit" name="Submit" value="添 加"></td>
    </tr>
  </form>
</table>
<%End if%>
</html>

<%
Sub UserSave
Dim ad,pwd,rs,useradd,Sql,sellev
ad = Trim(Request.Form("name"))
sellev = Trim(Request.Form("sellev"))

Set rs = Conn.Execute("Select User_Name From [HQ_User] Where User_Name='"&ad&"'")
If Not (Rs.Eof and Rs.Bof) Then
Response.write "<script language='javascript'>alert('此用户已经存在!');" & chr(13)
Response.write "window.document.location.href='javascript:history.go(-1)';</script>"
Else
pwd = MD5(Request.Form("pwd"))
Set useradd = Server.CreateObject("ADODB.RecordSet")
Sql = "Select * From [HQ_User] Where (ID is null)"
useradd.Open Sql,Conn,1,3
useradd.addNew
useradd("User_Name") = ad
useradd("PassWord") = pwd
useradd("Levels") = sellev
useradd("LoginTime") = now()
useradd("IP") = Request.ServerVariables("REMOTE_HOST")
useradd.update
useradd.Close
Set useradd=Nothing
Conn.Close
Set Conn=Nothing

Response.Write "<script language=javascript>alert('新用户添加成功!');"
Response.Write "window.document.location.href='User_Add.asp';</script>"
End If
Set rs = Nothing
End Sub
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -