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

　　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