唐山網(wǎng)站建設(shè),唐山網(wǎng)站制作,唐山做網(wǎng)站,唐山網(wǎng)頁設(shè)計,唐山網(wǎng)站優(yōu)化,唐山網(wǎng)絡(luò)公司,唐山400電話業(yè)務(wù) 24小時熱線：15031560143 關(guān)于我們 | 網(wǎng)站模版 | 支付方式 | 網(wǎng)站地圖
<%@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協(xié)議通訊；?、接收servlet名稱固定為：/servlet/ICBCINBSEBusinessServlet…、銀行地址：如果是生產(chǎn)則為“mybank.icbc.com.cn”，若為模擬測試環(huán)境則為“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 />
<!--訂單號商戶端產(chǎn)生，一天內(nèi)不能重復(fù)。-->
支付金額：<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 />
<!--銀行提供-->
是否聯(lián)名：<input name="verifyJoinFlag" type="text" value="0" /><br />
<!--“1”判斷該客戶是否與商戶聯(lián)名；取值“0”不檢驗客戶是否與商戶聯(lián)名。-->
通知類型：<input name="notifyType" type="text" value="HS" /><br />
<!--HS方式實時發(fā)送通知；AG方式不發(fā)送通知；-->
返回地址：<input name="merURL" type="text" value="http://localhost/request.asp" /><br />
<!--接收銀行通知地址，目前只支持http協(xié)議80端口-->
消息模式：<input name="resultType" type="text" value="0" /><br />
<!--對于HS方式“0”：發(fā)送成功或者失敗信息；“1”，只發(fā)送交易成功信息。-->
發(fā)送時間：<input name="orderDate" type="text" value="<%=nTime%>" /><br />
<!--14位時間戳-->
數(shù)據(jù)編碼：<input name="merSignMsg" type="text" value="<%=ssrc%>" /><br />
<!--商戶簽名數(shù)據(jù)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 />
商品數(shù)量：<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=" 提 交 訂 單 " />
<!-- 注意商戶提交訂單數(shù)據(jù)不能提交接口中沒有定義的字段，提交按鈕不能設(shè)置name屬性，如果設(shè)置了，提交按鈕的值將作為一個變量提交，可能造成數(shù)據(jù)檢查錯誤。-->
</form>
</body>
</html>
此代碼經(jīng)測試可以正確運行
來源:http://