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

madio

''===================================================================
''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
'' xhony@163.com
: w! V; @3 {/ A/ h7 H/ F'' version 1.0
/ v* k5 X4 t$ h''===================================================================
+ X' U* u, A8 I0 m<%  
  Y1 ]5 ^1 O/ h( F/ \9 y4 H# y9 x+ n# B
- p- ?( n4 Q" D5 F% ?
8 b+ N. ]3 y) A- |2 |<>dim fso,f1
& }0 Y, J2 g" H' |5 oConst ForReading = 1</P>
  T2 D. Z- o" m  m. b- I4 _<>set fso=createobject("Scripting.FileSystemObject")
9 @% n7 |  x0 \( _" ~9 J* E& I''使用fso对象读取信息。
set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
''打开要读取的文件
& h6 P+ L4 ]2 q9 i" h# ~$ e' zdim conn,rst</P>
<>set conn=server.createobject("adodb.connection")
% L# k% E- d# s. O6 m* O''建立数据库连接，执行操作
set rst=server.createobject("adodb.recordset")</P>
: B  r# V3 k% j8 P; a0 v4 c<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
<>rst.activeconnection=conn</P>
<>dim fread</P>
<>do while not f1.atEndOfStream
& I' a" ]/ z7 [3 a''用do... loop循环体插入数据
fread=f1.readline</P>
8 a9 h. t' G% A8 J' F$ _. P<>line=split(fread,":::")</P>
5 o2 T7 d/ u% |  J<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
rst.open
* W& |# v8 t1 w5 E1 C! Dloop</P>
<>f1.close
conn.close
+ q& D) x( s: Z) R" Z- F! O* O''''all over
%&gt;
* p7 l1 ?+ Y9 K7 c+ q</P>