长沙坡子街小吃攻略:我在用LyfUpload时提示下标越界

我在用LyfUpload时提示下标越界，代码如下
错误的地方是
'创建该组件
Set obj = Server.CreateObject("LyfUpload.UploadFile")
请问怎么解决啊。

<%
'获取上传文件的文件名
function getfilename(req)
dim tmp,arr,filename
arr=split(req,chr(34),-1,1)
tmp=arr(1)
if tmp="" then
getfilename=""
exit function
end if
arr=split(tmp,"\",-1,1)
filename=arr(ubound(arr))
getfilename=filename
end function

'设定服务器上保存文件的目录路径
path="e:\masterasp\" '读者可以自己随便设置

'创建该组件
Set obj = Server.CreateObject("LyfUpload.UploadFile")

'获取上传文件的文件名
varfname=getfilename(obj.request("File_Upload"))

'保存文件到服务器
RetVal=obj.SaveFile("File_Upload", path, false,varfname)

'获取上传文件的扩展名
extName=obj.filetype("File_Upload")

if RetVal="3" then
Response.Write "此文件在服务器上已经存在！不能覆盖！"
elseif retval<>"" then
Response.Write "你的文件已经被上传到服务器的" & path & varfname & "<br>"
Response.Write("上传的文件名称为：" & RetVal)
Response.Write("<br>文件类型Content-Type：" & extName)
Response.Write("<br>你上传的文件大小为：" & obj.FileSize)
end if

set obj=nothing
%>