|
- 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);
<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 | ||