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

madio

''===================================================================
''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
'' xhony@163.com
'' version 1.0
% C" v" ^1 b6 K& R1 N0 ?''===================================================================
. |$ H, X" ~; w7 ]<%  

5 ~% @+ S  t' ~8 `8 @
; n" k) c& X* n6 O4 I" i<>dim fso,f1
Const ForReading = 1</P>
<>set fso=createobject("Scripting.FileSystemObject")
''使用fso对象读取信息。
set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
* s' n, M  I& C" u: _''打开要读取的文件
dim conn,rst</P>
" X1 f; }2 _: P( c& t! w5 Q<>set conn=server.createobject("adodb.connection")
''建立数据库连接，执行操作
4 v- B# N. ]  d. v8 J7 z5 cset rst=server.createobject("adodb.recordset")</P>
, a8 n5 ]) A. j2 l<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
<>rst.activeconnection=conn</P>
5 o; x4 k8 P0 x/ u7 Y<>dim fread</P>
<>do while not f1.atEndOfStream
4 L9 A6 j( U$ V, d; W) ]. E''用do... loop循环体插入数据
; S% s" s! B$ N- U) H+ L& u+ Qfread=f1.readline</P>
<>line=split(fread,":::")</P>
<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
; I7 X9 D9 C4 U9 n# x( |5 _rst.open
% y. P! L/ G; I" |. T* h& Qloop</P>
<>f1.close
conn.close
''''all over
  P$ m- F' a1 S%&gt;
</P>