📄 pay.asp
字号:
<!--
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
★ ★
☆ （请保留此处版权信息，这些内容并不会对您的网站运行有任何影响） ☆
★ ★
☆ 索特购物系统 V 5.0版 ☆
★ ★
☆ 版权所有: ssort.com ☆
★ ★
☆ 程序制作: 索特开发团队 ☆
★ email:ssort@126.com ★
☆ Tel:020-31390716 020-83649302 QQ:53597578 ☆
★ ★
☆ 相关网址: http://www.ssort.com ☆
★ ★
☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
-->
<%
'------------------------------------ipay----------------------------------
sub pay1()
v_oid=cartbh
v_amount=money
v_email=yqj_email
v_mobile=yqj_phone
v_md5=md5(v_mid & v_oid & v_amount & v_email & v_mobile & key)
v_comment_1="购物款项"
v_comment=server.urlencode(v_comment_1)
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 ("</form>")
response.write "<SCRIPT LANGUAGE=""JavaScript"">"
response.write "document.post.submit();"
response.write "</SCRIPT>"
end sub
'-----------------------------------网银--------------------------------
sub pay2()
v_oid=cartbh
v_amount=money
v_email=yqj_email
v_mobile=yqj_phone
v_md5=md5(v_mid & v_oid & v_amount & v_email & v_mobile & key)
v_url="http://www.ssort.com/bankReceive.asp"
v_moneytype = "0"
style="0"
remark1=""
remark2=""
text = v_amount&v_moneytype&v_oid&v_mid&v_url&key
v_md5info=Ucase(trim(md5(text)))
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 ("</form>")
response.write "<SCRIPT LANGUAGE=""JavaScript"">"
response.write "document.post.submit();"
response.write "</SCRIPT>"
end sub
'---------------------------------------支付宝--------------------------------
sub pay3()
dim ssortproduct,proco,allsortprocut
ssortproduct=""
proco=""
set rs2=server.createobject("adodb.recordset")
sql2 = "Select * From yqj_product"
sql2 = sql2 & " Where id In (" & ProductList & ")"
rs2.open sql2,conn,3,3
Sum = 0
While Not rs2.EOF
RMB=rs2("p_mmoney")
Quatity = CInt( Request( "Q_" & rs2("p_name")) )
If Quatity <= 0 Then
Quatity = CInt( Session(rs2("p_name")) )
If Quatity <= 0 Then Quatity = 1
End If
Session(rs2("p_name")) = Quatity
Sum = Sum + ccur(rmb) * Quatity
proco=rs2("p_name")&"，"&ccur(rmb)&"元"&"×"&Quatity&"；"
ssortproduct=ssortproduct&proco
rs2.MoveNext
Wend
rs2.close
set rs2=nothing
allsortprocut=ssortproduct&"商品总价："&sum
alipay_name=cartbh & "号订单-在线支付"
alipay_body="以下商品金额（"& sum & "元，已包含配送费用）："&allsortprocut
total = replace(cstr(formatnumber(sum,2)),",","")
s1 = "0001" '命令码
s2 = alipay_name '商品名称
s21 = alipay_body '商品描述
s3 = cartbh '订单号
s4 = sum '金额
s5 = "1" '支付类型
s6 = "1" '购买数量
s7 = "1" '发货方式
s8 = "0.00" '邮费
s9 = "0.00" '邮费
s10 = "true" '只读
s11 = content '买家留言
s12 = yqj_email '买家Email
s13 = ucase(yqj_realname) '买家姓名
s14 = yqj_address '买家地址
s15 = yqj_postal '买家邮编
s16 = yqj_phone '买家电话
s17 = yqj_phone '买家手机
sellerEmail = v_mid '卖家EMAIL
s18 = "20834985488493" '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 pay4()
m_id = v_mid
modate = date()
m_orderid = cartbh
m_oamount = money
m_ocurrency = "1"
m_url = ""
m_language = "1"
s_name = yqj_realname
s_addr = yqj_address
s_postcode = yqj_postal
s_tel = yqj_phone
s_eml = yqj_email
r_name = yqj_realname
r_addr = yqj_address
r_postcode = yqj_postal
r_tel = yqj_phone
r_eml = yqj_email
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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -