You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
23 lines
570 B
Plaintext
23 lines
570 B
Plaintext
20 years ago
|
<html>
|
||
|
|
<body>
|
||
|
|
<img src="sample.jpg" width=600><p>
|
||
|
|
<%
|
||
|
|
'object initialisation
|
||
|
|
Dim oExiv2
|
||
|
|
Set oExiv2 = Server.CreateObject("exiv2com.Exif")
|
||
|
|
|
||
|
|
'filename
|
||
|
|
Dim strFileName
|
||
|
|
strFileName = Server.MapPath("./") & "\sample.jpg"
|
||
|
|
|
||
|
|
'GetExif method
|
||
|
|
Response.Write "<b>GetExif method</b><br>"
|
||
|
|
Response.Write oExiv2.GetExif(strFileName, "Exif.Image.Model") & "<p>"
|
||
|
|
|
||
|
|
'GetExifInterpreted method
|
||
|
|
Response.Write "<b>GetExifInterpreted method</b><br>"
|
||
|
|
Response.Write Replace(oExiv2.GetExifInterpreted(strFileName), vbLf, "<br>")
|
||
|
|
%>
|
||
|
|
</body>
|
||
|
|
</html>
|