白云岛资源网 Design By www.pvray.com
今天试了下AspJpeg组件，发现用AspJpeg组件去处理不正常的图片文件的时候就会出错，呵呵，这个正好可以让我们用来检查图片的合法性，偶给封装成函数了～
复制代码 代码如下:
'-------------------------------------------
'函数名：chkimg
'作 用：检查图片文件是否合法
'参 数：img，图片路径
'返回值：布尔类型
'条 件：服务器必须支持AspJpeg
'-------------------------------------------
Function chkimg(img)
on error resume Next
chkimg=True
if isnull(img) then chkimg=false:exit function
Set chkJpeg = Server.CreateObject("Persits.Jpeg")
chkPath = Server.mappath(img)
chkJpeg.Open chkPath
If Err Then
chkimg=False
End If
If err.number<>0 Then err.clear
Set chkjpeg=Nothing
End Function
因为AspJpeg只能处理已经在服务器上的文件，所以实际运用的过程中我们可以这样做：先将图片上传到一个临时文件夹，然后检查图片的合法性，如果合法，复制图片到图片保存目录，删除临时文件并返回上传成功信息，如果非法，直接删除临时文件并返回错误警告。
复制代码 代码如下:
'-------------------------------------------
'函数名：chkimg
'作 用：检查图片文件是否合法
'参 数：img，图片路径
'返回值：布尔类型
'条 件：服务器必须支持AspJpeg
'-------------------------------------------
Function chkimg(img)
on error resume Next
chkimg=True
if isnull(img) then chkimg=false:exit function
Set chkJpeg = Server.CreateObject("Persits.Jpeg")
chkPath = Server.mappath(img)
chkJpeg.Open chkPath
If Err Then
chkimg=False
End If
If err.number<>0 Then err.clear
Set chkjpeg=Nothing
End Function
因为AspJpeg只能处理已经在服务器上的文件，所以实际运用的过程中我们可以这样做：先将图片上传到一个临时文件夹，然后检查图片的合法性，如果合法，复制图片到图片保存目录，删除临时文件并返回上传成功信息，如果非法，直接删除临时文件并返回错误警告。
白云岛资源网 Design By www.pvray.com
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
白云岛资源网 Design By www.pvray.com
暂无评论...
