Mirabilweb
a- a+

Creare uno script per pubblicare news (Parte VI)

Pagina 6 di 8

Per modificare/eliminare le news, occorre da prima visualizzarle, come??? Con la pagina news.asp; di tale pagina non verrà analizzato il codice asp, in quanto è quello della pagina index.asp, che visualizza il sommario delle news, cambiano solo i link:

 

 

<%

If session("loggato")="si" then

%>

<html>

 

<head>

<title>Creazione Sistema per la gestione delle news</title>

</head>

 

<body>

 

<p align="center"><font size="2" face="Verdana"><b>Creazione Sistema per la

gestione delle news</b></font></p>

<p align="left"><font size="2" face="Verdana">&gt;&gt; <b>Modifica/Elimina News</b></font>

</p>

 

<p align="left"><font size="2" face="Verdana">

<!-- #INCLUDE FILE="../db.asp" -->

<!-- #include file="../adovbs.inc" -->

<%

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

News = "SELECT * FROM news ORDER BY Id DESC"

RecSet.Open News, Connect, adOpenStatic, adLockOptimistic

%>

 

<%

if RecSet.eof then

Response.Write "<br><center><b>Nessuna News Trovata.</b></center>"

else

%>

   

<%      Do Until RecSet.EOF %>

 

<%=RecSet("Data")%>  - <b><%=RecSet("Titolo")%></b> >> <a href="modifica1.asp?id=<%=RecSet("id")%>">Modifica News</a> >> <a href="elimina.asp?id=<%=RecSet("id")%>">Elimina News</a><br><br>

 

 

<%     

RecSet.MoveNext

Loop

RecSet.Close

Connect.Close

End IF

%>

 

 

<p align="left">&nbsp;

</p>

 

<p align="left"><font size="2" face="Verdana">Le operazioni che puoi eseguire:</font>

</p>

 

<ul>

  <li>

    <p align="left"><b><font size="2" face="Verdana"><a href="aggiungi1.asp">Aggiungi

    News</a></font></b></li>

  <li>

    <p align="left"><b><font size="2" face="Verdana"><a href="news.asp">Modifica/Elimina

    News</a></font></b></li>

  <li>

    <p align="left"><b><font size="2" face="Verdana"><a href="esci.asp">Esci</a></font></b></li>

</ul>

 

<p align="right"><a href="http://www.mirabilweb.tk"><font size="2" face="Verdana"><b>by

Mirabil Web Computer - Tutto sui PC!</b></font></a></p>

 

</body>

</html>

<%

else

Response.Redirect "index.asp"

end if

%>

Creiamo adesso la pagina modifica1.asp, che preleverà le informazioni dal database e le visualizzerà a video per modificarle:

 

<%

If session("loggato")="si" then

%><html>

 

<head>

<title>Creazione Sistema per la gestione delle news</title>

</head>

 

<body>

 

<p align="center"><font size="2" face="Verdana"><b>Creazione Sistema per la

gestione delle news</b></font></p>

<p align="left"><font size="2" face="Verdana">&gt;&gt; <b>Modifica News</b></font>

</p>

 

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

<!-- #INCLUDE FILE="../db.asp" -->

 

<%
‘ SI CONNETTE AL DB E PRELEVA LA NEWS

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

Aggiungi = "SELECT * FROM news where id =" & Request.QueryString("id") &""

RecSet.Open Aggiungi, Connect, adOpenStatic, adLockOptimistic

 

 

 
‘ COME SI PUO’ NOTARE IL FORM VIENE INVIATO ALLA PAGINA AGGIUNGI2.ASP?MODO=MODIFICA,

‘ CHE IN QUESTO CASO MODIFICHERA’ LA NEWS E NON LA AGGIUNGERA’

%>

<form method="POST" action="aggiungi2.asp?modo=modifica">

  <div align="center">

    <center>

    <table border="0" cellpadding="0" cellspacing="0" width="595" height="166">

      <tr>

        <td width="220" height="25"><font size="2" face="Verdana">Titolo:</font></td>

        <td width="371" height="25"><font size="2" face="Verdana"><input type="text" name="titolo" size="20" value="<%=RecSet("Titolo")%>">

<%

‘ VIENE CREATO UN CAMPO INVISIBILE CHE CONTERRA’ L’ID DELLA NEWS, PER MODIFICARLA IN SEGUITO

%>

<input type="hidden" name="id" size="20" value="<%=RecSet("id")%>"></font></td>

      </tr>

      <tr>

        <td width="220" height="25"><font size="2" face="Verdana">Autore:</font></td>

        <td width="371" height="25"><font size="2" face="Verdana"><input type="text" name="autore" size="20" value="<%=RecSet("autore")%>"></font></td>

      </tr>

      <tr>

        <td width="220" height="68"><font size="2" face="Verdana">News:</font></td>

        <td width="371" height="68"><font size="2" face="Verdana"><textarea rows="11" name="news" cols="55"><%=RecSet("news")%></textarea></font></td>

      </tr>

      <tr>

        <td width="220" height="21"></td>

        <td width="371" height="21"></td>

      </tr>

      <tr>

        <td colspan="2" width="418" height="27">

          <p align="center"><font size="2" face="Verdana"><input type="submit" value="Invia" name="B1"><input type="reset" value="Reimposta" name="B2"></font></td>

      </tr>

    </table>

    </center>

  </div>

</form>

 

<p align="left"><font size="2" face="Verdana">Le operazioni che puoi eseguire:</font>

</p>

 

<ul>

  <li>

    <p align="left"><b><font size="2" face="Verdana"><a href="aggiungi1.asp">Aggiungi

    News</a></font></b></li>

  <li>

    <p align="left"><b><font size="2" face="Verdana"><a href="news.asp">Modifica/Elimina

    News</a></font></b></li>

  <li>

    <p align="left"><b><font size="2" face="Verdana"><a href="esci.asp">Esci</a></font></b></li>

</ul>

 

<p align="right"><a href="http://www.mirabilweb.tk"><font size="2" face="Verdana"><b>by

Mirabil Web Computer - Tutto sui PC!</b></font></a></p>

<%
‘ CHIUDE LA CONNESSIONE AL DB

RecSet.Close

Connect.Close

%>

</body>

</html>

<%

else

Response.Redirect "index.asp"

end if

%>

 

Continua >>>



Ti potrebbe interessare anche

commenta la notizia

C'è 1 commento
Luca
Ti è piaciuto l'articolo?