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

利用asp将文本文件导入到指定的数据库的某个字段中去，主要用到的是fso文件操作和数据库插入代码。
index.asp
<
!--
#include 
file="
conn.asp"
-->

<
%
&
#39
On 
Error 
Resume 
next
 
Server.ScriptTimeOut 
= 
9999
 
i=0
&
#39
创建一个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(&
#39
"
&

#38
txt&

#38
"
&
#39
)"

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