网上银行一般要公司证明才能开通。如上海环讯网上银行。开通后你要向银行提交:会员注册的用户名,年月日,注册编号,金额,会员付款时的IP。
代码1:
<%
dim flag
flag=false
if month(date)<=9 then
if day(date)<=9 then
product_date=year(date)&"0"&month(date)&"0"&day(date)
else
product_date=year(date)&"0"&month(date)&day(date)
end if
else
if day(date)<=9 then
product_date=year(date)&month(date)&"0"&day(date)
else
product_date=year(date)&month(date)&day(date)
end if
end if
Set Fo= Server.CreateObject("Scripting.FileSystemObject")
'文件是否存在
if Fo.FileExists(Server.MapPath("billno.txt")) then'通过billno.txt写入年月日和编号提交给银行
Set F = Fo.OpenTextFile(Server.MapPath("billno.txt"))
if F.AtEndOfStream=False then
FileString=F.Readline
arr=split(FileString,"|")
if int(product_date)>int(arr(1)) then
response.write mid(arr(0),7,6)
bill=mid(arr(0),1,2)&"0000"
flag=true
else
bill=arr(0)
end if
end if
F.Close
billno=bill
end if
'帐号文件是否存在
if Fo.FileExists(Server.MapPath("billno.txt")) then
Set F = Fo.OpenTextFile(Server.MapPath("billno.txt"),2)
if flag=true then
f.writeline(bill&"|"&product_date)
else
f.writeline(int(billno)+1&"|"&product_date)
end if
F.Close
end if
%>
代码2:
<% if mtype="2" then %>
<% v_mid="0251"
v_oid=billno
v_amount=amount
key="2vcd2003a"
'默认的私钥值,更改私钥后要修改这里
dim md5string
set md=server.CreateObject("md5_VB.md5class")
poststring=v_mid&v_oid&v_amount
md5string=md.hmac(cstr(poststring),cstr(key))
%>
还有更多的资料,电话号码。省份。等。如客户向银行付款后给双方发信确认,你可自己加入