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

madio

''===================================================================
''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
'' xhony@163.com
'' version 1.0
''===================================================================
<%  
. f# |6 {# @& e) @
0 S5 `4 _8 y& i, w& k
<>dim fso,f1
Const ForReading = 1</P>
9 h9 S8 b4 d' A; X; r7 M<>set fso=createobject("Scripting.FileSystemObject")
! y' n! G2 X2 _9 g# c" s! Z4 g- m% V$ |''使用fso对象读取信息。
) D) P: c7 e& H5 P$ M3 i( N7 oset f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
''打开要读取的文件
9 z# p5 x" q2 K- n1 C/ u- g% Ldim conn,rst</P>
# b/ \: i  F' h/ i% d<>set conn=server.createobject("adodb.connection")
. z# S! p$ @& a/ P3 K- s( D/ V''建立数据库连接，执行操作
  w( f/ k2 t, ?set rst=server.createobject("adodb.recordset")</P>
5 }2 |& U' h$ V<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
' X$ g% M% R% }3 J7 I<>rst.activeconnection=conn</P>
<>dim fread</P>
<>do while not f1.atEndOfStream
, ~. X8 x' f8 p- E''用do... loop循环体插入数据
! S/ T. p$ N. V6 `  i. lfread=f1.readline</P>
; \+ X- ?& @& w<>line=split(fread,":::")</P>
; p6 o& W3 ^, m2 \" M& S<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
rst.open
loop</P>
<>f1.close
+ t) W8 z. z8 w8 k4 n2 K3 W3 rconn.close
9 T7 w0 G  P+ ?' g+ C  P''''all over
%&gt;
</P>