<%@ language="VBScript"%>
<%response.Expires = 0%>
<!--#include file="Conn.asp"-->
<!--#include file="Admin.asp"-->
<!--#include file="inc/md5.asp"-->
<%
password=replace(trim(Request("pwd1")),"'","")
uid=replace(trim(Request("uid")),"'","")
password=md5(password)

set rs=server.createobject("adodb.recordset")
sqltext="select * from admin where UserName='" & uid & "'"
rs.open sqltext,conn,1,1

'查找数据库，检查此管理员是否已经存在
if not rs.eof then
Response.Redirect "Loginsb.asp?msg=此管理员帐号已经存在，请选用其它名称!"
response.end
rs.close
end if

set rs=server.createobject("adodb.recordset")
sqltext="select * from admin"
rs.open sqltext,conn,3,3

'添加一个管理员帐号到数据库
rs.addnew
rs("UserName")=request.form("uid")
rs("PassWord")=password
rs.update
Response.Redirect "Manage_Admin.asp"

%>