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

madio

''===================================================================
''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
2 T2 n4 I% a2 L'' xhony@163.com
'' version 1.0
''===================================================================
% X! n0 O1 o2 p8 J& d9 [<%  
; |% v; k. D; }% P' _, |

* g- O- k" G' O1 n% T<>dim fso,f1
Const ForReading = 1</P>
<>set fso=createobject("Scripting.FileSystemObject")
  o2 h: c, a% ]6 f$ v- J''使用fso对象读取信息。
+ k0 ]% b; E  {/ Pset f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
''打开要读取的文件
dim conn,rst</P>
<>set conn=server.createobject("adodb.connection")
''建立数据库连接，执行操作
$ Z6 X0 y2 K! a7 Z7 h, u% Jset rst=server.createobject("adodb.recordset")</P>
  h# Z2 b* h4 K* x<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
6 }3 c3 A4 l- `& \5 f<>rst.activeconnection=conn</P>
<>dim fread</P>
1 x" J3 d; o! J6 d9 w% ^1 W+ r$ u<>do while not f1.atEndOfStream
( n' E0 G0 k8 c8 w''用do... loop循环体插入数据
fread=f1.readline</P>
<>line=split(fread,":::")</P>
<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
rst.open
loop</P>
<>f1.close
/ o" {/ U; O# r& q( i3 [conn.close
- x$ Q* U2 a9 W( d3 Q9 C# M''''all over
4 y" m, L& q( _4 G- }%&gt;
  @8 X& a4 h( D</P>