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

madio

''===================================================================
''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
'' xhony@163.com
6 r4 `3 j0 Q2 k. g'' version 1.0
( T! @4 a. L! o% Z''===================================================================
5 x' U7 m1 Z9 }0 X' X! m<%  
9 ?9 I- p/ }2 a# W2 \& A6 Z! |

<>dim fso,f1
Const ForReading = 1</P>
, a" n" Q' x1 @# c<>set fso=createobject("Scripting.FileSystemObject")
* L- Y! \7 g2 T1 {, [  v7 h''使用fso对象读取信息。
set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
1 U* M2 l/ m5 B& N' a1 l''打开要读取的文件
dim conn,rst</P>
<>set conn=server.createobject("adodb.connection")
''建立数据库连接，执行操作
2 i. Z8 ?+ J6 hset rst=server.createobject("adodb.recordset")</P>
9 O9 j% \% j+ t3 @<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
7 B% ?/ j. h* o<>rst.activeconnection=conn</P>
<>dim fread</P>
<>do while not f1.atEndOfStream
''用do... loop循环体插入数据
7 C$ @3 s  D6 g% ~* G$ efread=f1.readline</P>
<>line=split(fread,":::")</P>
<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
3 F$ ~) {1 f. V# c+ }rst.open
loop</P>
<>f1.close
9 y, H# l* {" z1 {! yconn.close
* R3 Q# j8 I& ^+ B''''all over
8 X0 v3 y( n7 T- V1 m" S%&gt;
. v/ p/ L0 X8 A0 u- f# @; d</P>