jszx.asp

采用asp+fso技术 傻瓜式的程序安装和调试 用户无需考虑系统的安装维护 美观、友好的展示铺面 设计中应用了多种网络安全技术 顾客可以方便的查询并订购商品 用户可以方便的定义各种商品信息

<div align="center">
<%
dim SHJIAUserName,iiii,BOBbookname
iiii=int(request("feiyong"))+int(request("zongji"))
BOBbookname=request("BOBbookname")
SHJIAUserName="BOBshop_admin"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from BOB_PAY where SHJIAUserName='"&SHJIAUserName&"' ",conn,1,1	
if rs.eof and rs.bof then
response.Write "<script LANGUAGE='javascript'>alert('此店铺还没有设置在线支付帐号！');</script>"
else
if rs("BOB_PAY_CLASS")=1 then '支付宝
	'Dim goodsBid,ordinaryFee,expressFee,sellerEmail,goodsTitle,securityCode,Cmd,Subject,Body
	'Dim myAlipayObj,ResponseTxt1,ResponseTxt2,ResponseTxt3
	
	'六个必要参数,您可以设置成表单或链接提交表单/请求链接的方式
	goodsBid			= formatnumber(iiii,2) 	'商品价格
	ordinaryFee			= "0.00"	'平邮费用
	expressFee			= "0.00"	'快递费用
	sellerEmail			= rs("BOB_PAY_ZHANGHAO")'您的支付宝认证Email,必须通过支付宝认证才可以
	goodsTitle			= dingdanhao	'订单编号
	securityCode		= rs("BOB_PAY_MIYAO")  '安全校验码,在支付宝网站“商家工具”那里可以获得
	Cmd					= "0001"	'命令编号
	Subject				= BOBbookname		'商品名称
	Body				= BOBbookname	'商品描述

	'创建一个myAlipay实例,并初始化myAlipay_Initialize()
	Set myAlipayObj		= New myAlipay
	myAlipayObj.myAlipay_Initialize()

	'ResponseTxt1为请求i_link处理链接后生成的支付链接
	'ResponseTxt1		= myAlipayObj.getTradeButtonURL(goodsBid,ordinaryFee,expressFee,sellerEmail,goodsTitle,securityCode)
	'ResponseTxt2为采用MD5等方法自动组合生成的支付链接,支持商品中文名称
	'ResponseTxt2		= myAlipayObj.generateTradeButtonURL(goodsBid,ordinaryFee,expressFee,sellerEmail,goodsTitle,securityCode)
	'ResponseTxt3为采用MD5等方法自动组合生成的payto支付链接,支持商品中文名称
	ResponseTxt3		= myAlipayObj.generatePaytoURL(goodsBid,ordinaryFee,expressFee,sellerEmail,goodsTitle,securityCode,Cmd,Subject,Body)
	
	'Response.Write "ResponseTxt1 = " & ResponseTxt1
	'Response.Write "<br>--------------------------------------------<br>"
	'Response.Write "ResponseTxt2 = " & ResponseTxt2
	'Response.Write "<br>--------------------------------------------<br>"
	'Response.Write "ResponseTxt3 = " & ResponseTxt3
%>
<a href="<%=ResponseTxt3%>" target="_parent"><img src="images/alibtn2.gif" border="0"></a>
<%

elseif rs("BOB_PAY_CLASS")=2 then '网银支付
    
	 ' 表单的各项参数如下：

	 ' v_mid
	 '      商户号,这里为测试商户号1001，替换为自己的商户号即可
	 ' key
	 '      MD5私钥
	 ' v_oid
	 '      订单号，构成格式 年月日-商户号-小时分钟秒
	 ' v_amount
	 '      订单金额
	 ' v_moneytype
	 '      支付币种0为人民币
	 ' v_url
	 '      商户自定义返回接收支付结果的页面	 
	 ' remark1 
	 '      备注字段1
	 ' remark2 
	 '      备注字段2
	 ' style
	 '      指网关模式0(普通)，1(银行列表中带外卡)


	 '********以下几项与网上支付货款无关，建议不用**************
	 ' v_rcvname 
	 '      收货人
	 ' v_rcvaddr
	 '      收货地址	       
	 ' v_rcvtel
	 '      订货人电话	
	 ' v_rcvpost
	 '      邮编
	 ' v_ordername
	 '      发货人
	 ' v_orderemail
	 '      订货人EMAIL
