asp的文件上传问题，求求大家，帮个忙吧！！！
做了一个asp的网站，要添加文件上传功能，用了刘玉峰的LyfUpload1.1文件上传组件，注册组件以后，没有用他的页面，因为我本来有自己的上传页面，就在自己的里面添了相关的语句，主要就是这两句：Set obj = Server.CreateObject("LyfUpload.UploadFile")
ss=obj.SaveFile("address", "D:\web\zlxz") '保存文件到服务器
%>
结果页面老是报错，有两个错：
Microsoft VBScript 编译器错误 错误‘800a03f6’
缺少‘End’
/iishelp/common/500-100.asp,行242
LyUpload 错误 ‘80020009’
Subscript out of range
/addzl.asp,行82
出错页面还是可以上传文件到指定目录，但是其他数据不能写入数据库，这样上一个页面就不能从数据库中读取上传文件的相关信息，显示出来，用户也就无法下载。
因为我的web目录放在d盘上，fat32格式，不存在数据库读写权限问题。
addzl.asp的代码如下
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
<!--#include file="back.asp"-->
<!--#include file="fix.asp"-->
<!--#include file="connection.asp"-->
<%
Set RS = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM rjdata"
RS.open sql,conn,1,3
if request("action")="" then
%>
<br><br>
<script language="JavaScript">
<!-- Hiding
function check(a,b,c)
{
if (a==""||b==""||c=="" )
{
alert("请填写完整的软件名称、链接地址及说明")
return false
}
else
return true
}
// -->
</script>
<center>
<form method="post" enctype="multipart/form-data" action="addzl.asp" name="talk"
onsubmit="return check(talk.title.value,talk.address.data,talk.data.value)">
<table frame=hsides rules=none bgcolor="#CCFFFF" border="1" bordercolorlight="#FFFFFF" bordercolordark="#000066" width="410">
<tr>
<td>资料名称：
<input type="text" name="name" size="50" maxlength="50">
</td>
</tr>
<tr>
<td>选择文件：
<input type="file" name="address" size="50" maxlength="80">
</td>
</tr>
<tr>
<td colspan="2">
<p>说明：
<textarea name="data" cols="60" rows="10"></textarea>
</p>
</td>
</tr>
</table>
<p>
<input type="submit" name="action" value="上传">
<input type="reset" name="Submit6" value="取消">
</p>
<p align="center"><a href='zlxz.asp'>返回</a></p>
</form>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing
else
datevar=Date()
monthv=Month(datevar)
dayv=Day(datevar)
dd=dayv&"/"&monthv
rs.addnew
rs("note")=eck(request.form("data"))
rs("name")=eck(request.form("name"))
rs("address")=eck(request.form("address"))
rs("hits")=1
rs("time")=now()
rs("tim")=dd
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
Set obj = Server.CreateObject("LyfUpload.UploadFile")'该行为82行，也就是报错行
ss=obj.SaveFile("address", "D:\web\zlxz") '保存文件到服务器
%>
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
请高手不吝赐教，感激不禁！！！
问题点数：100、回复次数：14Top
1 楼net_lover（【孟子E章】）回复于 2005-08-02 16:08:49 得分 40
不能用
request.form("data")取数据的，要用
obj.Form("data")
其他类似
multipart/form-data
方式的用了request.form后就不能用request.BinaryRead了，组件 必须这个
Top
2 楼net_lover（【孟子E章】）回复于 2005-08-02 16:11:17 得分 0
rs("note")=eck(obj.form("data"))
rs("name")=eck(obj.form("name"))
rs("address")=这里的地址应该根据 obj.SaveFile("address", "D:\web\zlxz") 的返回值，或者自己设置的路径存取Top
3 楼lindy730（21世纪什么最贵？我想是男人的泪。）回复于 2005-08-02 16:13:40 得分 40
我也碰到过这个问题，我发现是只要文件路径单独保存就不会出错，所以我是分两步来保存的，
我的思路是这样的：
1。在页面一中提交“资料名称”，“说明”。。。。等数据，按提交后将这些数据保存到数据库中并打开页面二。（文件路径此时是空）
2。在页面二中是选择文件上传的，按提交后将文件路径保存到数据库中（是修改动作）。Top
4 楼sinlinring（琳）回复于 2005-08-03 08:32:16 得分 0
其实我一直觉得是两种脚本语言的冲突，因为本身网站中的脚本都是javascript的，添加的上传功能又要求添加<script language="JavaScript">这句话，也不知道跟这个有没有关系，希望高手继续指点，多谢啦！Top
5 楼sinlinring（琳）回复于 2005-08-03 08:34:24 得分 0
怎么看不到我的帖子啊，这么快就石沉大海啦?Top
6 楼zwrtv（蝙蝠）回复于 2005-08-03 09:23:06 得分 5
路过学习下Top
7 楼sinlinring（琳）回复于 2005-08-03 15:17:13 得分 0
人气不高嘛！Top
8 楼znjgress（四空和尚）回复于 2005-08-04 15:22:21 得分 5
LyfUpload 应用说明网上太多了
我就不多说了Top
9 楼sinlinring（琳）回复于 2005-08-04 16:45:16 得分 0
原谅我是菜鸟吧，请大家多多指点，我也是根据下载的说明来用的啊Top
10 楼sinlinring（琳）回复于 2005-08-08 09:03:31 得分 0
tiTop
11 楼jamila8（曾）回复于 2005-08-08 10:09:53 得分 5
Set obj = Server.CreateObject("LyfUpload.UploadFile")'该行为82行，也就是报错行
这里包错，说明你组件没注册对
写一个.bat文件,内容
regsvr32 lygupload.dllTop
12 楼sinlinring（琳）回复于 2005-08-08 10:14:37 得分 0
没有啊，当我使用原文件的两个页面操作时，还是成功的啊，就是修改自己的页面后，就报这样的错，如果组件没有注册成功的话，不会一会儿行，一会儿不行的啊Top
13 楼koolbing（）回复于 2005-08-08 10:34:08 得分 5
何必用组件,要注册还比较麻烦,网上关于上传的程序多得很,用一下就行了.Top
14 楼sinlinring（琳）回复于 2005-08-09 08:40:19 得分 0
老兄帮忙帮到底，推荐一个啦Top
