<!--#include file="class/alipay_submit.asp"-->
<html>
<head>
	<META http-equiv=Content-Type content="text/html; charset=gb2312">
<title>支付宝纯担保交易接口</title>
</head>
<body>
正在跳转到付款页面，请稍后...
<%
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="&notify_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


%>
</body>
</html>
