admin_addchk.asp

信息类网站的不错选择

<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<!--#include file=../md5.asp-->
<%
dim rs,sql,username,password,diqu
username=replace(trim(request("username")),"'","‘")
password=replace(trim(request("password")),"'","‘")

if  username=""  then
response.write  "<li>请填写用户名！"
response.end
end if
if  password=""  then
response.write  "<li>请填写管理员密码！"
response.end
end if


set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * 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")=md5(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"">"
%>