青丘狐传说 长亭:我在用LyfUpload时提示下标越界
来源:百度文库 编辑:高考问答 时间:2024/05/11 16:03:20
我在用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
%>
错误的地方是
'创建该组件
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
%>