inviteuser.asp

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

<!-- #include file="Setup.asp" -->
<%
HtmlTop
if CookieUserName=empty then error("您还未<a href=Login.asp?ReturnUrl="&ReturnUrl&">登录</a>")
if SiteConfig("AccountActivation")<>2 then error("系统未开启 邀请码注册 选项！")
if SiteConfig("SelectMailMode")="" then error("系统未开启 邮件发送 功能！")

if Request("menu")="InvitingOk" then
	if Request("VerifyCode")<>Session("VerifyCode") or Session("VerifyCode")="" then error("验证码错误！")
	UserEmail=HTMLEncode(Request("UserEmail"))
	if UserEmail="" then error("请输入受邀人的Email地址！")
	if instr(UserEmail,"@")=0 then error("受邀人的Email地址填写错误")
	
	If not Conn.Execute("Select UserID From [Wo_Users] where UserEmail='"&UserEmail&"'" ).eof Then Error("<li>"&UserEmail&" 已经注册了")

	
	Randomize
	ActivationKey=int(rnd*9999999999)+1

	MailSubject=""&CookieUserName&" 给您发送 "&SiteConfig("SiteName")&" 的注册邀请码"
	MailBody=""&CookieUserName&" 给您发送 "&SiteConfig("SiteName")&" 的注册邀请码<br><br>请点击下面的超链接进行注册，如果没有链接，请把下面地址直接复制到浏览器的地址栏中进行注册。<br><br><a target=wh href="&SiteURL&"CreateUser.asp?menu=WriteProfile&ActivationKey="&ActivationKey&"&ReferrerName="&CookieUserName&"&UserEmail="&UserEmail&">"&SiteURL&"CreateUser.asp?menu=WriteProfile&ActivationKey="&ActivationKey&"&ReferrerName="&CookieUserName&"&UserEmail="&UserEmail&"</a>"
	SendMail UserEmail,MailSubject,MailBody
	
	Conn.Execute("insert into [Wo_UserActivation] (ActivationKey,Email) values ('"&ActivationKey&"','"&UserEmail&"')")
	Session("VerifyCode")=""
	succeed "邀请码发送成功！","Default.asp"
else
%>
<div id="CommonBreadCrumbArea"><%ClubTree%> → 发送邀请码</div>
<table cellspacing=1 cellpadding=5 width=80% id=CommonListArea>
	<form action="?menu=InvitingOk" method="POST" name=form>
		<tr id=CommonListTitle>
			<td align="center" colspan="2">发送邀请码</td>
		</tr>
		<tr id=CommonListCell>
			<td width="30%" align="right">验证码：</td>
			<td>
				<input type="text" name="VerifyCode" MaxLength="4" size="10" onblur="CheckVerifyCode(this.value)" onKeyUp="if (this.value.length == 4)CheckVerifyCode(this.value)"> <img src="VerifyCode.asp" title="验证码,看不清楚?请点击刷新验证码" style="cursor:pointer" onclick="this.src='VerifyCode.asp?'+Math.random()"> <span id="CheckVerifyCode" style="color:red"></span>
			</td>
		</tr>
		<tr id=CommonListCell>
			<td align="right">受邀人电子邮箱：</td>
			<td>
				<input type="text" name="UserEmail" size=30>
			</td>
		</tr>
		<tr id=CommonListCell>
			<td valign="top" align="center" colspan="2">
				<input type="submit" value=" 发送 "> <input type="button" onclick="javascript:history.back()" value=" 取消 ">
			</td>
		</tr>
	</form>
	</table>
<%
end if
HtmlBottom
%>