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

madio

''===================================================================
''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
7 |- P* V5 ]$ Y) A. `( R'' xhony@163.com
( a0 X3 o+ x% ^% [) H'' version 1.0
# w" {) x+ n$ q/ U4 @''===================================================================
<%  

  f, A, B6 }/ D8 ]
<>dim fso,f1
Const ForReading = 1</P>
<>set fso=createobject("Scripting.FileSystemObject")
''使用fso对象读取信息。
3 |. `  A2 x7 V. i  Z" _2 _  fset f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
''打开要读取的文件
dim conn,rst</P>
6 ~7 S: @' H3 \6 _$ Z<>set conn=server.createobject("adodb.connection")
''建立数据库连接，执行操作
# U( }0 q4 l; ?) j2 e, P! U# B0 {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>
# B% O% w1 D  B5 Q<>dim fread</P>
4 t& O( x; B1 f, _- i<>do while not f1.atEndOfStream
''用do... loop循环体插入数据
( L- k- M9 t) M& l4 D$ Qfread=f1.readline</P>
<>line=split(fread,":::")</P>
<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
rst.open
8 J1 B5 K; t! z* j3 kloop</P>
<>f1.close
, ~$ K$ m5 `3 J2 a: O4 oconn.close
''''all over
( K/ B# S7 B: k3 r  d%&gt;
6 }) U" n9 H+ t3 b5 k! D</P>