Det eksempel du henviser til er kopieret fra et webhotel. Den er tussegammel, og er skrevet til version 1.x. Som sagt kan du først bruge sharpen i version 2 og opefter.
Find i første omgang ud af om der er version 2, du har adgang til. Læs derefter dokumentationen:
http://www.serverobjects.com/comp/Aspimage.htmVed hurtig søgning på google fandt jeg lige denne her:
<%@ LANGUAGE="VBSCRIPT" %>
<%response.Buffer = true%>
<% strdira = Request.QueryString("dira")%>
<% strdirb = Request.QueryString("dirb")%>
<% strfile = Request.QueryString("file")%>
<% strsize = Request.QueryString("size")%>
<% strqual = Request.QueryString("qual")%>
<%
Set Image = Server.CreateObject("AspImage.Image")
Dim strOrigImg
strOrigImg = strfile
Dim strOrigImgFullPath
strOrigImgFullPath ="g:\your absolute string\"&strdira&"\"&strdirb&"\"
Dim strOriginal, strThumb, ResizedX,ResizedY
strOriginal = strOrigImgFullPath & strOrigImg
strThumb = strThumbFullPath & strThumbName
Image.LoadImage strOriginal
ResizedX = strsize
Image.GetImageFileSize strOriginal, X, Y
Image.MaxX = X
Image.MaxY = Y
Image.JPEGQuality = strqual
Image.Sharpen 1
ResizedY = (ResizedX / Image.MaxX) * Image.MaxY
Image.ResizeR ResizedX, ResizedY
Response.ContentType = "image/jpeg"
Response.BinaryWrite Image.Image
Set Image = Nothing
%>
Den er et meget godt eksempel :)