
不知道你想做什么,
不过方法还是说下,
你先做出生成一个的代码,再来一个循环就可以实现了
对这一asp写文件的函数我也不是很了解,不过我可以说下思路,
你可以先看下gbpt这个文件里面是怎么分隔的,要是用数组的话你就按它的方式,写入一条记录一个数组,如第一个记录就是a[1]下面的跟着改变就可以了,不过具体的还是要根据他原来批量转账格式的文件
都这样了,那个写个asp的每个字段用|来分开就可以了,每个记录换行这样不就可以了
你这是要模拟手机支付吧。实际系统中银行的数据库肯定是不能碰的。
既然是模拟就简单多了。“转账”就是把一个账户的钱减掉,加到另一个账户上。因为用户/商家和银行账户是分开的表,需要做表连接查询。
因为不知道你用什么数据库,连接数据库的就不写了。用户,银行和商家3模块在当前情况下就是数据库的3张表:其关键字段如下:
用户表:手机号、卡号(银行账户的卡号)
商家表:商家编号、卡号(银行账户的卡号)
银行帐户:卡号、账户余额
Dim cnn as New ADODBConnection
Dim rst as New ADODBRecordset
Dim rsAccount as New ADODBRecordset
'初始化变量cnn,连接数据库
'查询余额。查询手机号”12345678900"的用户的余额。这里默认一个手机号对应一个账户
rstOpen "select 账户余额 from 银行账户 join 用户表 on 银行账户卡号=用户表卡号 where 用户表手机号='"12345678900'", cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
if rst,Recordcount=0 then
msgbox '该手机对应的卡号不存在!"
else
'显示余额 rstFields("账户余额")
end if
rstclose
'支付转账,从用户A(手机12345678900)转500到商家B(编号222)
‘转出
rstOpen "select 银行账户卡号 from 银行账户 join 用户表 on 银行账户卡号=用户表卡号 where 用户表手机号='12345678900', cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
if rstRecordcount=0 then
'手机号不存在或者卡号不存在
else'修改余额
rsAccountOpen "select 账户余额 from 银行账户 where 卡号='" & rstFields("卡号") & "'",cnn, adOpenKeyset, adLockOptimistic, adCmdText
rsAccountFields("账户余额")=rsAccountFields("账户余额")-500
rsAccountUpdate
rsAccountclose
end if
’转入。同样默认一个商家编号对应一个银行账户。
rstOpen "select 银行账户卡号 from 银行账户 join 商家表 on 银行账户卡号=商家表卡号 where 商家表编号='222', cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
if rstRecordcount=0 then
'账户不存在或者编号不存在
else'修改余额
rsAccountOpen "select 账户余额 from 银行账户 where 卡号='" & rstFields("卡号") & "'",cnn, adOpenKeyset, adLockOptimistic, adCmdText
rsAccountFields("账户余额")=rsAccountFields("账户余额")+500
rsAccountUpdate
rsAccountclose
end if
以上代码未优化,就是个大概方法,一些细节需要自己完善,比如余额不足时的处理,比如用户已经转出,在转入商家时出错时的处理。
通常在实际转账系统中需要保证转出和转入全部完成,其中有一个出错就取消整个 *** 作。用 cnn的下列方法发起一个数据库事务(当然看你老师的要求,要求不高的可以忽视):
cnnBeginTrans 开始事务。在对余额修改前调用。
cnnCommitTrans 提交事务。在对余额修改完成后调用(注意是转出、转入都完成时)。
cnnRollbackTrans 撤销事务。通常在错误处理程序里用,取消之前对记录所做的修改。
以上就是关于asp如何生成工商银行批量转账文件全部的内容,包括:asp如何生成工商银行批量转账文件、怎么用VB来编写手机支付程序要求先建立用户、商家、银行三个数据库,数据库我已经建立好了。、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)