紧急求教: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>

...全文
101 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
水墨画 2004-11-22
我也遇这到此情况的,我是在同一台服务器上,开始一直正常,突然有一天就不行了,提示和你一样,权限什么的我都没改过呀,我也找不到原因,后来没办法,我又新建了一个文件夹存放上传文件,如,原来放文件夹的是upfile,后来改为upfile1就可以了,不知为什么?但是我不想改文件夹名(因为要改很多地方的),实在没办法,我又改回原来的名称,我也不管它了,又过了几天又可以了,哈哈,我也不知为什么呀
回复
xinsheng212 2004-11-22
郁闷阿,这么少人回阿
回复
xinsheng212 2004-11-18
郁闷奥。我现在基本知道问题答案了。还没有最后解决
回复
xinsheng212 2004-11-18
问题怎么给权限呢?好像香港服务器的网管有点白痴,还要我教他。
回复
xiangyyy 2004-11-18
Path/File access error

要在服务器上给权限!
回复
xinsheng212 2004-11-18
没人知道么?帮忙顶的也有分。不够我去加分。
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-11-18 10:28
社区公告
暂无公告