Subscript out of range
LyfUpload 错误 '80020009'
Subscript out of range
/金和田/manager/doupload.asp,行 15
代码如下:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>文件上传</title>
</head>
<body>
<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<%if session("user")=empty then
response.Write "<div align='center'>您没有登陆!请返回<a href='login.asp'>登陆页</a>登陆!</div>"
else
set uploadphoto = Server.CreateObject("LyfUpload.UploadFile")
for i=1 to cint(request.QueryString("counts"))
if obj.request("button"&i)=empty then
response.Write ("<div align='center'>文件"&i&"没有选择!请返回<input type=button value='上一页' onClick='history.back(-1)' >选择完整!</div>")
response.end
end if
next
uploadphoto.extname="gif,jpg,jpeg"
for i=1 to request.QueryString("counts")
filename=uploadphoto.savefile("button"&i,server.MapPath("/")+"/photo/",false)
filenames=filenames+";"+filename
if filename="1" then
response.Write("<div align='center'>文件"&i&"上传图片必须是jpg,jpeg,gif格式!</div>")
response.End
elseif filename="3" then
response.Write("<div align='center'>文件"&i&"图片名已存在,请重新命名!<div>")
response.End
end if
next
if request.QueryString("id")=empty then
objrs.open "select 图片 from "&request.QueryString("typename")&"",conn,1,3
objrs.addnew
else objrs.open "select 图片 from"&request.QueryString("typename")&" where 序号="&request.QueryString("id")&"",conn,1,3
end if
objrs("图片")=filenames
objrs.update
response.Write("<div align='center'>所有文件上传成功!请返回<a href='manager.asp?typename="&request.QueryString("typename")&"'>网站后台管理页面!</a></div>")
end if%>
<!--#include file="buttom.asp"-->
</body>
</html>
第15行是 set uploadphoto = Server.CreateObject("LyfUpload.UploadFile")
请各位帮忙解决,小弟很急!!!