最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
simple
时间：2008-01-12 编辑：简简单单 来源：一聚教程网
<%
' 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. 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:
Response.Write "
AspJpeg expires on " & Jpeg.Expires
%>