利用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(文本型)