<%@ Page Language="VB" ResponseEncoding="iso-8859-1" Inherits="AACPage" %> <%@ import Namespace="System.Data" %> <%@ import Namespace="System.Data.Oledb" %> <%@ import Namespace="System.Data.ODBC" %> <%@ Register TagPrefix="aac" TagName="header" Src="~/header.ascx" %> <%@ Register TagPrefix="aac" TagName="footer" Src="~/footer.ascx" %> <%@ Register TagPrefix="aac" TagName="telaioHeader" Src="~/service/include/telaio_header.ascx" %> <%@ Register TagPrefix="aac" TagName="telaioFooter" Src="~/service/include/telaio_footer.ascx" %> <%@ Register TagPrefix="aac" TagName="autoreFile" Src="~/service/include/autore_file.ascx" %> <%@ Register TagPrefix="aac" TagName="aggiornamenti" Src="~/service/include/aggiornamenti.ascx" %> <%@ Register TagPrefix="aac" TagName="ultimiPost" Src="~/forum/inc_ultimi_post.ascx" %> <%@ Register TagPrefix="aac" TagName="ultimiPost3" Src="~/forum/inc_ultimi_post_nuovo.ascx" %> <%@ Register TagPrefix="aac" TagName="aspect" Src="~/service/include/aspect.ascx" %> <%@ Register TagPrefix="aac" TagName="adsenseGenerator" Src="~/service/include/adsense_generator.ascx" %> <% 'Il controllo per il paging correntemente è registrato qua e là, ma andrebbe 'eliminato da tutte le parti e messo qui '<'%@ Register TagPrefix="aac" TagName="paging" Src="~/service/include/paging.ascx" %'> %> ArcadiA Club - ASP | Un semplice guestbook in ASP <% sez_id = 18 immm = "programmazione" categoria = 1 #CONST aspect_asp = 0 forum_id_asp = "16" sc_asp = 1 %> <%-- --%>
 
- 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