<% If Not Session("Admin")="Girdi" Then Response.Write "



Bu sayfayı görme yetkiniz yok...


" Else If ms = "" Then KatAdi = Request.QueryString("KatAdi") %>
<% End If If ms="yukle" Then 'On Error Resume Next KatAdi = Request.QueryString("KatAdi") ResimYolu = ResimYol & "/" & KatAdi & "/buyuk" ResimYolu2 = ResimYol & "/" & KatAdi & "/kucuk" Randomize Numara = INT (RND*9999999999)+1 Server.ScriptTimeout=1000 Set Upload = Server.CreateObject("Persits.Upload.1") Upload.OverwriteFiles = False Sayac = Upload.SaveToMemory If Sayac = 0 Then Response.Write "Yüklenecek Bir dosya secmelisiniz..." Response.End End If For Each File in Upload.Files If File.ImageType="UNKNOWN" Then Response.Write "Sadece Resim Dosyası Yükleyebilirsiniz!" Response.End End If Next Set Resim = Upload.Files ("resimadi") Adi = Numara&Right(Resim.FileName,4) Path = ( Request.ServerVariables( "APPL_PHYSICAL_PATH" ) & ResimYolu & "/" & Adi ) Resim.SaveAs Path Set Jpeg = Server.CreateObject("Persits.Jpeg" ) Jpeg.Open Path Jpeg.Width = 100 jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth Jpeg.Canvas.Brush.Solid = False Path2 = ( Request.ServerVariables( "APPL_PHYSICAL_PATH" ) & ResimYolu2 & "/" & Adi ) Jpeg.Save Path2 Jpeg.Open Path Jpeg.Canvas.Font.Color = &000000 Jpeg.Canvas.Font.Family = "Courier New" Jpeg.Canvas.Font.Bold = TRUE Jpeg.Canvas.Font.Size = 15 Jpeg.Canvas.Font.Quality = 4 Jpeg.Canvas.Font.BkMode = "Opaque" Jpeg.Canvas.Print 10, 10, MSAdres 'Genişlik , Yükseklik Jpeg.Canvas.Pen.Color = &000000 Jpeg.Canvas.Pen.Width = 1 Jpeg.Canvas.Brush.Solid = False Jpeg.Canvas.DrawBar 1, 1, Jpeg.Width, Jpeg.Height Jpeg.Save Path Tur = "fldResim" %>

Yükleme işlemini bitirmek için tıklayın.
<% End If End If 'Session %>