createuser.asp

秘密网源代码 传闻拉了 100W风投

<!-- #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("　","