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 编辑 ]