<%
dr=temizle(request.QueryString("dr"))
sayfa=temizle(request.QueryString("sayfa"))
resim=temizle(request.QueryString("resim"))
select case sayfa
case ""
%>
<%case "kaydet"%>
<%
Function CRefNum()
strValue = Empty
strValue = strValue & Year(Date)
If Len(Month(Date)) = 1 Then
strValue = strValue & "0" & Month(Date)
Else
strValue = strValue & Month(Date)
End If
If Len(Day(Date)) = 1 Then
strValue = strValue & "0" & Day(Date)
Else
strValue = strValue & Day(Date)
End If
If Len(Hour(Time)) = 1 Then
strValue = strValue & "_0" & Hour(Time)
Else
strValue = strValue & "_" & Hour(Time)
End If
If Len(Minute(Time)) = 1 Then
strValue = strValue & "0" & Minute(Time)
Else
strValue = strValue & Minute(Time)
End If
If Len(Second(Time)) = 1 Then
strValue = strValue & "0" & Second(Time)
Else
strValue = strValue & Second(Time)
End If
CRefNum = strValue
End Function
Yol="F:\GRIMORWebSites\LocalUser\gm_testgrimor\web\content\safa\Assets\Images\"
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Count = UpLoad.SaveTomemory
if Count<>1 then
response.Redirect("?dr=resim")
end if
For Each File In Upload.Files
if File.ImageType<>"GIF" and File.ImageType<>"JPG" and File.ImageType<>"PNG" then
File.Delete
uzanti=uzanti+1
elseif File.Size<1024 or File.Size>3072000 then
File.Delete
buyukluk=buyukluk+1
elseif File.ImageWidth>3000 then
File.Delete
genislik=genislik+1
elseif File.ImageHeight>3000 then
File.Delete
yukseklik=yukseklik+1
else
Resim=TurkceKarakter(left(File.ExtractFileName,(Len(File.ExtractFileName)-4)))
Resim=Resim & "_" & CRefNum() & "." & File.ImageType
Path=Yol & Resim
File.SaveAs Path
Next
if uzanti<>"" or buyukluk<>"" or genislik<>"" or yukseklik<>"" then
response.Redirect("?dr=resim")
end if
%>
<%
case "kirpkaydet"
strKX1 = Request.Form("x")
strKY1 = Request.Form("y")
strKX2 = Request.Form("x2")
strKY2 = Request.Form("y2")
w = Request.Form("w")
h = Request.Form("h")
Resim = Request.Form("Resim")
Yol="F:\GRIMORWebSites\LocalUser\gm_testgrimor\web\content\safa\Assets\Images\"
Set JPEG1=Server.CreateObject("PERSITS.JPEG" )
JPEG1.Open Yol & Resim
jpeg1.Quality = 80
jpeg1.Crop strKX1, strKY1, strKX2, strKY2
jpeg1.Width=w
jpeg1.Height=h
jpeg1.Save Yol & Resim
%>
<%end select%>
