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

madio

''===================================================================
8 A+ @2 T1 W- y& r+ f" u) n''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
'' xhony@163.com
'' version 1.0
''===================================================================
<%  
! U1 p5 \/ ?( [- d+ n# S+ h
7 R. g) Y  l% }% ^4 K
<>dim fso,f1
Const ForReading = 1</P>
) p+ ?  S* S3 o! i<>set fso=createobject("Scripting.FileSystemObject")
8 P3 o7 r6 y% c3 A0 x: o! Y& n$ E8 o6 N''使用fso对象读取信息。
1 Z5 \% T. W" u* E. Aset 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>
<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
, g' J. d$ y1 w: j<>rst.activeconnection=conn</P>
<>dim fread</P>
<>do while not f1.atEndOfStream
''用do... loop循环体插入数据
8 C" A4 w. b  d1 C6 sfread=f1.readline</P>
<>line=split(fread,":::")</P>
<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
4 C3 J. r& C$ J2 E5 \& @6 Vrst.open
2 c+ Q9 c( g$ Hloop</P>
2 f! q4 T) D8 V5 H5 o# y$ k<>f1.close
5 z" _6 r/ ~1 M) i8 s, Lconn.close
''''all over
/ r3 Z1 y: J1 J%&gt;
</P>