payonline.asp

正版创力4.1SQL商业版!!!ASP版。

	TempStr	= TempStr & "seller_email="&seller_email&"^"
	TempStr	= TempStr & "notify_url="&Post_Url&"^"
	TempStr	= TempStr & "return_url="&return_url

	MyStr	= Split(TempStr, "^")
	Count	= ubound(MyStr)
	For i = Count To 0 Step -1
		Minmax		= MyStr(0)
		MinmaxSlot	= 0
		For j = 1 To i
			Mark = (MyStr(j) > Minmax)
			If Mark Then
				Minmax		= MyStr(j)
				MinmaxSlot	= j
			End If
		Next
		If MinmaxSlot <> i Then 
			Temp = MyStr(MinmaxSlot)
			MyStr(MinmaxSlot) = MyStr(i)
			MyStr(i) = Temp
		End If
	 Next
	'构造md5摘要字符串
	For j = 0 To Count Step 1
		Value = Split(MyStr( j ), "=")
		'If Value(0)<>"sign" And Value(0)<>"sign_type" then
			If j=Count Then
				Md5Str	= Md5Str & MyStr( j )
				itemURL	= itemURL & MyStr( j )
			Else 
				Md5Str	= Md5Str & MyStr( j )&"&"
				itemURL	= itemURL & MyStr( j )&"&"
			End If 
		'End If 
	Next
	Md5Str	= Md5Str & Cl.Product_Setting(5)
	Md5Str	= Trim(md5(Md5Str,32))
	actionURL = actionURL & itemURL&"&sign="&Md5Str&"&sign_type="&sign_type
%>
<tr align="center" bgcolor="#E6E6E6">
	<td colspan="2">
		<input type="button" name="Submit" value=" 在线支付 " onclick="window.location.href='<%=actionURL%>'" />
		&nbsp;
		<input type="button" name="NoSubmit" value=" 取消支付 " onclick="window.location.href='PayOnline.asp?Action=Cancel&amp;PaymentID=<%=PayID%>'" />
	</td>
</tr>
<%
End Sub

'云网在线支付
Sub CnCardForm()
	Dim sText
	Dim c_retflag,c_paygate,notifytype,c_language
	Post_Url	= "http://" & Cl.ServerName & Cl.WebDir & "PayOnline/AutoReceive.asp"
	P_PayDate	= year(now) & Left("0"&month(now),2) & Left("0"&day(now),2)
	c_retflag	= "1" '商户订单支付成功后是否需要返回商户指定的文件，0：不用返回 1：需要返回
	c_paygate	= ""  '如果在商户网站选择银行则设置该值
	notifytype	= "1" '0普通通知方式/1服务器通知方式，空值为普通通知方式
	c_language	= "0" '值为：0银行页面显示为中文/1银行页面显示为英文
	P_Remark1	= "" '注意：云网此备注里不能带有中文
	P_Remark2	= ""
	sText		= Cl.Product_Setting(4) & P_PayNum & P_PayAmount & P_PayDate & P_MoneyType & c_retflag & Post_Url & c_paygate & P_Remark1 & P_Remark2 & notifytype & c_language & Cl.Product_Setting(5)
	'Response.write sText
	P_Md5Text	= md5(sText,32)
%>
<form action = "http://www.cncard.net/purchase/getorder.asp " method="post" name="payForm1" target="_top" id="payForm1">
<tr align="center" bgcolor="#E6E6E6">
	<td colspan="2">
		<input type="hidden" name="c_order"			value="<%=P_PayNum%>" />
		<input type="hidden" name="c_name"			value="<%=Cl.MemberName%>" />
		<input type="hidden" name="c_address"		value="<%'=c_address%>" />
		<input type="hidden" name="c_tel"			value="<%'=c_tel%>" />
		<input type="hidden" name="c_post"			value="<%'=c_post%>" />
		<input type="hidden" name="c_email"			value="<%'=c_email%>" />
		<input type="hidden" name="c_orderamount"	value="<%=Cl.FormatNum(P_PayAmount,2)%>" />
		<input type="hidden" name="c_paygate"		value="<%=c_paygate%>" />
		<input type="hidden" name="c_mid"			value="<%=Cl.Product_Setting(4)%>" />
		<input type="hidden" name="c_ymd"			value="<%=P_PayDate%>" />
		<input type="hidden" name="c_moneytype"		value="<%=P_MoneyType%>" />
		<input type="hidden" name="c_retflag"		value="<%=c_retflag%>" />
		<input type="hidden" name="c_returl"		value="<%=Post_Url%>" />
		<input type="hidden" name="c_memo1"			value="<%=P_Remark1%>" />
		<input type="hidden" name="c_memo2"			value="<%=P_Remark2%>" />
		<input type="hidden" name="c_language"		value="<%=c_language%>" />
		<input type="hidden" name="notifytype"		value="1" />
		<input type="hidden" name="c_signstr"		value="<%=P_Md5Text%>" />
		<input type="submit" name="submit"			value=" 在线支付 " />
		&nbsp;
		<input type="button" name="NoSubmit" value=" 取消支付 " onclick="window.location.href='PayOnline.asp?Action=Cancel&amp;PaymentID=<%=PayID%>'" />
	</td>
</tr>
</form>
<%
End Sub

'网银支付平台对MD5值只认大写字符串，所以小写的MD5值得转换为大写
Sub ChinaBankForm()
	Dim sText
	Post_Url	= "http://" & Cl.ServerName & Cl.WebDir & "PayOnline/PayReceive.asp"
	sText		= P_PayAmount & P_MoneyType & P_PayNum & Cl.Product_Setting(4) & Post_Url & Cl.Product_Setting(5)
	P_Md5Text	= Ucase(trim(md5(sText,32)))

