cls_payment.asp

采用的是新云内核

<!--#include file="cls_md5.asp"-->
<%
Class WebPayment_Cls
	Private sPaymentid, sPaymentkey, sReturnurl, sPlatform, sPstate
	Private sOrderid, sPaymoney, sMoneytype, sLanguage,sFD_NPSID
	Private sComment, sRemark, sConsigner, submit_value
	Private sConsignee, sAddress, sPostcode, sTelephone, sEmail
	Public ErrNumber, mPercent
	Private strChinaeBank, sEncrypt
	Private PaymentContent

	Private Sub Class_Initialize()
		On Error Resume Next
		sPaymentid = "1051011239"
		sPaymentkey = "newasp778899"
		sReturnurl = "http://www.Newasp.cn/user/Receive.asp"
		sPlatform = 1
		sOrderid = "2005328-1001-5188"
		sPaymoney = "100.00"
		sMoneytype = 1
		sLanguage = 1
		sPstate = 0
		sComment = "在线支付"
		sRemark = "在线支付"
		sConsigner = "Consigner"
		sConsignee = "Consignee"
		sAddress = "武汉"
		sPostcode = "51800"
		sTelephone = "027-5188888"
		sEmail = "[e-mail]"
		submit_value = "进入在线支付平台"
		sEncrypt = "12345678"
		mPercent = 0
	End Sub

	Private Sub Class_Terminate()
		
	End Sub
	'---- 错误代码
	Public Property Get Description()
		Select Case ErrNumber
			Case 1: Description = "定单号错误。"
			Case 2: Description = "付款金额错误！"
			Case 3: Description = "认证签名不能为空值!"
			Case 4: Description = "认证信息出错，此次交易失败！！！"
			Case 5: Description = "认证信息出错，请不要重复提交数据，此次交易失败！！！"
			Case 6: Description = "对不起！本站暂未开通在线支付功能,请选择其它方法支付"
			Case 7: Description = "错误的系统参数"
			Case 8: Description = "本站暂未开通在线支付功能,或者本站程序没有注册,请选择其它方法支付"
			Case Else
				Description = Empty
		End Select
	End Property
	'---- 手续费百分比
	Public Property Let Percent(ByVal NewValue)
		mPercent = NewValue
	End Property
	'---- 支付平台
	Public Property Let PayPlatform(ByVal NewValue)
		sPlatform = NewValue
	End Property
	'---- 支付ID
	Public Property Let Paymentid(ByVal NewValue)
		sPaymentid = NewValue
		If Trim(sPaymentid) = "" Then
			sPaymentid = "1051011239"
		End If
	End Property
	Public Property Get Paymentid()
		Paymentid = sPaymentid
	End Property
	'---- 支付KEY
	Public Property Let Paymentkey(ByVal NewValue)
		sPaymentkey = NewValue
		If Trim(sPaymentkey) = "" Then
			sPaymentkey = "Newasp778899"
		End If
	End Property
	'---- 返回URL
	Public Property Let Returnurl(ByVal NewValue)
		sReturnurl = NewValue
	End Property
	'---- 交易状态
	Public Property Let Pstate(ByVal NewValue)
		sPstate = NewValue
	End Property
	Public Property Get Pstate()
		Pstate = sPstate
	End Property
	'--- 定单号
	Public Property Let Orderid(ByVal NewValue)
		sOrderid = NewValue
	End Property
	Public Property Get Orderid()
		Orderid = sOrderid
	End Property
	Public Property Get FD_NPSID()
		FD_NPSID = sFD_NPSID
	End Property
	'---- 支付金额
	Public Property Let Paymoney(ByVal NewValue)
		sPaymoney = ReadPayMoney(NewValue, False)
	End Property
	Public Property Get Paymoney()
		Paymoney = sPaymoney
	End Property
	'---- 交易金额
	Public Property Get Buymoney()
		Buymoney = ReadPayMoney(sPaymoney, True)
	End Property
	'---- 手续费
	Public Property Get ServiceCharge()
		ServiceCharge = sPaymoney - ReadPayMoney(sPaymoney, True)
	End Property
	'---- 支付币种
	Public Property Let Moneytype(ByVal NewValue)
		sMoneytype = NewValue
	End Property
	Public Property Get Moneytype()
		Moneytype = sMoneytype
	End Property
	'---- 支付语言
	Public Property Let Planguage(ByVal NewValue)
		sLanguage = NewValue
	End Property
	'---- 支付备注
	Public Property Let Comment(ByVal NewValue)
		sComment = NewValue
	End Property
	Public Property Get Comment()
		Comment = sComment
	End Property
	'---- 支付备注
	Public Property Let Remark(ByVal NewValue)
		sRemark = NewValue
	End Property
	Public Property Get Remark()
		Remark = sRemark
	End Property
	'---- 收货人名称
	Public Property Let Consignee(ByVal NewValue)
		sConsignee = NewValue
	End Property
	Public Property Get Consignee()
		Consignee = sConsignee
	End Property
	'---- 收货人地址
	Public Property Let Address(ByVal NewValue)
		sAddress = NewValue
	End Property
	Public Property Get Address()
		Address = sAddress
	End Property
	'---- 收货人邮编
	Public Property Let Postcode(ByVal NewValue)
		sPostcode = NewValue
	End Property
	Public Property Get Postcode()
		Postcode = sPostcode
	End Property
	'---- 收货人电话
	Public Property Let Telephone(ByVal NewValue)
		sTelephone = NewValue
	End Property
	Public Property Get Telephone()
		Telephone = sTelephone
	End Property
	'---- 收货人E_Mail
	Public Property Let Email(ByVal NewValue)
		sEmail = NewValue
	End Property
	Public Property Get Email()
		Email = sEmail
	End Property
	'---- 发货人
	Public Property Let Consigner(ByVal NewValue)
		sConsigner = NewValue
	End Property
	Public Property Get Consigner()
		Consigner = sConsigner
	End Property
	'---- 提交按钮
	Public Property Let submitvalue(ByVal NewValue)
		submit_value = NewValue
	End Property
	'---- 加密密码
	Public Property Let Encrypt(ByVal NewValue)
		sEncrypt = NewValue
	End Property
	'================================================
	'过程名：GetWebSiteUrl
	'作  用：取得带端口的URL
	'================================================
	Public Property Get GetWebSiteUrl()
		If Request.ServerVariables("SERVER_PORT") = "80" Then
			GetWebSiteUrl = "http://" & Request.ServerVariables("server_name")
		Else
			GetWebSiteUrl = "http://" & Request.ServerVariables("server_name") & ":" & Request.ServerVariables("SERVER_PORT")
		End If
	End Property
	'================================================
	'过程名：PaymentPlatform
	'作  用：在线支付平台
	'================================================
	Public Sub PaymentPlatform()
		On Error Resume Next
		If sPlatform = 1 Then
			Call Payment_nps
		ElseIf sPlatform = 2 Then
			Call Payment_chinabank
		Else
			ErrNumber = 6
			Exit Sub
		End If
		Response.Write PaymentContent
	End Sub
	'================================================
	'函数名：ShowPayment
	'作  用：显示在线支付平台
	'================================================
	Public Function ShowPayment()
		On Error Resume Next
		If sPlatform = 1 Then
			Call Payment_nps
		ElseIf sPlatform = 2 Then
			Call Payment_chinabank
		Else
			ShowPayment = ""
			ErrNumber = 6
			Exit Function
		End If
		ShowPayment = PaymentContent
	End Function
	'================================================
	'过程名：payment_nps
	'作  用：NPS在线支付平台
	'================================================