ArcadiA Club
ArcadiA Club


AAC FORUM     AAC News     AAC Box    



Home Page   Home Page
programmazione.htm   Programmazione - FORUM sezione  Vai al FORUM
 
Username:
Password:
Iscriviti!  |  Recupero password



Iscriviti GRATIS, potrai navigare senza questa
fascia e accedere a contenuti esclusivi:

    E-Mail:

Password:



 
 
- Un semplice guestbook in ASP -
 
COSA SERVE PER QUESTO TUTORIAL
Download | Chiedi sul FORUM | Glossario Conoscenza dell'HTML - un editor di testo
Un database e due file di codice e il guestbook Ŕ fatto

IL GUESTBOOK
Procedura guidata.

1) Prima di tutto creiamo una nuova cartella nella root directory di IIS (solitamente wwwroot) che si chiami guestbook, poi abbiamo bisogno di una pagina ASP (chiamatela scrivi.asp) dove inseriremo un form HTML che richiederÓ: un nickname, il titolo del messaggio e il messaggio stesso che in seguito verrÓ visualizzato da default.asp. Ecco il codice del form:


<html><body>
<form action="scrivi.asp?modo=ok" method="POST">
<input type="hidden" name="modo" value="ok">
<p>Nome (o nickname): <input type="text" size="20" name="nickname">
(nome campo: <b>nickname</b>)<br>
Email: <input type="text" size="20" name="email"> (nome campo: <b>email</b>)<br>
Oggetto: <input type="text" size="20" name="oggetto"> (nome campo:<b>oggetto</b>)<br>
Messaggio:<br>
<textarea name="msg" rows="3" cols="36"></textarea>(nomecampo: <b>msg</b>) </p>
<p><input type="submit" value="Invia"></p>
</form></body></html>

2) Nella stessa pagina (scrivi.asp) dovrete inserire il seguente codice ASP prima della tag <html>, in cima al file; non dimenticate per˛ che in fondo al suddetto file, vÓ aggiunto un <% End If %> (che indica il termine del blocco if) dopo </html>; vediamo ora il codice da inserire in alto:


<%
if Request.QueryString("modo") = "ok" then


'si connette al database
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("dati/database.mdb") 

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "messaggi", conn, 3, 3
rs.AddNew
rs("nickname") = Request.Form("nickname")
rs("email") = Request.Form("email")
rs("titolo") = Request.Form("titolo")
rs("msg") = Request.Form("msg")
rs("data") = Date()
rs.Update
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
response.redirect ("default.asp")

else
%>

3) Create ora, nella stessa cartella di scrivi.asp, il file default.asp e una sottodirectory che si chiami dati dove posizionerete un database chiamato database.mdb (createlo con Microsoft Access, notate che Ŕ caratterizzato da una sola tabella chiamata messaggi i cui campi sono: nickname, email, titolo, msg e data);
4) Ecco invece come dovrÓ apparire default.asp:


<html><body>
<br><br>
<a href="scrivi.asp"> Firma il Guestbook!</a>
<br><br>

<%
' si connette al database
Set conn = Server.CreateObject("ADODB.Connection")
sql = "SELECT * FROM messaggi ORDER BY data DESC"
dsnpath = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)}; "
dsnpath = dsnpath & "DBQ=" & Server.MapPath("dati/database.mdb")
conn.open dsnpath
Set rs = Conn.Execute(sql)
Set nickname=rs("nickname")
Set email=rs("email")
Set oggetto=rs("titolo")
Set msg=rs("msg")
Set data=rs("data")
If rs.EOF = False Then
%>
<% Do Until rs.EOF I = I + 1%>
<table width="520" border="0">
<td width="500" bgcolor="white">
Messaggio di: <a href="mailto:<%=email%>"><%=nickname%></a> inviato in data <%=data%> 
<tr>
<td width="500" valign="top">
Oggetto: <%=Oggetto%><br><br><%=Msg%>
</tr>
</table> 
<% 
rs.movenext 
loop
End if
rs.close
Set rs = nothing 
%>
</body></html>

5) Il guestbook Ŕ pronto. Per accedervi basterÓ aprire il file "default.asp" al quale si pu˛ accedere anche solo digitando il nome della directory dove Ŕ contenuto.

 

<< INDIETRO by aFiGoZ  


Video collegati Visualizza i video di questa pagina
Visualizza video sull'argomento "creare".
Visualizza video sull'argomento "guestbook".
Visualizza video sull'argomento "asp creare guestbook".


Dý la tua: cosa ne pensi?
Esponi il tuo punto di vista e condividilo con migliaia di persone

Oggetto nuova discussione:


Testo del messaggio:

E-Mail:

Quanto fa pi¨ dieci:




 





^ TOP  
Linkaci | Segnala errore | Invita | Stampa


pubblicitÓ | privacy | visione | diritti | ufficio stampa | donazioni | scrivici
© 1999-2017 - P.IVA 02284690035 - Grafica, layout e contenuti sono di esclusiva proprietÓ di ArcadiA Club.

Powered by:
Spazi pubblicitari di alto livello
 

Compra in un click! | Cerca prodotti in offerta: