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

madio

''===================================================================
/ p& q" o4 O' U! T6 x, Q1 a7 ?''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
7 {4 l' d) W- H& ]'' xhony@163.com
'' version 1.0
''===================================================================
<%  

! s1 U" \5 \( H5 ?
<>dim fso,f1
Const ForReading = 1</P>
<>set fso=createobject("Scripting.FileSystemObject")
''使用fso对象读取信息。
3 \/ \8 z( ?- I9 W* Z2 M2 Aset f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
! J& r: c" ~$ ~9 h''打开要读取的文件
( V; `1 ]) ^8 |dim conn,rst</P>
<>set conn=server.createobject("adodb.connection")
''建立数据库连接，执行操作
set rst=server.createobject("adodb.recordset")</P>
<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
<>rst.activeconnection=conn</P>
. l0 X, n6 X' a8 J: Z( ~: r<>dim fread</P>
<>do while not f1.atEndOfStream
''用do... loop循环体插入数据
fread=f1.readline</P>
- V" Z. C" v0 f- Y<>line=split(fread,":::")</P>
<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
; y% S3 _: |4 crst.open
loop</P>
6 k( M1 i  J" a& y( g<>f1.close
! C0 ]$ G3 r- ?, F6 Cconn.close
''''all over
%&gt;
</P>