%>
<form action="https://pay3.chinabank.com.cn/PayGate" method="post" name="E_FORM" target="_top" id="E_FORM">
<tr align="center" bgcolor="#E6E6E6">
	<td colspan="2">
		<input type="hidden" name="v_md5info"	value="<%=P_Md5Text%>" />
		<input type="hidden" name="v_mid"		value="<%=Cl.Product_Setting(4)%>" />
		<input type="hidden" name="v_oid"		value="<%=P_PayNum%>" />
		<input type="hidden" name="v_amount"	value="<%=Cl.FormatNum(P_PayAmount,2)%>" />
		<input type="hidden" name="v_moneytype" value="0" />
		<input type="hidden" name="v_url"		value="<%=Post_Url%>" />
		<input type="hidden" name="style"		value="0" />
		<input type="hidden" name="remark1"		value="<%=P_Remark1%>" />
		<input type="hidden" name="remark2"		value="<%'=remark2%>" />
		<input type="hidden" name="v_rcvname"	value="<%=Cl.MemberName%>" />
		<input type="submit" name="v_action"	value=" 在线支付 " />
		&nbsp;
		<input type="button" name="NoSubmit" value=" 取消支付 " onclick="window.location.href='PayOnline.asp?Action=Cancel&amp;PaymentID=<%=PayID%>'" />
	</td>
</tr>
</form>
<%
End Sub

Rem 财付通
Sub TenpayForm()
	Dim sText
	Dim cmdno,bank_type,desc,purchaser_id,transaction_id,attach
	Post_Url	= "http://" & Cl.ServerName & Cl.WebDir & "PayOnline/AutoReceive.asp"
	P_PayDate	= year(now) & Left("0"&month(now),2) & Left("0"&day(now),2)
	P_PayAmount = P_PayAmount * 100 '财付通采用分为单位
	P_MoneyType	= "1" '货币类型: 1 – RMB(人民币) 2 - USD(美元) 3 - HKD(港币)
	cmdno		= "1"	' 财付通支付为"1" (当前只支持 cmdno=1)
	bank_type	= "0"	' 银行类型:0财付通,1001招商银行,1002中国工商银行,1003中国建设银行…
	desc		= Cl.Web_Info(1) & "在线充值"	' 商品名称
	purchaser_id= ""	' 用户QQ号码
	transaction_id = Cl.Product_Setting(4) & P_PayDate & Right(P_PayNum,10)
					' 重要:
					' 交易单号(28位): 商户号(10位) + 日期(8位) + 流水号(10位), 必须按此格式生成, 且不能重复
					' 如果sp_billno超过10位, 则截取其中的流水号部分加到transaction_id后部(不足10位左补0)
					' 如果sp_billno不足10位, 则左补0, 加到transaction_id后部
	attach		= ""		' 商户私有数据, 请求回调页面时原样返回
	sText		= "cmdno=" & cmdno & "&date=" & P_PayDate & "&bargainor_id=" & Cl.Product_Setting(4) &_
		"&transaction_id=" & transaction_id & "&sp_billno=" & P_PayNum &_
		"&total_fee=" & P_PayAmount & "&fee_type=" & P_MoneyType & "&return_url=" & Post_Url &_
		"&attach=" & attach & "&key=" & Cl.Product_Setting(5)
	P_Md5Text	= Ucase(md5(sText,32))
	'MD5值得转换为大写
%>
<form action="http://portal.tenpay.com/cfbiportal/cgi-bin/cfbiin.cgi" name="E_FORM" target="_top" id="E_FORM">
<tr align="center" bgcolor="#E6E6E6">
	<td colspan="2">
		<input type="hidden" name="cmdno"			value="<%=cmdno%>" />
		<input type="hidden" name="date"			value="<%=P_PayDate%>" />
		<input type="hidden" name="bank_type"		value="<%=bank_type%>" />
		<input type="hidden" name="desc"			value="<%=desc%>" />
		<input type="hidden" name="purchaser_id"	value="<%=purchaser_id%>" />
		<input type="hidden" name="bargainor_id"	value="<%=Cl.Product_Setting(4)%>" />
		<input type="hidden" name="transaction_id"	value="<%=transaction_id%>" />
		<input type="hidden" name="sp_billno"		value="<%=P_PayNum%>" />
		<input type="hidden" name="total_fee"		value="<%=P_PayAmount%>" />
		<input type="hidden" name="fee_type"		value="<%=P_MoneyType%>" />
		<input type="hidden" name="return_url"		value="<%=Post_Url%>" />
		<input type="hidden" name="attach"			value="<%=attach%>" />
		<input type="hidden" name="sign"			value="<%=P_Md5Text%>" />
		<input type="submit" name="submit"			value="在线支付" />
		&nbsp;
		<input type="button" name="NoSubmit" value=" 取消支付 " onclick="window.location.href='PayOnline.asp?Action=Cancel&amp;PaymentID=<%=PayID%>'" />
	</td>
</tr>
</form>
<%
End Sub

'==================================================
'CreateLive CMS Version 4.0
'							Powered by Aspoo.Com
'
'邮箱: [e-mail]		[e-mail]
'ＱＱ: 3315263				596197794
'网站: www.aspoo.cn			www.aspoo.com
'论坛: bbs.aspoo.cn			bbs.aspoo.com
'
'Copyright (C) 2005-2007 Aspoo.Com All Rights Reserved.
'==================================================
%>