www.gusucode.com > 绿色环保工作企业网站源码程序 > admin/AdminMailAdd.asp

    <%@ language="VBScript"%>
<%response.Expires = 0%>
<!--#include file="Conn.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="inc/function.asp"-->
<%
password=replace(trim(Request("password")),"'","")
UserName=replace(trim(Request("UserName")),"'","")

if strLength(password)>16 or strLength(password)<6 then
 response.write  "<script language=javascript>alert('请输入的密码位数不能小于6位或大于16位!');history.go(-1);</script>"
  response.End
end if

'查找数据库,检查此管理员是否已经存在
set rs=server.createobject("adodb.recordset")
sql="select * from admin where UserName='" & UserName & "'"
rs.open sql,conn,1,1

if rs.recordcount >= 1 then
  response.write  "<script language=javascript>alert('此管理员帐号已经存在,请选用其他帐号!');history.go(-1);</script>"
  response.End
  rs.close
  set rs=nothing
end if

password=md5(password)
set rs=server.createobject("adodb.recordset")
sql="select * from admin"
rs.open sql,conn,1,3

'添加一个管理员帐号到数据库
rs.addnew
rs("UserName")=UserName
rs("PassWord")=password
rs.update
rs.close
set rs=nothing
Response.Redirect "AdminMailto.asp"
%>