[分享]轻松整合支付宝到自己网站

sk天意

  原始连接：http://www.okhtm.com/article.asp?id=387

<!-- 支付宝 包含头文件 放在顶部 开始-->
<!--#include file="Alipay/Alipay_Payto.asp"-->
<!-- 支付宝 包含头文件 放在顶部 结束-->

<!-- 支付宝 接口代码 开始 -->
<%
dim cmd,subject,body,order_no,prices,rurl,types,number,transport,ordinary_fee,express_fee,readonly,buyer_msg,buyer,buyer_name,buyer_address,buyer_zipcode,buyer_tel,buyer_mobile,partner
dim t1,t2,t3,t4,t5
dim AlipayObj,itemUrl
  t1        =  "https://www.alipay.com/payto:"  '支付接口
  t2        =  "你自己的帐户"      '商户支付宝账户（改成你自己的）
  t3        =  "自己去网站上取"                '安全校验码（改成你自己的）    
  t4        =  "images/alipay_bwrx.gif"    '支付宝按钮图片
  t5        =  "推荐使用支付宝付款"            '按钮悬停说明
  cmd        =  "0001"            'cmd      命令码
  subject      =  "订单号:"&session("DingID")&"请牢记此号码！"      'subject    商品名称
  body      =  "交易地点桂林)"      'body      商品描述
  order_no    =  session("DingID")    'order_no    商户订单号
  prices      =  session("all")          'price      商品单价      0.01～50000.00
  rurl        =  ""  'url      商品展示网址
  types      =  "1"            'type支付类型      1：商品购买2：服务购买3：网络拍卖4：捐赠
  number      =  ""            'number      购买数量
  transport    =  "1"          'transport    发货方式      1：平邮2：快递3：虚拟物品
  ordinary_fee  =  "10.00"      'ordinary_fee  平邮运费
  express_fee    =  "20.00"        'express_fee  快递运费
  readonly    =  "true"        'readonly    交易信息是否只读
  buyer_msg    =  ""        'buyer_msg    买家给卖家的留言
  buyer      =  ""            'buyer      买家Email
  buyer_name    =  session("buyer")    'buyer_name    买家姓名
  buyer_address  =  ""  'buyer_address  买家地址
  buyer_zipcode  =  ""    'buyer_zipcode  买家邮编
  buyer_tel    =  ""      'buyer_tel    买家电话号码
  buyer_mobile  =  ""  'buyer_mobile  买家手机号码
  partner      =  ""            'partner    合作伙伴ID      保留字段

  Set AlipayObj  = New creatAlipayItemURL
  itemUrl=AlipayObj.creatAlipayItemURL(t1,t2,t3,t4,t5,cmd,subject,body,order_no,prices,rurl,types,number,transport,ordinary_fee,express_fee,readonly,buyer_msg,buyer,buyer_name,buyer_address,buyer_zipcode,buyer_tel,buyer_mobile,partner)

%>
<table width="50%" border="1" cellspacing="0" cellpadding="0" align="center" style="border-collapse: collapse" bordercolor="#CCCCCC">
<tr>
<td height="30" align="center">
  <%=itemUrl%>
</td>
</tr>
</table>

<!-- 支付宝 接口代码 结束 -->

此为b2c,商城可以实现在线支付. 后记：应该有用的着的兄弟 [s:15]

xinews

多谢楼主 [s:16]  [s:16]

feng889

[s:16] 收藏

何去飞

[s:15]  

可以放到BLOG上去哦：）

sk天意

  原始连接：http://www.okhtm.com/article.asp?id=387

<!-- 支付宝 包含头文件 放在顶部 开始-->
<!--#include file="Alipay/Alipay_Payto.asp"-->
<!-- 支付宝 包含头文件 放在顶部 结束-->

<!-- 支付宝 接口代码 开始 -->
<%
dim cmd,subject,body,order_no,prices,rurl,types,number,transport,ordinary_fee,express_fee,readonly,buyer_msg,buyer,buyer_name,buyer_address,buyer_zipcode,buyer_tel,buyer_mobile,partner
dim t1,t2,t3,t4,t5
dim AlipayObj,itemUrl
  t1        =  "https://www.alipay.com/payto:"  '支付接口
  t2        =  "你自己的帐户"      '商户支付宝账户（改成你自己的）
  t3        =  "自己去网站上取"                '安全校验码（改成你自己的）    
  t4        =  "images/alipay_bwrx.gif"    '支付宝按钮图片
  t5        =  "推荐使用支付宝付款"            '按钮悬停说明
  cmd        =  "0001"            'cmd      命令码
  subject      =  "订单号:"&session("DingID")&"请牢记此号码！"      'subject    商品名称
  body      =  "交易地点桂林)"      'body      商品描述
  order_no    =  session("DingID")    'order_no    商户订单号
  prices      =  session("all")          'price      商品单价      0.01～50000.00
  rurl        =  ""  'url      商品展示网址
  types      =  "1"            'type支付类型      1：商品购买2：服务购买3：网络拍卖4：捐赠
  number      =  ""            'number      购买数量
  transport    =  "1"          'transport    发货方式      1：平邮2：快递3：虚拟物品
  ordinary_fee  =  "10.00"      'ordinary_fee  平邮运费
  express_fee    =  "20.00"        'express_fee  快递运费
  readonly    =  "true"        'readonly    交易信息是否只读
  buyer_msg    =  ""        'buyer_msg    买家给卖家的留言
  buyer      =  ""            'buyer      买家Email
  buyer_name    =  session("buyer")    'buyer_name    买家姓名
  buyer_address  =  ""  'buyer_address  买家地址
  buyer_zipcode  =  ""    'buyer_zipcode  买家邮编
  buyer_tel    =  ""      'buyer_tel    买家电话号码
  buyer_mobile  =  ""  'buyer_mobile  买家手机号码
  partner      =  ""            'partner    合作伙伴ID      保留字段

  Set AlipayObj  = New creatAlipayItemURL
  itemUrl=AlipayObj.creatAlipayItemURL(t1,t2,t3,t4,t5,cmd,subject,body,order_no,prices,rurl,types,number,transport,ordinary_fee,express_fee,readonly,buyer_msg,buyer,buyer_name,buyer_address,buyer_zipcode,buyer_tel,buyer_mobile,partner)

%>
<table width="50%" border="1" cellspacing="0" cellpadding="0" align="center" style="border-collapse: collapse" bordercolor="#CCCCCC">
<tr>
<td height="30" align="center">
  <%=itemUrl%>
</td>
</tr>
</table>

<!-- 支付宝 接口代码 结束 -->

此为b2c,商城可以实现在线支付. 后记：应该有用的着的兄弟 [s:15]