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