asp 支付宝接口例子(在线付款功能)

【实例截图】

【核心代码】

<!--#include file="alipay/alipay_payto.asp"-->
<%
if request("addpost")="addpost" then 
dim service,partner,sign_type,subject,body,out_trade_no,total_fee,show_url,seller_email,return_url
dim t1,t4,t5,key
dim AlipayObj,itemUrl
	t1				=	"https://www.alipay.com/cooperate/gateway.do?"	'支付接口
	t4				=	"images/alipay_bwrx.gif"		'支付宝按钮图片
	t5				=	"推荐使用支付宝付款"						'按钮悬停说明
	
	service         =   "create_donate_trade_p"
	partner			=	""		'partner合作伙伴ID
	sign_type       =   "MD5"
	subject			=	"捐赠"		'subject		商品名称
	body			=	"捐赠"			'body			商品描述
	out_trade_no    =   Replace(Now(),"-","")
	out_trade_no    =   Trim(Replace(out_trade_no,":",""))
	total_fee		    =	request("gross")				'total_fee	商品单价0.01～50000.00
    show_url        =   "www.alipay.com"
    seller_email    =    ""  '接受捐款的支付宝账号
    key             =    ""  '支付宝安全校验码
	return_url      =  "return.Alipay_Notify.asp"


	Set AlipayObj	= New creatAlipayItemURL
	itemUrl=AlipayObj.creatAlipayItemURL(t1,t4,t5,service,partner,sign_type,subject,body,out_trade_no,total_fee,show_url,seller_email,return_url,key)
   response.redirect itemUrl
  
%>



<table border="0" cellspacing="1" cellpadding="0" align="center" valign=absmiddle width=450>
<tr><td align=center width=50% height=120>

</td>
<%
else
%>
<form action="" method="post" name="myform">
<table border="0" cellspacing="1" cellpadding="0" align="center" valign=absmiddle width=450>
<tr><td align=center width=50% height=120>
金额：<input name="gross" type="text" value="" />
<input name="submit" type="submit" value="提交" />
 <input name="addpost" type="hidden" value="addpost" />
 </td>

</tr>
<tr><td colspan=2 align=center>本站使用支付宝支付平台，在线实时支付<br><br>
<a href='http://www.alipay.com'  target="_blank"><img src='https://img.alipay.com/pimg/logo.gif' border=0></a>
</td></tr>
</table>	
<%end if %>