ASP将.txt文件导入到ACCESS中？？急急急！！在线等！！

请先把ACCESS数据库建好！

ACCESS数据库结构如下：
库名：gggg.mdb
表名：xxxx
字段名：
LID USHIPNAME（文本型，字段大小：50）
LDATE（文本型，字段大小：50）
LTIME（文本型，字段大小：50）
LUSERNAME（文本型，字段大小：50）
LCAPTAIN（文本型，字段大小：50）
LLOG（文本型，字段大小：255）
LLEVEL（文本型，字段大小：50）

注意LLOG字段的大小设置。

请调试运行下列程序（本人运行通过）：
（test.asp,ggg.mdb,xiaohei.log三个文件在同一目录下）

test.asp

<%
'连接ACCESS数据库
set conn=server.createobject("adodb.connection")
provider="provider=microsoft.jet.oledb.4.0;"
DBPath ="data source=" & Server.MapPath("gggg.mdb")
conn.Open provider & DBPath
sql="select * from xxxx"
set rs=server.createobject("adodb.recordset")
Rs.open sql,conn,3,2
'打开文本文件
Dim LogFileName
LogFileName = "xiaohei.log"
set MyFileObject=server.CreateObject("Scripting.FileSystemObject")
set MyLogFile=MyFileObject.OpenTextFile(server.MapPath(LogFileName),1)
'逐行处理
while not MyLogFile.AtEndOfStream
LogMessage=Trim(MyLogFile.readline)
if LogMessage<>"" then
LogArr = split(LogMessage,"|")
Rs.AddNew
Rs("LID USHIPNAME")=Trim(LogArr(0))
Rs("LDATE")=Trim(LogArr(1))
Rs("LTIME")=Trim(LogArr(2))
Rs("LUSERNAME")=Trim(LogArr(3))
Rs("LCAPTAIN")=Trim(LogArr(4))
Rs("LLOG")=Trim(LogArr(5))
Rs("LLEVEL")=Trim(LogArr(6))
Rs.Update
end if
wend
'关闭文件
MyLogFile.close
Rs.Close
Set Rs=nothing
conn.close
Set conn=nothing
response.write "写入成功！"
%>

百度分不是万能的，不能拿来买饭吃！！