28,406
社区成员
发帖
与我相关
我的任务
分享关于LyfUpload的使用
我编了一个使用LyfUpload上传文件程序，第一个页面提交表单，第二个页面处理
但是当使用Set obj = Server.CreateObject("LyfUpload.UploadFile")语句时，放哪儿都不行，都会报如下错误：
错误类型：
LyfUpload (0x80020009)
Subscript out of range
下面是第二个页面的代码：
<%@Language=VBScript %>
<HTML>
<BODY>
<%
Set obj = Server.CreateObject("LyfUpload.UploadFile")'_________就是这句话！！！
set cn=server.CreateObject("ADODB.connection")
provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
dbpath="Data Source=" & server.MapPath("mail.mdb")
cn.open Provider & dbpath
set rs=server.CreateObject("ADODB.recordset")
commandtext="insert into production values('"&trim(obj.request("pID"))&"','"&trim(obj.request("pname"))&"','"&trim(obj.request("price"))&"','"&trim(obj.request("s3"))&"','"&trim(obj.request("infor"))&"')"
cn.execute Commandtext,0,AdCmdText
Path = Server.MapPath("production")
varfname=trim(obj.request("pID")) & ".rar"
ss=obj.SaveFile("file1", path,True,varfname) '保存文件到服务器
set objFSO = nothing
set obj = nothing
rs.close
set rs=nothing
cn.close
set cn=nothing
response.Redirect "promanage.asp"
%>
</body>
</html>
请问是怎么回事，怎么改？
但是当使用Set obj = Server.CreateObject("LyfUpload.UploadFile")语句时，放哪儿都不行，都会报如下错误：
错误类型：
LyfUpload (0x80020009)
Subscript out of range
下面是第二个页面的代码：
<%@Language=VBScript %>
<HTML>
<BODY>
<%
Set obj = Server.CreateObject("LyfUpload.UploadFile")'_________就是这句话！！！
set cn=server.CreateObject("ADODB.connection")
provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
dbpath="Data Source=" & server.MapPath("mail.mdb")
cn.open Provider & dbpath
set rs=server.CreateObject("ADODB.recordset")
commandtext="insert into production values('"&trim(obj.request("pID"))&"','"&trim(obj.request("pname"))&"','"&trim(obj.request("price"))&"','"&trim(obj.request("s3"))&"','"&trim(obj.request("infor"))&"')"
cn.execute Commandtext,0,AdCmdText
Path = Server.MapPath("production")
varfname=trim(obj.request("pID")) & ".rar"
ss=obj.SaveFile("file1", path,True,varfname) '保存文件到服务器
set objFSO = nothing
set obj = nothing
rs.close
set rs=nothing
cn.close
set cn=nothing
response.Redirect "promanage.asp"
%>
</body>
</html>
请问是怎么回事，怎么改？
...全文
请发表友善的回复…
发表回复
king5281273 2005-06-02
- 打赏
- 举报
组件的运行环境问题
我记得在2000server sp4下会出错
我记得在2000server sp4下会出错
ILBatistuta 2005-06-02
- 打赏
- 举报
谁知道lyfupload是什么工作原理？
发到king2000ygy@163.com
发到king2000ygy@163.com
孟子E章 2005-06-02
- 打赏
- 举报
请打印出来
path，varfname两个看是否正确
path，varfname两个看是否正确
孟子E章 2005-06-02
- 打赏
- 举报
上载不成功：
1，权限问题
2，文件夹路径是否正确
1，权限问题
2，文件夹路径是否正确
chsal 2005-06-02
- 打赏
- 举报
To:mikespook(懒猫开始新生活)
我的那个磁盘是FAT32格式的啊
我的那个磁盘是FAT32格式的啊
mikespook 2005-06-02
- 打赏
- 举报
NTFS格式的磁盘，在部分情况下IIS的IUSR用户无写权限~~
chsal 2005-06-02
- 打赏
- 举报
To: net_lover(孟子E章)
1，文件路径是用file按钮找的，肯定没有问题
2，权限问题是什么啊？
1，文件路径是用file按钮找的，肯定没有问题
2，权限问题是什么啊？
kaixinglei 2005-06-02
- 打赏
- 举报
检察一下你提交的表单是不是有问题。
kaixinglei 2005-06-02
- 打赏
- 举报
我用过个组件没有什么问题啊！先注册后就可以正常的使用了。
chsal 2005-06-02
- 打赏
- 举报
To: king5281273(那夜狂花)
我用的是XP自带的IIS。
我用的是XP自带的IIS。
chsal 2005-06-01
- 打赏
- 举报
To: Unending(西部来客)
我注册LyfUpload.dll了啊
To:jolinkyo()
不行，Set obj = Server.CreateObject("LyfUpload.UploadFile")有问题，下面根本就不能执行
To: net_lover(孟子E章)
我改了，不报错了，但是文件没有上载成功。也就是执行完，找不到上载的文件
我注册LyfUpload.dll了啊
To:jolinkyo()
不行，Set obj = Server.CreateObject("LyfUpload.UploadFile")有问题，下面根本就不能执行
To: net_lover(孟子E章)
我改了，不报错了，但是文件没有上载成功。也就是执行完，找不到上载的文件
jolinkyo 2005-06-01
- 打赏
- 举报
regsvr32.exe c:\windows\system\LyfUpload.dll
Unending 2005-06-01
- 打赏
- 举报
就是组件没有注册嘛
regsvr32 LyfUpload.dll先
regsvr32 LyfUpload.dll先
孟子E章 2005-06-01
- 打赏
- 举报
<form enctype="multipart/form-data">必须的
jolinkyo 2005-06-01
- 打赏
- 举报
rs.open sql,cn,1,3
写错了
写错了
jolinkyo 2005-06-01
- 打赏
- 举报
试试看
Set obj = Server.CreateObject("LyfUpload.UploadFile")
set cn=server.CreateObject("ADODB.connection")
provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
dbpath="Data Source=" & server.MapPath("mail.mdb")
cn.open Provider & dbpath
set rs=server.CreateObject("ADODB.recordset")
sql="select * from production"
rs.open sql,conn,1,3
pID=trim(obj.request("pID"))
pname=trim(obj.request("pname"))
price=trim(obj.request("price"))
s3=trim(obj.request("s3"))
infor=trim(obj.request("infor"))
rs.addnew
rs("pID")=pID
rs("pname")=pname
……
rs("infor")=infor
rs.update
Path = Server.MapPath("production")
varfname=trim(obj.request("pID")) & ".rar"
ss=obj.SaveFile("file1",path,True,varfname)
set obj=nothing
rs.close
cn.close
Set obj = Server.CreateObject("LyfUpload.UploadFile")
set cn=server.CreateObject("ADODB.connection")
provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
dbpath="Data Source=" & server.MapPath("mail.mdb")
cn.open Provider & dbpath
set rs=server.CreateObject("ADODB.recordset")
sql="select * from production"
rs.open sql,conn,1,3
pID=trim(obj.request("pID"))
pname=trim(obj.request("pname"))
price=trim(obj.request("price"))
s3=trim(obj.request("s3"))
infor=trim(obj.request("infor"))
rs.addnew
rs("pID")=pID
rs("pname")=pname
……
rs("infor")=infor
rs.update
Path = Server.MapPath("production")
varfname=trim(obj.request("pID")) & ".rar"
ss=obj.SaveFile("file1",path,True,varfname)
set obj=nothing
rs.close
cn.close
