simple

2022-07-15 80酷酷网 80kuku.com

　　<HTML>
<HEAD>
<TITLE>AspJpeg 1.0 - Simple.asp</TITLE>
</HEAD>
<BODY>

<%
    ' Create instance of AspJpeg
    Set Jpeg = Server.CreateObject("Persits.Jpeg")

    ' Compute path to source image
    Path = Server.MapPath("images") & "\dodge_viper.jpg"

    ' Open source image
    Jpeg.Open Path

    ' Decrease image size by 50%
    Jpeg.Width = Jpeg.OriginalWidth / 2
    Jpeg.Height = Jpeg.OriginalHeight / 2

    ' Apply sharpening if necessary
    ' Jpeg.Sharpen 1, 130

    ' create thumbnail and save it to disk
    Jpeg.Save Server.MapPath("images") & "\clock_small.jpg"
%>

Original Image:

<IMG SRC=http://www.163design.net/a/q/"images/clock.jpg"><P>

Thumbnail (50% reduction):

<IMG SRC=http://www.163design.net/a/q/"images/clock_small.jpg"><P>

<%
    Response.Write "<HR>AspJpeg expires on " & Jpeg.Expires
%>

</BODY>
</HTML>