<pedrocorreia.net ⁄>
corner
<mySearch ⁄> <mySearch ⁄>

corner
 
corner
<mySnippets order="rand" ⁄> <mySnippets order="rand" ⁄>

corner
 
corner
<myContacts ⁄> <myContacts ⁄>

<email ⁄>


pc@pedrocorreia.net

<windows live messenger ⁄>


pedrojacorreia@hotmail.com

<myCurriculum type="pdf" ⁄>


Download
corner
 
corner
<myBlog show="last" ⁄> <myBlog show="last" ⁄>

corner
 
corner
<myNews show="rand" ⁄> <myNews show="rand" ⁄>

corner
 
corner
<myNews type="cat" ⁄> <myNews type="cat" ⁄>

corner
 
corner
<myQuote order="random" ⁄> <myQuote order="random" ⁄>

corner
 
corner
<myPhoto order="random" ⁄> <myPhoto order="random" ⁄>

<pedrocorreia.net ⁄>
corner
 
corner
<myAdSense ⁄> <myAdSense ⁄>

corner
 
corner
<myVisitorsMap ⁄> <myVisitorsMap ⁄>

corner
 
 

<Guardar dados num ficheiro TXT ou MDB ⁄ >




clicks: 12809 12809 2006-10-08 2006-10-08 goto mySnippets mySnippets asp  Download  Bookmark This Bookmark This



Muitas vezes torna-se necessário registar as opiniões/ dados/ etc. dos visitantes do nosso site. Neste snippet irei dar dois exemplos, guardar os dados para um ficheiro de plain text e para um ficheiro de Access (vulgo mdb). Além disso também irei dar algum foco a uma função stripHtml que irei explicar mais à frente.

Vamos supor que neste snippet vamos querer guardar os dados de um formulário de satisfação de um evento que tivessemos organizado.
Os convidados esse evento vão receber um link para uma página com algumas perguntas, tais como: Nome, Opinião, Aspectos Positivos a Pontos a Melhorar.
Comecemos então por receber os dados provenientes do formulário. Neste snippet são efectuadas as duas operações, guardar no mdb e no txt, porém poderão obviamente utillizar só a que vos convém.
  1. <%
  2.  
  3. Dim nome, opiniao, aspectos, pontos, textoEmail
  4.  
  5. nome=stripHtml (Request.Form("nome"))
  6. opiniao=stripHtml (Request.Form("opiniao"))
  7. aspectos=stripHtml (Request.Form("aspectos"))
  8. pontos=stripHtml (Request.Form("pontos"))
  9.  
  10. guardarQuestionarioMDB "pathToFile/file.mdb", nome, opiniao, aspectos, pontos
  11. guardarQuestionarioTXT "pathToFile/file.txt",nome, opiniao, aspectos, pontos,true
  12.  
  13. %>



Como poderam reparar no código anterior quando estamos a fazer o Request das variáveis do formulário é chamada a função stripHtml, esta função irá tentar restringir a celebre táctica sql injection (este é tão somente um mero exemplo, o stripHtml deverá ser mais elaborado de modo a prevenir ao máximo os tipos de ataque, serve só para chamar atenção de que é sempre necessário tratar os dados antes de os guardar)
  1. <%
  2. function stripHtml(strString)
  3. Dim strCharsToStrip, aryStrip, intSplitLoop
  4.  
  5. 'verificar se a string é vazia
  6. If len(strString) = 0 then
  7. stripHtml = ""
  8. exit function
  9. End if
  10.  
  11. strCharsToStrip = "<,>,'"
  12. aryStrip = Split(strCharsToStrip,",",-1,1)
  13. stripHtml = strString
  14. For intSplitLoop = 0 to ubound(aryStrip)
  15. stripHtml = Replace(stripHtml,aryStrip(intSplitLoop),"")
  16. Next
  17. End Function
  18.  
  19. %>



Guardar a informação num ficheiro TXT ...
  1. <%
  2.  
  3. sub guardarQuestionarioTXT(FileName, nome, opiniao, aspectos, pontos, Append)
  4.  
  5. texto= "Nome: " & nome & vbNewLine
  6. texto= textoEmail & "Opinião: " & opiniao & vbNewLine
  7. texto= textoEmail & "Aspectos Positivos: " & aspectos & vbNewLine
  8. texto= textoEmail & "Pontos a melhorar: " & pontos & vbNewLine
  9. texto= textoEmail & vbNewLine & vbNewLine & vbNewLine
  10.  
  11. if Append = true then
  12. iMode = 8
  13. else
  14. iMode = 2
  15. end if
  16.  
  17. set oFs = server.createobject("Scripting.FileSystemObject")
  18. set oTextFile = oFs.OpenTextFile(Server.MapPath(FileName), iMode, True)
  19. oTextFile.Write Contents
  20. oTextFile.Close
  21. set oTextFile = nothing
  22. set oFS = nothing
  23.  
  24. end sub
  25.  
  26. %>



Passemos para o MDB
nota: tanto o mdb como a pasta onde este se encontra terão de ter pemissões de escrita para que possamos armazenar a informação, a pasta terá de ter permissão de escrita devido ao facto de que quando um mdb é aberto seja para ler ou armazenar informação é criado um ficheiro .ldb
  1. <%
  2.  
  3. sub guardarQuestionarioMDB(file, nome, opiniao, aspectos, pontos)
  4. Dim adoCon
  5. Dim strSQL
  6.  
  7. Set adoCon = Server.CreateObject("ADODB.Connection")
  8. adoCon.Mode=3
  9. adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(file)
  10.  
  11. strSQL = "insert into dados_comentarios (nome, opiniao, aspectos, pontos) values ('" & nome & "','" & opiniao & "','" & aspectos & "','" & pontos & "');"
  12. adoCon.Execute strSQL
  13.  
  14. adoCon.Close
  15. Set adoCon = Nothing
  16. end sub
  17.  
  18. %>



E se tudo correr bem a informação será armazenada e poderão mais tarde consultá-la ou mostrá-la no vosso site.









clicks: 12809 12809 2006-10-08 2006-10-08 goto mySnippets mySnippets asp  Download  Bookmark This Bookmark This