支付宝纯担保交易接口

正在跳转到付款页面，请稍后... <% O_id=request.QueryString("O_id") if InStr(O_id,"|")=0 then Set rs= Server.CreateObject("ADODB.RecordSet") sql="select * from orders,buy,member where O_bid=B_id and O_member=M_login and O_id="&O_id rs.open sql,conn,1,1 if not rs.eof then B_title=rs("B_title") O_all=rs("O_price")*rs("O_num") M_add=rs("M_add") M_mobile=rs("M_mobile") M_name=rs("M_name") M_code=rs("M_code") end if rs.close set rs=nothing end if if InStr(O_id,"|")<>0 then For i = 0 To UBound(split(O_id,"|")) Set rs= Server.CreateObject("ADODB.RecordSet") sql="select * from orders,buy,member where O_bid=B_id and O_member=M_login and O_id="&split(O_id,"|")(i) rs.open sql,conn,1,1 if not rs.eof then B_title=rs("B_title") O_all=rs("O_price")*rs("O_num") M_add=rs("M_add") M_mobile=rs("M_mobile") M_name=rs("M_name") M_code=rs("M_code") end if rs.close set rs=nothing O_all2=O_all2+O_all B_title2=B_title2&B_title Next O_all=O_all2 B_title=B_title2 end if Set rs= Server.CreateObject("ADODB.RecordSet") sql="select * from config" rs.open sql,conn,1,1 if not rs.eof then C_alipay=rs("C_alipay") end if rs.close set rs=nothing D_domain=split(split("http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("URL"),"http://")(1),"/alipay")(0) '/////////////////////请求参数///////////////////// '支付类型 payment_type = "1" '必填，不能修改 '服务器异步通知页面路径 notify_url = "http://"&D_domain&"/alipay/notify_url.asp" '需http://格式的完整路径，不能加?id=123这类自定义参数 '页面跳转同步通知页面路径 return_url = "http://"&D_domain&"/alipay/return_url.asp" '需http://格式的完整路径，不能加?id=123这类自定义参数，不能写成http://localhost/ '卖家支付宝帐户 seller_email = C_alipay '必填 '商户订单号 out_trade_no = O_id '商户网站订单系统中唯一订单号，必填 '订单名称 subject = B_title '必填 '付款金额 price = O_all '必填 '商品数量 quantity = "1" '必填，建议默认为1，不改变值，把一次交易看成是一次下订单而非购买一件商品 '物流费用 logistics_fee = "0.00" '必填，即运费 '物流类型 logistics_type = "EXPRESS" '必填，三个值可选：EXPRESS（快递）、POST（平邮）、EMS（EMS） '物流支付方式 logistics_payment = "SELLER_PAY" '必填，两个值可选：SELLER_PAY（卖家承担运费）、BUYER_PAY（买家承担运费） '订单描述 body = O_id '商品展示地址 show_url = "http://"&D_domain '需以http://开头的完整路径，如：http://www.xxx.com/myorder.html '收货人姓名 receive_name = M_login '如：张三 '收货人地址 receive_address = M_add '如：XX省XXX市XXX区XXX路XXX小区XXX栋XXX单元XXX号 '收货人邮编 receive_zip = M_code '如：123456 '收货人电话号码 receive_phone = M_mobile '如：0571-88158090 '收货人手机号码 receive_mobile =M_mobile '如：13312341234 '/////////////////////请求参数///////////////////// '构造请求参数数组 sParaTemp = Array("service=create_partner_trade_by_buyer","partner="&partner,"_input_charset="&input_charset ,"payment_type="&payment_type ,"notify_url="¬ify_url ,"return_url="&return_url ,"seller_email="&seller_email ,"out_trade_no="&out_trade_no ,"subject="&subject ,"price="&price ,"quantity="&quantity ,"logistics_fee="&logistics_fee ,"logistics_type="&logistics_type ,"logistics_payment="&logistics_payment ,"body="&body ,"show_url="&show_url ,"receive_name="&receive_name ,"receive_address="&receive_address ,"receive_zip="&receive_zip ,"receive_phone="&receive_phone ,"receive_mobile="&receive_mobile ) '建立请求 Set objSubmit = New AlipaySubmit sHtml = objSubmit.BuildRequestForm(sParaTemp, "get", "确认") response.Write sHtml %>