<!--#include file="Conn.Asp"-->
<!--#include file="md5.Asp"-->
<%
dim rs,sql,admin,pass
admin=request("admin")
pass=md5(request("pass"))
if admin="" or pass="" then
response.write"<script languange=javascript>alert('管理員或密碼不能為空！');"
response.write"javascript:history.go(-1)</script>"
else
Set Rs = Server.CreateObject("ADODB.RecordSet")
    Rs.Open "Select * From adminxx Where Admin_MName = '"&admin&"'" ,Conn,1,3
	If Not Rs.Eof Then
	Call Msgs("用戶名已經被注冊,請重選一個注冊!","adminxx.asp")
	Else
rs.addnew
rs("Admin_MName")=admin
rs("Admin_MPass")=pass
rs.update
rs.close
Call Msgs("添加用戶成功！！","adminxx.asp")
end if
end if
%>