<% option explicit %>
<!-- #include virtual="/admin/level/_lib/_lib.asp" -->
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'	功能：權限管理--添加管理員
'	@Language=VBscript
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Dim sql,rs
Dim username , pwd , realname , adm_level , email
call DB_Connect(strconn)

'---驗證身份----
Call AdminCheck

'----讀取表單數據----
username=getFormElem("ctxtuser")
pwd=getFormElem("ctxtpwd")
realname=getFormElem("ctxtname")
adm_level=getFormElem("csellevel")
email=getFormElem("ctxtemail")

if username="" or pwd="" or realname="" or email="" then 
	response.redirect "add.asp"
	response.end
end if

Set rs=oConn.Execute("Select count(*) from t_AdminUserInfo where Asr_name='"&username&"'")
if cint(rs(0))>0 then
  rs.close
  Set rs=nothing
call DB_DisConnect  '斷開數據庫
%>
  <script language="JavaScript">
  <!--
  alert("用戶名重復!");
  window.history.go(-1);
  //-->
  </script>
<%
response.end
end if

sql="insert into t_AdminUserInfo (Asr_name,Asr_pwd,Asr_realname,Asr_email,Asr_isvalid,Asr_level)  values('" & username & "','" & pwd & "','" & realname & "','" & email & "',1," & adm_level & ")"

oConn.execute(sql) '執行語句
call DB_DisConnect  '斷開數據庫
response.redirect "index.asp" '返回到管理員管理首頁
%>