asp-classic - 使用 asp (vbscript) 为裁剪脚本查找图像大小。

Question

我写了一个基本的裁剪脚本。在 VB 脚本中。如下：

<%Set Jpeg = Server.CreateObject("Persits.Jpeg")
getsec = DateDiff("s","01/01/04",now())
filename = "screenshots/"&getsec&".png"
imgfile = request("imgfile")
Jpeg.Open Server.MapPath(imgfile)
Jpeg.Crop 0, 38, 320, 460
Jpeg.Canvas.DrawPNG 0, 0,  Server.MapPath("watermark.png")
Jpeg.PNGOutput = True
Jpeg.Save Server.MapPath(filename)
%>
<%=filename%>

然而，而不是硬编码这些变量：

Jpeg.Crop 0, 38, 320, 460

我想在裁剪之前使用 vbscript 找出图像大小，这样如果上传不同的图像大小，脚本可以更加灵活。有人知道怎么做吗？

Answer 1

您的Jpeg对象（ASPJpeg 实例）具有调用方法后可访问.OriginalWidth的.OriginalHeight属性。.Open你可以使用它们。

Answer 2

一种选择是使用 loadpicture 函数。（另见http://www.w3schools.com/vbscript/func_loadpicture.asp）

要获取像素，您可以使用以下命令：

Dim sPath
sPath = "C:\myPicture.jpg"
dim iWidth, iHeight
dim oFs, oImg
Set oFs= CreateObject("Scripting.FileSystemObject")
Set oImg = loadpicture(sPath)
iWidth = round(oImg.width / 26.4583)
iHeight = round(oImg.height / 26.4583)
Set oImg = Nothing