regapi.asp

功能最强大的ASP网站

<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/func.asp"-->
<%
username=request("username")			'代理商帐号
domainname=LCase(request("domainname"))	'域名
applytype=request("applytype")			'产品类别
dns1=request("dns1")					'DNS域名1(域名类产品必须)
dns2=request("dns2")					'DNS域名2(域名类产品必须)
applytime1=request("applytime")			'申请时间
applytime2="A"

'联系信息
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")					'申请人传真

set rsu = conn.execute ("select * from [user] where username='" & username & "' ")
if rsu.eof then
	response.write "-1	代理商[" & username & "]不存在"
	response.end
end if
userpass = rsu("userpass")
web = rsu("web")
menu=rsu("menu")
rsu.close
set rsu = nothing

'验证密码
chksum = md5(username & domainname & applytype & applytime1 & userpass)
if chksum <> request("chksum") then
	response.write "-1	认证错" 
	response.end
end if

on error resume next
ID = CreateUID(applytype,"域名注册")
price = applytime1*GetProductPrice(username,applytype,applytime2)
ret = IsHandle(UserName, Price)
if ret <> "" then
	response.write "-1" & "	代理商资金不足"
	response.end
end if


applyName = get_name(applytype)

set rst = conn.execute ("select * from product where ID='" & applytype & "' and class='P1000' ")
if rst.eof then
	IsDomain = "N"
else
	IsDomain="Y"
end if


if IsDomain = "Y" then
'需要增加字段校验信息
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")="1"
'rs("manageuser")=manageuser
'rs("managepass")=managepass
rs("dns1")=dns1
'rs("dns1IP")=""dns1IP
rs("dns2")=dns2
'rs("dns2IP")=dns2IP
rs("manager")=chregister
rs("industry")="S8"
rs("domainurl")=domainurl
rs("domaintime")=domaintime

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")=chregister
rs("renregister")=enregister
rs("rchorganize")=chorganize
rs("renorganize")=enorganize
rs("rchcountry")=chcountry
rs("rencountry")=encountry
rs("rchprovince")=chprovince
rs("renprovince")=enprovince
rs("rchcity")=chcity
rs("rencity")=encity
rs("rchaddress")=chaddress
rs("renaddress")=enaddress
rs("rpostcode")=postcode
rs("rtelephoneno")=telephoneno
rs("remail")=email
rs("rfaxno")=faxno

rs("tchregister")=chregister
rs("tenregister")=enregister
rs("tchorganize")=chorganize
rs("tenorganize")=enorganize
rs("tchcountry")=chcountry
rs("tencountry")=encountry
rs("tchprovince")=chprovince
rs("tenprovince")=enprovince
rs("tchcity")=chcity
rs("tencity")=encity
rs("tchaddress")=chaddress
rs("tenaddress")=enaddress
rs("tpostcode")=postcode
rs("ttelephoneno")=telephoneno
rs("temail")=email
rs("tfaxno")=faxno

rs("mchregister")=chregister
rs("menregister")=enregister
rs("mchorganize")=chorganize
rs("menorganize")=enorganize
rs("mchcountry")=chcountry
rs("mencountry")=encountry
rs("mchprovince")=chprovince
rs("menprovince")=enprovince
rs("mchcity")=chcity
rs("mencity")=encity
rs("mchaddress")=chaddress
rs("menaddress")=enaddress
rs("mpostcode")=postcode
rs("mtelephoneno")=telephoneno
rs("memail")=email
rs("mfaxno")=faxno
rs("class")= applyName

rs("regtime")=date()
rs.update
rs.close
set rs=nothing
end if

'提交订单信息
set rs=server.createobject("adodb.recordset")
sql="select * from Userorder"
rs.open sql,conn,1,3
rs.addnew
rs("ID") = ID

rs("username")=username
rs("applytype")=applytype
rs("applytime")=applytime1
rs("domainName")=domainname
'rs("manageuser")=manageuser
'rs("managepass")=managepass

rs("IsDomain")=IsDomain
rs("chname")=chregister
'rs("chname")=chname
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
rs("price") = price/applytime1
rs("priceA") = price

rs.update
rs.close
set rs=nothing


'如果会员帐上金额足够,则自动受理,并开通
ret = HandleOnLine(ID)

if  ret <> "" then
	conn.execute ("delete from userorder where ID='"& ID & "' ")
	conn.execute ("delete from domain where ID='" & ID & "' ")
 	response.write "-1	" & ret & err.description
else
	response.write "0	Success"& err.description
end if
%>