www.gusucode.com > 云枫企业网站源代码第二版 2.0源码程序 > admin/Manage_Inc/addmanagerok.asp

    <%@ language="VBScript"%>
<%response.Expires = 0%>
<!--#include file="../inc/admin.asp"-->
<!--#include file="../inc/Conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from Manage_User where UserName='" & request.form("uid") & "' and PassWord='" & request.form("pwd1") & "'"
rs.open sqltext,conn,1,1

'查找数据库，检查此管理员是否已经存在
if rs.recordcount >= 1 then
if rs("UserName")=request.form("uid") then
Response.Redirect "../inc/messagebox.asp?msg=此管理员帐号已经存在，请选用其它名称!"
response.end
rs.close
end if
end if


set rs=server.createobject("adodb.recordset")
sqltext="select * from Manage_User"
rs.open sqltext,conn,3,3

'添加一个管理员帐号到数据库
rs.addnew
rs("UserName")=request.form("uid")
rs("PassWord")=encrypt(request.form("pwd1"))
rs.update
Response.Redirect "manage.asp"

%>