register.asp

程序网络论坛HigroupBBS v4.00 默认管理员帐号密码都是Marcos

<!--#include file="MarcosCB.asp"-->
<%
	getConn()

	dim i
	dim theAct,strOther
	dim str,pageCode,pageTitle,pageOther
	dim userName,passWord,conPassWord,userSign,userSex,userBirthday,userGroup

	theAct=getPost("theAct")
	if theAct="reg" then
		userName=getPost("userName")
		passWord=getPost("passWord")
		conPassWord=getPost("conPassWord")
		userSign=getPost("userSign")
		userSex=getPost("userSex")
		userBirthday=getPost("userBirthday")
		userGroup=getPost("userGroup")
		
		if not canReg(userName) then
			echo "<script>alert('对不起，用户名只能使用中文,数字和英文字母！');history.back();</script>"
			response.end
		end if
		
		if instr(userName,"游客")>0 then
			echo "<script>alert('对不起, 游客 为系统关键字,不允许注册.');history.back();</script>"
			response.end
		end if
		
		if isExists(userName) then
			echo "<script>alert('对不起，该用户名已经被注册！');history.back();</script>"
			response.end
		end if

		if not isDate(userBirthday) then
			echo "<script>alert('对不起，您的生日填写错误！');history.back();</script>"
			response.end
		end if

		rs.open "Marcos_User",conn,1,3
		rs.addnew
			rs("userName")=userName
			rs("passWord")=md5(passWord)
			rs("userSign")=userSign
			rs("userSex")=userSex
			rs("userBirthday")=userBirthday
			rs("userGroup")=userGroup
			rs("regDate")=now()
			rs("lastLogin")=now()
			rs("lastIP")=ip
			for i=1 to request("otherValue").count
				if request("otherName")(i)<>"" and request("otherValue")(i)<>"" then
					strOther=strOther & request("otherName")(i) & "@@" & request("otherValue")(i) & "$$$"
				end if
			next
			rs("userOther")=strOther
		rs.update
		rs.close
		echo "<script>alert('注册成功！');location.href='login.asp';</script>"
		response.end
	end if

	str=getMainCode(mySkinId)
	
	pageTitle="<a href=register.asp>用户注册</a>"
	pageOther="<script>document.title+=' - 填写注册资料';</script>"
	
	showHead str,pageTitle,pageOther
	showBody()
	showFoot(str)
	
	sub showBody()
		pageCode=getPageCode(mySkinId,"PageRegister")
		echo pageCode
	end sub
	
	closeConn()
%>