图片系统用户上传后自动读取图片exif参数-领先建站CMS提供服务商我们专注于CMS建站产品的研发

6877 查看	11 回复

主题：[原创][首发]图片系统用户上传后自动读取图片exif参数 [收藏主题] 本贴被认定为精华

转到：

bestweihua 当前离线

151 主题	0 广播	1 粉丝

级别:一年级

用户积分:1341 分
登录次数:86 次
注册时间:2007/12/10
最后登录:2014/5/12

bestweihua 发表于：2008/2/28 15:23:00 | 显示全部帖子查看该作者主题楼主

一分钟快速开通线上知识店铺

这个功能大家可能期待已久了,站改完了,把代码放上来让大家看看,看不明白的的请参考www.she-ying.net

改\User\UpFileSave.asp

第4行加入

函数SaveFile()段在(If AddWaterFlag = "1" Then '在保存好的图片上添加水印)前面加入以下内容:

'==================读取保存的图片的EXIF信息 'bestweihua加
   Dim F_Exif,PicExif,PicExifStr
   F_Exif=GetImageExifInfo(FormPath & FileName)
   if F_Exif="" then F_Exif="|||||||秒||EV|毫米|"
   PicExif=split(F_Exif,"|")
   PicExifStr="摄影器材:"&PicExif(1)&" ISO:"&PicExif(5)&" 光圈:"&PicExif(6)&" 快门:"&PicExif(7)&" 焦距:"&PicExif(10)&" 曝光补偿:"&PicExif(9)
  'response.write "<script>alert('"&FormPath&FileName&":" & PicExifStr & "');</script>"
   Response.Write("<script language=""JavaScript"">")
   Response.Write("parent.document.myform.imgnote"&CurrNum+1&".value='"& PicExifStr &"';")
   Response.Write("</script>")
   '==================

效果:见附件2

下载信息 [文件大小：6.96 KB 下载次数：次]