alipayto.asp

航空订票系统基于asp.net和sql2005包含数据库和图片

<!--#include file="alipay/alipay_payto.asp"-->
<!--#include file="alipayconfig.asp"-->

<%

	Function DelStr(Str)
		If IsNull(Str) Or IsEmpty(Str) Then
			Str	= ""
		End If
		DelStr	= Replace(Str,";","")
		DelStr	= Replace(DelStr,"'","")
		DelStr	= Replace(DelStr,"&","")
		DelStr	= Replace(DelStr," ","")
		DelStr	= Replace(DelStr,"　","")
		DelStr	= Replace(DelStr,"%20","")
		DelStr	= Replace(DelStr,"--","")
		DelStr	= Replace(DelStr,"==","")
		DelStr	= Replace(DelStr,"<","")
		DelStr	= Replace(DelStr,">","")
		DelStr	= Replace(DelStr,"%","")
		DelStr	= Replace(DelStr,"""","")
		DelStr	= Replace(DelStr,"#","＃")
		DelStr	= Replace(DelStr,Chr(13),"<br>")
		DelStr	= Replace(DelStr,Chr(10),"")
	End Function

if request.Form("price")="" or request.Form("product")=""  then
response.write"<script>alert('商品名称，价格，交易的支付宝帐号都不能为空~');history.back();</script>"
response.End()
end if

dim service,partner,sign_type,subject,body,out_trade_no,price,show_url,quantity,seller_email,key,agent
dim t1,t4,t5
dim AlipayObj,itemUrl
	t1				=	"https://www.alipay.com/cooperate/gateway.do?"	'支付接口
	t4				=	"alipay/images/alipay_bwrx.gif"		'支付宝按钮图片
	t5				=	"推荐使用支付宝付款"						'按钮悬停说明
	
	service         =   "trade_create_by_buyer"
	partner			=	partner		'partner		合作伙伴ID			保留字段
	sign_type       =   "MD5"
	subject			=	DelStr(trim(request.Form("product")))		'subject		商品名称
	out_trade_no    =   Replace(Now(),"-","")
	out_trade_no    =   Trim(Replace(out_trade_no,":",""))
	body			=	DelStr(request.Form("remark"))		'body			商品描述
	body			=	replace(body,"<br>","|")&"订单号："&out_trade_no		'body			商品描述
	price		    =	round(request.Form("price"),2)
	 discount        =   "0"				'price			商品单价			0.01～50000.00
    show_url        =   show_url
    quantity        =   DelStr(request.Form("num"))
	payment_type    =   "1"
    logistics_type  =   "EXPRESS"
    logistics_fee   =   logistics_fee
    logistics_payment    =   buysell
	logistics_type_1     =   "POST"
    logistics_fee_1      =   logistics_fee_1
    logistics_payment_1  =   buysell
	
    seller_email    =    alipayemail
    key             =    alipaycode
    return_url      =    return_url   '页面跳转通知
  
	Set AlipayObj	= New creatAlipayItemURL
   itemUrl=AlipayObj.creatAlipayItemURL(t1,t4,t5,service,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,return_url,key)

response.Redirect itemUrl
%>