📄 domain_reg_cn_pro.asp
字号:
<% ModuleCode="M0910" %>
<!--#include file="../../Include/Reference.asp"-->
<!--#include file="../../Include/WEBCtrl.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="domain_reg_class.asp"-->
<%
function tempreg()
'********定义类*******'
dim reg
set reg = new reg_domain
reg.domain=request("domain")
reg.domain_tail=request("domain_tail")
select case reg.domain_tail
case ".us" reg.mode_id=6001
case ".cn" reg.mode_id=7001
end select
'********初始化类的属性参数值*******'
'该产品的年数
PY1=1
'几个年
PN1=1
reg.period=1
reg.pwd1=request("pwd1")
reg.pwd2=request("pwd2")
reg.dns1=request("dns1")
reg.dns2=request("dns2")
reg.customer_id=session("UserID")
reg.customer_password=session("UserPSW")
reg.clID=session("UserID")
reg.order_type=0
reg.term_id=100
reg.item_id=0
'以下只是为了测试方便，要与表结合使用
reg.industry=request("industry")
reg.manager=request("manager")
'-------------------------------
'reg.clID=real_username
'reg.pwd=real_userpwd
'-------------------------------
reg.domaintype=220
reg.domain=request("domain")
reg.reg_name=request("reg_name")
reg.reg_name_m=request("reg_name")
reg.reg_org=request("reg_org")
reg.reg_cc=request("reg_country")
reg.reg_sp=request("reg_state")
reg.reg_city=request("reg_city")
reg.reg_street1=request("reg_street1")
reg.reg_street2=request("reg_street2")
reg.reg_street3=""
reg.reg_pc=request("reg_pc")
reg.reg_voice=request("reg_tel")
reg.reg_fax=request("reg_fax")
reg.reg_email=request("reg_email")
reg.admin_name=request("admin_name")
reg.admin_org=request("admin_org")
reg.admin_cc=request("admin_country")
reg.admin_sp=request("admin_state")
reg.admin_city=request("admin_city")
reg.admin_street1=request("admin_street1")
reg.admin_street2=request("admin_street2")
reg.admin_street3=""
reg.admin_pc=request("admin_pc")
reg.admin_voice=request("admin_tel")
reg.admin_fax=request("admin_fax")
reg.admin_email=request("admin_email")
reg.tech_name=request("tel_name")
reg.tech_org=request("tel_org")
reg.tech_cc=request("tel_country")
reg.tech_sp=request("tel_state")
reg.tech_city=request("tel_city")
reg.tech_street1=request("tel_street1")
reg.tech_street2=request("tel_street2")
reg.tech_street3=""
reg.tech_pc=request("tel_pc")
reg.tech_voice=request("tel_tel")
reg.tech_fax=request("tel_fax")
reg.tech_email=request("tel_email")
reg.billing_name=request("money_name")
reg.billing_org=request("money_org")
reg.billing_cc=request("money_country")
reg.billing_sp=request("money_state")
reg.billing_city=request("money_city")
reg.billing_street1=request("money_street1")
reg.billing_street2=request("money_street2")
reg.billing_street3=""
reg.billing_pc=request("money_pc")
reg.billing_voice=request("money_tel")
reg.billing_fax=request("money_fax")
reg.billing_email=request("money_email")
%>
<%
call reg.initsocket()
if not reg.err_code=0 then
response.write "操作失败，错误代码："®.err_code
response.write "<br>错误信息："&err_msg(reg.err_code)
response.write "<br><a href='domain_reg_cn.asp?domain="&domain&"&domain_tail="®.domain_tail&"'>上一页</a>"
exit function
else
call reg.domaincheck()
if not reg.err_code=0 then
response.write "操作失败，错误代码："®.err_code
response.write "<br>错误信息："&err_msg(reg.err_code)
exit function
else
'检测数据是否合法
call reg.datacheck()
if not reg.err_code=0 then
response.write "操作失败，错误代码："®.err_code
response.write "<br>错误信息："&err_msg(reg.err_code)
exit function
else
'增加联系人
call reg.create_contactor_cn()
if not reg.err_code=0 then
response.write "操作失败，错误代码："®.err_code
response.write "<br>错误信息："&err_msg(reg.err_code)
response.write "<br>"
exit function
else
'建立域名
call reg.create_domain()
if not reg.err_code=0 then
response.write "操作失败，错误代码："®.err_code
response.write "<br>错误信息："&err_msg(reg.err_code)
exit function
else
'增加域名记录,扣款处理
strSQL="SP_DNReg '1',"&session("UserID")&",'"&request("ID")&"','"&request("Domain")&"'," & PN1 & "," & PY1 &",'"& request("dns1IP")&"','"& request("dns1")&"','"& request("dns2IP")&"','"& request("dns2")&"','" & reg.domaintype & "','" & reg.pwd1 & "','" & reg.apppurpose & "','" & reg.nexuscategory & "','" & reg.industry & "','" & reg.manager &"'"
'strSQL="SP_DNReg '1',"&session("UserID")&",'"&request("ID")&"','"&request("Domain")&"'," & reg.period & ",1,'"& request("dns1IP")&"','"& request("dns1")&"','"& request("dns2IP")&"','"& request("dns2")&"','" & reg.domaintype & "','" & reg.pwd1 & "','" & reg.apppurpose & "','" & reg.nexuscategory & "'"
strSQL=strSQL & ",'" & reg.reg_name & "','" & reg.reg_name_cn & "','" & reg.reg_org & "','" & reg.reg_org_cn & "','" & reg.reg_cc & "','" & reg.reg_cc & "','" & reg.reg_sp & "','" & reg.reg_city & "','" & reg.reg_street1 & "','" & reg.reg_street2 & "','" & reg.reg_pc & "','" & reg.reg_voice & "','" & reg.reg_fax & "','" & reg.reg_email & "'"
strSQL=strSQL & ",'" & reg.admin_name & "','" & reg.admin_name_cn & "','" & reg.admin_org & "','" & reg.admin_org_cn & "','" & reg.admin_cc & "','" & reg.admin_sp & "','" & reg.admin_sp & "','" & reg.admin_city & "','" & reg.admin_street1 & "','" & reg.admin_street2 & "','" & reg.admin_pc & "','" & reg.admin_voice & "','" & reg.admin_fax & "','" & reg.admin_email & "'"
strSQL=strSQL & ",'" & reg.tech_name & "','" & reg.tech_name_cn & "','" & reg.tech_org & "','" & reg.tech_org_cn & "','" & reg.tech_cc & "','" & reg.tech_cc & "','" & reg.tech_sp & "','" & reg.tech_city & "','" & reg.tech_street1 & "','" & reg.tech_street2 & "','" & reg.tech_pc & "','" & reg.tech_voice & "','" & reg.tech_fax & "','" & reg.tech_email & "'"
strSQL=strSQL & ",'" & reg.billing_name & "','" & reg.billing_name_cn & "','" & reg.billing_org & "','" & reg.billing_org_cn & "','" & reg.billing_cc & "','" & reg.billing_cc & "','" & reg.billing_sp & "','" & reg.billing_city & "','" & reg.billing_street1 & "','" & reg.billing_street2 & "','" & reg.billing_pc & "','" & reg.billing_voice & "','" & reg.billing_fax & "','" & reg.admin_email & "'"
strSQL=strSQL & ",'" &Request.ServerVariables("REMOTE_ADDR")& "'"
set Rs=Cn.Execute(strSQL)
if rs("result")="1" then '如果成功
' 是本地的DNS
if (lcase(request("dns1"))=lcase(Sys_Opt_DNS1_Name) and lcase(request("dns2"))=lcase(Sys_Opt_DNS2_Name)) or (lcase(request("dns1"))=lcase(Sys_Opt_DNS2_Name) and lcase(request("dns2"))=lcase(Sys_Opt_DNS1_Name)) then
ServerIP=Sys_Opt_DNS1_IP
Zone=request("domain")
if AddPrimaryZone(ServerIP,Zone, Sys_Opt_DNS1_Name, Sys_Opt_DNS2_Name,RetStr)=0 then
response.write "<font color=red> " & rs("msg") & "</font><br>"
Subject="注册域名成功! --" & Opt_System_CompanyName
MailFile = "../../Include/MailTemplate/regdomain.txt"
if Send_Email(reg.reg_email,Subject,MailFile,"$注册人$",reg.reg_name_cn,"$域名$",reg.domain,"$密码$",reg.pwd1,"$年限$",reg.period,"$开通日期$",formatdatetime(now(),vbShortDate),"$到期日期$",formatdatetime(DateAdd("yyyy",Cint(reg.period),now()),vbShortDate),"$主DNS$",reg.dns1,"$附DNS$",reg.dns2,"","","","","","","","") then
Response.Write "<br><font color=red> 相关域名信息已经发入您的注册邮箱, 请查收您的邮箱</font><br><br>"
end if
else
response.write "<font color=red> 操作失败，错误代码 :B001</font><br>"
end if
else
response.write "<font color=red> " & rs("msg") & "</font><br>"
end if
else
response.write "<font color=red> " & rs("msg") & "</font><br>"
end if
rs.close
set rs=nothing
end if
end if
end if
end if
end if
response.write "<table align=center border=0 cellpadding=0 cellspacing=2 width='80%' class='uss'>"
response.write "<caption>"
response.write "<center>"®.domain&"</center><br>"
response.write "</caption>"
response.write "<tr><td color='#dbdbdb'>密码：</td><td color='#dbdbdb'>"®.pwd1&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>DNS1：</td><td color='#dbdbdb'>"®.dns1&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>DNS2：</td><td color='#dbdbdb'>"®.dns2&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>注册联系人信息：</td><td color='#dbdbdb'></td></tr>"
response.write "<tr><td color='#dbdbdb'>名字*：</td><td color='#dbdbdb'>"®.reg_name&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>组织*：</td><td color='#dbdbdb'>"®.reg_org&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>国家、地区*：</td><td color='#dbdbdb'>"®.reg_cc&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>所在省份*：</td><td color='#dbdbdb'>"®.reg_sp&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>所在城市*：</td><td color='#dbdbdb'>"®.reg_city&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>街道1*：</td><td color='#dbdbdb'>"®.reg_street1&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>街道2：</td><td color='#dbdbdb'>"®.reg_street2&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>邮政编码*：</td><td color='#dbdbdb'>"®.reg_pc&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>联系电话*：</td><td color='#dbdbdb'>"®.reg_voice&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>传真*：</td><td color='#dbdbdb'>"®.reg_fax&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>联系E-MAIL*：</td><td color='#dbdbdb'>"®.reg_email&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>管理联系人信息：</td><td color='#dbdbdb'></td></tr>"
response.write "<tr><td color='#dbdbdb'>名字*：</td><td color='#dbdbdb'>"®.admin_name&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>组织*：</td><td color='#dbdbdb'>"®.admin_org&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>国家、地区*：</td><td color='#dbdbdb'>"®.admin_cc&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>所在省份*：</td><td color='#dbdbdb'>"®.admin_sp&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>所在城市*：</td><td color='#dbdbdb'>"®.admin_city&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>街道1*：</td><td color='#dbdbdb'>"®.admin_street1&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>街道2：</td><td color='#dbdbdb'>"®.admin_street2&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>邮政编码*：</td><td color='#dbdbdb'>"®.admin_pc&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>联系电话*：</td><td color='#dbdbdb'>"®.admin_voice&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>传真*：</td><td color='#dbdbdb'>"®.admin_fax&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>联系E-MAIL*：</td><td color='#dbdbdb'>"®.admin_email&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>技术联系人信息：</td><td color='#dbdbdb'></td></tr>"
response.write "<tr><td color='#dbdbdb'>名字*：</td><td color='#dbdbdb'>"®.tech_name&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>组织*：</td><td color='#dbdbdb'>"®.tech_org&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>国家、地区*：</td><td color='#dbdbdb'>"®.tech_cc&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>所在省份*：</td><td color='#dbdbdb'>"®.tech_sp&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>所在城市*：</td><td color='#dbdbdb'>"®.tech_city&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>街道1*：</td><td color='#dbdbdb'>"®.tech_street1&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>街道2：</td><td color='#dbdbdb'>"®.tech_street2&"</td><tr>"
response.write "<tr><td color='#dbdbdb'>邮政编码*：</td><td color='#dbdbdb'>"®.tech_pc&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>联系电话*：</td><td color='#dbdbdb'>"®.tech_voice&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>传真*：</td><td color='#dbdbdb'>"®.tech_fax&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>联系E-MAIL*：</td><td color='#dbdbdb'>"®.tech_email&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>付款联系人信息：</td><td color='#dbdbdb'></td></tr>"
response.write "<tr><td color='#dbdbdb'>名字*：</td><td color='#dbdbdb'>"®.billing_name&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>组织*：</td><td color='#dbdbdb'>"®.billing_org&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>国家、地区*：</td><td color='#dbdbdb'>"®.billing_cc&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>所在省份*：</td><td color='#dbdbdb'>"®.billing_sp&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>所在城市*：</td><td color='#dbdbdb'>"®.billing_city&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>街道1*：</td><td color='#dbdbdb'>"®.billing_street1&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>街道2：</td><td color='#dbdbdb'>"®.billing_street2&"</td><tr>"
response.write "<tr><td color='#dbdbdb'>邮政编码*：</td><td color='#dbdbdb'>"®.billing_pc&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>联系电话*：</td><td color='#dbdbdb'>"®.billing_voice&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>传真*：</td><td color='#dbdbdb'>"®.billing_fax&"</td></tr>"
response.write "<tr><td color='#dbdbdb'>联系E-MAIL*：</td><td color='#dbdbdb'>"®.billing_email&"</td></tr>"
response.write "</table>"
end function
call tempreg()
%>
<%
Call PrintPageBottom
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -