📄 regpost.asp
字号:
<!--#include file="top.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="domain.asp"-->
<%
Server.ScriptTimeOut=999999
Response.Cookies("9cool_agentid")=""
'进行安全性监测，看数据来源是否是本服务器页面
dim server_v1,server_v2
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then WriteErrMsg("你提交的路径有误，禁止从站点外部提交数据！")
if Request.Form("verifycode")<>Session("VerifyCode") then WriteErrMsg("验证码错误或已经过期，请返回并刷新页面再重新输入！")
'读取注册数据
username=htmlencode2(Request.Form("username"))
password=request.form("password")
password2=request.form("password2")
question=htmlencode2(request.form("question"))
answer=htmlencode2(request.form("answer"))
truename=request.form("truename")
sex=request.form("sex")
age=request.form("age")
add=htmlencode2(request.form("add"))
zip=request.form("zip")
tel=request.form("tel")
email=htmlencode2(request.form("email"))
sitename=htmlencode2(request.form("sitename"))
sitetype=request.form("sitetype")
intro=htmlencode2(request.form("intro"))
groups=request.form("groups")
regip=request.ServerVariables("HTTP_X_FORWARDED_FOR")
if regip="" then regip=request.ServerVariables("REMOTE_ADDR")
if username="" or password="" or password2="" or question="" or answer="" or truename="" or sex="" or age="" or zip="" or email="" or sitename="" or sitetype="" then
WriteErrMsg("资料填写不完全！")
end if
if Checkchar(username,"")=false then WriteErrMsg("用户名中含有非法字符,请重新注册！")
'读取空间类型
set rshost=Server.CreateObject("ADODB.Recordset")
sqlhost="select * from [host] where id="&cint(groups)
rshost.open sqlhost,conn,1,1
userdir=rshost("userdir")
onlymail=rshost("onlymail")
iptime=rshost("iptime")
'检测email及Ip是否重复
if onlymail = 1 then
If not conn.Execute("Select userid From [user] where email='"&email&"' and groups="&cint(groups)&"").eof Then
WriteErrMsg("您所用的E-mail已经注册过了!")
end if
end if
if iptime = 1 then
If not conn.Execute("Select userid From [user] where regip='"®ip&"' and groups="&cint(groups)&" and regdate=Date()" ).eof Then
WriteErrMsg("这段时间注册的用户过多，请隔段时间再试！")
end if
end if
'判断用户名是否重复
If not conn.Execute("Select userid From [user] where username='"&username&"'" ).eof Then
WriteErrMsg("您所选择的用户名已经注册过了！")
end if
'判断目录是否存在
if fso.FolderExists(userdir&username) then
WriteErrMsg("创建新的用户目录失败，可能已经存在此目录或没有权限，请与管理员联系！")
end if
'检查推荐人
if Request.Form("commends")<>"" then
If conn.Execute("Select userid From [user] where username='"&Request.Form("commends")&"'" ).eof Then
WriteErrMsg("您所填写的推荐人用户名不存在！")
end if
if Request.Form("commends")=username then
WriteErrMsg("推荐人不能是自己！")
end if
'增加推荐人积分
set rscom=Server.CreateObject("ADODB.Recordset")
sqlcom="select * from [user] where username='"&Request.Form("commends")&"'"
rscom.open sqlcom,conn,1,3
rscom("point")=rscom("point")+point
rscom.update
rscom.close
set rscom=nothing
end if
'增加新用户
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from [user]"
rs.open sql,conn,1,3
rs.addnew
rs("username")=username
rs("password")=md5(password,32)
rs("question")=question
rs("answer")=md5(answer,32)
rs("truename")=truename
rs("sex")=sex
rs("age")=age
rs("add")=add
rs("zip")=zip
rs("tel")=tel
rs("email")=email
rs("sitename")=sitename
rs("sitetype")=sitetype
rs("intro")=intro
rs("groups")=groups
rs("space")=rshost("space")
rs("regdate")=Date()
rs("regip")=regip
if rshost("active")=1 then rs("ktdate")=Date()
if rshost("usedays")<>0 then rs("stopdate")=Date+rshost("usedays")
if rshost("active")=1 then
rs("state")=1
else
rs("state")=0
end if
rs("accode")=md5(username & Now(),32)
rs.update
'判断二级域名
if rshost("domain")=2 then
dim vdns
set vdns=new vdns_cls
vdns.create rshost("domainname"),username,sitename,rshost("userurl")&"/"&username,rshost("hidden")
end if
'判断是否直接开通FTP
if rshost("ftp")=True then
set rsftp=Server.CreateObject("ADODB.Recordset")
sqlftp="select * from [User accounts]"
rsftp.open sqlftp,connftp,1,3
rsftp.addnew
rsftp("user")=username
rsftp("Access")=rshost("userdir")&username+"|RWAMLCDP"
if rshost("active")=1 then
rsftp("Disable")=False
else
rsftp("Disable")=True
end if
rsftp("Password")=SerUPassEnCode(password)
rsftp("ChangePass")=-1
rsftp("HomeDir")=rshost("userdir")&username
rsftp("RelPaths")=0
rsftp("MaxUsers")=-1
rsftp("MaxUsers")=-1
if rshost("usedays")<>0 then
rsftp("Expiration")=Date+rshost("usedays")
else
rsftp("Expiration")="1980-1-1"
end if
rsftp("RatioUp")=1
rsftp("RatioDown")=1
rsftp("RatioCredit")=0
rsftp("RatioType")=0
rsftp("RatioCredit")=0
rsftp("RatioType")=0
rsftp("QuotaEnable")=-1
rsftp("QuotaMax")=rshost("space")*1048576
rsftp("QuotaCurrent")=0
rsftp("Groups")=rshost("name")
rsftp("Privilege")=0
rsftp("PasswordType")=0
rsftp("Lock")=-1
rsftp("encryption")=0
rsftp("hide")=0
rsftp("alwayslogin")=0
rsftp("maxup")=0
rsftp("maxdown")=0
rsftp("maxuseronsameIP")=-1
rsftp("idletimeout")=600
rsftp("sessiontimeout")=0
rsftp("notes")=rshost("name")
rsftp.update
rsftp.close
end if
'创建用户目录并生成默认首页
fso.createfolder(userdir&username)
if rshost("active")=1 then
Fso.CopyFolder server.MapPath(".")+"\template\copypage1",userdir&username
else
Fso.CopyFolder server.MapPath(".")+"\template\copypage2",userdir&username
end if
'判断并发送邮件
if mailtype<>0 then
dim topic,mailbody
select case rshost("active")
case 0
topic = "【"&site&"】个人主页空间申请完成"
mailbody="<font style='font-size:12px'>"&username&"：您好！<br>"
MailBody = MailBody & " 欢迎注册使用"&site&"主页空间服务！<br>"
MailBody = MailBody & " 您的帐号需要经过我们人工审核，以下是您的帐号信息：<br><br>"
MailBody = MailBody & " 用户名："&username&"<br> 密 码："&password&"<br>"
MailBody = MailBody & " 密码提示问题："&question&"<br> 问题答案为："&answer&"<br><br>"
MailBody = MailBody & "＊我们将尽快审核您的资料，并将审核结果反馈至您的邮箱，请耐心等待。<br>"
MailBody = MailBody & "＊任何问题和建议，请随时与"&site&"客服人员联系。<br>"
MailBody = MailBody & "-----------------------------------------------------------<br>"
MailBody = MailBody & "需要回复此邮件，请回复至：<a href=mailto:"&siteemail&" target=_blank>"&siteemail&"</a>，谢谢！<br>"
MailBody = MailBody & ""&site&"|<a href="&siteurl&" target=_blank>"&siteurl&"</a><br>"
MailBody = MailBody & ""&Now()&"<br>"
MailBody = MailBody & "-----------------------------------------------------------</font>"
case 1
topic = "【"&site&"】个人主页空间服务开通"
mailbody="<font style='font-size:12px'>"&username&"：您好！<br>"
MailBody = MailBody & " 欢迎注册使用"&site&"主页空间服务！<br>"
MailBody = MailBody & " 您的帐号已经开通，以下是您的帐号信息：<br><br>"
MailBody = MailBody & " 用户名："&username&"<br> 密 码："&password&"<br>"
MailBody = MailBody & " 密码提示问题："&question&"<br> 问题答案为："&answer&"<br><br>"
MailBody = MailBody & "＊您可以立即登陆我们的网站检验用户名及密码，并可在登陆后修改资料中修改及您的资料和密码。<br>"
MailBody = MailBody & "＊同时请遵守我们服务条款中的各项规定，如果违反，我们有可能在不提前通知的情况下关闭您的帐号。<br>"
MailBody = MailBody & "-----------------------------------------------------------<br>"
MailBody = MailBody & "需要回复此邮件，请回复至：<a href=mailto:"&siteemail&" target=_blank>"&siteemail&"</a>，谢谢！<br>"
MailBody = MailBody & ""&site&"|<a href="&siteurl&" target=_blank>"&siteurl&"</a><br>"
MailBody = MailBody & ""&Now()&"<br>"
MailBody = MailBody & "-----------------------------------------------------------</font>"
case 2
topic = "欢迎申请使用【"&site&"】主页空间服务，确认邮件地址并激活帐号"
mailbody="<font style='font-size:12px'>"&username&"：您好！<br>"
MailBody = MailBody & " 欢迎注册使用"&site&"主页空间服务！<br>"
MailBody = MailBody & " 为确认您的邮件地址，请点击访问下面链接（或复制到浏览器地址栏）激活您在"&site&"申请的帐号:<br>"
MailBody = MailBody & " <a href='"&siteurl&"active.asp?user="&username&"&email="&email&"&sign="&rs("accode")&"' target='_blank'>"&siteurl&"active.asp?user="&username&"&email="&email&"&sign="&rs("accode")&"</a><br>"
MailBody = MailBody & "<br>＊注意：此链接需要访问互联网，请确保您已经建立了网络连接。<br>"
MailBody = MailBody & "＊任何问题和建议，请随时与"&site&"客服人员联系。<br>"
MailBody = MailBody & "-----------------------------------------------------------<br>"
MailBody = MailBody & "需要回复此邮件，请回复至：<a href=mailto:"&siteemail&" target=_blank>"&siteemail&"</a>，谢谢！<br>"
MailBody = MailBody & ""&site&"|<a href="&siteurl&" target=_blank>"&siteurl&"</a><br>"
MailBody = MailBody & ""&Now()&"<br>"
MailBody = MailBody & "-----------------------------------------------------------</font>"
end select
%>
<!--#include file="inc/mail.asp"-->
<%
end if
Application.Lock
Application(CacheName&"NewUser")=username
Application(CacheName&"Newsite")=sitename
Application(CacheName&"Countuser") = Application(CacheName&"Countuser")+1
Application(CacheName&"Counttoday") = Application(CacheName&"Counttoday")+1
Application(CacheName&"Countuser"&sitetype)=Application(CacheName&"Countuser"&sitetype)+1
Application.UnLock
'输出注册结果
%>
<table width="778" height="350" border="0" align="center" cellpadding="0" cellspacing="0" class="tableborder">
<tr>
<td width="12" class="linebar"> </td>
<td valign="top"><table width="98%" border="0" align="center" cellpadding="6" cellspacing="0" class="tableborder">
<tr bgcolor="#FFFFFF">
<td width="100%" colspan="2"><table cellspacing="0" cellpadding="0" width="100%" border="0">
<tr>
<td width="150" bgcolor="#AEC0EC"><img height="18" src="" width="5" /><strong><span class="clear">第四步：</span></strong></td>
<td width="1" rowspan="2"><img height="1" src="" width="1" /></td>
<td bgcolor="#e6e8ed"><img height="15" src="" width="8" /> <font color="#FF0000"><span class="hei18_cu" style="font-size:12px">注册已成功，以下是您的注册信息：</span></font></td>
</tr>
<tr>
<td bgcolor="#416194"><img height="1" src="" width="1" /></td>
<td bgcolor="#b7c1ce"><img height="1" src="" width="1" /></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2" align="center"><table width="100%" border="0" align="center" cellpadding="4" cellspacing="1" class="bian_ding">
<tbody>
<tr>
<td height="66" bgcolor="#FFFFFF" class="hui"><li></li>
主页地址：<a href="<%=rshost("userurl")%>/<%=username%>" target="_blank"><%=rshost("userurl")%>/<%=username%></a>
<%
if rshost("domain")<>0 then%>
<br />
<li></li>
二级域名：<a href="http://<%=username%>.<%=rshost("domainname")%>" target="_blank">http://<%=username%>.<%=rshost("domainname")%></a><%response.write vdns.message%> [已经生效]
<%end if%>
<%
if rshost("FTP")=True then%>
<br />
<li></li>
FTP：<%=ftphost%> [已经开通]
<%end if%><br>
<li><font color="ff6600">
<%
select case rshost("active")
case 0
response.write "您的注册信息需要经过我们的审核，我们会尽快尽审核的结果反馈至您登记的邮箱中！"
case 1
response.write "您的帐号已经即时开通，您可以立即[<a href=login.asp>点击登录</a>]"
case 2
response.write "我们已将包含激活信息的邮件发送至您登记的邮箱："&email&"，请登录邮箱激活您的帐号。"
end select
rshost.close
set rshost=nothing
rs.close
set rs=nothing
%>
</font></li>
</td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF"><input name="button" type="button" onClick="location.href='index.asp'" value=" 确 定 " /> </td>
</tr>
</tbody>
</table></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2" align="center"><hr size="1" noshade="noshade" /></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="links.asp"-->
<!--#include file="bottom.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -