图片上传问题
程序代码:
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 编辑 ]