利用asp将文本文件导入到access数据库中

利用asp将文本文件导入到指定的数据库的某个字段中去，主要用到的是fso文件操作和数据库插入代码。
index.asp
<!--#include file="conn.asp"-->
<%
'On Error Resume next
 Server.ScriptTimeOut = 9999
 i=0
'创建一个FileSystemObject对象的事例
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
ctime=Timer
thing=server.mappath("./aaa.txt")
 Call getEmail(thing)
response.write "已经生成"&#38;i&#38;"条记录,用时"&#38;(Timer-ctime)&#38;"秒"
%>
</Body>
</HTML>
<%
Function getemail(filepath)
Set MyTextFile=MyFileObject.OpenTextFile(filepath)
While not MyTextFile.AtEndOfStream
 txt=Trim(MyTextFile.ReadLine)
 sql="insert into bbbb(aaaa) values('"&#38;txt&#38;"')"
 rs.open sql,conn,1,1
 i=i+1
Wend
MyTextFile.Close
End Function
%>

aaa.txt中的内容是
1111111111111
222222222222
qqqqqqqqqqqqqqq
3434
eeeeeeeeeeeeee

conn.asp为数据库连接代码
<%
set rs=server.CreateObject("adodb.recordset")
db="./aaaa.mdb"
set conn=server.CreateObject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &#38; Server.MapPath(db)
conn.open connstr
%>

aaaa.mdb数据库中一个表bbbb，里面有一个字段是aaaa(文本型)