leixian
男, 27岁
河南 禹州
上次登录: 14天前
加为好友
|
|
2009年02月21日 星期六 02:00
2007年05月25日 星期五 11:51
'********************************************************************************
'函数名:ExifAllInfo
'功 能:获取图片的全部Exif参数
'参 数:无
'返 回:一个包含所有参数的HTML字符串
'********************************************************************************
Public Function ExifAllInfo()
ExifAllInfo="<table border=1><tr><th nowrap>#</td><th nowrap>Tag H |
2007年05月25日 星期五 11:51
End If Case m_RATIONAL, m_SRATIONAL BytesPerComponent = 8 IFDDirectory(k)(IFD_IDX_OffsetToValue) = ByteToLong(ExifTemp((Offset + 2) + ((i - 1) * 12) + 11), ExifTemp((Offset + 2) + ((i - 1) * 12) + 10), ExifTemp((Offset + 2) + ((i - 1) * 12) + 9), ExifTemp((Offset + 2) + ((i - 1) * 12) + 8)) I |
2007年05月25日 星期五 11:51
'********************************************************************************
'函数名:LoadImage
'功 能:读入图片
'参 数:picFile 图片地址
'返 回:无
'********************************************************************************
Private sub LoadImage(picFile)
If ImageFileName = "" Then
ImageFileName = picFile
If ImageFileName = "" Then
|
2007年05月25日 星期五 11:46
Exif.asp 由于发表的时候有长短限制,该文件分几部分贴出来
<%
'********************************************************************************
'塞北的雪(sAiBeIdExUe) 修改整理版
'增加了几个函数,改正了原程序中一些细节部分
'2006-3-9 10:31
'********************************************************************************
'类名:Cls_Exif
'功能:获取图片信息
|
|
|
|