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. %>