eliminare foto insieme a recordset

**nikselva** · 24-04-2009, 18:26

salve a tutti, vi chiedo ua mano:
ho un'area ripetuta per l'eliminazione di recordset, però, a ogni recordset è legata una foto opiù di una, come posso fare in modo che oltre a eliminarmi il record nel database mi elimini anche la foto nella cartella a cui è legato????
grazie

**Roby_72** · 24-04-2009, 23:05

tramite l'id del record recuperi i nomi delle foto dal record e tramite FSO cancelli prima tutte le foto e poi il record (tramite la DELETE).

Ecco FSO:

codice:

Set fs=Server.CreateObject("Scripting.FileSystemObject") 
if fs.FileExists("c:\test.txt") then
  fs.DeleteFile("c:\test.txt")
end if
set fs=nothing

Roby

**nikselva** · 25-04-2009, 18:32

dimmi se faccio bene:

<%
Set fs=Server.CreateObject("Scripting.FileSystemObject ")
if fs.FileExists("<%=(modifica.Fields.Item("foto1").V alue)%>") then
fs.DeleteFile("<%=(modifica.Fields.Item("foto1").V alue)%>")
end if
set fs=nothing
%>
<head></head>
<body>
<form id="form1" name="form1" method="POST" action="<%=MM_editAction%>">
<input type="submit" name="Submit" value="Elimina" />
<input type="hidden" name="MM_delete" value="form1">

<input type="hidden" name="Set fs" value="form1">

<input type="hidden" name="MM_recordId" value="<%= modifica.Fields.Item("ID").Value %>">
</form>
</body>

**Roby_72** · 26-04-2009, 10:09

Insomma, non capisco la sequenza delle cose.
Il recordset in cui recuperi le foto dov'è?

Roby

**nikselva** · 26-04-2009, 19:52

ti metto tutto il codice della pagina e così mi dici dove devo mettere il codice che mi hai scritto te

**nikselva** · 26-04-2009, 20:09

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Delete Record: declare variables

if (CStr(Request("MM_delete")) = "form1" And CStr(Request("MM_recordId")) <> "") Then

MM_editConnection = MM_ADimmobiliareDB_STRING
MM_editTable = "vendita"
MM_editColumn = "ID"
MM_recordId = "" + Request.Form("MM_recordId") + ""
MM_editRedirectUrl = "modificaV.asp"

' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If

End If
%>
<%
' *** Delete Record: construct a sql delete statement and execute it

