2422 查看 2 回复

主题：[求助]想给图片频道的图片列出exif信息，不知道那里有这种插件？ [收藏主题]

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:xxx_yyy 性别:男 积分:358分 威望:398 帖子:118 精华:0 广播:2 粉丝:0 登录次数:49 次 注册时间:2009/11/17 9:05:00 最后登录:2017/3/30 10:03:22 xxx_yyy 当前离线 118 主题 2 广播 0 粉丝 级别:一年级 用户积分:358 分 登录次数:49 次 注册时间:2009/11/17 最后登录:2017/3/30	xxx_yyy 发表于：2011/3/3 16:19:39   | 只看该作者 查看该作者主题 楼主  做考试题库 就用#科汛在线考试系统! 需要一个针对7.03版的exif信息显示插件，那位高人能提供一个？
	做考试题库 就用#科汛在线考试系统!
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:licaifuwu 性别:男 积分:1585分 威望:1350 帖子:653 精华:6 广播:10 粉丝:17 登录次数:361 次 注册时间:2010/11/19 9:58:25 最后登录:2019/5/7 21:57:04 licaifuwu 当前离线 653 主题 10 广播 17 粉丝 级别:六年级 用户积分:1585 分 登录次数:361 次 注册时间:2010/11/19 最后登录:2019/5/7	licaifuwu 发表于：2011/3/3 19:07:14   | 只看该作者 查看该作者主题 沙发  做考试题库 就用#科汛在线考试系统! 给你代码 自己小改下 做个公用函数 然后GetImageExifInfo(PicURL)调用就可以了 复制代码 <% '******************************************************************************** '函数名：GetImageExifInfo '功     能：获取基本的Exif信息 '参     数：PicURL 文件路径，相对路径 '返     回：用|分隔的字符串 '******************************************************************************** Function GetImageExifInfo(PicURL)     Dim TempStr, TempSplit     Dim ExifInfo     set ExifInfo = new Cls_Exif     On Error Resume Next        ExifInfo.ImageFile = Server.MapPath(PicURL)     If Err<>0 Then            Err.Clear         On Error Goto 0         Set ExifInfo = Nothing            GetImageExifInfo = ""         Exit Function     Else          On Error Goto 0     End if     if ExifInfo.hasExifInfo() and ExifInfo.GetExifByName("Camera Make")<>"" then            TempStr = ExifInfo.GetExifByName("Camera Make")            GetImageExifInfo = ExifItem(TempStr)            TempStr = ExifInfo.GetExifByName("Camera Model")            GetImageExifInfo = GetImageExifInfo & "|" & ExifItem(TempStr)            TempStr = ExifInfo.GetExifByName("Date Time Original")         If Left(TempStr, 4) = "0000" Then                TempStr = ExifInfo.GetExifByName("Date Time Digitized")         End If         If Left(TempStr, 4) = "0000" Then                TempStr = ExifInfo.GetExifByName("Date Time")         End If         If Left(TempStr, 4) = "0000" Then                TempStr = ""         End If            GetImageExifInfo = GetImageExifInfo & "|" & ExifItem(TempStr)            TempStr = ExifInfo.GetExifByName("Exif Image Width")            TempSplit = ExifInfo.GetExifByName("Exif Image Height")         if TempStr <> "" and TempSplit<>"" then                TempStr = TempStr & " * " & TempSplit         else                TempStr = ""         end if            GetImageExifInfo = GetImageExifInfo & "|" & ExifItem(TempStr)            TempStr = ExifInfo.GetExifByName("Software")            GetImageExifInfo = GetImageExifInfo & "|" & ExifItem(TempStr)            TempStr = ExifInfo.GetExifByName("ISO Speed Ratings")            GetImageExifInfo = GetImageExifInfo & "|" & ExifItem(TempStr)            TempStr = ExifInfo.GetExifByName("FStop")            GetImageExifInfo = GetImageExifInfo & "|" & ExifItem(TempStr)            TempStr = ExifInfo.GetExifByName("Exposure Time")            GetImageExifInfo = GetImageExifInfo & "|" & ExifItem(TempStr)            TempStr = ExifInfo.GetExifByName("Flash")            GetImageExifInfo = GetImageExifInfo & "|" & ExifItem(TempStr)            TempStr = ExifInfo.GetExifByName("Exposure Bias Value")            GetImageExifInfo = GetImageExifInfo & "|" & ExifItem(TempStr)            TempStr = ExifInfo.GetExifByName("Focal Length")            GetImageExifInfo = GetImageExifInfo & "|" & ExifItem(TempStr)            TempStr = ExifInfo.GetExifByName("Metering Mode")            GetImageExifInfo = GetImageExifInfo & "|" & ExifItem(TempStr)     else            GetImageExifInfo = ""     end if     Set ExifInfo = Nothing End Function Function GetAllExifInfo(PicURL)     set ExifInfo = new Cls_Exif     On Error Resume Next        ExifInfo.ImageFile = Server.MapPath(PicURL)        GetAllExifInfo=ExifInfo.ExifAllInfo()     Set ExifInfo = Nothing End Function Function GetHexInfo(PicURL)     set ExifInfo = new Cls_Exif     On Error Resume Next        ExifInfo.ImageFile = Server.MapPath(picURL)        GetHexInfo=ExifInfo.ExifAllInfo2()     Set ExifInfo = Nothing End Function Function ExifItem(ItemValue)     if ItemValue <> "" then            ExifItem = ExifItem & Server.HtmlEnCode(ItemValue)     else            ExifItem = ExifItem & "未知"     end if End Function %>
	科讯cms[/backcolor][/color][/url]web前端技术[/url] www.webx32.com[/url] [/color] 科讯有问必答QQ群 17478244（VIP高级群）[/color][/size][/align] 有课程 找生源 就上科汛课堂街
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:xxx_yyy 性别:男 积分:358分 威望:398 帖子:118 精华:0 广播:2 粉丝:0 登录次数:49 次 注册时间:2009/11/17 9:05:00 最后登录:2017/3/30 10:03:22 xxx_yyy 当前离线 118 主题 2 广播 0 粉丝 级别:一年级 用户积分:358 分 登录次数:49 次 注册时间:2009/11/17 最后登录:2017/3/30	xxx_yyy 发表于：2011/3/4 15:24:16   | 只看该作者 查看该作者主题 藤椅  做官网 就用科汛智能建站系统! 有个问题就是在科汛7.03下，只能显示第一张的exif信息。我想达到翻某一张，就显示它的exif信息，应该如何做？
	做新职业技能培训平台 就选#科汛网校
	支持(0) | 反对(0) 顶端 底部

＜上一主题 | 下一主题 ＞

<< 返回列表 首 页 1