<% = AppTitle %>

<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim FileName FileName = Request("FileName") If FileName <> "" then FileName = "/" & HomeAlias & "/data/gazokako/" & FileName End If Dim RouteType RouteType = Request("RouteType") %> <% = AppTitle %> <% If InStr(RouteType, "ImgWnd") > 0 Then Response.Write(HtmlDesign(6)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) If InStr(RouteType, "ImgWnd") > 0 Then Else If InStr(RouteType, "1") > 0 Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn('/" & HomeAlias & "/user/bk/menu_s4.asp')", "画像加工", "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "商品企画室", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s5.asp')", "画像加工", "", "", "", "", "")) End If End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("" , "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("画像加工", "")) Response.Write(HttpL5("参照ボタンをクリックし、加工する画像を選択します。")) %>

画像を生成

元に戻す

○サイズ変更

倍率％

更新

○回転　

○基準点

左から

上から

○切り取り

幅

高さ

○生成される画像サイズ

幅

高さ

画像の上で
マウスの左ボタンを押した所を左上（基準点）、
マウスの左ボタンを離した所を右下として、画像を切り抜きます。

<% = HtmlFooter %> <% End Sub %>