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

madio

''===================================================================
2 L) y5 {4 ]+ ~8 O" O''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
+ g5 o' J/ S* k- H  M'' xhony@163.com
'' version 1.0
) B6 ~" W( y! D6 a''===================================================================
<%  


<>dim fso,f1
' e4 U$ ?6 i8 h& l, gConst ForReading = 1</P>
<>set fso=createobject("Scripting.FileSystemObject")
, o+ r2 i8 p5 o9 z5 p$ C' Z+ G''使用fso对象读取信息。
2 _* ~- _8 v9 Bset f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
''打开要读取的文件
dim conn,rst</P>
, r4 ~" o* M) `4 q<>set conn=server.createobject("adodb.connection")
''建立数据库连接，执行操作
& H7 f+ ?; q- ?5 g6 d* Eset rst=server.createobject("adodb.recordset")</P>
! a! ^" X3 }2 W: a7 H& x<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
: k) O) S3 u) @/ m<>rst.activeconnection=conn</P>
2 i+ @5 y4 [( {0 K<>dim fread</P>
: A8 J! G- o" g4 j3 b  B. U<>do while not f1.atEndOfStream
: K, Y) W9 W# i1 D0 G. P''用do... loop循环体插入数据
2 M0 z' X: d: C& A) kfread=f1.readline</P>
<>line=split(fread,":::")</P>
: x' m$ p2 i% J/ U% Q<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
rst.open
& O! V6 I: @# Z7 hloop</P>
; h( q, ^/ n4 z# K<>f1.close
conn.close
! Z5 c- S% K3 [2 a8 Z, a''''all over
7 X- i; U# F+ n1 K" o, F5 b%&gt;
</P>