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

madio

''===================================================================
' j! s' t' K3 a2 k4 p/ x''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
'' xhony@163.com
: u& _; u7 m9 t# M" }'' version 1.0
( f, g0 m/ B$ Z' m+ s''===================================================================
<%  


<>dim fso,f1
# a2 i8 K% ]! q, w, q8 {- G/ W2 rConst ForReading = 1</P>
<>set fso=createobject("Scripting.FileSystemObject")
/ t3 U! e$ B( f''使用fso对象读取信息。
( U& W, G! N' @4 f( pset f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
''打开要读取的文件
- J' }" x- R1 m$ F2 f1 }dim conn,rst</P>
* }' v' ]$ G, t' y5 S, m" J7 M% Q<>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>
<>rst.activeconnection=conn</P>
% m$ m; z* A. \# e# Z# C) C<>dim fread</P>
3 n# H5 q6 i: {+ i9 M# t" b<>do while not f1.atEndOfStream
''用do... loop循环体插入数据
fread=f1.readline</P>
<>line=split(fread,":::")</P>
* v/ \: v) w/ C7 U2 A<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
rst.open
/ L" v$ ?- J5 k+ Rloop</P>
9 T, Y6 d- j. h1 V8 W$ A0 q: ^<>f1.close
conn.close
9 M" A* E% ^+ R5 y& H''''all over
: G& W8 c+ J# O/ i, |6 q%&gt;
</P>