📄 regpost.asp
字号:
<!--#include file="top.asp"-->
<!--#include file="inc/char.inc"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="inc/email_config.asp"-->
<!--#include file="ftp_option.asp"-->
<%
'进行安全性监测，看数据来源是否是本服务器页面
if not instr(1,request.servervariables("http_referer"),request.servervariables ("server_name"),1)=8 then
response.redirect("error.asp?err=http")
response.end
end if
'读取注册数据
username=request.form("username")
password=request.form("password")
question=request.form("question")
answer=request.form("answer")
truename=request.form("truename")
sex=request.form("sex")
age=request.form("age")
add=request.form("add")
zip=request.form("zip")
tel=request.form("tel")
email=request.form("email")
sitename=request.form("sitename")
sitetype=request.form("sitetype")
intro=request.form("intro")
groups=request.form("groups")
if tel="" then tel="None"
if intro="" then intro="None"
regip=request.ServerVariables("HTTP_X_FORWARDED_FOR")
if regip="" then regip=request.ServerVariables("REMOTE_ADDR")
'读取空间类型
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='"&request.form("groups")&"'").eof Then
response.redirect("error.asp?error=remail")
response.end
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
response.redirect("error.asp?error=rip")
response.end
end if
end if
'判断用户名是否重复
If not conn.Execute("Select userid From [user] where username='"&username&"'" ).eof Then
response.redirect("error.asp?error=rname")
response.end
end if
'判断目录是否存在
if fso.FolderExists(userdir&username) then
response.redirect("error.asp?error=userfolder")
response.end
end if
'检查推荐人
if Request.Form("commends")<>"" then
If conn.Execute("Select userid From [user] where username='"&Request.Form("commends")&"'" ).eof Then
response.redirect("error.asp?error=commend")
response.end
end if
elseif Request.Form("commends")=username then
response.redirect("error.asp?error=commenderr")
response.end
else
'增加推荐人积分
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)
rs("question")=question
rs("answer")=md5(answer)
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("asp")=rshost("asp")
rs("regdate")=""&Date()&""
rs("regip")=regip
rs("money")=0
rs("point")=0
rs("ktdate")=""&Date()&""
rs("logindate")=""&Now()&""
rs("logins")=0
rs("loginip")="None"
rs("siteimg")="http://"
rs("star")="images/tj2.gif"
rs("votenum")=0
rs("isgood")=False
if rshost("usedays")<>0 then rs("stopdate")=Date+rshost("usedays")
rs("state")=rshost("active")
rs("isgood")=False
'判断是否开通二级域名
if rshost("domain")=True then
rs("url")=replace(rshost("userurl"),"http://","")&"/"&username
rs("ad")=request.form("ad")
rs("hidden")=1
rs("seldomain")=request.form("domainname")
end if
rs.update
'判断是否直接开通FTP
if rshost("ftp")=True then
set rsftp=Server.CreateObject("ADODB.Recordset")
sqlftp="select * from ftpuser"
rsftp.open sqlftp,conn,1,3
rsftp.addnew
rsftp("username")=username
rsftp("password")=password
rsftp("email")=email
rsftp("ftpsize")=rshost("space")
rsftp("regdate")=""&Now()&""
rsftp("ifkt")=False
rsftp("ktdate")="None"
rsftp("lock")=False
rsftp.update
suser=username
spass=password
sDiskQuota=rshost("space")*1048576
suserdir=userdir
call AddNew(suser,spass,sDiskQuota,suserdir)
end if
'创建用户目录并生成默认首页
fso.createfolder(userdir&username)
if rshost("active")=1 then
set afile=fso.getfile(server.MapPath(".")+"\copypage"&"\index1.htm")
afile.copy(userdir&username&"\index.htm")
set bfile=fso.getfile(server.MapPath(".")+"\copypage"&"\505.jpg")
bfile.copy(userdir&username&"\505.jpg")
else
set afile=fso.getfile(server.MapPath(".")+"\copypage"&"\index2.htm")
afile.copy(userdir&username&"\index.htm")
set bfile=fso.getfile(server.MapPath(".")+"\copypage"&"\404.jpg")
bfile.copy(userdir&username&"\404.jpg")
end if
'判断并发送邮件
if mailtype<>0 then
dim topic,mailbody,useremail
topic = "尊敬的用户："&truename&"，您在"&site&"的注册信息！"
useremail = ""&email&""
mailbody="<font style='font-size:12px'>"&truename&"，您好！<br>恭喜您成为"&site&"的用户，"
MailBody = MailBody & "并欢迎您使用我们的个人主页空间服务，以下是您的帐号信息：<br><br>"
MailBody = MailBody & " 用户名："&username&"<br> 密 码："&password&"<br>"
MailBody = MailBody & " 密码提示问题："&question&"<br> 问题答案为："&answer&"<br><br>"
MailBody = MailBody & "＊您可以立即登陆我们的网站检验用户名及密码，"
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()&"</font>"
select case mailtype
case 1
call jmail(useremail,topic,mailbody)
case 2
call Cdonts(useremail,topic,mailbody)
case 3
call aspemail(useremail,topic,mailbody)
case Else
end select
end if
'输出注册结果
%>
<TABLE width="770" border=0 align="center" cellpadding=0 cellSpacing=0 bgcolor="#FFFFFF">
<TBODY>
<TR>
<TD width=190 align="center" vAlign=top>
<img src='images/reg_left_3.gif' name=reg_left width="160" height="200" border=0></TD>
<TD valign="top" >
<table align="center" background="images/line01.gif" border="0" cellpadding="0" cellspacing="0" height="24" width="100%">
<tr>
<td height="21" width="63%"> <img height="12" src="images/arrow.gif" width="12"> 当前位置：<a href="index.asp" title="首页"><%=site%></a> -> 用户注册</td>
<td height="21" width="37%"> </td>
</tr>
</table>
<br>
<table align="center" border="0" bordercolor="#000000" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td background="images/bar_bg.gif" width="18%"><img src="images/bar_left.gif" width="29" height="24" border="0"></td>
<td background="images/bar_bg.gif" width="79%"><font color="#993300">第四步：注册成功</font></td>
<td width="4%"><img src="images/bar_right.gif" width="20" height="25" border="0"></td>
</tr>
</table>
<TABLE width=99% border=0 align="center" cellPadding=3 cellSpacing=1 bgcolor="#cccccc">
<TBODY>
<TR align="center">
<TD height="25" bgcolor="ffffff" style="font-size:12px">
注册已成功，以下是您的注册信息：</TD>
</TR>
<TR>
<TD height=66 bgcolor="#FFFFFF" style="font-size:12px">
<li></li>
用户名：<%=username%><br>
<li></li>
密 码：<%=password%><br> <li></li>
主页地址：<a href="<%=rshost("userurl")%>/<%=username%>" target="_blank"><%=rshost("userurl")%>/<%=username%></a>
<%
if rshost("domain")=True and rs("seldomain")<>"" then%><br><li></li>二级域名：<a href="http://<%=username%>.<%=request.form("domainname")%>" target="_blank">http://<%=username%>.<%=request.form("domainname")%></a><%end if%>
</TD>
</TR>
<TR>
<TD height="53" align="center" bgcolor="#FFFFFF">
<font color=ff6600><b><%
if rshost("active")=1 then
response.write "您的帐号已经开通，您可以立即[<a href=login.asp>按此登录</a>]并开始上传您的网站！"
else
response.write "您的注册信息需要经过我们的审核，感谢对"&site&"的支持！"
end if
rshost.close
set rshost=nothing
rs.close
set rs=nothing
%></b></font><br>
<input type="button" class="button" onClick=location.href='index.asp' value="确 定"> </TD>
</TR>
</TBODY>
</TABLE> </TD>
</TR>
</TBODY>
</TABLE>
<!--#include file="copyright.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -