index.asp

易方4.0程序+邮局接口+序列号+销售系统

<!-- #include file="../inc_config.asp" -->
<%
'-------------------------接收信息
FtpUser = Request("FtpUser") 
KUser = Request("KUser")                                                             '实时开通帐号
If Len(KUser)=0 Then Response.Write "KUSer Is Empty":Call Clear
Set UData = Conn.Query("EfangUser","User_User=" & KUser)                             '获取会员信息
if UData.BOF or UData.EOF then Response.Write "KUSer Not Exist":Call Clear         '检查会员帐号是否存在
KPass = UData("User_JPass")                                                          '接口密码
If Len(KPass) = 0 Then  Response.Write "KPass No Set":Call Clear
KSign = Request("KSign")                                                             '实时开通产品编号
Set PdtData = Conn.Query("EfangPdt","Pdt_Sign='" & KSign & "'")                      '获取商品信息
if PdtData.BOF or PdtData.EOF then Response.Write "KSign Not Exist":Call Clear     '检查商品是否存在
KNumy = Request("KNumy")                                                             '数量
If IsNumeric(KNumy)=False Then  Response.Write "KNumy Is Error":Call Clear
If KNumy < 1 Then  Response.Write "KNumy Is Error":Call Clear
KYPass = Request("KYPass")                                                           '业务管理密码
SendMW = Request("SendMW")                                                           '密文
'-------------------------安全认证
RvMW=Efang.Md5(KUser&KPass&KSign&KNumy&KYPass)
If UCase(RvMW)<>UCase(SendMW) Then Response.Write "SendMW Is Error":Call Clear
'-------------------------信息设置
YeWu_Name = PdtData("Pdt_Name")              '业务名称
YeWu_Numy = Clng(KNumy)                      '数量
If YeWu_Numy < PdtData("Pdt_LNum") Then YeWu_Numy = PdtData("Pdt_LNum")  '最少购买数量
YeWu_Pass = KYPass                           '密码
YeWu_Pri = GetPri(UData("User_Pri"),PdtData("Pdt_Sign"),PdtData("Pdt_" & UData("User_Level")))   '单价
YeWu_Sum = YeWu_Pri * YeWu_Numy              '总金额
YeWu_CBen = PdtData("Pdt_CBen") * YeWu_Numy  '成本金额
YeWu_Song = PdtData("Pdt_Song")              '赠送业务
YeWu_Sign = CreatYSign                       '业务编号
YeWu_Memo = Request("Memo")                  '备注
'检查空间相关参数
If PdtData("Pdt_Sort")="HT" Then
	YeWu_DHead = Request("DHead")                '域名头
	If Len(YeWu_DHead)=0 Then Response.Write "DHead Is Empty":Call Clear
	YeWu_DName = Request("DName")                '域名
	If Len(YeWu_DName)=0 Then Response.Write "DName Is Empty":Call Clear
ElseIf PdtData("Pdt_Sort")="EM" Then
	YeWu_DName = Request("DName")                '域名
	If Len(YeWu_DName)=0 Then Response.Write "DName Is Empty":Call Clear
ElseIf PdtData("Pdt_Sort")="DM" Then
	YeWu_DName = Request("DName")                '域名
	If Len(YeWu_DName)=0 Then Response.Write "DName Is Empty":Call Clear
	YeWu_DSuff = Request("DSuff")                '域名后辍
	If Len(YeWu_DSuff)=0 Then Response.Write "DSuff Is Empty":Call Clear
	YeWu_DomEnName = Request("DomEnName")                '域名所有者(英文)
	If Len(YeWu_DomEnName)=0 Then Response.Write "DomEnName Is Empty":Call Clear
	YeWu_DomEnXing = Request("DomEnXing")                '姓(英文)
	If Len(YeWu_DomEnXing)=0 Then Response.Write "DomEnXing Is Empty":Call Clear
	YeWu_DomEnMing = Request("DomEnMing")                '名(英文)
	If Len(YeWu_DomEnMing)=0 Then Response.Write "DomEnMing Is Empty":Call Clear
	YeWu_DomZhName = Request("DomZhName")                '域名所有者(中文)
	If Len(YeWu_DomZhName)=0 Then Response.Write "DomZhName Is Empty":Call Clear
	YeWu_DomZhXing = Request("DomZhXing")                '姓(中文)
	If Len(YeWu_DomZhXing)=0 Then Response.Write "DomZhXing Is Empty":Call Clear
	YeWu_DomZhMing = Request("DomZhMing")                '名(中文)
	If Len(YeWu_DomZhMing)=0 Then Response.Write "DomZhMing Is Empty":Call Clear
End IF
'-------------------------预付款验证
UseTSum = UData("User_Yufu") + UData("User_Arr")                            '可使用金额
If YeWu_Sum > UseTSum Then Response.Write "Money Not Enough":Call Clear    '验证预付款余额
'-------------------------财务
EfsField = EfsField & "CaiWu_State,"                            '状态
EfsValue = EfsValue & "'已审核',"
EfsField = EfsField & "CaiWu_User,"                             '会员帐号
EfsValue = EfsValue & UData("User_User") & ","
EfsField = EfsField & "CaiWu_WUser,"                            '服务专员
EfsValue = EfsValue & "'" & UData("User_WUser") & "',"
EfsField = EfsField & "CaiWu_Sum,"                              '金　　额
EfsValue = EfsValue & YeWu_Sum*-1 & ","
EfsField = EfsField & "CaiWu_CBen,"                             '成本金额
EfsValue = EfsValue & YeWu_CBen & ","
EfsField = EfsField & "CaiWu_Kind,"                             '入帐类型
EfsValue = EfsValue & "'业务扣款',"
EfsField = EfsField & "CaiWu_YSign,"                            '对应业务
EfsValue = EfsValue & "'" & YeWu_Sign & "',"
EfsField = EfsField & "CaiWu_PSort,"                            '商品类目
EfsValue = EfsValue & "'" & PdtData("Pdt_Sort") & "',"
EfsField = EfsField & "CaiWu_PSign,"                            '商品编号
EfsValue = EfsValue & "'" & PdtData("Pdt_Sign") & "',"
EfsField = EfsField & "CaiWu_Path,"                             '付款途径
EfsValue = EfsValue & "'帐户扣费',"
EfsField = EfsField & "CaiWu_HTime,"                            '付款时间
EfsValue = EfsValue & "'" & Efang.DateTime("Y-m-d") & "',"
EfsField = EfsField & "CaiWu_Memo"                              '备注
EfsValue = EfsValue & "'" & CaiWu_Memo & "'"
call Conn.Insert("EfangCaiWu",EfsField,EfsValue)                '添加数据库记录
'-------------------------业务
EfsField="" : EfsValue=""
EfsField = EfsField & "YeWu_State,"                                         '状态
EfsValue = EfsValue & "2,"
EfsField = EfsField & "YeWu_User,"                                          '会员帐号
EfsValue = EfsValue & UData("User_User") & ","
EfsField = EfsField & "YeWu_WUSer,"                                         '服务专员
EfsValue = EfsValue & "'" & UData("User_WUser") & "',"
EfsField = EfsField & "YeWu_Sign,"                                          '业务编号
EfsValue = EfsValue & "'" & YeWu_Sign & "',"
EfsField = EfsField & "YeWu_Numy,"                                          '数量
EfsValue = EfsValue & YeWu_Numy & ","
EfsField = EfsField & "YeWu_Pass,"                                          '密码
EfsValue = EfsValue & "'" & YeWu_Pass & "',"
EfsField = EfsField & "YeWu_Pri,"                                           '单价
EfsValue = EfsValue &  YeWu_Pri & ","
EfsField = EfsField & "YeWu_Sum,"                                           '总金额
EfsValue = EfsValue & YeWu_Sum & ","
EfsField = EfsField & "YeWu_CBen,"                                          '成本金额
EfsValue = EfsValue & YeWu_CBen & ","
EfsField = EfsField & "YeWu_Name,"                                          '商品名称
EfsValue = EfsValue & "'" & YeWu_Name & "',"
EfsField = EfsField & "YeWu_PSign,"                                         '商品编号
EfsValue = EfsValue & "'" & PdtData("Pdt_Sign") & "',"
EfsField = EfsField & "YeWu_PSort,"                                         '商品类目
EfsValue = EfsValue & "'" & PdtData("Pdt_Sort") & "',"
EfsField = EfsField & "YeWu_DHead,"                                         '域名头
EfsValue = EfsValue & "'" & YeWu_DHead & "',"
EfsField = EfsField & "YeWu_DName,"                                         '域名
EfsValue = EfsValue & "'" & YeWu_DName & "',"
EfsField = EfsField & "YeWu_DSuff,"                                         '域名后辍
EfsValue = EfsValue & "'" & YeWu_DSuff & "',"
EfsField = EfsField & "YeWu_Song,"                                          '赠送业务
EfsValue = EfsValue & "'" & YeWu_Song & "',"
EfsField = EfsField & "YeWu_BySign,"                                        '由谁赠送
EfsValue = EfsValue & "'" & YeWu_BySign & "',"
EfsField = EfsField & "YeWu_MaxDisk,"                                       '空间大小
EfsValue = EfsValue & "'" & PdtData("Pdt_MaxDisk") & "',"
EfsField = EfsField & "YeWu_MaxNum,"                                        '个数（邮局信箱）
EfsValue = EfsValue & "'" & PdtData("Pdt_MaxNum") & "',"
EfsField = EfsField & "YeWu_FtpUser,"                                       'FTP帐号
EfsValue = EfsValue & "'" & FtpUser & "',"
EfsField = EfsField & "YeWu_DomEnName,"                                     '域名所有者(英文)
EfsValue = EfsValue & "'" & YeWu_DomEnName & "',"
EfsField = EfsField & "YeWu_DomEnXing,"                                     '姓(英文)
EfsValue = EfsValue & "'" & YeWu_DomEnXing & "',"
EfsField = EfsField & "YeWu_DomEnMing,"                                     '名(英文)
EfsValue = EfsValue & "'" & YeWu_DomEnMing & "',"
EfsField = EfsField & "YeWu_DomZhName,"                                     '域名所有者(中文)
EfsValue = EfsValue & "'" & YeWu_DomZhName & "',"
EfsField = EfsField & "YeWu_DomZhXing,"                                     '姓(中文)
EfsValue = EfsValue & "'" & YeWu_DomZhXing & "',"
EfsField = EfsField & "YeWu_DomZhMing,"                                     '名(中文)
EfsValue = EfsValue & "'" & YeWu_DomZhMing & "',"

