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

 1   
 2  
 3dim fso,f1   
 4Const ForReading = 1   
 5  
 6set fso=createobject("Scripting.FileSystemObject")   
 7''使用fso对象读取信息。   
 8set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)   
 9''打开要读取的文件   
10dim conn,rst   
11  
12set conn=server.createobject("adodb.connection")   
13''建立数据库连接，执行操作   
14set rst=server.createobject("adodb.recordset")   
15  
16conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.mappath("db1.mdb")   
17  
18rst.activeconnection=conn   
19  
20dim fread   
21  
22do while not f1.atEndOfStream   
23''用do... loop循环体插入数据   
24fread=f1.readline   
25  
26line=split(fread,":::")   
27  
28rst.source="insert into barcode1(barcode1) values ("&trim(line(0))&")"   
29rst.open   
30loop   
31  
32f1.close   
33conn.close   
34''''all over