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

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