0

基本的なクロッピング スクリプトを作成します。VBscript で。次のように：

<%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 を使用して画像サイズを調べたいと思います。これにより、異なる画像サイズがアップロードされた場合にスクリプトがより柔軟になります。誰でもこれを行う方法を知っていますか?

4

2 に答える 2

2

オブジェクト（ ASPJpegJpegインスタンス）には.OriginalWidth、メソッド.OriginalHeightを呼び出した後にアクセスできるプロパティがあります.Open。あなたはそれらを使うことができます。

于 2012-09-24T15:50:10.363 に答える
1

1 つのオプションは、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
于 2012-09-24T14:14:06.240 に答える