<% if Session("oturum") ="yazar" then%> <% resim=guvenlik(request("resim"))%> <% uyeid=guvenlik(request("uyeid")) If Not Isnumeric(uyeid) Or Len(uyeid)=0 Then response.write "Lütfen Geçerli bir ID numarasi girin." response.end End If Set rs= cilem.execute("SELECT * FROM editorluk WHERE uyeid=" & guvenlik(request("uyeid"))) If rs.eof Then response.write "Lütfen Geçerli bir ID numarasi girin." response.end End If%> <%if guvenlik(request("uyeid"))="" then %><% else %><% uyeid= Request.QueryString("uyeid") SQL = "select * from editorluk WHERE uyeid=" SQL = SQL & uyeid set rs = cilem.Execute(SQL) %><% end if%> <% dim upload dim count dim aciklama Set Upload = Server.CreateObject("Persits.Upload") Upload.OverwriteFiles = false ' bkz : Açiklama1 Upload.SetMaxSize 500000, True Upload.Save on error resume next Count = Upload.SaveToMemory dim DUzn 'DosyaUzantisi dim SunucuYeri dim YuklenecekDosya dim File resim=upload.form("resim") Set File = Upload.Files(1) If File.ImageType = "UNKNOWN" Then Response.Write "" File.Delete Response.End ElseIf File.ImageWidth > 300 Then Response.Write "" File.Delete Response.End ElseIf File.ImageHeight > 300 Then Response.Write "" File.Delete Response.End ElseIf File.Size > 250000 Then Response.Write "" File.Delete Response.End Else End if SunucuYeri = Server.MapPath("yazar\")&"\" DUzn = UCase(Right(File.ExtractFileName, 4)) dim YuklenenDosyaninIsmi dim sql YuklenecekDosya = SunucuYeri & File.FileName File.SaveAs YuklenecekDosya YuklenenDosyaninIsmi = File.FileName response.write("") 'Açiklama 1: 'yüklenecek dosya ile ayni isimde bir dosya varsa 'false = üzerine yazilmaz dosyaismi(1) biçiminde yazar 'true = üzerine yazar %><%end if%>