If (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then

' create the sql delete statement
MM_editQuery = "delete from " & MM_editTable & " where " & MM_editColumn & " = " & MM_recordId

If (Not MM_abortEdit) Then
' execute the delete
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>
<%
Dim modifica
Dim modifica_numRows

Set modifica = Server.CreateObject("ADODB.Recordset")
modifica.ActiveConnection = MM_ADimmobiliareDB_STRING
modifica.Source = "SELECT * FROM vendita ORDER BY riferimento ASC"
modifica.CursorType = 0
modifica.CursorLocation = 2
modifica.LockType = 1
modifica.Open()

modifica_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 10
Repeat1__index = 0
modifica_numRows = modifica_numRows + Repeat1__numRows
%>
<head>.....</head>
<body>
<body>
<table width="1000" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="14"></td>
</tr>
<tr>
<td height="50" colspan="14" align="center" class="titolo">Modifica-elimina vendite </td>
</tr>
<tr>
<td height="20" align="center" valign="middle" class="testoN">Riferimento</td>
<td width="20" height="20" align="center" valign="middle" class="testoN"></td>
<td width="100" align="center" valign="middle" class="testoN"></td>
<td width="20" align="center" valign="middle" class="testoN"></td>
<td height="20" align="center" valign="middle" class="testoN">Tipo</td>
<td width="20" height="20" align="center" valign="middle" class="testoN"></td>
<td height="20" align="center" valign="middle" class="testoN">Categoria</td>
<td width="20" align="center" valign="middle" class="testoN"></td>
<td align="center" valign="middle" class="testoN">Comune</td>
<td width="20" height="20" align="center" valign="middle" class="testoN"></td>
<td width="150" height="20" align="center" valign="middle" class="testoN">Zona</td>
<td width="20" height="20" align="center" valign="middle"></td>
<td height="20" align="center" valign="middle"></td>
<td height="20" align="center" valign="middle"></td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT modifica.EOF))
%>
<tr bgcolor="#c2905c">
<td width="100" height="100" align="center" valign="middle" class="lineaB"><span class="testoN2"><%=(modifica.Fields.Item("riferime nto").Value)%></span></td>
<td width="20" height="60" align="center" valign="middle" class="lineaB"></td>
<td width="100" align="center" valign="middle" class="lineaB">[img]public/<%=(modifica.Fields.Item([/img]" alt="foto" height="80" /></td>
<td width="20" align="center" valign="middle" class="lineaB"></td>
<td height="60" align="center" valign="middle" class="lineaB"><span class="testoN2"><%=(modifica.Fields.Item("tipo").V alue)%></span></td>
<td width="20" height="60" align="center" valign="middle" class="lineaB"></td>
<td height="60" align="center" valign="middle" class="lineaB"><span class="testoN2"><%=(modifica.Fields.Item("categori a").Value)%></span></td>
<td width="20" align="center" valign="middle" class="lineaB"></td>
<td width="20" align="center" valign="middle" class="lineaB"><span class="testoN2"><%=(modifica.Fields.Item("comune") .Value)%></span></td>
<td width="20" height="60" align="center" valign="middle" class="lineaB"></td>
<td height="60" align="center" valign="middle" class="lineaB"><span class="testoN2"><%=(modifica.Fields.Item("zona").V alue)%></span></td>
<td width="20" height="60" valign="middle" class="lineaB"></td>
<td width="100" height="60" align="center" valign="middle" class="lineaB">" class="menu">Modifica>></td>
<td width="100" height="60" align="center" valign="middle" class="lineaB"><form id="form1" name="form1" method="POST" action="<%=MM_editAction%>">
<input type="submit" name="Submit" value="Elimina" />
<input type="hidden" name="MM_delete" value="form1">
<input type="hidden" name="MM_recordId" value="<%= modifica.Fields.Item("ID").Value %>">
</form> </td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
modifica.MoveNext()
Wend
%>

<tr>
<td colspan="14"></td>
</tr>
<tr>
<td colspan="14" align="center">
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="150" align="right"><% If MM_offset <> 0 Then %>
Primo
<% End If ' end MM_offset <> 0 %></td>
<td width="80" align="center"><% If MM_offset <> 0 Then %>
Indietro
<% End If ' end MM_offset <> 0 %> </td>
<td align="center" class="testo2">
Record da <%=(modifica_first)%> a <%=(modifica_last)%> su <%=(modifica_total)%> </td>
<td width="80" align="center"><% If Not MM_atTotal Then %>
Avanti
<% End If ' end Not MM_atTotal %> </td>
<td width="150" align="left"><% If Not MM_atTotal Then %>
Ultimo
<% End If ' end Not MM_atTotal %></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="14" align="center"></td>
</tr>
</table>
</body>
</html>
<%
modifica.Close()
Set modifica = Nothing
%>

**nikselva** · 27-04-2009, 16:56

mi puoi dare una mano??????????

**Roby_72** · 27-04-2009, 17:05

Nel momento che clicchi sul record da emilimare, cosa passi nel link?
L'id del record?

In quel caso devi:
- recuperare l'id
- fare la SELECT nella tabella per recuperare la foto da cencellare
- cancellare la foto
- cancellare il record

Roby

**nikselva** · 27-04-2009, 17:09

si, mi recupera l'ID e me lo elimina dal DB ma lo script che hai postato te dove lo metto???
scusa ma sono un analfabeta, si vede??

**Roby_72** · 27-04-2009, 17:11

Nella pagina che elimina....

Roby

Discussione: eliminare foto insieme a recordset

Strumenti discussione

Ricerca discussione

Visualizza

eliminare foto insieme a recordset

Permessi di invio