高分求助，如何将客户端文本文件内的数据上传到网站的数据库表

楼主去看看我在这里回答的另一个问题就知道在做了：

http://zhidao.baidu.com/question/51440776.html

我还是把那个问题以及我的回答粘贴到这里吧。

----------------------------

问题：

ASP将.txt文件导入到ACCESS中？？急急急！！在线等！！
悬赏分：150 - 离问题结束还有 20 天 0 小时
文本文件名为xiaohei.log 字段之间用|分开，一共七个字段

ship|20080418|11:53:13|stavck|stavck|addfkjiekjfie,dfjiefksdlfj,eifjldkf,eifdkfje,ekldfj.|0|
ship|20080418|11:53:30|stavck|stavck|kdfjeidkjfi,eidfjeif,eijflsfjei,dfeifslkf,eijfksf,iefjsdf,eifjslfje,ief.|0|
ship|20080418|11:53:40|stavck|stavck|sdfleisdlkfweofjdfj,eifsdfkewid,weifsdkfj.|0|
ship|20080418|11:54:12|stavck|stavck|舰船是大跃进埒吉畸昧 ！！！|2|

导入到的ACESS为gggg，表名为xxxx，
字段名分别为LID USHIPNAME LDATE LTIME LUSERNAME LCAPTAIN LLOG LLEVEL 七个字段

我是一个初学者，现在急用，最好三天之内给解决！！！要求全部代码！！拿来就能执行的 我的QQ为379962347！！！！

如能解决，以后会另行加分，再加200！！！！小弟现在手上没那些分，有了一定补上！！

---------------------------------------------------

我的回答：

请先把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 "写入成功！"
%>