新手求教！使用lyfupload上传组件出现的下标越界问题
如题，请问一般在什么情况下才会出现这种问题啊？以下是代码：
dim id,obj,ss,aa
Set obj = Server.CreateObject("LyfUpload.UploadFile")
if not IsObject(obj) then
Response.Write "LyfUpload control not installed !"
Response.End
end if
aa=obj.filetype("trade_pic")
if aa <> "" then
ss=obj.SaveFiletodb("trade_pic")
else
ss = "no pic uploaded!"
end if
if ss= "" then
Response.Write "<center>图片上传失败!<br><br><a href='history.back()'>返 回</a></center>"
else
with session("rs")
.Open "trade_info",session("conn"),adOpenDynamic,adLockOptimistic,adCmdTableDirect
if obj.Request("action") = "insert" then
.AddNew
else
if obj.Request("action") = "edit" then
.find "id = " & obj.Request("id")
end if //到这里就说是下标越界！！
end if
还请位达人指点，谢谢了！
[此贴子已经被作者于2005-4-16 10:53:07编辑过]
