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

madio

''===================================================================
. y, D5 Y6 e1 `0 ?8 N8 l! B* P''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
' N+ J* P  P& `- \" m+ d# G7 J'' xhony@163.com
'' version 1.0
# M4 n3 d/ b+ M( w# Q''===================================================================
<%  
* `5 H1 |$ V* O3 r4 e

, j! U: ]) |1 i. U# H0 y<>dim fso,f1
Const ForReading = 1</P>
<>set fso=createobject("Scripting.FileSystemObject")
) K& _2 W# F- @# l5 @7 |" v2 W3 c''使用fso对象读取信息。
, C6 u5 k* y0 \  {set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
''打开要读取的文件
dim conn,rst</P>
<>set conn=server.createobject("adodb.connection")
''建立数据库连接，执行操作
% B& v. Q3 s2 g7 B, W) J! V8 G# i% Mset rst=server.createobject("adodb.recordset")</P>
<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
& j5 a/ K" g4 ]6 ^1 U, c<>rst.activeconnection=conn</P>
<>dim fread</P>
: y" E* Q: Y3 W<>do while not f1.atEndOfStream
''用do... loop循环体插入数据
& {1 ~8 n, {& Y( x7 ^/ Xfread=f1.readline</P>
8 E3 T) t/ Y, k2 q+ N& u+ E<>line=split(fread,":::")</P>
<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
# o4 w% ^5 V1 F. u, q' }rst.open
: q  H) W0 k0 V) C+ Q  ?- V6 Kloop</P>
<>f1.close
conn.close
) h, U% A. b  I& q/ d''''all over
%&gt;
" ^+ Y1 n# S0 o: H, V  R! `$ D. C5 C</P>