用JPEG檔案EXIF資訊ASP版本（1）

前些天用bcb寫了一個EXIFINFO的組件。其實用ASP也可以實現。
用ASP效能上要稍差一些，不過可以採取預讀取形式存庫，一張圖片處理一次。


functions_exif.asp start
----------------------------
<%

const TristateUseDefault = -2
const TristateTrue = -1
const TristateFalse = 0

const ForReading = 1
const ForWriting = 2
const ForAppending = 8

const m_BYTE = 1
const m_STRING = 2
const m_SHORT = 3
const m_LONG = 4
const m_RATIONAL = 5
const m_SBYTE = 6
const m_UNDEFINED = 7
const m_SSHORT = 8
const m_SLONG = 9
const m_SRATIONAL = 10
const m_SINGLE = 11
const m_DOUBLE = 12

const ExifOffset = "8769"
const MakerNote = "927C"

Public ExifLookup
set ExifLookup = Server.CreateObject("Scripting.Dictionary")