利用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=Timerthing=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 i=i+1WendMyTextFile.CloseEnd Function%> aaa.txt中的内容是1111111111111222222222222qqqqqqqqqqqqqqq3434eeeeeeeeeeeeee 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%> aaaa.mdb数据库中一个表bbbb，里面有一个字段是aaaa(文本型)

评论