GÖZAT butonu upload etmek

mustafaulkem · 2006-11-04T21:42:14.0000000+03:00

bir haber sitesi için.. haber ve resim bölümü var..resimi ''GÖZAT'' butonu ile upload etmek istiyorum.. bununla ilgili bana bir script gönderebilirmisiniz..geniş bir portal değil..var olan bir sayfaya eklemek istiyorum..

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

Samsung Galaxy S25: Yapay Zeka Parmaklarınızın Ucunda https://amzn.to/40CnvTY

KIOXIA TransMemory U301 128 GB USB Bellek Siyah : Amazon.com.tr: Bilgisayar https://www.amazon.com.tr/dp/B0CDX82RZY 8 ay önce paylaşıldı

Tefal G25991 Titanyum 6X UnlimitedOne 3'lü Tava Seti 20/24/28 cm - 2100116646 : Amazon.com.tr: Mutfak https://www.amazon.com.tr/gp/product/B08GHCJ3S6 10 sa. önce paylaşıldı

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

2 Misafir - 2 Masaüstü

5 sn

6
Cevap

0
Favori

3.254
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konuya Özel

0 oy

Öne Çıkar

Cevapla

Sayfa: 1

Giriş

Mesaj

Bu kodlar alınıtıdır...

 
  Bir adet fileupload controlü ve birkaç adet label koydum 
   
  <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %> 
   
  <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"> 
  <html xmlns="http://www.w3.org/1999/xhtml"> 
  <head runat="server"> 
  <title>Untitled Page</title> 
  </head> 
  <body> 
  <form id="form1" runat="server"> 
  <div> 
  <asp:FileUpload ID="flDosya" runat="server" /><asp:Button ID="btnGonder" runat="server" 
  Text="Button" /> 
  <br /> 
  </div> 
  <asp:PlaceHolder ID="phsonuc" runat="server" Visible="false"> 
  <table> 
  <tr> 
  <td> 
  <b>Eski dosya adı</b></td> 
  <td> 
  <asp:Label ID="lbleskidosyaadi" runat="server" Text="Label"></asp:Label></td> 
  </tr> 
   
  <tr> 
  <td> 
  <b>Dosya uzantısı</b></td> 
  <td> 
  <asp:Label ID="lbldosyauzanti" runat="server" Text="Label"></asp:Label></td> 
  </tr> 
  <tr> 
  <td> 
  <b>Yeni dosya adı</b></td> 
  <td> 
  <asp:Label ID="lblyenidosyaadi" runat="server" Text="Label"></asp:Label></td> 
  </tr> 
  <tr> 
  <td> 
  <b>K. bilgisayarındaki yolu</b></td> 
  <td> 
  <asp:Label ID="lblkbilgpath" runat="server" Text="Label"></asp:Label></td> 
  </tr> 
  <tr> 
  <td> 
  <b>Boyut</b></td> 
  <td> 
  <asp:Label ID="lblboyut" runat="server" Text="Label"></asp:Label></td> 
  </tr> 
  <tr> 
  <td> 
  <b>Dosya Türü</b></td> 
  <td> 
  <asp:Label ID="lbltur" runat="server" Text="Label"></asp:Label></td> 
  </tr> 
  <tr> 
  <td> 
  <b>Sha1Sum</b></td> 
  <td> 
  <asp:Label ID="lblSha1sum" runat="server" Text="Label"></asp:Label></td> 
  </tr> 
  </table> 
  </asp:PlaceHolder> 
  </form> 
  </body> 
  </html>

 
  Şimdi codebehind'ımıza geçelim ve btnGonder kontrolümüzün click eventini kodlayalım:) 
   
  Imports System.io 
  Partial Class _Default 
  Inherits System.Web.UI.Page 
  Public Function boyutcevir(ByVal lngByte As Long) As String 
  Dim sonuc As String 
  If lngByte < 1024 Then 
  sonuc = lngByte & " byte" 
  ElseIf (lngByte < 1024 ^ 2) Then 
  sonuc = FormatNumber(lngByte / 1024, 2) & " KB" 
  ElseIf (lngByte < 1024 ^ 3) Then 
  sonuc = FormatNumber(lngByte / (1024 ^ 2), 2) & " MB" 
  ElseIf (lngByte < 1024 ^ 4) Then 
  sonuc = FormatNumber(lngByte / (1024 ^ 3), 2) & " GB" 'Belki işimize yarayabilir 
  ElseIf (lngByte < 1024 ^ 5) Then 
  sonuc = FormatNumber(lngByte / (1024 ^ 4), 2) & " TB" 'Çok zor, belki ilerleyen zamanlarda işimize yarayabilir 
  End If 
  Return sonuc 
  End Function 
  Protected Sub btnGonder_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGonder.Click 
  If Not flDosya.PostedFile.FileName = "" Then 
  phsonuc.Visible = True 
  Dim pf As HttpPostedFile = flDosya.PostedFile 
  Dim yenidosyaadi As String = clssha1.metinsha(Timer) 
  lbleskidosyaadi.Text = flDosya.FileName 
  lbldosyauzanti.Text = Path.GetExtension(flDosya.FileName) 
  lblyenidosyaadi.Text = yenidosyaadi & lbldosyauzanti.Text 'niye string builder kullanmadın dediğinizi duyar gibiyim 
  lblboyut.Text = boyutcevir(pf.ContentLength) 
  lblkbilgpath.Text = pf.FileName 
  lbltur.Text = pf.ContentType 
  lblSha1sum.Text = clssha1.streamsha(pf.InputStream) 
  flDosya.SaveAs(Server.MapPath(lblyenidosyaadi.Text)) 'gönderilen dosyanın üzerine yazılmasını engellemek ve dosyayı farklı adla akydetmek yerine ben timer'ımızın sha1 değerini alıyorum. Aynı timer değerini almanın imkansız ve timer ile aynı sha1 koduna sahip bir stringin bulunmasının da neredeyse imkansız olması yüzünden bence çok iyi bir yol 
  Else 
  phsonuc.Visible = False 
  End If 
  End Sub 
   
  End Class