?? zfb.asp
字號:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="./md5.asp"-->
<!-- 支付寶接口文檔,本文件由湖南E族網(wǎng)絡(luò)服務(wù)中心提供。程序原版 。如有不明之處可聯(lián)系我們www.22cnshop.com,騰詡QQ:349897132-->
<%
t1 = "https://www.alipay.com/payto:" '支付接口
t2 = "" '商戶支付寶賬戶(改成你自己的)
t3 = "" '安全校驗碼(改成你自己的)
' t4 = "http://img.alipay.com/pimg/button_alipaybutton_o.gif" '支付寶按鈕圖片
' t5 = "用支付寶支付,放心" '按鈕懸停說明
s1 = "0001" 'cmd 命令碼
s2 = "" 'subject 商品名稱
s3 = "" 'body 商品描述
s4 = "" 'order_no 商戶訂單號
s5 = "" 'price 商品單價 0.01~50000.00
s6 = "" 'url 商品展示網(wǎng)址
s7 = "1" 'type 支付類型 1:商品購買2:服務(wù)購買3:網(wǎng)絡(luò)拍賣4:捐贈
s8 = "" 'number 購買數(shù)量
s9 = "" 'transport 發(fā)貨方式 1:平郵2:快遞3:虛擬物品
s10 = "10.00" 'ordinary_fee 平郵運費
s11 = "15.00" 'express_fee 快遞運費
s12 = "true" 'readonly 交易信息是否只讀
s13 = "" 'buyer_msg 買家給賣家的留言
s14 = "" 'buyer 買家Email
s15 = "" 'buyer_name 買家姓名
s16 = "" 'buyer_address 買家地址
s17 = "" 'buyer_zipcode 買家郵編
s18 = "" 'buyer_tel 買家電話號碼
s19 = "" 'buyer_mobile 買家手機號碼
s20 = "2088002065360282" 'partner 友情ID請不要修改,用來統(tǒng)計交易金額的
'初始化各必要變量
INTERFACE_URL = t1+t2 '支付接口
sellerEmail = t2 '商戶支付寶賬戶(改成你自己的)
keyCode = t3 '安全校驗碼(改成你自己的)
' imgsrc = t4 '支付寶按鈕圖片
' imgtitle = t5 '按鈕懸停說明
str2CreateAc = "cmd" & s1 & "subject" & s2
str2CreateAc = str2CreateAc & "body" & s3
str2CreateAc = str2CreateAc & "order_no" & s4
str2CreateAc = str2CreateAc & "price" & s5
str2CreateAc = str2CreateAc & "url" & s6
str2CreateAc = str2CreateAc & "type" & s7
str2CreateAc = str2CreateAc & "number" & s8
str2CreateAc = str2CreateAc & "transport" & s9
str2CreateAc = str2CreateAc & "ordinary_fee" & s10
str2CreateAc = str2CreateAc & "express_fee" & s11
str2CreateAc = str2CreateAc & "readonly" & s12
str2CreateAc = str2CreateAc & "buyer_msg" & s13
str2CreateAc = str2CreateAc & "seller" & sellerEmail
str2CreateAc = str2CreateAc & "buyer" & s14
str2CreateAc = str2CreateAc & "buyer_name" & s15
str2CreateAc = str2CreateAc & "buyer_address" & s16
str2CreateAc = str2CreateAc & "buyer_zipcode" & s17
str2CreateAc = str2CreateAc & "buyer_tel" & s18
str2CreateAc = str2CreateAc & "buyer_mobile" & s19
str2CreateAc = str2CreateAc & "partner" & s20
str2CreateAc = str2CreateAc & keyCode
acCode = MD5(str2CreateAc)
itemURL = INTERFACE_URL & "?cmd=" & s1
itemURL = itemURL & "&subject=" & Server.HTMLEncode(s2)
itemURL = itemURL & "&body=" & Server.HTMLEncode(s3)
itemURL = itemURL & "&order_no=" & s4
itemURL = itemURL & "&price=" & s5
itemURL = itemURL & "&url=" & s6
itemURL = itemURL & "&type=" & s7
itemURL = itemURL & "&number=" & s8
itemURL = itemURL & "&transport=" & s9
itemURL = itemURL & "&ordinary_fee=" & s10
itemURL = itemURL & "&express_fee=" & s11
itemURL = itemURL & "&readonly=" & s12
itemURL = itemURL & "&buyer_msg=" & Server.HTMLEncode(s13)
itemURL = itemURL & "&buyer=" & Server.HTMLEncode(s14)
itemURL = itemURL & "&buyer_name=" & Server.HTMLEncode(s15)
itemURL = itemURL & "&buyer_address=" & Server.HTMLEncode(s16)
itemURL = itemURL & "&buyer_zipcode=" & s17
itemURL = itemURL & "&buyer_tel=" & s18
itemURL = itemURL & "&buyer_mobile=" & s19
itemURL = itemURL & "&partner=" & s20
itemURL = itemURL & "&ac=" & acCode
'調(diào)用方法 DelStr(值),防止SQL注入攻擊
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,"頂級","DingJi")
End Function
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -