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

改\User\UpFileSave.asp

第4行加入

<!--#include file="../KS_Cls/KS.Exif.asp"-->

函数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 下载次数： 次]

点击下载文件:exif

有需要的请支持一下,谢谢

[此贴子已经被作者于2008-2-28 15:33:03编辑过]

顶起~~~~~~

在v6上无法显示呢

请教如何修改？

能不能直接在图片内容页的图片下面调用标签式呢？

请指教

楼主，貌似不起作用啊