| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 689 人关注过本帖
标题:图片上传问题
只看楼主 加入收藏
wuchunyu120
Rank: 1
来 自:河南南阳
等 级:新手上路
帖 子:237
专家分:0
注 册:2007-10-29
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:0 
图片上传问题
程序代码:
If InStr(sReturnInfo, "Error_") <= 0 Then
    sSmallPath = sReturnInfo     '
Else
    Response.Write "详细错误:"
    Select Case sReturnInfo
    Case "Error_01"
        Response.Write "<font color='red'>创建AspJpeg组件失败,没有正确安装注册该组件</font>" & "<br/>"
    Case "Error_02"
        Response.Write "<font color='red'>原图片不存在,检查s_OriginalPath参数传入值</font>" & "<br/>"
    Case "Error_03"  
        Response.Write "<font color='red'>缩略图存盘失败.可能原因:缩略图保存基地址不存在,检查s_OriginalPath参数传入值;对目录没有写权限;磁盘空间不足</font>" & "<br/>"
    Case "Error_Other"
        Response.Write "<font color='red'>未知错误</font>" & "<br/>"
    End Select
    Response.End
End If
一直出现Error_02这个错误
详细错误:原图片不存在,检查s_OriginalPath参数传入值
刚装的组件  添加、修改图片时一直出现Error_02错误,但是图片又会出现在保存图片的文件夹里
各位大虾教教小弟
补充一下  在另外一个文件里有这样一段:
程序代码:
Dim s_MapOriginalPath
    s_MapOriginalPath = server.mappath("../"&s_OriginalPath)
    AspJpeg.Open s_MapOriginalPath '打开原图片
'response.write s_MapOriginalPath
'response.end
    If Err.Number <> 0 Then
        Err.Clear
        BuildSmallPic = "Error_02"
        Exit Function
    End If
去掉BuildSmallPic = "Error_02"之后图片可以显示出来  但不知道会不会对其他文件影响

[ 本帖最后由 wuchunyu120 于 2009-8-27 19:20 编辑 ]
搜索更多相关主题的帖子: 图片 检查 缩略图 color 
2009-08-27 19:04
快速回复:图片上传问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021340 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved