oneplusone3.asp

功能最强大的ASP网站

<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/func.asp"-->
<%FunCode="F205"%>
<!--#include file="../inc/Check_Fun.asp"-->

<%
applytype = request("applytype")
applytime1=request("applytime1")
applytime2=request("applytime2")
applytime = applytime1 * GetProductTime(applytype,applytime2)
domaintime = applytime

username=session("username")
domainname=LCase(request("domainname"))
domaintype=request("domaintype")
use=request("use")

dns1=request("dns1")
dns1IP=request("dns1IP")
dns2=request("dns2")
dns2IP=request("dns2IP")
manager=request("manager")
industry=request("industry")

chregister=request("chregister")
enregister=request("enregister")
chorganize=request("chorganize")
enorganize=request("enorganize")
chcountry=request("chcountry")
encountry=request("encountry")
chprovince=request("chprovince")
enprovince=request("enprovince")
chcity=request("chcity")
encity=request("encity")
chaddress=request("chaddress")
enaddress=request("enaddress")
postcode=request("postcode")
telephoneno=request("telephoneno")
email=request("email")
faxno=request("faxno")

rchregister=request("rchregister")
renregister=request("renregister")
rchorganize=request("rchorganize")
renorganize=request("renorganize")
rchcountry=request("rchcountry")
rencountry=request("rencountry")
rchprovince=request("rchprovince")
renprovince=request("renprovince")
rchcity=request("rchcity")
rencity=request("rencity")
rchaddress=request("rchaddress")
renaddress=request("renaddress")
rpostcode=request("rpostcode")
rtelephoneno=request("rtelephoneno")
remail=request("remail")
rfaxno=request("rfaxno")

tchregister=request("tchregister")
tenregister=request("tenregister")
tchorganize=request("tchorganize")
tenorganize=request("tenorganize")
tchcountry=request("tchcountry")
tencountry=request("tencountry")
tchprovince=request("tchprovince")
tenprovince=request("tenprovince")
tchcity=request("tchcity")
tencity=request("tencity")
tchaddress=request("tchaddress")
tenaddress=request("tenaddress")
tpostcode=request("tpostcode")
ttelephoneno=request("ttelephoneno")
temail=request("temail")
tfaxno=request("tfaxno")

mchregister=request("mchregister")
menregister=request("menregister")
mchorganize=request("mchorganize")
menorganize=request("menorganize")
mchcountry=request("mchcountry")
mencountry=request("mencountry")
mchprovince=request("mchprovince")
menprovince=request("menprovince")
mchcity=request("mchcity")
mencity=request("mencity")
mchaddress=request("mchaddress")
menaddress=request("menaddress")
mpostcode=request("mpostcode")
mtelephoneno=request("mtelephoneno")
memail=request("memail")
mfaxno=request("mfaxno")



ostype=request("ostype")
chname=request("chname")
hchaddress=request("hchaddress")
hpostcode=request("hpostcode")
htelephoneno=request("htelephoneno")
hemail=request("hemail")
hfaxno=request("hfaxno")

DomainID = CreateUID(applytype,"域名注册")
call IsOrderLimit(applytime1, applytype,applytime2)

'需要增加字段校验信息
set rs=server.createobject("adodb.recordset")
sql="select * from domain"
rs.open sql,conn,1,3
rs.addnew

rs("ID")=DomainID
rs("username")=username
rs("domainname")=domainname
rs("domaintype")=domaintype
'rs("domaintype")=1
rs("use")=use
'rs("dns1")=dns1
'rs("dns2")=dns2

rs("dns1")=dns1
rs("dns1IP")=dns1IP
rs("dns2")=dns2
rs("dns2IP")=dns2IP
rs("manager")=manager
rs("industry")=industry

rs("domaintime")=domaintime

rs("chregister")=chregister
rs("enregister")=enregister
rs("chorganize")=chorganize
rs("enorganize")=enorganize
rs("chcountry")=chcountry
rs("encountry")=encountry
rs("chprovince")=chprovince
rs("enprovince")=enprovince
rs("chcity")=chcity
rs("encity")=encity
rs("chaddress")=chaddress
rs("enaddress")=enaddress
rs("postcode")=postcode
rs("telephoneno")=telephoneno
rs("email")=email
rs("faxno")=faxno

rs("rchregister")=rchregister
rs("renregister")=renregister
rs("rchorganize")=rchorganize
rs("renorganize")=renorganize
rs("rchcountry")=rchcountry
rs("rencountry")=rencountry
rs("rchprovince")=rchprovince
rs("renprovince")=renprovince
rs("rchcity")=rchcity
rs("rencity")=rencity
rs("rchaddress")=rchaddress
rs("renaddress")=renaddress
rs("rpostcode")=rpostcode
rs("rtelephoneno")=rtelephoneno
rs("remail")=remail
rs("rfaxno")=rfaxno

