添加用户

************添加用户**************** 范例

 

 

<%
dim act,adminname,PassWord,RoleId
act=request.QueryString("act")

if(act="add") then 
 adminname=trim(request.Form("username"))
 PassWord=Md5(Replace(Trim(Request.Form("PassWord")),"'","''"),16)
 RoleId=Cint(request.Form("RoleId"))
 '添加到库
 set rs=server.createobject("adodb.recordset")
 sql="select top 1 * from admin where UserName='"&adminname&"' order by id desc "
 rs.open sql,conn,3,3
 if not rs.eof then
  response.Write("<script>alert(""该用户已存在!"");history.back();</script>")
  response.End()
 else
  rs.addnew
  rs("UserName")=adminname
  rs("PassWord")=PassWord
  rs("RoleId")=RoleId
  rs("ModiTime")=now 
  rs.update  
  response.Write("添加管理员成功~!")
  response.Write("<br><a href=admin_add.asp>返回</a>")
 end if
 rs.close
 set rs=nothing
else
%>
<FORM method="POST" name="form1" action="admin_add.asp?act=add" style="margin:0 0 0 0;">
  <TABLE width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#666666">
<TR bgcolor="#FFFFFF">
  <TD height="24" colspan="2"><div align="center">添加管理员</div></TD>
  </TR>
<TR bgcolor="#F5F5F5">
  <TD width="14%"><div align="center">用户名：</div></TD>
  <TD width="86%"><input name="username" type="text" id="username" size="30"></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="center">密码：</div></TD>
  <TD><div align="left">
    <input name="PassWord" type="text" id="PassWord" size="50">
  </div></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="center">角色：</div></TD>
  <TD><select name="RoleId" id="RoleId">
    <%=getRoleOption(0)%>
  </select></TD>
</TR>
<TR bgcolor="#F5F5F5">
 <TD align=right>&nbsp;   </TD>
    <TD align=right><div align="left">
        <input type=submit name=b1 value="提 交">&nbsp;&nbsp;
        <input type=reset name=b2 value="重 填">      
    </div></TD>
</TR>
</TABLE>
</FORM>
<%
end if
%>
</BODY>
</HTML>
<%
call connclose()
%>