Mirabilweb
a- a+

Creare un sistema per inserire news (Parte V)

Pagina 5 di 8

Per aggiungere le news, occorrerà creare due pagine:

  • Aggiungi1.asp, in cui si troverà un modulo da compilare per aggiunge le news.

  • Aggiungi2.asp, una pagina che si preoccuperà di prelevare i dati precedentemente inseriti nel form HTML e di immetterli nel database.

Ecco il codice della pagina Aggiungi1.asp:

 

<%

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>Aggiungi News</b></font>

</p>

<%

‘ SI INVIA IL FORM ALLA PAGINA AGGIUNGI2.ASP?MODO=AGGIUNGI, CHE IN QUESTO CASO AGGIUNGERA’

‘ LA NEWS

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

  <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"></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"></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"></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>

  <p align="left">&nbsp;</p>

</form>

<p align="left">&nbsp;

</p>

 

<p align="left">&nbsp;

</p>

 

<p align="left">&nbsp;

</p>

 

<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

%>

 

Ecco il codice della pagina Aggiungi2.asp:

 

<%

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

‘ SE NON TUTTI I CAMPI SONO STATI COMPILATI, TI VISUALIZZA UNA FINESTRA DI ERRORE

‘ E TI PORTA NELLA PAGINA PRECEDENTE (AGGIUNGI1.ASP)

if request("titolo")="" or request("news")="" or request("autore")="" then

%>

<script>

alert ("Inserire tutti i dati!")

history.back()

</script>

<%

response.end

end if

%>

<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>Aggiungi News</b></font>

</p>

 

<p align="center">

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

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

 

<font face="Verdana" size="2">

 

<%

‘ RICHIEDE LA VARIABILE MODO….

modo = request.querystring("modo")

 

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

 

‘ SE ESSA E’ UGUALE AD “AGGIUNGI”, AGGIUNGERA’ LA NEWS…

If modo = "aggiungi" then

Aggiungi = "SELECT * FROM news"

RecSet.Open Aggiungi, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew

‘ …ALTRIMENTI, MODIFICHERA’ LA NEWS….

Else

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

RecSet.Open Aggiungi, Connect, adOpenStatic, adLockOptimistic

end if

 

RecSet("Titolo") = Request.Form("titolo")

RecSet("Autore") = Request.Form("autore")

 

 

‘ SE LA VARIABILE MODO E’ UGUALE AD “AGGIUNGI” ESEGUE LA FUNZIONE CHE TRASFORMERA’ GLI INVII DEL CAMPO

‘ NEWS‘ IN “BR”, OSSIA IL TAG CHE PERMETTE IN HTML DI VISUALIZZARE DEGLI INVII. SARA’ POSSIBILE

‘ UTILIZZARE ANCHE CODICE HTML NE SEGUENTE CAMPO…

If modo = "aggiungi" then

RecSet("News") = Replace(Server.HTMLEncode(Request.Form("news")), chr(13),            "<BR>" , 1)

‘ … ALTRIMENTI NON METTE IN FUNZIONE TALE BREVE SCRIPT ASP. PER CAPIRE MEGLIO LEGGETTE TUTTO IL

‘ MANUALE, NELLA SEZIONE “MODIFICA NEWS”

else

RecSet("News") = Request.Form("news")

end if

‘ IMPOSTA LA DATA CORRENTE

RecSet("Data")= date()

RecSet.Update

RecSet.Close

Connect.Close

%>

Operazione eseguita correttamente!</font>

</p>

 

<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

%>

 

Continua >>>



Ti potrebbe interessare anche

commenta la notizia

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