从文本文件中读取信息并存储入数据库


            ''===================================================================

''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……

'' xhony@163.com

'' version 1.0

''===================================================================

<% 

dim fso,f1

Const ForReading = 1

set fso=createobject(&quot;Scripting.FileSystemObject&quot;)

''使用fso对象读取信息。

set f1=fso.OpenTextFile(&quot;E:\doit\info2.txt&quot;, ForReading)

''打开要读取的文件

dim conn,rst

set conn=server.createobject(&quot;adodb.connection&quot;)

''建立数据库连接，执行操作

set rst=server.createobject(&quot;adodb.recordset&quot;)

conn.open &quot;Driver={Microsoft Access Driver (*.mdb)};DBQ=&quot;&Server.mappath(&quot;db1.mdb&quot;)

rst.activeconnection=conn

dim fread

do while not f1.atEndOfStream 

''用do... loop循环体插入数据

fread=f1.readline

line=split(fread,&quot;:::&quot;)

rst.source=&quot;insert into barcode1(barcode1) values (&quot;&trim(line(0))&&quot;)&quot;

rst.open

loop

f1.close

conn.close

''''all over

%>