alipay_geturl.asp

电子商城代码

<%
dim pprice,ppprice,pfpprice,basket_price,yy,mm,dd,ymd,xiaoshi,fenzhong,miao,BillNo,order_num,order_number
                If rspro("cx")=1 And rspro("auct")=0 Then
                        ppprice = rspro("cprice")
                        pPrice = rspro("cprice")
                        pfpprice = rspro("cprice")
                ElseIf rspro("cx")=0 And rspro("auct")=0 then
                        ppprice = rspro("vprice")
                        pprice = rspro("price")
                        pfpprice = rspro("pfprice")
	 ElseIf rspro("cx")=0 And rspro("auct")=1 Then
                        ppprice = rspro("price")
                        pPrice = rspro("price")
                        pfpprice = rspro("price")
                End If

                If session(""&cookiesname&"user_grade")="1" then
                        basket_price=pprice
                elseif session(""&cookiesname&"user_grade")="2" and session(""&cookiesname&"user_id")<>"" then
                        basket_price=ppprice
                        '批发价 05-04-30 BY 小寒
                elseif session(""&cookiesname&"user_grade")="3" and session(""&cookiesname&"user_id")<>"" then
                        basket_price=pfpprice
                elseif session(""&cookiesname&"user_id")="" or session(""&cookiesname&"user_grade")="" then
                        basket_price=pprice
                End if

              '生成订单号
              yy=year(date):mm=right("00"&month(date),2):dd=right("00"&day(date),2):ymd=yy&mm&dd:xiaoshi=right("00"&hour(time),2):fenzhong=right("00"&minute(time),2):miao=right("00"&second(time),2):BillNo=xiaoshi&fenzhong&miao
              order_num=ymd&BillNo

	Dim goodsBid,ordinaryFee,expressFee,sellerEmail,goodsTitle,securityCode,Cmd,Subject,Body,partner
	Dim myAlipayObj,ResponseTxt1,ResponseTxt2,ResponseTxt3
              Dim alipay_subject,alipay_body,alipay_goodsbid,alipay_ordinaryFee,alipay_expressFee,alipay_goodsTitle
              alipay_subject="Item No:"&trim(rspro("bianhao"))                         
              alipay_body="Stock:"&rspro("kucun")
	alipay_goodsbid=basket_price                                 
              alipay_ordinaryFee=alipay_of                              
              alipay_expressFee=alipay_ef                           
              alipay_goodsTitle=order_num	                                     
              alipay_partnerId=alipay_partnerId

	'必要参数,请勿修改
	goodsBid			= alipay_goodsbid	
	ordinaryFee		= alipay_ordinaryFee
	expressFee		= alipay_expressFee
	sellerEmail			= alipay_email               
	goodsTitle		= alipay_goodsTitle
	securityCode		= alipay_code
	Cmd			= "0001"            	'命令编号
	Subject			= alipay_subject	
	Body			= alipay_body	
              partner                                = alipay_partnerId
%>
<%
	Set myAlipayObj = New myAlipay
	myAlipayObj.myAlipay_Initialize()

	'ResponseTxt1为请求i_link处理链接后生成的支付链接
	ResponseTxt1		= myAlipayObj.getTradeButtonURL(goodsBid,ordinaryFee,expressFee,sellerEmail,goodsTitle,securityCode)
	'ResponseTxt2为采用MD5等方法自动组合生成的支付链接,支持商品中文名称
	ResponseTxt2		= myAlipayObj.generateTradeButtonURL(goodsBid,ordinaryFee,expressFee,sellerEmail,goodsTitle,securityCode)
	'ResponseTxt3为采用MD5等方法自动组合生成的payto支付链接,支持商品中文名称
	ResponseTxt3		= myAlipayObj.generatePaytoURL(goodsBid,ordinaryFee,expressFee,sellerEmail,goodsTitle,securityCode,Cmd,Subject,Body,partner,order_number)
%>