<%
'################################################
' 名称 ：
' 作成日：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
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()
l1=basp.FormSaveAs(b,"ImageFile",TempMapPath)
Response.Write(l1)
Else
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
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)
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("![](" & SavePath & ")
")
Response.Write("次のページ")
Response.Write("")
Response.Redirect("gazokako_view.asp?FileName=" & ImageFile & "&RouteType=" & RouteType)
End Sub
%>