key = rs("BOB_PAY_MIYAO")
	v_mid = rs("BOB_PAY_ZHANGHAO")
	v_amount=formatnumber(iiii,2)
	v_moneytype = "0"
	style="0"
	v_url=rs("BOB_PAY_BACKURL")
	remark1=""
	remark2=""

	'根据系统时间产生订单，格式：YYYYMMDD-v_mid-HMMSS
	curdate=now()
	v_oid=year(curdate)&month(curdate)&day(curdate)&"-"&v_mid&"-"&hour(curdate)&minute(curdate)&second(curdate)
	text = v_amount&v_moneytype&v_oid&v_mid&v_url&key
	v_md5info=Ucase(trim(BOBSHOPWYMD5(text)))					'网银支付平台对MD5值只认大写字符串，所以小写的MD5值得转换为大写

	'**********以下几项与网上支付货款无关，建议不用**************
	v_rcvname="www_IT-BOB_com"
	v_rcvaddr="BOB_STUDIO"
	v_rcvtel="13785477507"
	v_rcvpost="065001"
	v_ordername="BOBSHOP"
	v_orderemail = "[e-mail]"
	
%>
<form method="post" action="https://pay3.chinabank.com.cn/select_bank" name="E_FORM" target="_parent">  
	<input type="hidden" name="v_md5info" size="100"  value="<%=v_md5info%>">
	<input type="hidden" name="v_mid" value="<%=v_mid%>">
	<input type="hidden" name="v_oid" value="<%=v_oid%>">
	<input type="hidden" name="v_amount" value="<%=v_amount%>">
	<input type="hidden" name="v_moneytype"  value="<%=v_moneytype%>">
	<input type="hidden" name="v_url" value="<%=v_url%>">
	<input type="hidden" name="style" value="<%=style%>">
	<input type="hidden" name="remark1" value="<%=remark1%>">
	<input type="hidden" name="remark2" value="<%=remark2%>">
	<!--以下几项与网上支付货款无关，建议不用//-->
	<input type="hidden" name="v_rcvname" value="<%=v_rcvname%>">
	<input type="hidden" name="v_rcvaddr" value="<%=v_rcvaddr%>">
	<input type="hidden" name="v_rcvtel" value="<%=v_rcvtel%>">
	<input type="hidden" name="v_rcvpost" value="<%=v_rcvpost%>">
	<input type="hidden" name="v_ordername"  value="<%=v_ordername%>">
	<input type="hidden" name="v_orderemail"  value="<%=v_orderemail%>">
	<input type=submit name=v_action value="进入购物系统在线支付平台">
</form>
<%

elseif rs("BOB_PAY_CLASS")=3 then 'NPS支付

		
	' 接收订单提交信息
	m_id		= 	rs("BOB_PAY_ZHANGHAO")'商 家 号
	m_orderid	= 	dingdanhao                                     '订单号
	m_oamount	= 	formatnumber(iiii,2) '订单金额
	
	key		    =     rs("BOB_PAY_MIYAO")
	
	m_url		= 	rs("BOB_PAY_BACKURL")                           '返回地址
	
	if m_url ="" then 
	   m_url = null
	end if
	m_ocurrency = 	1'币    种
	if m_ocurrency ="" then 
	   m_ocurrency = null
	end if 

	m_language	= 	1'语言选择
	if m_language ="" then 
	   m_language = null
	end if 

	s_name		= 	trim(request("shouhuoname"))
	if s_name ="" then 
	   s_name = null
	end if 

	s_addr		= 	trim(request("shouhuodizhi"))
	if s_addr ="" then 
	   s_addr = null
	end if 

	s_postcode	= 	trim(request("youbian"))
	if s_postcode ="" then 
	   s_postcode = 0
	end if 

	s_tel		= 	trim(request("usertel"))
	if s_tel ="" then 
	   s_tel = 0
	end if 

	s_eml		= 	trim(request("useremail"))
	if s_eml ="" then 
	   s_eml = null
	end if 

	r_name		= 	trim(request("shouhuoname"))
	if r_name ="" then 
	   r_name = null
	end if 

	r_addr		= 	trim(request("shouhuodizhi"))
	if r_addr ="" then 
	   r_addr = null
	end if 

	r_postcode	= 	trim(request("youbian"))
	if r_postcode ="" then 
	   r_postcode = 0
	end if 

	r_tel		= 	trim(request("usertel"))
	if r_tel ="" then 
	   r_tel = 0
	end if 

	r_eml		= 	trim(request("useremail"))
	if r_eml ="" then 
	   r_eml = null
	end if 

	m_ocomment	= 	"BOBSHOP购物系统支付平台！"
	if m_ocomment ="" then 
	   m_ocomment = null
	end if 

	m_status	=	0

	modate	= 	date()'时间字段
	if modate ="" then 
	   modate = 2004-12-22
	end if 	
	
	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(BOBSHOPWYMD5(OrderMessage)))
	
