add-end.asp

西亚电子购物系统

<!--#include file="check-4.asp"-->
<!--#include file="../conn/conn.asp"-->
<!--#include file="md5.asp"-->
<%
adminname = Trim(Request("adminname"))
adminpassword = md5(Trim(Request("adminpassword")))
power = Request("power")


sql = "Select * From sia_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 "sia_admin", conn, 1, 2
rs.AddNew
rs("adminname") = adminname
rs("adminpassword") = adminpassword
rs("power") = power
rs.Update
rs.close
conn.close
set rs=nothing
set conn=nothing
response.redirect "edit.asp"
%>