📄 prodsubmit.asp
字号:
<% ModuleCode="M0910" %>
<!--#include file="../../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../domain_reg_class.asp"-->
<!--#include file="../../../Include/SendMail.asp"-->
<!--#include file="../../../Include/WEBCtrl.asp"-->
<br><br><br><br><p align="center" class="titletext">
<%
UserID=session("UserID")
IP=Request.ServerVariables("REMOTE_ADDR")
strDSM=Session("P_DSM")
strSQL="Exec SP_BuyCombine 'checkmoney','',''," & UserID & ",'" & session("P_ID") & "','" & IP & "'"
Set Rs= Cn.Execute(strSQL)
If Rs("result")="0" Then
Response.Write Rs("msg")
Rs.Close
Cn.Close
Call PrintPageBottom
Response.End
end if
ProdCode=Rs("ProdCode")
ProdName=Rs("ProdName")
HowLong=Rs("HowLong")
strBeginDate=Rs("BeginDate")
strEndDate=Rs("EndDate")
UOID=Rs("UOID")
UserName=Rs("UserName")
Email=Rs("Email")
Rs.Close
'Response.Write UOID & " " & ProdCode & " " & HowLong & " " & strBeginDate & " " & strEndDate
'Response.End
strSQL="Select * from T_DNS_CurBuy where PID='" & session("P_ID") & "'"
Rs.Open strSQL,Cn
DomainName=Rs("DomainName")
HostName=Rs("SiteAccount")
DomainHead=Rs("SiteDomainHead")
Domain=Rs("SiteDomain")
FtpAccount=Rs("SiteAccount")
FtpPassword=Rs("SitePasswd")
MailDomain=Rs("MailDomain")
MailPassword=Rs("MailPasswd")
DNS1Name=Rs("DNS1Name")
DNS2Name=Rs("DNS2Name")
'********初始化类的属性参数值*******'
dim reg
set reg = new reg_domain
'注册年限
reg.period=CInt(rs("ProdYear"))*CInt(rs("BuyYear"))
reg.pwd1=rs("DNPSW")
reg.pwd2=rs("DNPSW")
reg.dns1=rs("DNS1Name")
reg.dns2=rs("DNS2Name")
reg.customer_id=session("UserID")
reg.customer_password=session("UserPSW")
reg.domaintype=rs("DNType")
select case rs("DNType")
case "0"
reg.appPurpose="p1"
reg.nexuscategory="c12"
reg.order_type=0
reg.term_id=1000
reg.item_id=0
case "220"
reg.order_type=0
reg.term_id=100
reg.item_id=0
reg.mode_id=7001
case "800"
reg.mode_id=4001
reg.appPurpose="p1"
reg.nexuscategory="c12"
reg.order_type=0
reg.term_id=100
reg.item_id=0
case "805"
reg.mode_id=5001
reg.order_type=0
reg.term_id=100
reg.item_id=0
reg.appPurpose="p1"
reg.nexuscategory="c12"
case "806"
reg.appPurpose=rs("Apppurpose")
reg.nexuscategory=rs("NexusCategory")
reg.mode_id=6001
reg.order_type=0
reg.term_id=100
reg.item_id=0
end select
reg.domain=rs("DomainName")
reg.domain_tail=rs("DomainTail")
reg.reg_name=rs("RegName")
reg.reg_name_cn=rs("RegNameM")
reg.reg_org=rs("RegOrg")
reg.reg_org_cn=rs("RegOrgM")
reg.reg_cc=rs("RegCC")
reg.reg_sp=rs("RegSP")
reg.reg_city=rs("RegCity")
reg.reg_street1=rs("RegStreet")
reg.reg_street2=rs("RegStreetM")
reg.reg_street3=""
reg.reg_pc=rs("RegPC")
reg.reg_voice=rs("RegTel")
reg.reg_fax=rs("RegFax")
reg.reg_email=rs("RegEMail")
reg.admin_name=rs("AdminName")
reg.admin_name_cn=rs("AdminNameM")
reg.admin_org=rs("AdminOrg")
reg.admin_org_cn=rs("AdminOrgM")
reg.admin_cc=rs("AdminCC")
reg.admin_sp=rs("AdminSP")
reg.admin_city=rs("AdminCity")
reg.admin_street1=rs("AdminStreet")
reg.admin_street2=rs("AdminStreetM")
reg.admin_street3=""
reg.admin_pc=rs("AdminPC")
reg.admin_voice=rs("AdminTel")
reg.admin_fax=rs("AdminFax")
reg.admin_email=rs("AdminEMail")
reg.tech_name=rs("TelName")
reg.tech_name_cn=rs("TelNameM")
reg.tech_org=rs("TelOrg")
reg.tech_org_cn=rs("TelOrgM")
reg.tech_cc=rs("TelCC")
reg.tech_sp=rs("TelSP")
reg.tech_city=rs("TelCity")
reg.tech_street1=rs("TelStreet")
reg.tech_street2=rs("TelStreetM")
reg.tech_street3=""
reg.tech_pc=rs("TelPC")
reg.tech_voice=rs("TelTel")
reg.tech_fax=rs("TelFax")
reg.tech_email=rs("TelEMail")
reg.billing_name=rs("MoneyName")
reg.billing_name_cn=rs("MoneyNameM")
reg.billing_org=rs("MoneyOrg")
reg.billing_org_cn=rs("MoneyOrgM")
reg.billing_cc=rs("MoneyCC")
reg.billing_sp=rs("MoneySP")
reg.billing_city=rs("MoneyCity")
reg.billing_street1=rs("MoneyStreet")
reg.billing_street2=rs("MoneyStreetM")
reg.billing_street3=""
reg.billing_pc=rs("MoneyPC")
reg.billing_voice=rs("MoneyTel")
reg.billing_fax=rs("MoneyFax")
reg.billing_email=rs("MoneyEMail")
Rs.Close
Set Rs=Nothing
ProdInfo=""
'========================================如果包含域名=======================================
if InStr(strDSM,"D")>0 then
ProdInfo=ProdInfo & "域名:"®.domain
call reg.initsocket()
if not reg.err_code=0 then
response.write "操作失败，错误代码："®.err_code
response.write "<br>错误信息："&err_msg(reg.err_code)
'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_CombineDNReg '1',"&session("UserID")&",'"&UOID&"','"&ProdCode&"','"®.Domain&"'," & reg.period & ",1,'"& reg.dns1&"','"& reg.dns1&"','"& reg.dns2 &"','"& reg.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")& "'"
'response.write strSQL
set Rs=Cn.Execute(strSQL)
if rs("result")="1" then '如果成功
' 是本地的DNS
DNID=rs("DNID")
if (lcase(reg.dns1)=lcase(Sys_Opt_DNS1_Name) and lcase(reg.dns2)=lcase(Sys_Opt_DNS2_Name)) or (lcase(reg.dns1)=lcase(Sys_Opt_DNS2_Name) and lcase(reg.dns2)=lcase(Sys_Opt_DNS1_Name)) then
ServerIP=Sys_Opt_DNS1_IP
Zone=reg.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>"
reg.err_code=1
end if
'else
'response.write "<font color=red> " & rs("msg") & "</font><br>"
end if
else
response.write "<font color=red> " & rs("msg") & "</font><br>"
reg.err_code=1
end if
rs.close
set rs=nothing
end if
end if
end if
end if
end if
if not reg.err_code=0 then
Call PrintPageBottom
response.end
end if
end if
'========================================如果包含主机=======================================
if InStr(strDSM,"S")>0 then
ProdInfo=ProdInfo & "主机:" & HostName & " "
strSQL="exec SP_CreateVHost " & +_
"'" & UserID & "'," & +_
"'" & "查询" & "'," & +_
"'" & IP & "'," & +_
"'" & ProdCode & "'"
Set Rs= Cn.Execute(strSQL)
%>
<p align="center" class="titletext">
<%
if Rs("result")<>0 then
Rs.Close
Response.Write Rs("msg")
Call PrintPageBottom
Response.End
end if
ServerCode=Rs("ServerCode")
ServerIP=Rs("ServerIP")
SiteSize=Rs("SiteSize")
ServerType=Rs("ProdMap")
ServerDomain=Rs("ServerDomain")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -