ASP ทำ Resize ได้หรือเปล่าครับ คือต้องการที่จะทำ เวบรูปภาพแต่ ไม่ต้องการที่จะอัพโหลดโฟล์รูปมาก เลยอยากใช้

<%
Option Explicit
Dim Chs, objConst,NewWidth,NewHeight
Dim FileName,OutFormat
FileName = "mygirl.jpg"
OutFormat = "Jpg" '*** Gif,Png ***'
NewWidth = "100" '*** Set new Width , Height automatic caculate ***'
NewHeight = 0 '*** Auto Resize ***'

'*** Get Images Width & Height ***'
Dim objFso,myImg,Width,Height
Set objFso = CreateObject("Scripting.FileSystemObject")
IF objFso.FileExists(Server.MapPath(FileName)) Then
set myImg = Loadpicture(Server.MapPath(FileName))
Width = Round(myImg.width / 26.4583)
Height = Round(myImg.height / 26.4583)
NewHeight = Round((NewWidth*Height)/Width)
'NewHeight = 100
'NewWidth = Round((NewHeight*Width)/Height) '*** or Automatic Height ***'
End If
'*************** End *************'

Set Chs = Server.CreateObject("OWC10.ChartSpace")
Set objConst = Chs.Constants

Chs.Interior.SetTextured Server.MapPath(FileName), objConst.chStretchPlot, , objConst.chAllFaces
Chs.border.color = -3

Response.BinaryWrite Chs.GetPicture(OutFormat, NewWidth, NewHeight)

Set objConst = Nothing
Set Chs = Nothing
%>