-
- Function ChkImg(img)
- On Error Resume Next
- Dim RetunValue, ChkJpeg
- RetunValue = True
-
- If isnull(img) Then ChkImg = False:Exit Function
- Set ChkJpeg = Server.CreateObject("Persits.Jpeg")
- If -2147221005 <> Err Then
- ChkJpeg.Open Server.mappath(img)
- If Err Then
- RetunValue = False
- End If
- Else
- RetunValue = True
- End If
-
-
- If Err.number <> 0 Then Err.clear
- Set ChkJpeg = Nothing
- ChkImg = RetunValue
- End Function
注意:因为AspJpeg只能处理已经在服务器上的文件,所以实际运用的过程中我们需要这样做:先将图片上传到一个临时文件夹,然后检查图片的合法性,如果合法,复制图片到图片保存目录,删除临时文件并返回上传成功信息,如果非法,直接删除临时文件并返回错误警告。
因为仅仅只是用AspJpeg打开了一下图片,并未执行处理图片的操作,所以本函数的执行效率还是非常高的,经我个人的测试也是如此,使用中基本不必担心效率问题。
函数来源于:一想千开