addadmin.asp

ASP编写的刷ALEXA的平台

<!--#include file="Conn.Asp"-->
<!--#include file="md5.Asp"-->
<%
dim rs,sql,admin,pass
admin=request("admin")
pass=md5(request("pass"))
if admin="" or pass="" then
response.write"<script languange=javascript>alert('管理员或密码不能为空！');"
response.write"javascript:history.go(-1)</script>"
else
Set Rs = Server.CreateObject("ADODB.RecordSet")
    Rs.Open "Select * From adminxx Where Admin_MName = '"&admin&"'" ,Conn,1,3
	If Not Rs.Eof Then
	Call Msgs("用户名已经被注册,请重选一个注册!","adminxx.asp")
	Else
rs.addnew
rs("Admin_MName")=admin
rs("Admin_MPass")=pass
rs.update
rs.close
Call Msgs("添加用户成功！！","adminxx.asp")
end if
end if
%>