EXIF Information ASP version with JPEG files (1)

Some days ago, a Exifinfo component was written with BCB. In fact, ASP can also be implemented.
With ASP performance on a little bit less, but can take the form of pre-read library, a picture processing once.


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")