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

madio

''===================================================================
5 l$ c$ G9 ?0 O& c''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
* v4 w& Y% ?3 _/ G# z# n'' xhony@163.com
'' version 1.0
7 F4 `4 F, s/ U! G, G# s( a''===================================================================
<%  
1 u5 Z. U5 u! Z# W. U& O# P
6 m. l& O  ~$ x2 K
6 w( W# W" c% y( m7 k<>dim fso,f1
Const ForReading = 1</P>
/ t% _9 Y, c3 Z) X6 A1 X/ j<>set fso=createobject("Scripting.FileSystemObject")
''使用fso对象读取信息。
+ J9 [: ~, M& ~/ n+ Nset f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
''打开要读取的文件
dim conn,rst</P>
<>set conn=server.createobject("adodb.connection")
''建立数据库连接，执行操作
7 r% A" Q& ^8 P- }2 sset rst=server.createobject("adodb.recordset")</P>
<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
<>rst.activeconnection=conn</P>
<>dim fread</P>
. ]+ @3 `: g, j" l1 {<>do while not f1.atEndOfStream
''用do... loop循环体插入数据
' F6 a6 o9 S' U, p; Hfread=f1.readline</P>
5 g: p, z# g1 S7 f2 M& q& e<>line=split(fread,":::")</P>
. r# z) g: h/ F<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
rst.open
2 Q6 Q) ^2 }- k7 F7 ^* E# o/ Kloop</P>
<>f1.close
conn.close
''''all over
%&gt;
; z1 c) u  q( T( F</P>