HostBreak United States
<html>
<head>
<title>Image Size Demo</title>
</head>
<body>
<blockquote>
<blockquote>
<p>
<br>
<br>
</p>
<%
Dim Img
sub CheckFile (strFileName)
set Img = Server.CreateObject ("ImgSize.Check")
Img.FileName = strFileName
if Img.Error <> "" then
Response.Write "An error occurred in processing this image.<br>"
Response.Write "The error was: <b>" & Img.Error & "</b>"
else
Response.Write "<p>Image <b>" & strFileName & "</b> successfully read.<br>"
Response.Write "Image Height = <b>" & Img.Height & "</b><br>"
Response.Write "Image Width = <b>" & Img.Width & "</b></p>"
end if
set Img = nothing
end sub
CheckFile ("d:\inetpub\wwwroot\images\569.jpg")
CheckFile ("d:\inetpub\wwwroot\images\cloudy.jpg")
CheckFile ("d:\inetpub\wwwroot\images\chart1.bmp")
CheckFile ("d:\inetpub\wwwroot\images\aspdevlogo.gif")
CheckFile ("d:\inetpub\wwwroot\images\write.gif")
CheckFile ("d:\inetpub\wwwroot\images\smpchrt1.png")
CheckFile ("d:\inetpub\wwwroot\images\toast.png")
%>
</blockquote>
</blockquote>
</body>
</html>
<head>
<title>Image Size Demo</title>
</head>
<body>
<blockquote>
<blockquote>
<p>
<br>
<br>
</p>
<%
Dim Img
sub CheckFile (strFileName)
set Img = Server.CreateObject ("ImgSize.Check")
Img.FileName = strFileName
if Img.Error <> "" then
Response.Write "An error occurred in processing this image.<br>"
Response.Write "The error was: <b>" & Img.Error & "</b>"
else
Response.Write "<p>Image <b>" & strFileName & "</b> successfully read.<br>"
Response.Write "Image Height = <b>" & Img.Height & "</b><br>"
Response.Write "Image Width = <b>" & Img.Width & "</b></p>"
end if
set Img = nothing
end sub
CheckFile ("d:\inetpub\wwwroot\images\569.jpg")
CheckFile ("d:\inetpub\wwwroot\images\cloudy.jpg")
CheckFile ("d:\inetpub\wwwroot\images\chart1.bmp")
CheckFile ("d:\inetpub\wwwroot\images\aspdevlogo.gif")
CheckFile ("d:\inetpub\wwwroot\images\write.gif")
CheckFile ("d:\inetpub\wwwroot\images\smpchrt1.png")
CheckFile ("d:\inetpub\wwwroot\images\toast.png")
%>
</blockquote>
</blockquote>
</body>
</html>
More: There is no technical information for this component. Component supplied by www.serverobjects.com.
Please note: We do not provide support on components we offer. You will find links to the relevant vendor on each page where appropriate. Our licensing of components does not cover your local installation.
