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

madio

''===================================================================
''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
2 w9 e- Z* I6 W% W& P  s: Q" g'' xhony@163.com
, y5 e* Z2 t7 @2 Z4 S  @0 h* O'' version 1.0
& J! ~; J$ T! r- t, H''===================================================================
<%  
& R: ^1 V. g* x$ P2 i7 K
3 J- o; t) W+ z3 _- _$ t
, K& y8 G1 M! x% a<>dim fso,f1
Const ForReading = 1</P>
3 S. R& N0 N! L  R. u: W" d<>set fso=createobject("Scripting.FileSystemObject")
- a  z$ K  `! l, }% C" Q: W6 s''使用fso对象读取信息。
" d& l- E* x1 U0 x# Dset f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
''打开要读取的文件
dim conn,rst</P>
<>set conn=server.createobject("adodb.connection")
''建立数据库连接，执行操作
2 \/ @4 l/ j1 O- oset rst=server.createobject("adodb.recordset")</P>
3 g8 f( x$ ?/ S( V% u/ X<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
<>rst.activeconnection=conn</P>
<>dim fread</P>
<>do while not f1.atEndOfStream
) h0 ^6 i* B: o& O0 j2 j2 J! ~8 L''用do... loop循环体插入数据
fread=f1.readline</P>
<>line=split(fread,":::")</P>
- @# C$ W5 }( ~. }: K$ F<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
rst.open
  S2 {1 h: H) ~loop</P>
- a! P( i5 S& m% m0 k5 k& H<>f1.close
' D& G3 s+ @+ w3 i$ r0 |6 xconn.close
9 p- `6 C' |$ h''''all over
% t* T2 ]/ D2 |1 K%&gt;
</P>