程序代码：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这个错误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
详细错误:原图片不存在,检查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"之后图片可以显示出来 但不知道会不会对其他文件影响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
[ 本帖最后由 wuchunyu120 于 2009-8-27 19:20 编辑 ]