在線測試支付效果(微信掃碼測試公眾號支付效果)
接口對接服務熱線：180-687-28630 QQ:120094883
以下為提交訂單并生成二維碼的源文件:Native1.asp
---------------------------------------------
@LANGUAGE="VBSCRIPT" CODEPAGE="65001"
包含進Config.asp
包含進md5.asp
包含進Class.asp
Function gen_key(digits)
'Create and define array
dim char_array(50)
char_array(0) = "0"
char_array(1) = "1"
char_array(2) = "2"
char_array(3) = "3"
char_array(4) = "4"
char_array(5) = "5"
char_array(6) = "6"
char_array(7) = "7"
char_array(8) = "8"
char_array(9) = "9"
char_array(10) = "a"
char_array(11) = "b"
char_array(12) = "c"
char_array(13) = "d"
char_array(14) = "e"
char_array(15) = "f"
char_array(16) = "g"
char_array(17) = "h"
char_array(18) = "i"
char_array(19) = "j"
char_array(20) = "k"
char_array(21) = "l"
char_array(22) = "m"
char_array(23) = "n"
char_array(24) = "o"
char_array(25) = "p"
char_array(26) = "q"
char_array(27) = "r"
char_array(28) = "s"
char_array(29) = "t"
char_array(30) = "u"
char_array(31) = "v"
char_array(32) = "w"
char_array(33) = "x"
char_array(34) = "y"
char_array(35) = "z"
randomize
dim output,num
do while len(output) < digits
num = char_array(Int((35 - 0 + 1) * Rnd + 0))
output = output + num
loop
'Set return
gen_key = output
End Function
dim out_trade_no,body,total_fee,product_id,NativeUrl
'下面三個參數，需要在商城轉過來，包括唯一的訂單號，商品名稱，總金額
'out_trade_no = request("out_trade_no")
'body = request("body")
'total_fee = request("total_fee")
out_trade_no = request("dingdanhao")&"-"&gen_key(2)'getStrNow & getStrRandNumber(9999,1000) '唯一訂單號，可以自行生成
body = "微信支付"'"中文測試一下" '商品名稱
total_fee = request("zonge")*100'"1" '以分為單位
product_id = getStrNow & getStrRandNumber(9999,1000)
NativeUrl = get_Native_code_url
長按上面二維碼圖，
選[識別圖中二維碼].
