从文本文件中读取信息并存储入数据库
更新时间：2006年12月14日 00:00:00 作者：
<%
dim fso,f1
Const ForReading = 1
set fso=createobject("Scripting.FileSystemObject")
''使用fso对象读取信息。
set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
''打开要读取的文件
dim conn,rst
set conn=server.createobject("adodb.connection")
''建立数据库连接，执行操作
set rst=server.createobject("adodb.recordset")
conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.mappath("db1.mdb")
rst.activeconnection=conn
dim fread
do while not f1.atEndOfStream
''用do... loop循环体插入数据
fread=f1.readline
line=split(fread,":::")
rst.source="insert into barcode1(barcode1) values ("&trim(line(0))&")"
rst.open
loop
f1.close
conn.close
''''all over
%>
dim fso,f1
Const ForReading = 1
set fso=createobject("Scripting.FileSystemObject")
''使用fso对象读取信息。
set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
''打开要读取的文件
dim conn,rst
set conn=server.createobject("adodb.connection")
''建立数据库连接，执行操作
set rst=server.createobject("adodb.recordset")
conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.mappath("db1.mdb")
rst.activeconnection=conn
dim fread
do while not f1.atEndOfStream
''用do... loop循环体插入数据
fread=f1.readline
line=split(fread,":::")
rst.source="insert into barcode1(barcode1) values ("&trim(line(0))&")"
rst.open
loop
f1.close
conn.close
''''all over
%>
相关文章
学习asp的朋友需要了解下2008-11-11
不管什么语言乱码问题都存在，asp也不例外，本文将介绍asp中解决乱码方法,需要的朋友可以参考下2012-12-12
服务器常用组件...2006-09-09
在不刷新页面的情况下调用远程asp脚本...2007-01-01
asp统计信息实现代码/文章每日、每周、每月、总访问量的方法
asp统计信息/文章每日、每周、每月、总访问量的方法，需要的朋友可以参考下。2011-05-05
asp下sql和access数据库随机取10条记录的代码newid()
利于搜索从表中随机取几条不重复记录，一般都是10条，我就用了40条，大约的代码就是下面的了2007-12-12
强制刷新和判断文件地址...2006-10-10
写在前面的话:此篇还是asp相关的,相信玩ASP的都有这个感觉,当数据有5万多条时-------just like音乐网,要调用最新的10条在页面显示,糟糕的是,当n多用户打开页面访问的时候,每个用户每次都要读取数据库一次,这无疑降低了效率,很明显, 如果能把数据能保存在内存上,然后读取,无疑加快了速度.2008-04-04
TSYS中生成静态页时溢出: ''CInt''...2007-01-01
ASP生成柱型体，折线图，饼图源代码...2007-03-03
最新评论