<!--#include file=conn.asp-->
<!--#include file=../inc/md5.asp-->
<%
dim rs,sql,username,password
username=replace(trim(request("username")),"'","‘")
password=replace(trim(request("password")),"'","‘")
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select username,password from [admin] where username='"&username&"'" 
rs.open sql,conn,1,3
if not rs.eof or not rs.bof then
response.write"<script language='javascript'>alert('錯誤，管理員已經存在！');window.location.href='admin_add.asp';</script>"
response.end
else
rs.addnew
rs("username")=username
rs("password")=md5(password)
rs.update
end if
rs.close
set rs=nothing
closedb
response.write"<script language='javascript'>alert('恭喜你，管理員添加成功！');window.location.href='admin_add.asp';</script>"
%>