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 "已经生成"&i&"条记录,用时"&(Timer-ctime)&"秒"  
 
　　%> 
 
　　</Body> 
 
　　</HTML> 
 
　　<%  
 
　　Function getemail(filepath)  
 
　　Set MyTextFile=MyFileObject.OpenTextFile(filepath)  
 
　　While not MyTextFile.AtEndOfStream  
 
　　txt=Trim(MyTextFile.ReadLine)  
 
　　sql="insert into bbbb(aaaa) values('"&txt&"')"  
 
　　rs.open sql,conn,1,1  
 
　　ii=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=" & Server.MapPath(db)  
 
　　conn.open connstr  
 
　　%>