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

madio

''===================================================================
''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
$ s# @# z/ g2 ?$ N5 j' l'' xhony@163.com
+ G) [, |/ g( j: ~$ C. s. ]'' version 1.0
( v% A& V$ U4 L8 r# X9 ~''===================================================================
' t: }* K+ _9 q. [2 d<%  
$ i8 d% {5 [/ c) q

<>dim fso,f1
4 F) E7 K) t- J4 d5 L. rConst ForReading = 1</P>
<>set fso=createobject("Scripting.FileSystemObject")
  l2 U8 |& @4 J7 J+ q''使用fso对象读取信息。
% o3 t) e0 ^+ A" vset f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
''打开要读取的文件
dim conn,rst</P>
7 k' x8 y. c7 ^) `<>set conn=server.createobject("adodb.connection")
''建立数据库连接，执行操作
set rst=server.createobject("adodb.recordset")</P>
3 l3 o% D/ @# B  j$ z/ I<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
' n' R9 I, Q8 f' K<>rst.activeconnection=conn</P>
% |( n! U- d9 ^* q<>dim fread</P>
<>do while not f1.atEndOfStream
''用do... loop循环体插入数据
( |1 k- f$ F! Wfread=f1.readline</P>
! V: v6 G' ~. y( r; `, K<>line=split(fread,":::")</P>
<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
rst.open
loop</P>
! h$ L# o6 q, p<>f1.close
conn.close
''''all over
% F1 U6 ^  `% S( e) t%&gt;
</P>