支付宝借口参数vb.net版

   注意编码为utf-8  
   
  '按时构造订单号  
  Dim   currentTime   As   System.DateTime   =   New   System.DateTime  
  currentTime   =   System.DateTime.Now  
  Dim   out_trade_no   As   String  
  out_trade_no   =   currentTime.ToString("g")  
  out_trade_no   =   out_trade_no.Replace("-",   "")  
  out_trade_no   =   out_trade_no.Replace(":",   "")  
  out_trade_no   =   out_trade_no.Replace("   ",   "")         '可以自定义  
     
  '业务参数赋值  
  Dim   gateway   As   String   =   "https://www.alipay.com/cooperate/gateway.do?"       '支付接口  
  Dim   service   As   String   =   "trade_create_by_buyer"                 '服务参数  
  Dim   sign_type   As   String   =   "MD5"  
  Dim   subject   As   String="商品名"  
  Dim   body   As   String="商品描述"  
  Dim   quantity   As   String="商品数量"           '参数必须为数字  
  Dim   payment_type   As   String   =   "支付类型"           '1=商品购买,2=服务购买,3=网络拍卖,4=捐赠,5=邮费补偿,6=奖金,,,我就是这里出错,自己以为支付类型,写个支付宝支付,结果问题大条  
  Dim   price   As   String=   "商品价格"           '参数必须为数字  
  Dim   show_url   As   String="http://*****"     '商品描述地址  
  Dim   seller_email   As   String="**@**.**"     '支付宝认证Email,必须通过支付宝认证才可以  
  Dim   key   As   String="***"                 '安全校验码,在支付宝网站“商家工具”那里可以获得  
  Dim   partner   As   String=""               'partner合作伙伴ID  
  Dim   return_url   As   String   =   show_url   &   "/Alipay_Return.aspx"           '服务器通知返回接口  
  Dim   notify_url   As   String   =   show_url   &   "/Alipay_Notify.aspx"           '服务器通知接口  
  Dim   _input_charset   As   String   =   "utf-8"                                                   '服务器编码  
  Dim   logistics_type   As   String   =   "POST"  
  Dim   logistics_fee   As   String   =   "0"                             '平邮费     包含在价格中  
  Dim   logistics_fee_1   As   String   =   "0"                         '快递费     包含在价格中  
  Dim   logistics_payment   As   String   =   "BUYER_PAY"  
  Dim   logistics_type_1   As   String   =   "EXPRESS"  
  Dim   logistics_payment_1   As   String   =   "BUYER_PAY"  
  Dim   ap   As   AliPay   =   New   AliPay  
  Dim   aliay_url   As   String   =   ap.CreatUrl(gateway,   service,   partner,   sign_type,   out_trade_no,   subject,   body,   payment_type,   price,   show_url,   seller_email,   key,   return_url,   _input_charset,   notify_url,   logistics_type,   logistics_fee,   logistics_payment,   logistics_type_1,   logistics_fee_1,   logistics_payment_1,   quantity)  
                  Response.Redirect(aliay_url)
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值