|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Livro de visitas
|
 |
|
|
|
Postada em 3/10/2003 por ^HEAVY-METAL^
<%
Const bDeleteEntries = True
Dim bForce
bForce = Request.QueryString("force")
Dim strFile
strFile = Server.MapPath("visitas.txt")
If Request.Form.Count = 0 Then
%>
<H3>Assine o nosso livro de visitas:</H3>
<FORM ACTION="visitas.asp" METHOD="post">
<TABLE>
<TR>
<TD ALIGN="right">Nome:</TD>
<TD><INPUT TYPE="text" NAME="name" SIZE="15"></INPUT></TD>
</TR>
<TR>
<TD ALIGN="right">Comentarios:</TD>
<TD><INPUT TYPE="text" NAME="comment" SIZE="35"></INPUT></TD>
</TR>
</TABLE>
<INPUT TYPE="submit" VALUE="Assine o Livro!"></INPUT>
</FORM>
<BR>
<H3>Comentário do Dia:</H3>
<!--#INCLUDE FILE="visitas.txt"-->
<%
Else
Dim objFSO
Dim objFile
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFile, 8, True)
objFile.Write ""
objFile.Write Server.HTMLEncode(Request.Form("name"))
objFile.Write ": "
objFile.Write Server.HTMLEncode(Request.Form("comment"))
objFile.Write "<BR>"
objFile.WriteLine ""
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
' Tell people we've written their info
%>
<H3>O teu comentário foi escrito num ficheiro!</H3>
<A HREF="visitas.asp">Voltar ao livro de visitas</A>
<%
End If
If bDeleteEntries Then
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strFile)
If DateDiff("d", objFile.DateLastModified, Date()) <> 0 Or bForce <> "" Then
Set objFile = Nothing
Set objFile = objFSO.CreateTextFile(strFile, True)
objFile.Write "Olá: "
objFile.WriteLine "espero que gostes do nosso livro de visitas!<BR>"
objFile.Close
End If
Set objFile = Nothing
Set objFSO = Nothing
End If
%>
O ficheiro que se segue é o "visitas.txt"
jose: site maravilhoso<BR>
carlos: sempre na ponta<BR>
suzana: tambem quero<BR>
: <BR>
T+,
|
|
|
|
|
