<!--#include file="bsconfig.asp"-->
<!--#include file="inc/md5.asp"-->
<%
'=========================================================
'
'產(chǎn)品名稱： 公司(企業(yè))網(wǎng)站管理系統(tǒng)（簡稱：www.web300.cn）
'版權所有：www.web300.cn
'程序制作：QQ812256@hotmail.com
'聯(lián)系方式：QQ 812256
'Copyright 2006-2008 www.web300.cn - All Rights Reserved. 
'
'========================================================
%>
<%
password=replace(trim(Request("pwd1")),"'","")
password=md5(password)
set rs=server.createobject("adodb.recordset")
sqltext="select * from Bs_Admin where UserName='" & request.form("UserName") & "'"'or RealName='" & request.form("realname") & "'and PassWord='" & password & "'"
rs.open sqltext,conn,1,1

'查找數(shù)據(jù)庫，檢查此管理員是否已經(jīng)存在
if rs.recordcount >= 1 then
if rs("UserName")=request.form("UserName") then
%>
<script language='javascript'>alert ("此管理員帳號已經(jīng)存在，請選用其它名稱!"); location='Bs_Admin.asp';</script>
<%
response.end
rs.close
end if
end if


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

'添加一個管理員帳號到數(shù)據(jù)庫
rs.addnew
rs("UserName")=request.form("UserName")
rs("RealName")=request.form("RealName")
rs("PassWord")=password
rs.update
Response.Redirect "Bs_Admin.asp"

%>