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:  Sistema de Dicas/Tópicos
Postada em 23/10/2003 por ^HEAVY-METAL^            
A Base de Dados é mono-tabela, cuja apresenta-se com a seguinte extrutura:

tabela : dicas

iddicas:  AutoNumber
dica:  Text
datacontrolo: Date/Time

Fica aqui  então o código que gere todo o sistema.


ficheiro : dicas.asp
  
<%
'Ligação DSNLess à base de dados em ficheiro
CONNS = "DBQ=" & Server.MapPath("dicas.mdb") & ";"
CONNS = CONNS & "Driver={Microsoft Access Driver (*.mdb)};"
CONN_USER = ""
CONN_PASS = ""
'criação do objecto para conexão à BD
Set conn = Server.CreateObject("ADODB.Connection")
'abrir a conexão da BD
conn.Open CONNS, CONN_USER, CONN_PASS
'definir o recordset para tratar a informação
Set rsdicas = Server.CreateObject("ADODB.Recordset")
'criar a declaração de SQL que vai buscar a dica por ordem de data
SQLStmt="SELECT iddicas,dica from dicas ORDER BY datacontrolo ASC"
'busca dos dados
rsdicas.Open SQLstmt,Conn,1,2
'guardamos o identificador
cod = rsdicas(0)
'guardamos a dica
dica = rsdicas(1)
'fechamos o Recordset
rsdicas.close
'vamos criar a declaração de SQL para actualizarmos a data
'da dica que obtivemos. Desta maneira quando vamos buscar a próxima
'esta passará para o fim pois fica a ser a mais recente
SQLStmt="UPDATE dicas SET datacontrolo='"&now()
SQLStmt=SQLStmt &  "' WHERE iddicas="&cod
rsdicas.Open SQLstmt,Conn,1,2
'construimos o HMTL que mostra a dica
Response.write"<div align='center'><table border='1' width='266' "
Response.Write" bordercolor='#8E1794' cellpadding=2 cellspacing=0>"
Response.Write"<tr height='10'><td height='10' bgcolor='#8E1794'>"
Response.Write"<font color='yellow' face='Verdana,Arial' size='1'>"
Response.write"Dica da PT4Free</font>"
Response.Write"</td></tr><tr><td><div align='center'>"
Response.Write"<font color='black' face='Arial,Verdana' size='1'>"
'usamos o server.HTMLEncode, para usufruirmos das Tags de HTML
Response.Write server.HTMLEncode(dica)
Response.Write"</font></div>"
Response.Write"</td></tr></table></div>"
'fechamos a conexão
Set conn=nothing
'fechamos o recordset
Set rsdicas=nothing
%>

T+,
 


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