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

madio

''===================================================================
0 M( X. {, Q& _" L''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
: w! L. k4 t. G: N* K'' xhony@163.com
'' version 1.0
''===================================================================
6 \, w. C& I. c2 @' o<%  
: W& f3 J% B7 h8 P  Z2 X$ a

<>dim fso,f1
Const ForReading = 1</P>
<>set fso=createobject("Scripting.FileSystemObject")
''使用fso对象读取信息。
( b* @4 o+ g  `  F" ]" r* Dset f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
2 N/ e* b4 Z* \''打开要读取的文件
. N/ O* V! l9 Y( T3 edim conn,rst</P>
<>set conn=server.createobject("adodb.connection")
& e( D+ ]* k0 {6 g& [8 I''建立数据库连接，执行操作
set rst=server.createobject("adodb.recordset")</P>
9 ?, Z! c' E2 W& f<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
<>rst.activeconnection=conn</P>
$ ?" c! d) E; s. V: j1 {2 c. g  Z<>dim fread</P>
<>do while not f1.atEndOfStream
''用do... loop循环体插入数据
- q& a( V* {+ `5 \- }3 ^fread=f1.readline</P>
& d2 ^& a+ S2 R. P1 X<>line=split(fread,":::")</P>
<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
rst.open
loop</P>
( b$ j8 \' C: r2 a<>f1.close
conn.close
- B/ V# l# Z: S''''all over
%&gt;
</P>