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

madio

''===================================================================
''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
; {. [6 b1 i% h) N'' xhony@163.com
'' version 1.0
: N! y% P9 Z+ |! _. Q8 M''===================================================================
<%  
+ ?. t% X2 q3 Q; g3 X9 p
6 s& h; Y8 e( }; ^* O/ p
2 |7 L% l. R0 W7 i$ w<>dim fso,f1
Const ForReading = 1</P>
<>set fso=createobject("Scripting.FileSystemObject")
4 T7 f/ x6 X+ I; w# b- X''使用fso对象读取信息。
/ ?4 G% V$ w7 U1 J! o3 j0 Iset f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
''打开要读取的文件
4 t! a; ^& J5 U7 B' Ddim conn,rst</P>
<>set conn=server.createobject("adodb.connection")
''建立数据库连接，执行操作
set rst=server.createobject("adodb.recordset")</P>
" R7 C# j( P, _& u: I  ]" O+ ^2 N8 \<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
<>rst.activeconnection=conn</P>
. s) ^/ X5 E" h3 ^<>dim fread</P>
/ T0 v7 g% F# d5 j<>do while not f1.atEndOfStream
''用do... loop循环体插入数据
fread=f1.readline</P>
% p( T/ V' L0 ^; z7 Q) `<>line=split(fread,":::")</P>
% G; J; }  l# s0 n' ^4 P<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
rst.open
loop</P>
<>f1.close
conn.close
''''all over
%&gt;
7 f7 m0 |* j4 J, _7 F</P>