Mirabilweb
a- a+

Creare un sistema di messaggi privati per gli utenti del proprio sito web (Parte VII)

Pagina 7 di 10

Ecco la pagina elimina.asp, che si utilizza per eliminare i messaggi nella pagina messaggi.asp:

 

 

<!-- #include FILE="adovbs.inc" -->     

<%

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

Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("/msgprivati.mdb")


‘ SI CONNETTE AL DB E PRELEVA IL MESSAGGIO IL CUI ID E’ UGUALE A QUELLO PASSATO TRAMITE LA QUERYSTRING “ID”

Set RecSet = Server.CreateObject("ADODB.Recordset")

Radera = "SELECT * FROM messaggi WHERE ID = " & Request.QueryString("ID") & " " 

RecSet.Open Radera, Connect, adOpenStatic, adLockOptimistic
‘CANCELLA IL RECORDSET (IL MESSAGGIO)

RecSet.Delete

RecSet.Close

Connect.Close

‘ TI PORTA NELLA PAGINA “MESSAGGI.ASP”

Response.Redirect "messaggi.asp"

%>



Ti potrebbe interessare anche

commenta la notizia

C'è 1 commento
Lorenzo
Hai qualche domanda da fare?