aspSmartUpload 组件上传报错

Question

aspSmartUpload error '800a0009'

下标越界

/RMATS/PSGRMA/photoinsertion.asp, line 12

<%@LANGUAGE="VBSCRIPT"%> 
<%
'On error resume next
Dim mysmartupload
Dim intcount
Dim FILE
intcount=0

Set mysmartupload = Server.CreateObject("aspSmartUpload.SmartUpload")
mysmartupload.allowedfileslist="Jpg,bmp,pdf"
mysmartupload.Maxfilesize=700000
mysmartupload.Upload
'intcount = mysmartupload.save("/car/photos")
For each file In mysmartupload.files
	if not file.ismissing then
	file.saveas("Photos/" & file.fileName)
'if err then
'
'else 
'Response.write("<b>Wrong selection: </b>"&err.description)
'then 
	Response.write("<b><font color=#000066 face=Verdana, Arial, Helvetica, sans-serif size=2>File Name= " & file.fileName & "<BR>")
	Response.write("size= "& file.size & " bytes <BR></b>")
	intcount = intcount + 1
	end if
Next

Response.write("<br>"& mysmartupload.files.count & " files could be upload.<BR>")
Response.write("<b>" & intcount & "   file(s) uploaded<br><br><br></font>")
%>

Answer 1

这个错误通常表示在代码中尝试访问一个超出范围的数组或集合元素。根据代码中的信息，错误发生在第 12 行，但是无法确定具体的错误原因。建议仔细检查代码，确保数组或集合中的元素数量正确，并且没有超出索引范围。还可以尝试添加适当的错误处理代码，例如使用 try-catch 语句来捕获并处理异常。另外，确保已经正确引用了相关的 COM 组件或类库。