Visualizzazione dei risultati da 1 a 4 su 4
  1. #1
    Utente di HTML.it
    Registrato dal
    Jul 2007
    Messaggi
    196

    eliminare img sia da server che da database

    Ciao raga , ho fatto questo script per l'eliminazione di un'immagine sia dal database che dalla cartella del server , ma non elimina un cavoolo !! xo non da nessun errore

    <%
    Perc = Request.QueryString("image")
    DestinationPath = Server.mapPath("public\images\")
    str_PercorsoImage = (DestinationPath +"\"+ str_users_code+"\"+Perc)
    'percorsofoto = ("public\images\"+str_users_code+"\"+Perc)

    If Request.QueryString("step") = 2 Then
    'Determino il timeout dello script
    Server.ScriptTimeout = 90

    'Determino le dimensioni delle variabili
    Dim strDataBasePath3 'Variabile
    Dim cString3 'Variabile
    Dim adoCon3 'Variabile
    Dim strSQL3 'Variabile
    Dim deleteSQL3

    'Setto la variabile per una connessione ADO
    Set adoCon3 = Server.CreateObject("ADODB.Connection")

    '------------------------------------------------------------------------------------
    'Cambiare il path del database
    strDataBasePath3 = "mdb-database/utenti.mdb"
    '------------------------------------------------------------------------------------

    'Stringa per la connessione
    'Se la seguente linea non funziona, commentare con ' e scegliere un altra stringa
    cString3 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(strDataBasePath)
    'nuova SQL string
    adoCon3.Open cString3
    deleteSQL3 = "DELETE * FROM listFiles WHERE DestFileName = '" & str_PercorsoImage & "'"

    'Creare un nuovo recordsheet
    Set rs_delete = Server.CreateObject ("ADODB.RecordSet")

    'Aprire il record sheet e eseguire SQL
    rs_delete.open deleteSQL3,adoCon3

    'Chiudo adoCon e rs_delete
    adoCon3.Close
    set rs_delete = Nothing

    'cancello la vecchia foto del profilo
    Dim ObjFSO
    Set ObjFSO = CreateObject("Scripting.FileSystemObject")

    If ObjFSO.FileExists( str_PercorsoImage ) = True Then
    ObjFSO.DeleteFile( str_PercorsoImage )
    End If

    Set ObjFSO = Nothing
    Response.Redirect("fotoprofilo.asp")
    End If
    %>

  2. #2
    Utente di HTML.it L'avatar di viki1967
    Registrato dal
    Feb 2003
    Messaggi
    1,757
    Ancora!!! VVoVe:

    Questo è cross-posting (ma si vede che il regolamento discussione in rilievo è puntualmente ignorato...)

    http://forum.html.it/forum/showthrea...ghlight=benete

    Se l'argomento è lo stesso ed il problema non è risolto si continua la stessa discussione, perchè iniziarne un'altra mi chiedo? :master:
    A S P : tutto il resto è noia...
    L I N U X : forse mi "converto"...

  3. #3
    Utente di HTML.it
    Registrato dal
    Jul 2007
    Messaggi
    196
    evidentemente se ho aperto un nuovo post e xke ho un altro problema..
    non centra nulla con quello vecchio che per altro ho risolto..

  4. #4
    Utente di HTML.it
    Registrato dal
    Jul 2007
    Messaggi
    196
    ho risolto ragazzzi.. potete chiudere.. grazie lo stesso..

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.