📄 pay.asp

📁 购物系统(本版为正式商业版
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%
'------------------------------------动感支付----------------------------------

sub pay_1()
response.write ("<form name=form1 method=""post"" action=""http://www.o91.com/send.asp"" target=new>")
response.write (" <td height=""11"" bgcolor=""#FFFFFF"" style='PADDING-LEFT: 50px'> ")
response.write (" <input name=C_username type=""hidden"" class=""wenbenkuang"" id=""C_username"" value="&pay2&">")
response.write (" <input name=C_Merchant_id type=""hidden"" id=""C_Merchant_id"" value="&pay3&" class=""wenbenkuang"">")
response.write (" <input name=C_Merchant_oid type=""hidden"" class=""wenbenkuang"" id=""C_Merchant_oid"" value="&dd&">")
response.write ("<input name=C_Merchant_shopname type=""hidden"" class=""wenbenkuang"" id=""C_Merchant_shopname"" value="&request("shopname")&">")
response.write ("<input name=C_Merchant_name type=""hidden"" class=""wenbenkuang"" id=""C_Merchant_name"" value="&request("userzhenshiname")&">")
response.write ("<input name=C_Merchant_addr type=""hidden"" class=""wenbenkuang"" id=""C_Merchant_addr"" value="&request("shouhuodizhi")&">")
response.write ("<input name=C_Merchant_tel type=""hidden"" class=""wenbenkuang"" id=""C_Merchant_tel"" value="&request("usertel")&">")
response.write ("<input name=C_Merchant_post type=""hidden"" id=""C_Merchant_post"" value="&request("youbian")&" class=""wenbenkuang"">")
response.write ("<input name=C_Merchant_amount type=""hidden"" id=""C_Merchant_amount"" value="&zj&" size=""12"" class=""wenbenkuang"">")
response.write ("<input name=C_Merchant_ymd type=""hidden"" class=""wenbenkuang"" id=""C_Merchant_ymd"" value="&ymd&">")                 
response.write ("<input name=C_Merchant_orderstatus type=""hidden"" id=""C_Merchant_orderstatus"" value="&pay4&" class=""wenbenkuang"">")
response.write ("<input name=C_Merchant_username type=""hidden"" class=""wenbenkuang"" id=""C_Merchant_username"" value="&request("userzhenshiname")&">")
response.write ("<input name=C_Merchant_moneytype type=""hidden"" id=""C_Merchant_moneytype"" value="&pay5&" class=""wenbenkuang"">")
response.write ("<input name=C_Merchant_url type=""hidden"" id=""C_Merchant_url"" value="&pay6&" class=""wenbenkuang"">")
response.write ("<input type=submit name=""submit"" value=""使用“动感在线支付”付款"" class=""go-wenbenkuang"">")
response.write ("<input name=C_Merchant_lx type=""hidden"" id=""C_Merchant_lx"" value="&pay7&">")
response.write (" </td> ")
response.write ("</form>")
end sub

'---------------------------------------支付宝--------------------------------
sub pay_2()
alipay_name=dd & "号订单在线支付"
	alipay_body="以下金额（"& zj & "元）已包含配送费用"
	zongji        =        zj
        s1           =        "0001"		  '命令码
        s2           =        request("shopname")	  '商品名称
        s21          =        request("shopname")	  '商品描述
        s3           =        dd		  '订单号
        s4           =        zongji		  '金额
        s5           =        "1"		  '支付类型
        s6           =        "1"		  '购买数量
        s7           =        "1"		  '发货方式
        s8           =        "0.00"        	  '邮费
        s9           =        "0.00"        	  '邮费
        s10          =        "true"        	  '只读
        s11          =        request("liuyan")		  '买家留言
        s12          =        ""		  '买家Email
        s13          =        request("userzhenshiname")	  '买家姓名
        s14          =        request("shouhuodizhi")	  '买家地址
        s15          =        request("youbian")		  '买家邮编
        s16          =        request("usertel")		  '买家电话
        s17          =        pay4		  '买家手机
        sellerEmail  =        pay2		  '卖家EMAIL
	s18    	     =        "2088002064449821"  'partner
        key          =        pay3
	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:"&sellerEmail&"  target=new>")
response.write (" <td height=""11"" bgcolor=""#FFFFFF"" style='PADDING-LEFT: 50px'> ")
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 ("<input type=submit  value=""使用“支付宝”付款""  class=""go-wenbenkuang"">")
response.write (" </td> ")
response.write ("</form>")
end sub


'-----------------------------------网银--------------------------------
sub pay_3()

key = pay3'      MD5私钥
v_mid = pay2 '商户号,这里为测试商户号1001，替换为自己的商户号即可
v_moneytype = pay4'      支付币种0为人民币
style=pay5'      指网关模式0(普通)，1(银行列表中带外卡)
v_url= pay6'      商户自定义返回接收支付结果的页面	 
v_oid=dd'      订单号，构成格式 年月日-商户号-小时分钟秒
v_amount=zj'      订单金额
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"" target=new>")
response.write (" <td height=""11"" bgcolor=""#FFFFFF"" style='PADDING-LEFT: 50px'> ")
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=submit  value=""使用“网银”付款""  class=""go-wenbenkuang"">")
response.write (" </td> ")
response.write ("</form>")
end sub



'-----------------------------------------------------------nps--------------------------------------------

sub pay_4()

	m_id		=	pay2
	modate		=	date()
	m_orderid	=	dd
	m_oamount	=	zj
	m_ocurrency	=	pay4
	m_url		=	pay6
	m_language	=	pay5
	s_name		=	request("userzhenshiname")
	s_addr		=	request("shouhuodizhi")
	s_postcode	=	request("youbian")
	s_tel		=	request("usertel")			
	s_eml		=	request("useremail")
	r_name		=	request("userzhenshiname")
	r_addr		=	request("shouhuodizhi")
	r_postcode	=	request("youbian")	
	r_tel		=	request("usertel")	
	r_eml		=	request("useremail")
	m_ocomment	=	request("liuyan")	
	m_status	=	pay7
	key		    =	key
	'创建NPS安全组件
	Set NPSMAC = Server.CreateObject("NPSDigest.NPSSecurity")
	'组织订单信息
	m_info = m_id&"|"&m_orderid&"|"&m_oamount&"|"&m_ocurrency&"|"&m_url&"|"&m_language
	s_info = s_name&"|"&s_addr&"|"&s_postcode&"|"&s_tel&"|"&s_eml&"|"&r_name
	r_info = r_addr&"|"&r_postcode&"|"&r_tel&"|"&r_eml&"|"&m_ocomment&"|"&m_status&"|"&modate
	NPSMAC.OrderInfo =  m_info&"|"&s_info&"|"&r_info
	'设置密钥
	NPSMAC.NPSKey = pay3
	'加密
	OrderInfo = NPSMAC.GetEncrypt
	NPSMAC.OrderInfo = OrderInfo
	digest = NPSMAC.GetDigest
    response.write ("<form name=""FORM"" method=""post"" action=""https://payment.nps.cn/ReceiveMerchantAction.do""  target=new>")
	response.write (" <td height=""11"" bgcolor=""#FFFFFF"" style='PADDING-LEFT: 50px'> ")
	response.write ("<input type=""hidden"" name=""OrderMessage"" value="&OrderInfo&">")
	response.write ("<input type=""hidden"" name=""digest"" value="&digest&">")
	response.write ("<input type=""hidden"" name=""M_ID"" value="&m_id&">")
	response.write ("<input type=""hidden"" name=""s"" value=""submit"">")
response.write ("<input type=submit  value=""使用“nps”付款""  class=""go-wenbenkuang"">")
response.write (" </td> ")
response.write ("</form>")
'response.write "<SCRIPT LANGUAGE=""JavaScript"">"
'response.write "document.post.submit();"
'response.write "</SCRIPT>"
end sub
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -