Visualizzazione dei risultati da 1 a 3 su 3
  1. #1
    Utente di HTML.it
    Registrato dal
    Sep 2007
    Messaggi
    1,171

    download senza visualizzare indirizzo

    come si puo efferttuare un download senza visualizzare l'indirizzo della pagina?

  2. #2
    Moderatore di ASP e MS Server L'avatar di Roby_72
    Registrato dal
    Aug 2001
    Messaggi
    19,559
    Della pagina o del file che cerchi di scaricare?
    Cerca nel forum per download forzato.

    Roby

  3. #3
    Utente di HTML.it
    Registrato dal
    Sep 2007
    Messaggi
    1,171
    ho cercato nei forum e ho scaricato questo:
    <%
    Session.Timeout = 20
    session("filename")="/mang/sito_civili/corsi/carta_intestata.pps"
    Response.Buffer = True
    Dim strFilePath, strFileSize, strFileName
    If Session("FileName") = "" Then
    Response.Redirect "default.asp"
    End If
    Dim oFso, oFile
    strFilePath = Server.MapPath(Session("FileName"))
    Set oFso = CreateObject("Scripting.FileSystemObject")
    Set oFile = oFso.GetFile(strFilePath)
    strFileName = UCase(oFile.Name)
    strFileSize = CLNG(oFile.size)
    Set oFile = Nothing
    Set oFso = Nothing

    Const adTypeBinary = 1
    Response.Clear
    Set objStream = Server.CreateObject("ADODB.Stream")
    objStream.Open
    objStream.Type = adTypeBinary
    objStream.LoadFromFile strFilePath
    strFileType = lcase(Right(strFileName, 4))
    Select Case strFileType
    Case ".asf"
    ContentType = "video/x-ms-asf"
    Case ".avi"
    ContentType = "video/avi"
    Case ".doc"
    ContentType = "application/msword"
    Case ".zip"
    ContentType = "application/zip"
    ContentType = "application/x-zip-compressed"
    Case ".xls"
    ContentType = "application/vnd.ms-excel"
    Case ".gif"
    ContentType = "image/gif"
    Case ".jpg", "jpeg"
    ContentType = "image/jpeg"
    Case ".wav"
    ContentType = "audio/wav"
    Case ".mp3"
    ContentType = "audio/mpeg3"
    Case ".mpg", "mpeg"
    ContentType = "video/mpeg"
    Case ".rtf"
    ContentType = "application/rtf"
    Case ".htm", "html"
    ContentType = "text/html"
    Case ".asp"
    ContentType = "text/asp"
    Case ".pps"
    ContentType = "text/asp"

    Case Else
    ContentType = "application/octet-stream"
    End Select

    Response.AddHeader "Content-Disposition", "attachment; filename=" & strFileName
    Response.AddHeader "Content-Length", strFileSize
    Response.Charset = "UTF-8"
    Response.ContentType = ContentType
    do While Not objStream.EOS
    Response.BinaryWrite objStream.Read(8192) Response.Flush
    Loop

    objStream.Close
    Set objStream = Nothing
    %>
    <SCRIPT LANGUAGE='JavaScript'>
    {
    window.close();
    }
    </SCRIPT>

    Ma mi visualizza sempre la pagina con l'indirizzo di dove si trova il file.
    Ho visto che in alcuni siti quando fai un download mi visualizza sulla barra......Per facilitare la sicurezza il download è stato bloccato, fare click...eccc per scaricare il file

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.