• 12-02-2014, 12:40:21
    #1
    Arkadaşlar sitemdeki fotoğrafı kullanıcı bilgisayarına indirmek için DOWNLOAD butonuna tıkladığında yükleme penceresi gelmesini nasıl sağlarım? Şu an tıkladığında web sayfasında açıyor resmi büyük halde.
  • 12-02-2014, 17:01:01
    #2
    Kimlik doğrulama veya yönetimden onay bekliyor.
    Benzeri bir konuda zamanın birinde araştırma yapmıştım. Kullandığım kodlar işini görecektir.

    Aşağıdaki kodları download.asp olarak kaydedip resim download linkini
    download.asp?file=dosyanin-konumu-ve-adi
    şeklinde yapman yeterli olacaktır.
    <%
    sName = Request("File")

    ContentType = "application/x-msdownload"
    Response.Buffer = true
    Const adTypeBinary = 1
    Response.Clear

    ContentType = "application/octet-stream"

    Set objStream = Server.CreateObject("ADODB.Stream")
    objStream.Open
    objStream.Type = adTypeBinary
    objStream.LoadFromFile server.MapPath(Request("File"))
    Response.AddHeader "Content-Disposition", "attachment; filename=""" & sName & """"
    Response.Charset = "UTF-8"
    Response.ContentType = ContentType
    Response.BinaryWrite objStream.Read
    Response.Flush
    objStream.Close
    Set objStream = Nothing
    %>
  • 12-02-2014, 17:04:18
    #3
    erolife adlı üyeden alıntı: mesajı görüntüle
    Benzeri bir konuda zamanın birinde araştırma yapmıştım. Kullandığım kodlar işini görecektir.

    Aşağıdaki kodları download.asp olarak kaydedip resim download linkini
    download.asp?file=dosyanin-konumu-ve-adi
    şeklinde yapman yeterli olacaktır.
    <%
    sName = Request("File")

    ContentType = "application/x-msdownload"
    Response.Buffer = true
    Const adTypeBinary = 1
    Response.Clear

    ContentType = "application/octet-stream"

    Set objStream = Server.CreateObject("ADODB.Stream")
    objStream.Open
    objStream.Type = adTypeBinary
    objStream.LoadFromFile server.MapPath(Request("File"))
    Response.AddHeader "Content-Disposition", "attachment; filename=""" & sName & """"
    Response.Charset = "UTF-8"
    Response.ContentType = ContentType
    Response.BinaryWrite objStream.Read
    Response.Flush
    objStream.Close
    Set objStream = Nothing
    %>
    yalnız hocam ben resimleri imgur da barındırıyorum. kendi hostumda değil yani.
  • 12-02-2014, 17:16:58
    #4
    "sitemdeki fotoğrafı kullanıcı bilgisayarına indirmek için DOWNLOAD" şeklinde yazdığınız için bende bu şeilde bir cevap yazmıştım

    İnternetteki bir dosyayı asp ile kendi sunucunuza almak konusunda çalışmışlığım var aynı mantıkla yapılabilir ama sounç olarak önce imgur'deki dosyayı sunucuya çekip download ettirmek gibi bir durum söz konusu olabilir.

    Pek mantıklı gelmedi bana.

    Allah kolaylık versin