<!--#include file="conn.asp"-->
<%
id=Request("id")
set rs=conn.execute("select exifinfo from imgbook where ID="&ID)
if not Rs.eof then 
exifshow=RS("exifinfo")
RS.close:set RS=nothing
							if exifshow<>"" then
							exifshow=split(exifshow,"|")
							if Ubound(exifshow)>3 then
							 if Ubound(exifshow)=8 then
							   Response.write "相机品牌："&exifshow(0)&"<br>"
							   Response.write "相机型号："&exifshow(1)&"<br>"
							   Response.write "照片尺寸："&exifshow(2)&"<br>"
							   Response.write "ISO速度："&exifshow(4)&"<br>"
							   Response.write "曝光时间："&exifshow(5)&"<br>"
							   Response.write "光圈："&exifshow(6)&"<br>"
							   Response.write "焦距："&exifshow(7)&"<br>"
							  else
							   Response.write "相机品牌："&exifshow(0)&"<br>"
							   Response.write "相机型号："&exifshow(1)&"<br>"
							   Response.write "拍摄时间："&exifshow(2)&"<br>"
							   Response.write "照片尺寸："&exifshow(3)&"<br>"
							   Response.write "编辑工具："&exifshow(4)&"<br>"
							   Response.write "ISO速度："&exifshow(5)&"<br>"
							   Response.write "光圈："&exifshow(6)&"<br>"
							   Response.write "曝光时间："&exifshow(7)&"<br>"
							   Response.write "闪光灯："&exifshow(8)&"<br>"
							   Response.write "曝光补偿："&exifshow(9)&"<br>"
							   Response.write "焦距："&exifshow(10)&"<br>"
							   Response.write "测距模式："&exifshow(11)&"<br>"
							End if
						End if
					End if
Else
	Response.Write "此图没有 Exif 数据!"
End If
%>
