registersave.asp

新魔界最新帐号注册源码 精简了文件

<!--#include file="conn.asp"-->
<!--#include file="lib.asp"-->
<!--#include file="md5.asp"-->
<%
	  if(request("action")="save") then
	  id = GetPostField("id")
	  oldpass = GetPostField("oldpass")
	  moldpass = GetPostField("moldpass")
		CheckCode = GetPostField("CheckCode")
				
if  CheckCode <> CStr(Session("CheckCode"))  then 
	msg("您填写的验证码与系统产生的不一致，请重新输入")
end if
	  
	  if(ChkInvaildWord(id) or ChkInvaildWord(oldpass) or ChkInvaildWord(moldpass)) then
        msg("请不要输入非法字符")
     end if
	  
	  if oldpass <> moldpass then
		msg("两次密码不相同")
     end if
     
     pass = md5(oldpass)

	set rs=server.createobject("adodb.recordset")
	sql = "select * from user where UserName = '"&id&"'"
	rs.open sql,conn,1,1
	If Not(rs.Eof And rs.Bof) Then
	msg("注册失败，您输入"&id&"用户名已经被注册，请更换其它用户名")
			rs.Close
		Else '继续注册
			rs.Close
	conn.execute("insert into user (UserName,Name,password,mobi) values ('"& id &"','"& id &"','"& pass &"',500) ")
		set rs=nothing
	msg("恭喜你，注册成功")

		set rs=nothing
		end if
		end if
%>