如何在经典的asp中创建缩略图？

Set img = Server.CreateObject("GDIPlus.Image")

img.FromFile(Server.MapPath("path/to/image.jpg"))

thumbWidth = 100
thumbHeight = 100

Set thumb = img.GetThumbnailImage(thumbWidth, thumbHeight)

thumb.Save(Server.MapPath("path/to/thumbnail.jpg"))

Set img = Nothing
Set thumb = Nothing

<%
Set img = Server.CreateObject("GDIPlus.Image")
img.FromFile(Server.MapPath("path/to/image.jpg"))

thumbWidth = 100
thumbHeight = 100

Set thumb = img.GetThumbnailImage(thumbWidth, thumbHeight)
thumb.Save(Server.MapPath("path/to/thumbnail.jpg"))

Set img = Nothing
Set thumb = Nothing
%>