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

madio

''===================================================================
''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
( v/ ]( S4 }$ c$ c'' xhony@163.com
; \( e. @* i1 W'' version 1.0
# T5 T% @$ \! m9 T''===================================================================
% \6 i* a. ?0 ?: L<%  
$ s9 N/ t$ |& ~- `

) y5 l) o0 A7 a  Z  j! }, x8 Z<>dim fso,f1
2 {) @5 s; \) k& x$ Z# h% wConst ForReading = 1</P>
<>set fso=createobject("Scripting.FileSystemObject")
''使用fso对象读取信息。
set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
' ?- T8 s! b4 e9 K! a4 j''打开要读取的文件
, s) h3 `  J; X; v* X, ?% L( W9 xdim conn,rst</P>
<>set conn=server.createobject("adodb.connection")
/ N2 x' f' M! ]/ E9 a( p''建立数据库连接，执行操作
1 @) |3 Y! R! i+ Z5 r% W8 A; Dset rst=server.createobject("adodb.recordset")</P>
<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
<>rst.activeconnection=conn</P>
; s* `5 }: P! E<>dim fread</P>
. l# x- a' v+ D& f/ i1 D4 x<>do while not f1.atEndOfStream
1 s6 Q9 b% y5 s8 l''用do... loop循环体插入数据
fread=f1.readline</P>
$ I, {) }, P: ^. a" }<>line=split(fread,":::")</P>
+ q8 e% J3 ]+ C<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
rst.open
! c1 H1 U* `  _# cloop</P>
: U0 A2 l- P) l) m8 g* p* w<>f1.close
conn.close
''''all over
%&gt;
</P>