Subscript out of range运行asp页面报错!!

ttoth 2004-01-14 07:06:13

LyfUpload 错误 '80020009'

Subscript out of range

/金和田/manager/doupload.asp，行 15

asp代码如下:

<!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>


<%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 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%>


</body>
</html>

请各位帮忙解决!!

...全文