读取图片EXIF信息的ASP插件

分类：网站技术 by lao8 发表于 2010-1-5 7:11:00  
 
这个东西现在比较难找，放这里做个备份。
 
下载地址：http://www.lao8.org/upfile/rar/122351748.rar 
 
1.下载后,将 "dazhounetexifinfo.dll" 文件copy至WINNT的System32目录下.如果是windows 2003 server,则需要设置此文件权限为everyone可读.(就设置这一个文件就行了)
2.运行 "regsvr32 dazhounetexifinfo.dll"进行组件注册或加参数 -u进行卸载.


使用方法:
 
  1. <%
  2. '建立对像
  3. set Obj = server.createobject("dazhounet.exifinfo")
  4. '设置文件物理地址
  5. Obj.filename = server.mappath("demo.jpg")
  6. '显示图像
  7. response.write "<img src="/demo.jpg" border=0><br>"
  9. '判断是否有EXIF信息.某些文件因为使用Photoshop等软件压缩的过利害, 会丢失或损坏EXIF信息.
  10. If Obj.IsExif = "True" Then
  11. '如果包含EXIF信息,则显示.不同版本的EXIF信息资料不一样,所以在显示之前进行判断.
  12. With Response
  13. If Obj.CameraMake <> "" then
  14.  .Write "相机制造商:" & Obj.CameraMake &"<br>"
  15. If Obj.CameraModel <>"" then
  16. .Write "相机型号:" & Obj.CameraModel& "<br>"
  17. If Obj.DateTime <>"" then
  18. .Write "拍摄时间:" & Obj.DateTime& "<br>"
  19. If Obj.ExifVersion <>"" then
  20. .Write "Exif软件版本:" & Obj.ExifVersion& "<br>"
  21. If Obj.Width <>"" then
  22. .Write "图像宽:" & Obj.Width & "<br>"
  23. If Obj.Height <>"" then
  24. .Write "图像高:" &Obj.Height& "<br>"
  25. If Obj.Xdpi <>"" then
  26. .Write "水平分辨率:" & Obj.Xdpi& " dpi<br>"
  27. If Obj.Ydpi <>"" then
  28. .Write "垂直分辨率:" & Obj.Ydpi& " dpi<br>"
  29. If Obj.Orientation <>"" then
  30. .Write "Orientation:" & Obj.Orientation& "<br>"
  31. If Obj.iscolor <>"" then
  32. .Write "是否黑白:" & Obj.iscolor& "<br>"
  33. If Obj.FlashUsed <>"No" then
  34. .Write "闪光灯:" & Obj.FlashUsed& "<br>"
  35. If Obj.FocalLength <>"" then
  36. .Write "焦距:" & Obj.FocalLength& "<br>"
  37. If Obj.CCDWidth <>"" then
  38. .Write "CCD宽度:" & Obj.CCDWidth& "<br>"
  39. If Obj.ExposureTime <>"" then
  40. .Write "曝光时间:" & Obj.ExposureTime& "<br>"
  41. If Obj.Brightness <>"" then
  42. .Write "亮度:" & Obj.Brightness& "<br>"
  43. If Obj.ApertureFNumber <>"" then
  44. .Write "光圈:" & Obj.ApertureFNumber& "<br>"
  45. If Obj.Distance <>"" then
  46. .Write "Distance:" & Obj.Distance& "<br>"
  47. If Obj.ISOequivalent <>"" then
  48. .Write "感光度/ISO:" & Obj.ISOequivalent& "<br>"
  49. If Obj.ExposureBias <>"" then
  50. .Write "曝光补偿" & Obj.ExposureBias& "<br>"
  51. If Obj.Whitebalance <>"" then
  52. .Write "白平衡:" & Obj.Whitebalance& "<br>"
  53. If Obj.MeteringMode <>"" then
  54. .Write "测光方式:" & Obj.MeteringMode& "<br>"
  55. If Obj.ExposureProgram <>"" then
  56. .Write "曝光补偿:" & Obj.ExposureProgram& "<br>"
  57. If Obj.CompressionLevel <>"" then
  58. .Write "压缩级别:" & Obj.CompressionLevel& "<br>"
  59. If Obj.Encoding <>"" then
  60. .Write "Encoding:" & Obj.Encoding& "<br>"
  61. end with
  62. End If
  63. '显示版本信息
  64. response.Write Obj.version
  65. '释放资源.
  66. set obj= nothing
  67. %>

 

最后修改时间：2010-1-5 7:18:00

标签:EXIF ASP插件
收藏到收藏夹

相关"EXIF ASP插件"文章

发表见解

Username (必填)
Email(必填)
Website(可不填)

站内搜索

 

热门文章

lao8 最新文章：

按分类归档