admin_addchk.asp

信息管理系统 管理页面:admin/index.asp 用户和密码都是admin

<!--#include file=conn.asp-->
<!--#include file=../md5.asp-->
<!--#include file=cookies.asp-->
<%
dim rs,sql,username,password
username=request("username")
password=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 "<li>错误，用户名已经存在！"
response.end
else
rs.addnew
rs("username")=username
rs("password")=password
rs.update
end if
rs.close
set rs=nothing
closedb
response.write "<li>恭喜你，添加用户成功！"
response.write "<meta http-equiv=refresh content=""1;URL=admin_add.asp"">"
%>