onlyone_byalipay.asp

网上购物系统

<!--#include file="conn.asp"-->
<!--#include file="include/MyRequest.asp" -->
<!--#include file="include/base64.asp"-->
<!--#include file="include/md5.asp"-->
<!--#include file="include/AliPayTo.asp"--> 
<%

'====================   支 付 宝 单 项 付 款  ====================
sql="select top 1 root_AliPay_Email,root_AliPay_SafeCode,root_AliPay_ParterID from root_AliPay"
set rs=conn.execute (sql)
AlipayEmail   =rs(0)
AlipaySafeCode=rs(1)
AlipayPartnerID=rs(2)
rs.close
set rs=nothing

v_mid=replace(strAnsi2Unicode(Base64decode(strUnicode2Ansi(AlipayEmail))),chr(13)&chr(10),"<br>")
key1=replace(strAnsi2Unicode(Base64decode(strUnicode2Ansi(AlipaySafeCode))),chr(13)&chr(10),"<br>")
partnerID=replace(strAnsi2Unicode(Base64decode(strUnicode2Ansi(AlipayPartnerID))),chr(13)&chr(10),"<br>")

call pay_AliPay()

sub pay_AliPay()
	dim service,agent,partner,sign_type,subject,body,out_trade_no,price,discount,show_url,quantity,payment_type,logistics_type,logistics_fee,logistics_payment,logistics_type_1,logistics_fee_1,logistics_payment_1,receive_name,seller_email,notify_url
	dim t1,t4,t5,key
	dim AlipayObj,itemUrl
	dim alipay_name
    url=request("url")
    alipay_name=request("prod_info_name")
    price=request("prod_info_priceS")
    curdate = now()											' 根据系统时间产生订单，格式：YYYYMMDD-v_mid-HMMSS
	ymd = year(curdate)&month(curdate)&day(curdate)			' 年月日
	hms = hour(curdate)&minute(curdate)&second(curdate)		' 分秒时
	oid = ymd&"-"&v_mid&"-"&hms							 	' 推荐订单号构成格式为 年月日-商户号-小时分钟秒
	
	t1				=	"https://www.alipay.com/cooperate/gateway.do?"	'支付接口
	t4				=	"images/alipay_bwrx.gif"		'支付宝按钮图片
	t5				=	"推荐使用支付宝付款"						'按钮悬停说明
	
	service         =   "trade_create_by_buyer"
	agent           =   ""					'合作厂商id
	partner			=	PartnerID		'partner合作伙伴ID(必须填)
	sign_type       =   "MD5"
    subject         =   alipay_name	 	'商品名称
	body			=	alipay_name		'body			商品描述
	out_trade_no    =   oid			    '客户网站订单号，（现取系统时间，可改成网站自己的变量）
	price		    =	price			'price商品单价			0.01～50000.00
    discount        =   "0"             '商品折扣
    show_url        =   url       	    '商品展示地址（可以直接写网站首页网址）
    quantity        =   "1"             '商品数量
    payment_type    =   "1"             '支付类型，（1代表商品购买）
    logistics_type  =   "EXPRESS"       '物流种类（快递）
    logistics_fee   =   "15"            '物流费用
    logistics_payment  = "BUYER_PAY"  	'物流费用承担(卖家付)
    logistics_type_1   = "EMS"
    logistics_fee_1    = "20"
    logistics_payment_1= "BUYER_PAY"   '物流费用承担(买家付)
    seller_email    =  v_mid   '(必须填)
    key             =  key1  '(必须填)
    notify_url 		=  ""   '服务器通知url（不使用，请不要注释或者删除此参数，不用传递给支付宝系统，Alipay_Notify.asp文件所在路经） 

    itemUrl=creatAlipayURL(t1,t4,t5,service,agent,partner,sign_type,subject,body,out_trade_no,price,discount,show_url,quantity,payment_type,logistics_type,logistics_fee,logistics_payment,logistics_type_1,logistics_fee_1,logistics_payment_1,seller_email,notify_url,key)
end sub
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
setTimeout("window.opener=null;window.close()",0);//零秒后关闭
//-->
</SCRIPT>