<% '################################################ ' 名称 : ' 作成日:2003/ ' 作成者: ' 目的 : ' 概要 : ' <<表示>> ' ・ '################################################ %> <% main() Sub main() Dim a, b, basp, f1, ImageFile, l1 Dim LeadBase, Lead2 Dim tmp Dim PartLeft, PartTop, PartWidth, PartHeight, Zoom Dim SavePath, SaveMapPath, TempMapPath Dim FileName Dim Matrix Dim RouteType Dim fso Set fso = CreateObject("Scripting.FileSystemObject") a=Request.TotalBytes b=Request.BinaryRead(a) set basp=Server.CreateObject("basp21") Zoom = basp.Form(b,"Zoom") If 1 = 1 Then PartLeft = basp.Form(b,"PartLeft") PartTop = basp.Form(b,"PartTop") PartWidth = basp.Form(b,"PartWidth") PartHeight = basp.Form(b,"PartHeight") Zoom = basp.Form(b,"Zoom") FileName = basp.Form(b,"FileName") RouteType = basp.Form(b,"RouteType") Matrix = basp.Form(b,"Matrix") f1 = basp.FormFileName(b,"ImageFile") If f1 <> "" Then ImageFile=Mid(f1,InstrRev(f1,"\")+1) ImageFile = Replace(ImageFile, ".bmp", ".jpg") SaveMapPath = Server.MapPath("/" & HomeAlias & "/data/gazokako") & "/" & ImageFile SavePath = "/" & HomeAlias & "/data/gazokako/" & ImageFile 'TempMapPath = basp.GetTempFile() 'Windowsテンポラリだと「ファイルが見つかりません」になるケースがあったので廃止(211021小野) TempMapPath = Server.MapPath("/" & HomeAlias & "/data/gazokako") & "/" & GB_GakuseiNo & Year(Now) & Month(Now) & Day(Now) & Hour(Now) & Minute(Now) & Second(Now) & ImageFile l1=basp.FormSaveAs(b,"ImageFile",TempMapPath) Response.Write(l1 & "
") Else On Error Resume Next fso.DeleteFile(Server.MapPath(FileName) & ".jpg") On Error GoTo 0 fso.MoveFile Server.MapPath(FileName), Server.MapPath(FileName) & ".jpg" TempMapPath = Server.MapPath(FileName) & ".jpg" SaveMapPath = Server.MapPath(FileName) SavePath = FileName ImageFile = Mid(FileName,InstrRev(FileName,"/")+1) End If End if Set LeadBase = Server.CreateObject("LEAD.LeadCtrl.121") Set Lead2 = Server.CreateObject("LEAD.LeadCtrl.121") Response.Write(TempMapPath & "
") 'Exit Sub tmp = LeadBase.Load(TempMapPath, 0, 0, 1) tmp = LeadBase.ColorRes(24, 0, 0, 0) tmp = LeadBase.Rotate(Matrix * 100, 1, 0) tmp = Lead2.CreateBitmap(PartWidth, PartHeight, 24) tmp = Lead2.Fill(256*256*256-1) tmp = Lead2.ColorRes(24, 0, 0, 0) tmp = Lead2.Combine(0, 0, PartWidth, PartHeight, LeadBase.Bitmap,PartLeft, PartTop, 0) tmp = Lead2.Size(PartWidth * Zoom / 100, PartHeight * Zoom / 100, 0) tmp = Lead2.Save(SaveMapPath, 10, 24, 2, 0) Response.Write("-
") Response.Write(PartLeft) Response.Write("-") Response.Write(PartTop) Response.Write("-") Response.Write(PartWidth) Response.Write("-") Response.Write(PartHeight) Response.Write("-
") Response.Write(Zoom) Response.Write("-
") Response.Write(SaveMapPath) Response.Write("-
") Response.Write("") Response.Write("") Response.Write("次のページ") Response.Write("") On Error Resume Next fso.DeleteFile(TempMapPath) On Error GoTo 0 Response.Redirect("gazokako_view.asp?FileName=" & ImageFile & "&RouteType=" & RouteType) End Sub %>