<%
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)))
%>
接口名称：
接口版本：
订 单 号：
支付金额：
支付币种：
商户代码：
商城代码：
是否联名：
通知类型：
返回地址：
消息模式：
发送时间：" />
数据编码：" />
公钥编码：" />
商品编号：
商品名称：
商品数量：
运费金额：
商城提示：
备注字段：
备注字段：