<%

dimfso,f1

ConstForReading=1

setfso=createobject("Scripting.FileSystemObject")

''使用fso对象读取信息。

setf1=fso.OpenTextFile("E:doitinfo2.txt",ForReading)

''打开要读取的文件

dimconn,rst

setconn=server.createobject("adodb.connection")

''建立数据库连接，执行操作

setrst=server.createobject("adodb.recordset")

conn.open"Driver={MicrosoftAccessDriver(*.mdb)};DBQ="&Server.mappath("db1.mdb")

rst.activeconnection=conn

dimfread

dowhilenotf1.atEndOfStream

''用do...loop循环体插入数据

fread=f1.readline

line=split(fread,":::")

rst.source="insertintobarcode1(barcode1)values("&trim(line(0))&")"

rst.open

loop

f1.close

conn.close

''''allover

%>