展会信息港展会大全

asp 文件上传aspjpeg组件上传文件
来源:互联网   发布日期:2016-03-01 11:04:20   浏览:2055次  

导读:Function ChkImg(img) On Error Resume Next 为了捕获错误信息,需要让代码在出错时能继续执行 Dim RetunValue, ChkJp...

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如果组件不被支持,则跳过直接返回True

RetunValue = True

End If

必要的善后工作

If Err.number <> 0 Then Err.clear

Set ChkJpeg = Nothing

ChkImg = RetunValue

End Function

赞助本站

人工智能实验室

相关热词: 开发 编程 android

AiLab云推荐
展开

热门栏目HotCates

Copyright © 2010-2024 AiLab Team. 人工智能实验室 版权所有    关于我们 | 联系我们 | 广告服务 | 公司动态 | 免责声明 | 隐私条款 | 工作机会 | 展会港