?? 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 + -