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

madio

''===================================================================
: x1 {  A' i5 a4 x''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
* ^, X  r6 m- m# ?! w'' xhony@163.com
& x2 J( I9 x4 t: E2 f'' version 1.0
( H3 q, |3 P, }7 t' h  j3 H''===================================================================
7 V* I+ {2 g; {, p; M5 j' ?/ U<%  
; b9 V" c) [- x: _7 G

( e: n2 f! e9 o3 F0 z- G<>dim fso,f1
/ K3 c" F* ]3 s0 PConst ForReading = 1</P>
1 O& ~& ^; K! T( P4 n+ Q$ {<>set fso=createobject("Scripting.FileSystemObject")
9 b0 T5 p7 z# H) f3 g3 |''使用fso对象读取信息。
8 [' @1 }9 e! l3 N8 nset f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
''打开要读取的文件
dim conn,rst</P>
<>set conn=server.createobject("adodb.connection")
''建立数据库连接，执行操作
set rst=server.createobject("adodb.recordset")</P>
/ z, x" ?; P+ ^4 `& K0 \<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
6 Z) W; s6 \, K, _- G. m<>rst.activeconnection=conn</P>
<>dim fread</P>
<>do while not f1.atEndOfStream
''用do... loop循环体插入数据
: f- ]0 @" L# y5 Q4 kfread=f1.readline</P>
<>line=split(fread,":::")</P>
<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
rst.open
, S+ w) p# v/ i" j4 yloop</P>
<>f1.close
conn.close
''''all over
+ T0 G8 a4 {" I: B  w7 l1 k%&gt;
</P>