Ciao a tutti!
Da qualche settimana mi sono messo in testa di iniziare a programmare in ASP.net...
Stavo provando a realizzare uno script per la gestione delle news, ma mi sono bloccato nella realizzazione della pagina "modifica_news.aspx", che dovrebbe modificare le news. Ecco il suo codice:
Alla pagina viene passato l'id della news (modifica_news.aspx?id=ID NEWS) e sembra tutto funzionare. Però quando tento di modificare la news nel db, non la modifica! Mi dite dove ho sbagliato?codice:<%@ Page Language="VB" validaterequest="false" %> <%@ assembly name="ADODB" %> <%@ import Namespace="ADODB" %> <%@ import Namespace="System.Data" %> <script runat="server"> ' Creo la connessione ed il recordset Private Connect As New ADODB.Connection Private Connectb As New ADODB.Connection Private recset As New ADODB.Recordset ' Page_Load, l'evento che si verificher al caricamento della pagina Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) ' Verifica se si e' amministratori IF Session("amministratore") = False Then Response.Redirect("default.aspx") End IF ' Dichiara la variabile "ID" che conterrà l'ID della news passata dim ID = Request("ID") ' Se come ID non è stato passato un valore valido ' Imposta l'ID ad 1 IF NOT ISNumeric(ID) or Len(ID) = 0 Then ID = 1 End IF ' Se l'ID e' uguale a 0 ' Imposta l'ID a 1 IF ID = 0 Then ID = 1 End IF ID = Int(ID) ' Apro la connessione ed il recordset Connect.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/mdb-database/database.mdb")) ' Eseguo la query al database per estrarre la news RecSet.Open("SELECT TOP 1 * FROM news Where ID = " & ID &"", Connect) ' Verifica se la news realmente esiste If RecSet.EOF Then ' La news non esiste (porta l'amministratore nella pagina "Gestione_news.asp") Response.Redirect ("Gestione_news.aspx") Else ' La news esiste: imposta nei vari campi del modulo i vari valori Autore.Text = RecSet("Autore").Value Contenuto.Text = Replace(RecSet("Contenuto").Value, " ", chr(13)) Titolo.Text = RecSet("Titolo").Value End If RecSet.Close Connect.Close End Sub ' Evento che si verifica al click sul tasto "Modifica News" ' (modifica la news nel db) Sub Modifica_news_Click(sender As Object, e As EventArgs) ' Verifica che tutti i campi del modulo siano stati compilati IF Page.Isvalid Then ' Apro la connessione Connectb.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/mdb-database/database.mdb")) ' Eseguo la query per modifica la news nel database Connectb.Execute("Update news set Titolo = '" & Titolo.Text &"', Contenuto = '" & Replace(Contenuto.Text, chr(13), " ") &"', Autore = '" & Autore.Text &"' where id = 21", 2) Connectb.Close ' Porta l'amministratore in "Gestione_news.aspx" Response.Redirect("Gestione_news.aspx") End IF End Sub </script> <html> <head> <title>Gestione news - Aggiungi news - Amministrazione</title> </head> <body> <form runat="server"> <p align="center"> <font face="Verdana" size="4">Gestione News -Modifica news</font> </p> <table cellspacing="0" cellpadding="0" width="100%" border="0"> <tbody> <tr> <td width="19%"> <font face="Verdana" size="2">Titolo news:</font></td> <td width="81%"> <font face="Verdana" size="2"> <asp:TextBox id="Titolo" runat="server"></asp:TextBox> <asp:RequiredFieldValidator id="Validatore1" runat="server" ControlToValidate="Titolo" ErrorMessage="*"></asp:RequiredFieldValidator> </font></td> </tr> <tr> <td width="19%"> <font face="Verdana" size="2">Contenuto news:</font></td> <td width="81%"> <asp:TextBox id="Contenuto" runat="server" TextMode="MultiLine" Height="133px" Width="372px"></asp:TextBox> <asp:RequiredFieldValidator id="Validatore2" runat="server" ControlToValidate="Contenuto" ErrorMessage="*"></asp:RequiredFieldValidator> </td> </tr> <tr> <td width="19%"> <font face="Verdana" size="2">Autore news:</font></td> <td width="81%"> <font face="Verdana" size="2"> <asp:TextBox id="Autore" runat="server"></asp:TextBox> <asp:RequiredFieldValidator id="Validatore3" runat="server" ControlToValidate="Autore" ErrorMessage="*"></asp:RequiredFieldValidator> </font></td> </tr> <tr> <td width="100%" colspan="2"> <font face="Verdana" size="2"> <asp:Button id="Modifica_news" onclick="Modifica_news_Click" runat="server" Text="Modifica news"></asp:Button> </font></td> </tr> </tbody> </table> <a href="Gestione_news.aspx"><font face="Verdana" size="2">Torna alla Gestione delle news</font></a> </p> </p> </form> </body> </html>
Salvatore
Rispondi quotando
