ASP file upload aspjpeg component upload file

Function chkimg (IMG)
    On Error Resume next   in order to capture error messages, you need to have the code continue to perform the
     Dim retunvalue, chkjpeg
    retunvalue = True
    If the path is empty, the picture is considered illegal
    If isnull (img) Then chkimg = false:exit Function
    Set chkjpeg = server.creat Eobject ("Persits.jpeg")
    If-2147221005 <> Err then    If the component is supported, Check the legality of the picture with the component
        chkjpeg.open Server.MapPath (img)
         If Err Then
            Retunvalue = False
        End if       
    else    Skip Direct return True
if the component is not supported         Retunvalue = True
    end If
    necessary cleanup work
    If err.number <> 0 Then err.clear
    Set chkjpeg = Nothing
    chkimg = Retunvalue
End Function