USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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+,
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página