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

來源:互聯網
上載者:User

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

相關文章

Cloud Intelligence Leading the Digital Future

Alibaba Cloud ACtivate Online Conference, Nov. 20th & 21st, 2019 (UTC+08)

Register Now >

11.11 Big Sale for Cloud

Get Unbeatable Offers with up to 90% Off,Oct.24-Nov.13 (UTC+8)

Get It Now >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。