payonline.asp

淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序

	GetAlipayMD5 = AlipayMD5(strTemp)
End Function
Sub AlipayForm()
	Rem 定义所需变量
	Dim Md5Str,TempStr,itemURL,actionURL
	Dim subject,quantity,seller_email,return_url,sign_type
	Post_Url	= "http://" & Cl.ServerName & Cl.WebDir & "PayOnline/AutoReceive.asp" Rem 服务器间接通知接口
	return_url	= "http://" & Cl.ServerName & Cl.WebDir & "PayOnline/PayReceive.asp" Rem 返回页面通知接口
	actionURL	= "https://www.alipay.com/cooperate/gateway.do?"  Rem 支付接口URL
	subject		= Cl.Web_Info(1) & "在线充值"
	quantity	= 1  Rem 购买数量(默认为1)
	seller_email= Cl.Web_Info(8)   Rem 支付宝账号(使用默认管理员邮箱)
	P_PayAmount	= Cl.FormatNum(P_PayAmount,2)
	actionURL	= actionURL & "service=create_direct_pay_by_user"'create_digital_goods_trade_p"
	actionURL	= actionURL & "&partner=" & Cl.Product_Setting(4)
	actionURL	= actionURL & "&subject=" & subject
	actionURL	= actionURL & "&body=" & Cl.MemberName
	actionURL	= actionURL & "&out_trade_no=" & P_PayNum
	actionURL	= actionURL & "&price=" & P_PayAmount
	actionURL	= actionURL & "&payment_type=1"
	actionURL	= actionURL & "&quantity=" & quantity
	actionURL	= actionURL & "&seller_email=" & Server.UrlEncode(seller_email)
	actionURL	= actionURL & "&notify_url=" & Server.UrlEncode(Post_Url)
	actionURL	= actionURL & "&return_url=" & Server.UrlEncode(return_url)
	actionURL	= actionURL & "&sign=" & _
	GetAlipayMD5(subject,Cl.MemberName,P_PayNum,P_PayAmount,quantity,seller_email,Post_Url,return_url)
	actionURL	= actionURL & "&sign_type=MD5"
	'Response.write actionURL
	'Response.end
%>
<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="<%=P_PayAmount%>" />
		<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="<%=P_PayAmount%>" />
		<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.
'==================================================
%>