EfsField = EfsField & "YeWu_Memo"                                           '备注
EfsValue = EfsValue & "'" & YeWu_Memo & "'"
call Conn.Insert("EfangYeWu",EfsField,EfsValue)

STime = Efang.DateTime("Y-m-d")
ETime = Efang.DateTime("Y") + YeWu_Numy & Efang.DateTime("-m-d")


'实时开通空间
If PdtData("Pdt_Sort")="HT" And PdtData("Pdt_KPick") Then

	Set SvrData = Conn.Query("EfangServer","Svr_ID=" & PdtData("Pdt_KSvr"))         '服务器资料
	
	if Month(date) < 10 then
		NowString = Year(date) & "0" & Month(date)
	else
		NowString = Year(date) & Month(date)
	end if
	if day(date) < 10 then
		NowString = NowString & "0" & day(date)
	else
		NowString = NowString & day(date)
	end if
	
	UHead = YeWu_DHead
	UDom = YeWu_DName
	Style = PdtData("Pdt_KStyle")
	SysUser = SvrData("Svr_AutoUser")
	SysPass = SvrData("Svr_AutoPass")
	Pass = YeWu_Pass
	Customer = UData("User_User")
	ServerIP = SvrData("Svr_Ip")
	
	SendMW = Efang.md5(UHead & UDom & Style & FtpUser & Pass & Customer & STime & ETime & SysUser & SysPass & NowString)
	PostUrl="http://" & ServerIP & "/Auto.efang"
	PostUrl=PostUrl&"?Cmd=CreatSite"
	PostUrl=PostUrl&"&UHead="&UHead
	PostUrl=PostUrl&"&UDom="&UDom
	PostUrl=PostUrl&"&Style="&Style
	PostUrl=PostUrl&"&STime="&STime
	PostUrl=PostUrl&"&ETime="&ETime
	PostUrl=PostUrl&"&SysUser="&SysUser
	PostUrl=PostUrl&"&FtpUser=" & FtpUser
	PostUrl=PostUrl&"&Pass="&Pass
	PostUrl=PostUrl&"&Customer="&Customer
	PostUrl=PostUrl&"&SendMW="&SendMW
	PostUrl=PostUrl&"&Rand="&Efang.RandNum(8)
	Tmp = Efang.OpenHttp(PostUrl)
	if len(tmp) > 4 and len(tmp) < 40 then
		If left(Tmp,4) = "100=" Then
			EfsValue = "YeWu_State=3,"										'状态
			EfsValue = EfsValue & "YeWu_IP='" & ServerIP & "',"				'IP地址
			EfsValue = EfsValue & "YeWu_STime='" & STime & "',"				'开始时间
			EfsValue = EfsValue & "YeWu_ETime='" & ETime & "'"				'开始时间
			response.write "succ-" & ServerIP
		Else
			EfsValue = "YeWu_Memo='" & mid(Tmp,5) & "'"
			response.write mid(Tmp,5)
		End If
	else
		EfsValue = "YeWu_Memo='Unknown Error'"
		response.write "Unknown Error"
	end if
		
	Call Conn.Update("EfangYeWu",EfsValue,"YeWu_Sign='" & YeWu_Sign & "'")	'将业务状态改为正常
