📄 domain_reg_newer_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
domain=request("domain")
reg.domain_tail=request("domain_tail")
select case reg.domain_tail
case ".biz" reg.mode_id=4001
case ".info" reg.mode_id=5001
end select
'********初始化类的属性参数值*******'
reg.period=request("PY")
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.order_type=0
'reg.mode_id=0
reg.term_id=100
reg.item_id=0
'以下只是为了测试方便，要与表结合使用
reg.appPurpose="p1"
reg.nexuscategory="c12"
'------------------------
'reg.clID=real_username
'reg.pwd=real_userpwd
'------------------------
reg.domain=request("domain")
if right(reg.domain,3)="biz" then
reg.domaintype=800
else
if right(reg.domain,4)="info" then
reg.domaintype=805
end if
end if
reg.reg_name=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.initdb()
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>"
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)
response.write "<br>"
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)
response.write "<br>"
exit function
else
call reg.create_contactor()
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)
response.write "<br>"
exit function
else
'增加域名记录,扣款处理
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>"
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_name_cn&"</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_org_cn&"</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_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_name_cn&"</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_org_cn&"</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_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_name_cn&"</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_org_cn&"</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_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_name_cn&"</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_org_cn&"</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_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 + -