Visualizzazione dei risultati da 1 a 6 su 6
  1. #1
    Utente di HTML.it
    Registrato dal
    Aug 2001
    residenza
    Milano
    Messaggi
    217

    Problema con download e redirect

    Raga,
    Ho realizzato la seguente pagina che mi permette di effettuare il dowload però non mi reindirizza alla pagina originaria index.asp nonostante il refresh .... ci sta qualche altro modo ?


    <%
    ID = Request ("ID")
    data = Date()
    IP=request.servervariables("remote_addr")

    FUNCTION FixQuotes( theString )
    FixQuotes = REPLACE( theString, "'", "''" )
    END FUNCTION


    sub conteggio
    SQL ="UPDATE location SET "
    SQL = SQL & " click = " & FixQuotes(click) & ","
    SQL = SQL & " data = '" & FixQuotes(data) & "',"
    SQL = SQL & " IP = '" & FixQuotes(IP) & "'"
    SQL = SQL & " WHERE IDutente ="& ID &""

    conn.Execute(SQL)
    'Response.Redirect "location/" & file &""
    end sub


    Set rs = Server.CreateObject("ADODB.Recordset")
    sql = "SELECT * FROM location where IDutente =" & ID &""
    rs.open sql, conn, 1, 3
    nome = rs("nome")
    file = rs("frantoio")
    click = rs("click")+1
    conteggio
    %>

    <%
    rs.close
    set rs = nothing
    conn.close
    set conn=nothing
    %>
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
    <meta http-equiv="refresh" content="3; url=index.asp"/>

    <title>Download File</title>
    <Script type="text/javascript">
    <!--
    function download(){
    location.href="location/<%=file%>";
    }
    -->
    </Script>
    </head>
    <body onLoad="download()">
    </body>
    </html>

  2. #2
    Utente di HTML.it L'avatar di agenti
    Registrato dal
    Feb 2002
    Messaggi
    2,427
    non usare il refresh lato client

    codice:
    <% 
    ID = Request ("ID")
    data = Date()
    IP=request.servervariables("remote_addr")
    
    FUNCTION FixQuotes( theString )
    FixQuotes = REPLACE( theString, "'", "''" )
    END FUNCTION
    
    
    sub conteggio
    SQL ="UPDATE location SET " 
    SQL = SQL & " click = " & FixQuotes(click) & ","
    SQL = SQL & " data = '" & FixQuotes(data) & "',"
    SQL = SQL & " IP = '" & FixQuotes(IP) & "'"
    SQL = SQL & " WHERE IDutente ="& ID &""
    
    conn.Execute(SQL)
    'Response.Redirect "location/" & file &""
    end sub 
    
    
    Set rs = Server.CreateObject("ADODB.Recordset") 
    sql = "SELECT * FROM location where IDutente =" & ID &""
    rs.open sql, conn, 1, 3 
    nome = rs("nome")
    file = rs("frantoio")
    click = rs("click")+1
    conteggio
    %>
    
    <%
    rs.close 
    set rs = nothing
    conn.close
    set conn=nothing
    
    'tutto è ok redireziono...
    
    response.redirect "location/"&file&""
    
    %>
    sempre se ho capito bene....

  3. #3
    Utente di HTML.it
    Registrato dal
    Aug 2001
    residenza
    Milano
    Messaggi
    217
    Io ho necessità di far in modo che la pagina download.asp si veda in quanto devo far visualizzare le informazioni relative al file che si sta scaricando e che dopo 4/5 secondi l'utente venga reindirizzato alla pagina index.asp

  4. #4
    Utente di HTML.it L'avatar di agenti
    Registrato dal
    Feb 2002
    Messaggi
    2,427
    scusa ma che errore ti da ?

    io credo che il problema non sia lato server...

  5. #5
    Utente di HTML.it
    Registrato dal
    Aug 2001
    residenza
    Milano
    Messaggi
    217
    Non mi da errore lo script asp. il problema è che non mi fa il refresh della pagina.

  6. #6
    Utente di HTML.it L'avatar di agenti
    Registrato dal
    Feb 2002
    Messaggi
    2,427
    non essendo un problema legato ad asp non è appunto un problema lato server...

    controlla se l'html che usi per il refresh è ok altrimenti potresti usare uno script che si attiva sull'onload ed effettua un refresh dopo n secondi..

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 © 2026 vBulletin Solutions, Inc. All rights reserved.