<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>工行商户提交表单</title>
</head>
<body>
<%
Dim bb,rc
Set bb =CreateObject("ICBCEBANKUTIL.B2CUtil")
rc=bb.init ("d:\user.crt","d:\user.crt","d:\user.key","11111111")
if rc <> 0 then
Response.Write "初始化失败."
Response.End()
end if
src = "this is a test"
ssrc = bb.signC(src, Len(src))
If ssrc = "" Then
Response.Write "签名失败,错误原因:"
Response.Write bb.getRC
Response.End()
End If
rc=bb.verifySignC(src, Len(src), ssrc, Len(ssrc))
If rc <> 0 Then
Response.Write "验证签名失败,错误原因:"
Response.Write rc
Response.End()
End If
cert=bb.getCert(1)
If cert = "" Then
Response.Write "获取商户证书失败,错误原因:"
Response.Write bb.getRC
Response.End()
End If
function mTime(str)
mTime = cstr(str)
if len(mTime) < 2 then
mTime = "0" & mTime
else
mTime = mTime
end if
end function
nTime = Cstr(Year(now)) & Cstr(mTime(Month(now))) & Cstr(mTime(Day(now))) & Cstr(mTime(Hour(now))) & Cstr(mTime(Minute(now))) & Cstr(mTime(Second(now)))
%>
<form name="gsorder" method="post" action="https://mybank3.dccnet.com.cn/servlet/ICBCINBSEBusinessServlet"><br />
<!--1、订单只能使用POST方式提交;使用https协议通讯;?、接收servlet名称固定为:/servlet/ICBCINBSEBusinessServlet…、银行地址:如果是生产则为“mybank.icbc.com.cn”,若为模拟测试环境则为“mybank.dccnet.com.cn”-->
接口名称:<input name="interfaceName" type="text" value="ICBC_PERBANK_B2B" /><br />
<!--接口名称固定为“ICBC_PERBANK_B2C”-->
接口版本:<input name="interfaceVersion" type="text" value="1.0.0.0" /><br />
<!--接口版本目前为“1.0.0.0”-->
订 单 号:<input name="orderid" type="text" value="000000001" /><br />
<!--订单号商户端产生,一天内不能重复。-->
支付金额:<input name="amount" type="text" value="100" /><br />
<!--金额以分为单位-->
支付币种:<input name="curType" type="text" value="001" /><br />
<!--币种目前只支持人民币,代码为“001”-->
商户代码:<input name="merID" type="text" value="0200EC20000012" /><br />
<!--银行提供-->
商城代码:<input name="merAcct" type="text" value="0200029109000030106" /><br />
<!--银行提供-->
是否联名:<input name="verifyJoinFlag" type="text" value="0" /><br />
<!--“1”判断该客户是否与商户联名;取值“0”不检验客户是否与商户联名。-->
通知类型:<input name="notifyType" type="text" value="HS" /><br />
<!--HS方式实时发送通知;AG方式不发送通知;-->
返回地址:<input name="merURL" type="text" value="http://localhost/request.asp" /><br />
<!--接收银行通知地址,目前只支持http协议80端口-->
消息模式:<input name="resultType" type="text" value="0" /><br />
<!--对于HS方式“0”:发送成功或者失败信息;“1”,只发送交易成功信息。-->
发送时间:<input name="orderDate" type="text" value="<%=nTime%>" /><br />
<!--14位时间戳-->
数据编码:<input name="merSignMsg" type="text" value="<%=ssrc%>" /><br />
<!--商户签名数据BASE64编码-->
公钥编码:<input name="merCert" type="text" value="<%=cert%>" /><br />
<!--商户证书公钥BASE64编码-->
商品编号:<input name="goodsID" type="text" value="abcd001" /><br />
商品名称:<input name="goodsName" type="text" value="小毡帽" /><br />
商品数量:<input name="goodsNum" type="text" value="1" /><br />
运费金额:<input name="carriageAmt" type="text" value="100" /><br />
<!-- 金额以分为单位-->
商城提示:<input name="merHint" type="text" value="跳楼 甩卖!" /><br />
<!--以上五个字段用于客户支付页面显示-->
备注字段:<input name="remark1" type="text" value="" /><br />
<!--备注字段-->
备注字段:<input name="remark2" type="text" value="" /><br />
<!--备注字段-->
<input type="submit" value=" 提 交 订 单 " />
<!-- 注意商户提交订单数据不能提交接口中没有定义的字段,提交按钮不能设置name属性,如果设置了,提交按钮的值将作为一个变量提交,可能造成数据检查错误。-->
</form>
</body>
</html>
此代码经测试可以正确运行
来源:http://