紧急求教：lyfupload问题。

xinsheng212 2004-11-18 10:28:37

上传图片错误信息：
LyfUpload error '800a004b'

Path/File access error

/admin/product/upload_file5.asp, line 69

服务器在大陆没问题，上传到香港服务器，就出了问题。香港服务器用的繁体系统。组件也注册了，文件包也存在。为何就是出错呢？难道是写权限问题？怎么修改服务器fso写权限？

附源文件：

<%
'--------将日期转化成文件名--------
function MakedownName(foolcat)
dim fname
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"\","")
fname = replace(fname,"/","")
fname = replace(fname,":","")
fname = fname&cstr(int((10-1+1)*Rnd + 1))
if Instr(foolcat,"gif") >0 Then
MakedownName=fname & ".gif"
elseif Instr(foolcat,"jpeg") >0 Then
MakedownName=fname & ".jpg"
elseif Instr(foolcat,"bmp") >0 Then
MakedownName=fname & ".bmp"
elseif Instr(foolcat,"f") >0 Then
MakedownName=fname & ".swf"
'elseif Instr(foolcat,"asp") >0 Then
' MakedownName=fname & ".asp"

end if
end function

%>
<title>上传程序</title>
<link rel="stylesheet" href="../css/index.css">
<body>

<form name=newf method="POST" enctype="multipart/form-data" action="upload_file5.asp?aa=save">
<br>

<table width=98% border=0 align=center cellpadding=2 cellspacing=1 bordercolorlight=#000000 bordercolor=#FFFFFF>
<tr >
<td colspan="2">图片上传<font size="3"><b><br>
</b></font>
<hr size="1" align="center" width="100%">
提示：<font size="3"><b> </b></font></td>
</tr>
<tr >
<td height="28" width="79%"> 1、点“<font color="#FF0000">浏览</font>”按钮，找到您所要粘贴的图片文件(目前提供上传文件格式为：gif,jpg,bmp.尺寸:<font color="#FF0000">70*62</font>)：
　　
<input type="file" name="file1" class="butt">
(<font color="#FF0000">注意</font>：上传的图片名请不要带有“－”) </td>
<td height="28" width="21%"> </td>
</tr>
<tr >
<td height="28" width="79%">2、选定一个文件后，点“<font color="#FF0000">粘贴</font>”按钮，将该文件上传到服务器上：
<br>
<br>
</td>
<td height="28" width="21%">
<input type="submit" name="Submit" value="粘贴">
</td>
</tr>
<tr >
<td height="28" width="79%">3、上传完毕后，点“<font color="#FF0000">确定</font>”按钮返回。
<br>
<% if request("aa")= "save" then
'downdir ="c:\temp"
Set obj = Server.CreateObject("LyfUpload.UploadFile")
obj.maxsize=100000000
obj.extname="gif,jpg,bmp,swf"
varfname1=MakedownName(obj.filetype("file1"))
response.Write varfname1
ss=obj.SaveFile("file1",server.mappath("../../upfiles"),false,varfname1)
aa1=obj.FileSize
'if ss= "3" or aa = "3" then
'Response.Write ("附件名重复!")
if ss= "0" or aa = "0" then
Response.Write ("附件尺寸过大!")
elseif ss = "1" or aa = "1" then
Response.Write ("附件不是gif,jpg,bmp格式!")
elseif ss = "" then
Response.Write ("附件上传失败!")
else
Response.Write "<br>附件粘贴完毕！<br><br>"
Response.Write("附件1：" & varfname1&obj.filetype("file1")) & "<br>"
Response.Write("<br>附件大小：<font color='#cc6633'><b>" & aa1&"字节</b></font>") & "<br>"
end if%>
<input type="hidden" name="pepname" value="<%=varfname1%>">
<SCRIPT language=JavaScript>

function eok(){
opener.document.inputs.news_from.value =document.newf.pepname.value ;
window.close();
}
</SCRIPT>

<%
end if
%>
<br>
</td>
<td height="28" width="21%"><%if varfname1<>"" then %>
<input type="button" name="Button" value="确定" onclick="eok()"><%end if%>
</td>
</tr>
</table>
<p> </p>
</form>

...全文

151 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

水墨画 2004-11-22

打赏
举报

我也遇这到此情况的，我是在同一台服务器上，开始一直正常，突然有一天就不行了，提示和你一样，权限什么的我都没改过呀，我也找不到原因，后来没办法，我又新建了一个文件夹存放上传文件，如，原来放文件夹的是upfile,后来改为upfile1就可以了，不知为什么？但是我不想改文件夹名（因为要改很多地方的），实在没办法，我又改回原来的名称，我也不管它了，又过了几天又可以了，哈哈，我也不知为什么呀

xinsheng212 2004-11-22