用JPEG文件EXIF信息ASP版本（1）
出处：不详 作者：IT 日期：2007-09-01 评论(0)条
前些天用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")
http://www.itcnw.com/
用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")
http://www.itcnw.com/
将文章分享到:
- 上一篇：利用存储过程进行组合查询
- 下一篇：用JPEG文件EXIF信息ASP版本（2）