Eliminazione record e relativo file.

**gianluca8730** · 05-05-2009, 22:58

Ciao a tutti,
non riesco a risolvere un problema.

ho un pagina staff.asp da dove visualizzo e carico dei dati (nome, cognome, img) su un db access. L'immagine nn viene caricata all'interno del database ma all'interno della cartella public del server. il mio problema e cancellare un record ed eliminare anche il relativo file che si trova nella cartella public.
sono riuscito a cancellare i record ma nn riesco a cancellare l'immagine relativa

Posto i codici:

Staff.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Response.Buffer = True%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Inserimento Staff</title>
</head>

<body>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>

[img]header.gif[/img]</p>
<table width="800" border="0" align="center">
<tr >
<td width="10%" bgcolor="#000066"><center>
<font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">Foto</font>
</center></td>
<td width="8%" bgcolor="#000066"><center>
<font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">Nome </font>
</center></td>
<td width="12%" bgcolor="#000066"><div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">Email</font></div></td>
<td width="65%" bgcolor="#000066"><center>
<font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">Descrizione</font>
</center></td>
<td width="5%" bgcolor="#000066"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"></font></td>
</tr>
<%
dim strCode
strCode="innovatel"
dim intVolta
intVolta="0"

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/staff.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM staff"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

do while not(rs.eof)
if intVolta="1" then
intVolta="0"
intTesto="#000000"
intSfondo="#FFFFFF"
else
intVolta="1"
intTesto="#000000"
intSfondo="#FFFFFF"
end if
%>
<tr bgcolor="<%=intSfondo%>">
<td width="10%" height="61"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">[img]<%=rs(4)%>[/img]</font></div></td>
<td width="8%"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=rs(1)%></font></div></td>
<td width="12%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=rs(2)%></font></td>
<td width="65%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=rs(3)%></font></td>
<td width="5%"><div align="center">[img]cancella.bmp[/img]</div></td>
</tr>
<%
rs.movenext
loop
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
</table>
<hr />
<FORM METHOD="Post" enctype="multipart/form-data" ACTION="Upload_Database.asp">
<table width="813" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="32"><label>
<div align="right">Nome:</div>
<div align="right">
</div>
<div align="right"></div>

[/b]</td>
<td>
<input name="Titolo" type="text" id="Titolo" />
</td>
</tr>
<tr>
<td height="32"><div align="right">Email:</div></td>
<td><label>
<input name="Email" type="text" id="Email" />
</label></td>
</tr>
<tr>
<td height="87"><label>
<div align="right">Descrizione:</div>
</label></td>
<td><textarea name="Descrizione" cols="60" rows="4" id="Descrizione"></textarea></td>
</tr>
<tr>
<td height="35"><div align="right">File :</div></td>
<td><input name="Percorso" type="file" id="Percorso" /></td>
</tr>
<tr>
<td height="67" colspan="2"><div align="center">
<input name="Enter" type="submit" value="Invia Dati" />
</div></td>
</tr>
</table>

<label></label>
<label></label>
</p>
</FORM>
<hr />
<p align="center">Menu</p>
<hr /></td>
</tr>
</table>

</body>
</html>

cancella.asp

<%
dim intCodice
intCodice = request("Id")
if intCodice<>"" then

dim strCode
strCode="innovatel"

Set Conn=Server.CreateObject("ADODB.Connection")

strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/staff.mdb")
strConn=strConn & ";pwd=" & strCode

Conn.Open strConn

sql = "SELECT * FROM staff WHERE Id="&intCodice
Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sql, conn ,3,3
rs.delete
rs.Close

set rs = Nothing
conn.Close
set conn = Nothing

response.redirect "staff.asp"
else
response.redirect "staff.asp"
end if
%>

Grazie a tutti anticipatamente.

**Vincent.Zeno** · 05-05-2009, 23:12

devi passare il nome del file da cancellare nella querystring:

codice:

 <a href="cancella.asp?Id=<%=rs(0)%>&CancImg=<%=rs(4)%>">

nel file cancella.asp recuperi il valore
e avvii la cancellazione:
http://www.w3schools.com/asp/met_delete_file.asp

**gianluca8730** · 05-05-2009, 23:43

ciao,
grazie per il suggerimento ma nn riesco a farlo funzionare eppure sembra semplicissimo

dai un'occhiata, cosa sbaglio?

<%
Dim nameFile
nameFile = request("CancImg")

dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject ")
set f=fs.GetFile nameFile
f.Delete

response.write "il file è stato cancellato"

set f=nothing
set fs=nothing
%>

<%
dim intCodice
intCodice = request("Id")
if intCodice<>"" then

dim strCode
strCode="innovatel"

Set Conn=Server.CreateObject("ADODB.Connection")

strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/staff.mdb")
strConn=strConn & ";pwd=" & strCode

Conn.Open strConn

sql = "SELECT * FROM staff WHERE Id="&intCodice
Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sql, conn ,3,3
rs.delete
rs.Close

set rs = Nothing
conn.Close
set conn = Nothing

'response.redirect "staff.asp"
else
'response.redirect "staff.asp"
end if
%>

grazie ancora

**Vincent.Zeno** · 06-05-2009, 00:10

nel senso che non cancella il file?
hai settato correttamente il percorso?

**gianluca8730** · 06-05-2009, 01:35

ciao,
non solo nn cancella il file ma mi da errore e nn mi visualizza la pagina.
il percorso è giusto perchè con response.write me lo stampa esatto
cosa nn và?

**Vincent.Zeno** · 06-05-2009, 02:02

ha già abilitato, nel browser, la visualizzazione degli errori?

io faccio così, controllo prima che il file esista:

codice:

Cartella = "/public/"
	Nomeimg=Request("File")

dim fs
	Set fs=Server.CreateObject("Scripting.FileSystemObject") 
	if fs.FileExists(Server.MapPath(Cartella & Nomeimg)) then
	fs.DeleteFile(Server.MapPath(Cartella & Nomeimg))
	end if
	set fs=nothing

prova

**gianluca8730** · 07-05-2009, 01:22

ciao,
ho risolto il mio proble in questo modo:

<%
dim NomeImg
Nomeimg=Request("CancImg")

dim fs
Set fs=Server.CreateObject("Scripting.FileSystemObject ")
if fs.FileExists(Server.MapPath(Nomeimg)) then
fs.DeleteFile(Server.MapPath(Nomeimg))
end if
set fs=nothing

%>

grazie a tutti per la collaborazione!

Discussione: Eliminazione record e relativo file.

Strumenti discussione

Ricerca discussione

Visualizza

Eliminazione record e relativo file.

Permessi di invio