支付宝借口参数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)