熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

asp 文件上傳aspjpeg組件上傳文件

2013-11-13 10:43:40  來源: .NET編程 

  Function ChkImg(img)
    On Error Resume Next   為了捕獲錯誤信息需要讓代碼在出錯時能繼續執行
    Dim RetunValue ChkJpeg
    RetunValue = True
    如果路徑為空則認為圖片不合法
    If isnull(img) Then ChkImg = False:Exit Function
    Set ChkJpeg = ServerCreateObject("PersitsJpeg")
    If <> Err Then    如果組件被支持則用組件檢查圖片的合法性
        ChkJpegOpen Servermappath(img)
        If Err Then
            RetunValue = False
        End If       
    Else    如果組件不被支持則跳過直接返回True
        RetunValue = True
    End If
    必要的善後工作
    If Errnumber <> Then Errclear
    Set ChkJpeg = Nothing
    ChkImg = RetunValue
End Function


From:http://tw.wingwit.com/Article/program/net/201311/14386.html
  • 上一篇文章:

  • 下一篇文章:
  • Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.