%>
              </div>
					  <form name="form2" method="post" action="https://payment.nps.cn/VirReceiveMerchantAction.do" target="_parent">
    <div align="center">
    <input type="submit" name="Submit5" value="进入购物系统在线支付平台">
    <input Type="hidden" Name="M_ID" value="<%=m_id%>">
	<input Type="hidden" Name="MOrderID" value="<%=m_orderid%>">
	<input Type="hidden" Name="MOAmount" value="<%=m_oamount%>">
	<input Type="hidden" Name="MOCurrency" value="<%=m_ocurrency%>">
	<input Type="hidden" name="M_URL" value="<%=m_url%>">
	<input Type="hidden" Name="M_Language" value="<%=m_language%>">
	<input Type="hidden" Name="S_Name" value="<%=s_name%>">
	<input Type="hidden" Name="S_Address" value="<%=s_addr%>">
    <input Type="hidden" Name="S_PostCode" value="<%=s_postcode%>">
	<input Type="hidden" Name="S_Telephone" value="<%=s_tel%>">
	<input Type="hidden" Name="S_Email" value="<%=s_eml%>">
	<input Type="hidden" Name="R_Name" value="<%=r_name%>"> 
	<input Type="hidden" Name="R_Address" value="<%=r_addr%>">
	<input Type="hidden" Name="R_PostCode" value="<%=r_postcode%>">
	<input Type="hidden" Name="R_Telephone" value="<%=r_tel%>">
	<input Type="hidden" Name="R_Email" value="<%=r_eml%>">
	<input Type="hidden" name="MOComment" value="<%=m_ocomment%>">
	<input Type="hidden" Name="MODate" value="<%=modate%>">
	<input Type="hidden" Name="State" value="<%=m_status%>">
	<input Type="hidden" Name="digestinfo" value="<%=digest%>">
                      
                      <br>
        您选择的是在线支付，汇款后请及时和店主联系！！          </div> 
    </form>
	<%end if
	end if%>	
    </td>
    
  </tr><%end if%>	
		  
          <tr>
            <td height="30" bgcolor="ffffff" style='PADDING-LEFT: 100px' align="right"><a href="#" onClick=javascript:window.close()> 关闭窗口</a><font color="#999999">　订单提交完成 创建时间：<%=shijian%>&nbsp;</font> </td>
          </tr>
        </table>
        <%
		response.Cookies("BOB")("dingdanusername")=""
		end select%></TD>
      <TD class=b width=7></TD>
    </TR>
  </TBODY>
</TABLE>
<!--#include file="service.asp"-->
<!--#include file="copyright.asp"-->
</body>
</html>
<script language=javascript>
<!--
function regInput(obj, reg, inputStr)
{
	var docSel	= document.selection.createRange()
	if (docSel.parentElement().tagName != "INPUT")	return false
	oSel = docSel.duplicate()
	oSel.text = ""
	var srcRange	= obj.createTextRange()
	oSel.setEndPoint("StartToStart", srcRange)
	var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
	return reg.test(str)
}
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}
   //-->
</script>