Yeni Resim Ekle

Galeri Grup Listesine Dön Resim Listesine Dön Yeni Resim Ekle

<% islem=request.QueryString("islem") select case islem case "Kaydet" GroupID=YariTemizle(Request.Form("GroupID")) Title=YariTemizle(Request.Form("Title")) Header=YariTemizle(Request.Form("Header")) LanguageID=Temizle(Request.QueryString("LanguageID")) Link=YariTemizle(Request.Form("Link")) strKX1 = Request.Form("x") strKY1 = Request.Form("y") strKX2 = Request.Form("x2") strKY2 = Request.Form("y2") w = Request.Form("w") h = Request.Form("h") Dosya = Request.Form("Dosya") DosyaB = Request.Form("DosyaB") Yol="C:\Inetpub\vhosts\duba.grimor.com\httpdocs\Assets\Images\" Set JPEG1=Server.CreateObject("PERSITS.JPEG" ) JPEG1.Open Yol & Dosya jpeg1.Quality = 100 jpeg1.Crop strKX1, strKY1, strKX2, strKY2 jpeg1.Width=w jpeg1.Height=h jpeg1.Save Yol & Dosya 'Response.Write(Dosya) 'Response.Write("
") 'Response.Write(LanguageID) conn.execute("insert into Table_Gallery3 (GroupID,Title,Header,SmallPhoto,BigPhoto,Raw,CreatedDate,ModifyDate,CultureID,Link) values ('"& GroupID &"','"& Title &"','"& Header &"','"& Dosya &"','"& DosyaB &"',0,'"& Replace(Now(),".","/") &"','"& Replace(Now(),".","/") &"','"& LanguageID &"','"& Link &"')") Response.Redirect("gallery3.asp?grupid="& grupid &"&LanguageID="&LanguageID) 'Set TabYonlendir = Conn.Execute("SELECT TOP 1 * FROM Table_Gallery order by CreatedDate desc") 'If not TabYonlendir.EOF Then ' Response.Redirect("galleryedit.asp?grupid="& grupid &"&cid="& TabYonlendir("GalleryID")&"&LanguageID="&LanguageID) 'end if 'TabYonlendir.Close %>

! Resim eklendi ...

<% Case "ResimBoyut" Set TabGaleryKat = Conn.Execute("Select * from Table_GalleryGroup3 where GalleryID="& grupid) If not TabGaleryKat.EOF Then KWidth=TabGaleryKat("KWidth") 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 dim r randomize() r=rnd(10)+1 if r=1 then 'response.write(r) elseif r=2 then response.write(r) elseif r=10 then 'response.write(r) else 'response.write(r) end if Num=Replace(R,",","") CRefNum = Num End Function Yol="C:\Inetpub\vhosts\duba.grimor.com\httpdocs\Assets\Images\" 'REsponse.Write(Yol) Set Upload = Server.CreateObject("Persits.Upload") Upload.OverwriteFiles = true 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 Dosya=TurkceKarakter(left(File.ExtractFileName,(Len(File.ExtractFileName)-4))) Dosya=Dosya & ""& CRefNum() &"" & CRefNum() & "." & File.ImageType Path=Yol & Dosya DOSYUZANTI=FILE.EXT File.SaveAs Path end if Next Dosya_K = Dosya & "_" & CRefNum() & "_K" & DOSYUZANTI text_k = text & "_K" Dosya_buyuk = Dosya & "_" & CRefNum() & "_buyuk" & DOSYUZANTI text_buyuk = text & "_buyuk" Set JPEG1 = Server.CreateObject("PERSITS.JPEG" ) Set JPEG2 = Server.CreateObject("PERSITS.JPEG" ) JPEG1.Open Yol & "150x150.png" ' Hazrladmz boyut resim JPEG2.Open Yol & Dosya JPEG2.Quality = 100 JPEG2.PRESERVEASPECTRATIO = TRUE ' REsmin Orantl bir ekilde klmesini ya da bymesini salyor. If JPEG2.OriginalWidth > 150 Then JPEG2.WIDTH = 150 JPEG2.HEIGHT = 150 End IF JPEG2.SAVE Yol & Dosya_K Set JPEG11 = Server.CreateObject("PERSITS.JPEG" ) Set JPEG22 = Server.CreateObject("PERSITS.JPEG" ) JPEG11.Open Yol & "150X150.png" ' Hazrladmz bo resim JPEG22.Open Yol & Dosya JPEG22.Quality = 100 JPEG22.PRESERVEASPECTRATIO = TRUE ' REsmin Orantl bir ekilde klmesini ya da bymesini salyor. If JPEG22.OriginalWidth > TabGaleryKat("BWidth") Then JPEG22.WIDTH = TabGaleryKat("BWidth") End IF JPEG22.SAVE Yol & Dosya_buyuk 'Response.Write(TabGaleryKat("KWidth")) if uzanti<>"" or buyukluk<>"" or genislik<>"" or yukseklik<>"" then response.Redirect("?dr=resim") end if 'Response.Write(KWidth) 'Response.Write(("GroupID")) GroupID=YariTemizle(Upload.Form("GroupID")) Title=YariTemizle(Upload.Form("Title")) Header=YariTemizle(Upload.Form("Header")) Link=YariTemizle(Upload.Form("Link")) %>

<%end if TabGaleryKat.Close %> <%case ""%>

Resim Grubu

<% Set TabDocument=Conn.Execute("SELECT * FROM Table_GalleryGroup3 where CultureID="&LanguageID) If Not TabDocument.EOF Then %> <% end if TabDocument.Close %>

Başlık

Link

Açıklama

Resim

<%end select%>