程序代碼

<%
'-------------------------------------------
'函數(shù)名：ChkImg
'作　用：檢查圖片文件是否合法
'參　數(shù)：img，圖片路徑，相對于網(wǎng)站根目錄的絕對路徑
'返回值：布爾類型，如果圖片合法返回True,否則返回False
'條　件：服務(wù)器必須支持aspJpeg組件，
'         如不支持，為了避免所有圖片都不能上傳，本函數(shù)將直接返回True
'-------------------------------------------
Function ChkImg(img)
    On Error Resume Next '為了捕獲錯誤信息，需要讓代碼在出錯時能繼續(xù)執(zhí)行

    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

    'www.companysz.com 必要的善后工作
    If Err.number <> 0 Then Err.clear
    Set ChkJpeg = Nothing

    ChkImg = RetunValue
End Function
%>

注意：因為AspJpeg只能處理已經(jīng)在服務(wù)器上的文件，所以實際運用的過程中我們需要這樣做：先將圖片上傳到一個臨時文件夾，然后檢查圖片的合法性，如果合法，復制圖片到圖片保存目錄，刪除臨時文件并返回上傳成功信息，如果非法，直接刪除臨時文件并返回錯誤警告。

因為僅僅只是用AspJpeg打開了一下圖片，并未執(zhí)行處理圖片的操作，所以本函數(shù)的執(zhí)行效率還是非常高的，使用中基本不必擔心效率問題。