| 发表于:2007-10-10 17:02:54 楼主 |
<% dim strcapath strcapath = server.mappath(".") dim bb,rc set bb =createobject("icbcebankutil.b2cutil") rc=bb.init (strcapath & "\user.crt",strcapath & "\user.crt",strcapath & "\user.key","11111111") if rc=0 then 'response.write "初始化成功. <br> " end if '商城代码+交易结果通知信息url+接口类型+订单号+订单金额+币种+通知信息类型 src = "我的商户号"+"我的商城/pay/result.asp"+"hs"+"12345678912345"+"10056"+"001"+"0" ssrc = bb.signc(src, len(src)) if ssrc = "" then response.write "签名失败,错误原因: <br> " 'response.write bb.getrc response.write src response.end else 'response.write "签名成功: <br> 签名为:" 'response.write ssrc end if 'response.write " <br> " rc=bb.verifysignc(src, len(src), ssrc, len(ssrc)) if rc <> 0 then 'response.write "验证签名失败,错误原因: <br> " 'response.write rc else 'response.write "验证签名成功: <br> " end if 'response.write " <br> " 'response.write "商户证书:" cert=bb.getcert(1) if cert = "" then response.write "获取商户证书失败,错误原因: <br> " 'response.write bb.getrc response.end else 'response.write "获取商户证书成功: <br> " 'response.write cert end if %> <html> <head> <title> 商城-数据提交-测试 </title> </head> <% dim merurl,merchantid %> <body onload="sendorder.submit();"> <form name="sendorder" method="post" action="https://mybank.icbc.com.cn/servlet/com.icbc.inbs.b2c.pay.b2cmerpayreqservlet"> <input type="hidden" name="merchantid" value="我的商户号" > <input type="hidden" name="interfacetype" value="hs" > <!----> <input type="hidden" name="merurl" value="我的商城/pay/result.asp" > <!----> <input type="hidden" name="orderid" value="12345678912345" > <!----> <input type="hidden" name="amount" valu="10056" > <!----> <input type="hidden" name="curtype" value="001" > <!----> <input type="hidden" name="hsmsgtype" value="0" > <!----> <input type="hidden" name="signmsg" value=" <%=ssrc%> "> <!----> <input type="hidden" name="cert" value=" <%=cert%> "> <!---> <input type="hidden" name="comment1" value=" <% =request.form("xm") %> " > <!----> <input type="hidden" name="comment2" value=" <% =request.form("bj") %> "> <!----> </form> </body> </html> |
|
|
|
|