rs("tchregister")=tchregister
rs("tenregister")=tenregister
rs("tchorganize")=tchorganize
rs("tenorganize")=tenorganize
rs("tchcountry")=tchcountry
rs("tencountry")=tencountry
rs("tchprovince")=tchprovince
rs("tenprovince")=tenprovince
rs("tchcity")=tchcity
rs("tencity")=tencity
rs("tchaddress")=tchaddress
rs("tenaddress")=tenaddress
rs("tpostcode")=tpostcode
rs("ttelephoneno")=ttelephoneno
rs("temail")=temail
rs("tfaxno")=tfaxno

rs("mchregister")=mchregister
rs("menregister")=menregister
rs("mchorganize")=mchorganize
rs("menorganize")=menorganize
rs("mchcountry")=mchcountry
rs("mencountry")=mencountry
rs("mchprovince")=mchprovince
rs("menprovince")=menprovince
rs("mchcity")=mchcity
rs("mencity")=mencity
rs("mchaddress")=mchaddress
rs("menaddress")=menaddress
rs("mpostcode")=mpostcode
rs("mtelephoneno")=mtelephoneno
rs("memail")=memail
rs("mfaxno")=mfaxno

rs("status")="正在确认"
rs("handle")="未受理"
rs("price")=0
rs("priceM")=0
rs("class")="域名注册(赠送)"
rs("regtime")=date()
rs.update
rs.close
set rs=nothing

'提交域名订单信息
set rs=server.createobject("adodb.recordset")
sql="select * from Userorder"
rs.open sql,conn,1,3
rs.addnew
rs("ID") = DomainID
rs("username")=session("username")
rs("applytype")=domaintype
rs("applytime")=domaintime
rs("domainName")=domainname
rs("manageuser")=manageuser
rs("managepass")=managepass
rs("IsDomain")="Y"
rs("chname")=chregister
rs("chaddress")=chaddress
rs("postcode")=postcode
rs("telephoneno")=telephoneno
rs("email")=email
rs("faxno")=faxno
rs("regtime")=date()
rs("status")="正在确认"
rs("handle")="未受理"
applyName = get_name(domaintype)
rs("applyname")=applyName
'on error resume next
priceA = applytime1*GetProductPrice(session("username"),domaintype,applytime2)
rs("price") = 0
rs("priceA") = 0

'rs("price") = priceA/applytime1
'rs("priceA") = priceA

'rs("price") = price/applytime1
'rs("priceA") = price
rs.update
rs.close
set rs=nothing

'提交主机订单信息
ID = CreateUID(applytype,"主机申请")
set rs=server.createobject("adodb.recordset")
sql="select * from Userorder"
rs.open sql,conn,1,3
rs.addnew
rs("ID") = ID
rs("username")=session("username")
rs("applytype")=applytype
rs("applytime")=applytime
rs("domainName")=domainname
rs("manageuser")=manageuser
rs("managepass")=managepass
rs("IsDomain")="N"
rs("chname")=hchname
rs("chaddress")=hchaddress
rs("postcode")=hpostcode
rs("telephoneno")=htelephoneno

rs("email")=hemail
rs("faxno")=hfaxno
rs("regtime")=date()
rs("status")="正在确认"
rs("handle")="未受理"
applyName = get_name(applytype)
rs("applyname")=applyName
'on error resume next
price = applytime1*GetProductPrice(session("username"),applytype,applytime2)
priceA = applytime1*GetProductPrice(session("manageuser"),applytype,applytime2) 
rs("price") = price
rs("priceA") = priceA

'priceA = applytime1*GetProductPrice(session("username"),applytype,applytime2)
'rs("price") = priceA/applytime1
'rs("priceA") = priceA
rs.update
rs.close
set rs=nothing


'如果会员帐上金额足够,则自动受理,并开通
'ret = SendRegMail (domainname,applyName,price,email)
'session("mesg")=applyName&"申请提交成功,请等待专员确认,确认信已发到["&email&"]"
'call WriteLog(domainname,"成功","业务申请",applyName & "业务申请成功，未配置实时开通")
'Response.Redirect "../result.asp"

'如果会员帐上金额足够,则自动受理,并开通
ret = HandleOnLine(ID)	'先开通主机产品
if ret ="" then ret = HandleOnLine(DomainID)	'如果主机产品开通成功,则实时注册域名

if  ret<> "" then
	ret = SendSysMail("SysMail-Apply",session("username"),ID,email)
 	'ret = SendRegMail (domainname,applyName,price,email)
	session("mesg")="业务申请提交成功,请等待专员确认,确认信已发到["&email&"]"
	call WriteLog(domainname,"成功","业务申请",applyName & "业务申请成功，实时开通失败:" & ret)
else
	session("mesg")=applyName&"实时开通成功"
	call WriteLog(domainname,"成功","业务申请",session("mesg"))
end if

Response.Redirect "../result.asp"
%>