<!-- #include file="Setup.asp" -->
<!-- #include file="Utility/MD5.asp" -->
<%
HtmlTop


UserEmail=HTMLEncode(Request("UserEmail"))
ActivationKey=HTMLEncode(Request("ActivationKey"))
ReferrerName=HTMLEncode(Request("ReferrerName"))


if SiteConfig("AllowNewUserRegistration")= 0 then error("本網站暫時不允許新窩友注冊！")

if SiteConfig("AccountActivation")=2 then

	if ActivationKey=empty then error("本網站需要邀請碼才能注冊！")
	if Conn.Execute("select UserName from [Wo_UserActivation] where ActivationKey='"&ActivationKey&"' and Email='"&UserEmail&"'").eof then error("邀請碼錯誤！")

end if




if Request.Form("menu")="AddUserName" then

	UserName=HTMLEncode(Request.Form("UserName"))
	password=Trim(Request.Form("password"))
	RetypePassword=Trim(Request.Form("RetypePassword"))


	if UserName="" then Message=Message&"<li>您的窩友名沒有填寫</li>"
	if UserEmail="" then Message=Message&"<li>您的Email沒有填寫</li>"
	if Len(UserName) < SiteConfig("UserNameMinLength") then Message=Message&"<li>您的窩友名長度不能少于 "&SiteConfig("UserNameMinLength")&" 個字節</li>"
	if Len(UserName) > SiteConfig("UserNameMaxLength") then Message=Message&"<li>您的窩友名長度不能超過 "&SiteConfig("UserNameMaxLength")&" 個字節</li>"
	if UserName <> Request.QueryString("UserName") then Message=Message&"<li>窩友名中不能含有URL所不能傳送的特殊符號</li>"
	if instr(UserEmail,"@")=0 then Message=Message&"<li>您的電子郵箱地址填寫錯誤</li>"

	errorchar=array("　","