elseif PdtData("Pdt_Sort")="EM" then
 	KUser = PdtData("Pdt_TUser")
	KPass = PdtData("Pdt_TPass")
	KSign = PdtData("Pdt_TSign")
	SendMW=Efang.Md5(KUser&KPass&KSign&KNumy&KYPass)
	PostUrl = "http://" & PdtData("Pdt_TIP") & "/efangauto/"
	PostUrl = PostUrl&"?Cmd=CreatYeWu"
	PostUrl = PostUrl & "&KUser=" & KUser
	PostUrl = PostUrl & "&KSign=" & KSign
	PostUrl = PostUrl & "&KNumy=" & KNumy
	PostUrl = PostUrl & "&KYPass=" & KYPass
	PostUrl = PostUrl & "&DHead=" & DHead
	PostUrl = PostUrl & "&DName=" & YeWu_DName
	PostUrl = PostUrl & "&DSuff=" & YeWu_DSuff
	PostUrl = PostUrl & "&SendMW=" & SendMW
	PostUrl = PostUrl & "&Rand="&Efang.RandNum(8)
	Tmp = Efang.OpenHttp(PostUrl)
	EfsValue = ""
	If Tmp="succ" Then
		EfsValue = EfsValue & "YeWu_State=3"
		response.write "succ"
	Else
		EfsValue = EfsValue & "YeWu_Memo='" & Tmp & "'"
		response.write Tmp
	End If	
	Call Conn.Update("EfangYeWu",EfsValue,"YeWu_Sign='" & YeWu_Sign & "'")
elseif PdtData("Pdt_Sort")="DM" then
	KUser = PdtData("Pdt_TUser")
	KPass = PdtData("Pdt_TPass")
	KSign = PdtData("Pdt_TSign")
	SendMW=Efang.Md5(KUser&KPass&KSign&KNumy&KYPass)
	PostUrl = "http://" & PdtData("Pdt_TIP") & "/efangauto/"
	PostUrl = PostUrl&"?Cmd=CreatYeWu"
	PostUrl = PostUrl & "&KUser=" & KUser
	PostUrl = PostUrl & "&KSign=" & KSign
	PostUrl = PostUrl & "&KNumy=" & KNumy
	PostUrl = PostUrl & "&KYPass=" & KYPass
	PostUrl = PostUrl & "&DHead=" & DHead
	PostUrl = PostUrl & "&DName=" & YeWu_DName
	PostUrl = PostUrl & "&DSuff=" & YeWu_DSuff
	PostUrl = PostUrl & "&DomEnName=" & YeWu_DomEnName
	PostUrl = PostUrl & "&DomEnXing=" & YeWu_DomEnXing
	PostUrl = PostUrl & "&DomEnMing=" & YeWu_DomEnMing
	PostUrl = PostUrl & "&DomZhName=" & YeWu_DomZhName
	PostUrl = PostUrl & "&DomZhXing=" & YeWu_DomZhXing
	PostUrl = PostUrl & "&DomZhMing=" & YeWu_DomZhMing
	PostUrl = PostUrl & "&SendMW=" & SendMW
	PostUrl = PostUrl & "&Rand="&Efang.RandNum(8)
	Tmp = Efang.OpenHttp(PostUrl)
	If Tmp="succ" Then
		EfsValue = "YeWu_State=3"
		response.write "succ"
	Else
		EfsValue = "YeWu_Memo='" & Tmp & "'"
		response.write Tmp
	End If
	Call Conn.Update("EfangYeWu",EfsValue,"YeWu_Sign='" & YeWu_Sign & "'")
End If
Sub Clear()
On Error Resume Next
	SvrData.Close
	PdtData.Close
	UData.Close
	Set SvrData = Nothing	
	Set PdtData = Nothing
	Set UData = Nothing
	Call ExitEnd(True)
End Sub
Call Clear
%>