<%
'---------------------------------------------------------
'函數名稱：ChkImg
'作用：檢查圖片檔案是否合法
'參數：img，圖片路徑，相對於網站根目錄的絕對路徑
'傳回值：布林類型，如果圖片合法傳回True,否則回傳False
'條件：伺服器必須支援AspJpeg元件，
'如不支持，為了避免所有圖片都不能上傳，本函數將直接傳回True
'http://www.downcodes.com/asp.asp
'---------------------------------------------------------
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
%>
注意：因為AspJpeg只能處理已經在伺服器上的文件，所以實際運用的過程中我們需要這樣做：先將圖片上傳到一個臨時資料夾，然後檢查圖片的合法性，如果合法，複製圖片到圖片保存目錄，刪除臨時檔案並返回上傳成功訊息，如果非法，直接刪除臨時檔案並返回錯誤警告。
因為只是用AspJpeg打開了一下圖片，並未執行處理圖片的操作，所以本函數的執行效率還是非常高的，使用中基本上不必擔心效率問題。