<!--#include file="0.asp"-->
<!--#include file="../conn/zkconn.asp"-->
<!--#include file="md5.asp"-->
<%
adminname = Trim(Request("adminname"))
adminpass = md5(Trim(Request("adminpass")))

sql = "Select * From admin Where adminname = '"&adminname&"'"
set rs = conn.Execute(sql)
If Not rs.EOF Then
Response.Write "<br><br><font color=#ff6666>您填写的用户名已经有人使用了。</font>"
Response.End
End If
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "admin", conn, 1, 2
rs.AddNew
rs("adminname") = adminname
rs("adminpass") = adminpass
rs.Update
rs.close
conn.close
set rs=nothing
set conn=nothing
response.redirect "xiugai.asp"
%>