domainreg4.asp

功能最强大的ASP网站

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

<%
username=session("username")
domainname=LCase(request("domainname"))
domaintype=request("domaintype")
use=request("use")
'manageuser=request("manageuser")
'managepass=request("managepass")
dns1=request("dns1")
dns1IP=request("dns1IP")
dns2=request("dns2")
dns2IP=request("dns2IP")
manager=request("manager")
industry=request("industry")
domainurl = request("domainurl")

applytime1=request("applytime1")
applytime2=request("applytime2")
domaintime = applytime1 * GetProductTime(domaintype,applytime2)

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")


ID = CreateUID(domaintype,"域名注册")
ret =  IsOrderLimit(applytime1, domaintype,applytime2)
if ret <> "" then
	session("mesg")="错误：" &ret
	Response.Redirect "../result.asp"
	response.end
end if

'需要增加字段校验信息
set rs=server.createobject("adodb.recordset")
sql="select * from domain where (domainname='" & domainname & "')  and (username='" & session("username") & "') and (handle='未受理' or handle='受理成功' ) "
rs.open sql,conn,1,3

if not rs.eof then
rs.close
	session("mesg")="对不起,你已提交该订单,不能重复提交,请等待专员确认"
	Response.Redirect "../result.asp"
	response.end
end if
rs.addnew
rs("ID") = ID
rs("username")=username
rs("domainname")=domainname
rs("domaintype")=domaintype
rs("use")=use
'rs("manageuser")=manageuser
'rs("managepass")=managepass
rs("dns1")=dns1
rs("dns1IP")=dns1IP
rs("dns2")=dns2
rs("dns2IP")=dns2IP
rs("manager")=manager
rs("industry")=industry
rs("domainurl")=domainurl

rs("domaintime")=domaintime


'on error resume next
price = applytime1*GetProductPrice(username,domaintype,applytime2)
rs("price")=price
rs("status")="正在确认"
rs("handle")="未受理"

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
applyName = get_name(domaintype)
rs("class")= applyName



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") = ID
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")="未受理"
rs("applyname")=applyName
'on error resume next
price = applytime1*GetProductPrice(session("username"),domaintype,applytime2)
priceA = applytime1*GetProductPrice(session("manageuser"),domaintype,applytime2)
rs("price") = price
rs("priceA") = priceA

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




'如果会员帐上金额足够,则自动受理,并开通
ret = HandleOnLine(ID)
if  ret<> "" then
	ret = SendSysMail("SysMail-Apply",session("username"),ID,email)
 	'ret = SendRegMail (domainname,applyName,price,email)
	session("mesg")=applyName & "提交成功,请等待专员确认,确认信已发到["&email&"]"
	call WriteLog(domainname,"成功","业务申请",applyName & "业务申请成功，实时开通失败:" & ret)
else
	session("mesg")=applyName & "实时注册成功"
	call WriteLog(domainname,"成功","业务申请",session("mesg"))
end if

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