📄 paysub.asp
字号:
<%
'---------------------------------------------ipay----------------------------------------------
sub pay_ipay()
v_oid =OrderNo '订单号
v_amount =money '总价
v_email =pay_email '付款人电子邮件
v_mobile =pay_tel '付款人联系电话
v_md5 =md5(v_mid & v_oid & v_amount & v_email & v_mobile & key) '组合md5加密
v_comment_1="账户充值"
v_comment =server.urlencode(v_comment_1)
v_url ="PayBackIPay.asp" '支付结果后返回页
response.write ("<form method=post name=post action=""http://www.ipay.cn/4.0/bank.shtml"">")
response.write ("<input type=hidden name=v_mid value="&v_mid&">")
response.write ("<input type=hidden name=v_oid value="&v_oid&">")
response.write ("<input type=hidden name=v_amount value="&v_amount&">")
response.write ("<input type=hidden name=v_md5 value="&v_md5&">")
response.write ("<input type=hidden name=v_email value="&v_email&">")
response.write ("<input type=hidden name=v_mobile value="&v_mobile&">")
response.write ("<input type=hidden name=v_comment value="&v_comment&">")
response.write ("<input type=hidden name=v_url value="&v_url&">")
response.write ("</form>")
response.write "<SCRIPT LANGUAGE=""JavaScript"">"
response.write "document.post.submit();"
response.write "</script>"
end sub
'---------------------------------------------网银---------------------------------------------
sub pay_ChinaBank()
v_oid =OrderNo '订单号
v_amount=money
v_url=SiteUrl&InstallDir&"onlinepay/chinabank/result.asp"
v_moneytype = "0" '人民币支付方式
style="0"'指网关模式0(普通)，1(银行列表中带外卡)
remark1=""
remark2=""
text = v_amount&v_moneytype&v_oid&v_mid&v_url&key
v_md5info=Ucase(trim(md5(text))) '网银支付平台对MD5值只认大写字符串，所以小写的MD5值得转换为大写
response.write ("<form method=post name=post action=""https://pay.chinabank.com.cn/select_bank"">")
response.write ("<input type=hidden name=v_md5info size=100 value="&v_md5info&">")
response.write ("<input type=hidden name=v_mid value="&v_mid&">")
response.write ("<input type=hidden name=v_oid value="&v_oid&">")
response.write ("<input type=hidden name=v_amount value="&v_amount&">")
response.write ("<input type=hidden name=v_moneytype value="&v_moneytype&">")
response.write ("<input type=hidden name=v_url value="&v_url&">")
response.write ("<input type=hidden name=style value="&style&">")
response.write ("<input type=hidden name=remark1 value="&remark1&">")
response.write ("<input type=hidden name=remark2 value="&remark2&">")
response.write ("<input type=hidden name=v_rcvname value="&pay_member&">")
response.write ("<input type=hidden name=v_rcvaddr value="&pay_address&">")
response.write ("<input type=hidden name=v_rcvtel value="&pay_tel&">")
response.write ("<input type=hidden name=v_orderemail value="&pay_email&">")
response.write ("</form>")
response.write "<SCRIPT LANGUAGE=""JavaScript"">"
response.write "document.post.submit();"
response.write "</script>"
end sub
'---------------------------------------支付宝--------------------------------
sub pay_AliPay()
s1 = "0001" '命令码
s2 = "账户充值" '商品名称
s21 = "账户充值" '商品描述
s3 = OrderNo '订单号
s4 = money '金额
s5 = "1" '支付类型
s6 = "1" '购买数量
s7 = "网上支付" '送货方式
s8 = "0" '平邮费用
s9 = "0" '快递费用
s10 = "true" '只读
s11 = "" '买家留言
s12 = pay_email '买家Email
s13 = session("user_name") '买家姓名
s14 = pay_address '买家地址
s15 = "" '买家邮编
s16 = pay_tel '买家电话
s17 = "" '买家手机
sellerEmail = v_mid '卖家EMAIL
s18 = "" 'partner
key = key
str2CreateAc = "cmd" & s1 & "subject" & s2
str2CreateAc = str2CreateAc & "body" & s21
str2CreateAc = str2CreateAc & "order_no" & s3
str2CreateAc = str2CreateAc & "price" & s4
str2CreateAc = str2CreateAc & "type" & s5
str2CreateAc = str2CreateAc & "number" & s6
str2CreateAc = str2CreateAc & "transport" & s7
str2CreateAc = str2CreateAc & "ordinary_fee" & s8
str2CreateAc = str2CreateAc & "express_fee" & s9
str2CreateAc = str2CreateAc & "readonly" & s10
str2CreateAc = str2CreateAc & "buyer_msg" & s11
str2CreateAc = str2CreateAc & "seller" & sellerEmail
str2CreateAc = str2CreateAc & "buyer" & s12
str2CreateAc = str2CreateAc & "buyer_name" & s13
str2CreateAc = str2CreateAc & "buyer_address" & s14
str2CreateAc = str2CreateAc & "buyer_zipcode" & s15
str2CreateAc = str2CreateAc & "buyer_tel" & s16
str2CreateAc = str2CreateAc & "buyer_mobile" & s17
str2CreateAc = str2CreateAc & "partner" & s18
str2CreateAc = str2CreateAc & key
ac=MD5(str2CreateAc)
response.write ("<form method=post name=post action=https://www.alipay.com/payto:"&v_mid&">")
response.write ("<input type=hidden name=cmd value="&s1&">")
response.write ("<input type=hidden name=subject value="&s2&">")
response.write ("<input type=hidden name=body value="&s21&">")
response.write ("<input type=hidden name=order_no value="&s3&">")
response.write ("<input type=hidden name=price value="&s4&">")
response.write ("<input type=hidden name=type value="&s5&">")
response.write ("<input type=hidden name=number value="&s6&">")
response.write ("<input type=hidden name=transport value="&s7&">")
response.write ("<input type=hidden name=ordinary_fee value="&s8&">")
response.write ("<input type=hidden name=express_fee value="&s9&">")
response.write ("<input type=hidden name=readonly value="&s10&">")
response.write ("<input type=hidden name=buyer_msg value="&s11&">")
response.write ("<input type=hidden name=seller value="&sellerEmail&">")
response.write ("<input type=hidden name=buyer value="&s12&">")
response.write ("<input type=hidden name=buyer_name value="&s13&">")
response.write ("<input type=hidden name=buyer_address value="&s14&">")
response.write ("<input type=hidden name=buyer_zipcode value="&s15&">")
response.write ("<input type=hidden name=buyer_tel value="&s16&">")
response.write ("<input type=hidden name=buyer_mobile value="&s17&">")
response.write ("<input type=hidden name=partner value="&s18&">")
response.write ("<input type=hidden name=ac value="&ac&">")
response.write ("</form>")
response.write "<SCRIPT LANGUAGE=""JavaScript"">"
response.write "document.post.submit();"
response.write "</script>"
end sub
'-----------------------------------------------------------nps--------------------------------------------
sub pay_NPS()
m_id = v_mid
modate = date()
m_orderid = OrderNo
m_oamount = money
m_ocurrency = "1"
m_url = ""
m_language = "1"
s_name = ""
s_addr = ""
s_postcode = ""
s_tel = ""
s_eml = ""
r_name = ""
r_addr = ""
r_postcode = ""
r_tel = ""
r_eml = ""
m_ocomment = "账户充值"
m_status = "0"
key = key
OrderMessage =m_id&m_orderid&m_oamount&m_ocurrency&m_url&m_language&s_postcode&s_tel&s_eml&r_postcode&r_tel&r_eml&modate&key
digest = Ucase(trim(md5(OrderMessage)))
response.write ("<form method=get name=post action=https://payment.nps.cn/VirReceiveMerchantAction.do>")
response.write ("<input Type=hidden Name=M_ID value="&m_id&">")
response.write ("<input Type=hidden Name=MOrderID value="&m_orderid&">")
response.write ("<input Type=hidden Name=MOAmount value="&m_oamount&">")
response.write ("<input Type=hidden Name=MOCurrency value="&m_ocurrency&">")
response.write ("<input Type=hidden Name=M_URL value="&m_url&">")
response.write ("<input Type=hidden Name=M_Language value="&m_language&">")
response.write ("<input Type=hidden Name=S_Name value="&s_name&">")
response.write ("<input Type=hidden Name=S_Address value="&s_addr&">")
response.write ("<input Type=hidden Name=S_PostCode value="&s_postcode&">")
response.write ("<input Type=hidden Name=S_Telephone value="&s_tel&">")
response.write ("<input Type=hidden Name=S_Email value="&s_eml&">")
response.write ("<input Type=hidden Name=R_Name value="&r_name&">")
response.write ("<input Type=hidden Name=R_Address value="&r_addr&">")
response.write ("<input Type=hidden Name=R_PostCode value="&r_postcode&">")
response.write ("<input Type=hidden Name=R_Telephone value="&r_tel&">")
response.write ("<input Type=hidden Name=R_Email value="&r_eml&">")
response.write ("<input Type=hidden Name=MOComment value="&m_ocomment&">")
response.write ("<input Type=hidden Name=MODate value="&modate&">")
response.write ("<input Type=hidden Name=State value="&m_status&">")
response.write ("<input Type=hidden Name=digestinfo value="&digest&">")
response.write ("</form>")
response.write "<SCRIPT LANGUAGE=""JavaScript"">"
response.write "document.post.submit();"
response.write "</script>"
end sub
sub pay_paypal()
response.write ("<form action=https://www.paypal.com/cgi-bin/webscr method=post name=post>")
response.write ("<input type=hidden name=cmd value=_xclick>")
response.write ("<input type=hidden name=business value="&v_mid&">")
response.write ("<input type=hidden name=return value=../PayBackPayPal.asp>")
response.write ("<input type=hidden name=item_name value=Order NO. is "&OrderNo&">")
response.write ("<input type=hidden name=item_number value="&OrderNo&">")
response.write ("<input type=hidden name=amount value="&money&">")
response.write ("</form>")
response.write "<SCRIPT LANGUAGE=""JavaScript"">"
response.write "document.post.submit();"
response.write "</script>"
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -