asp 檔案上傳aspjpeg組件上傳檔案

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