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

madio

''===================================================================
* I9 C5 E6 c$ v; A% d0 t''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
- O# G3 q4 ~: M# _$ {'' xhony@163.com
( s( T' U7 ^, x4 s' A7 Q7 N'' version 1.0
''===================================================================
<%  
: n' t# b# t: y

0 ~# y- @  n5 q" w- d7 \<>dim fso,f1
Const ForReading = 1</P>
9 L9 Y; w' J) ^7 Y* x; n2 a) j" V+ U<>set fso=createobject("Scripting.FileSystemObject")
''使用fso对象读取信息。
set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
''打开要读取的文件
+ }6 c: M7 r) s6 d. e7 ?0 c9 d; jdim conn,rst</P>
, Z5 a- N9 g4 T6 P& M1 o. v9 ^/ k<>set conn=server.createobject("adodb.connection")
% b) e# H: C4 y: }! @5 u; I''建立数据库连接，执行操作
set rst=server.createobject("adodb.recordset")</P>
<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
2 t! R+ l$ H3 A<>rst.activeconnection=conn</P>
<>dim fread</P>
3 [' E' x- ~3 `& J<>do while not f1.atEndOfStream
1 m) Q, t. h* M0 c''用do... loop循环体插入数据
- u, r. {7 g4 ^: wfread=f1.readline</P>
7 y. E6 y# K; o* E# T9 K: o) L<>line=split(fread,":::")</P>
<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
rst.open
loop</P>
8 y8 E4 Z/ c! S; `% g<>f1.close
$ K# m; x4 ?( Vconn.close
''''all over
5 |2 F5 V4 v9 E! H: V8 O/ N" v, g%&gt;
2 \4 S# W: {1 }" C& S9 [' T</P>