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
'功能：获取图片信息
|
|
|
|
送他礼物
发送消息
