Família Dammous

Família Dammous - Artigos

English version

Quinta-feira, 16/Abril/2026

Conecte-se

/dev :: principal :: artigos

Música

Notícias

Meteorologia

Genealogia

Astrologia

Nutrição

» Adiciona Favoritos

7 usuários online »»» 7 convidados - mais...

1544 membros

Sistema de Dicas Aleatórias

Um sistema de dicas aleatórias que vou explicar aqui, é simplesmente uma das únicas maneiras de se prosseguir, vou explicar uma forma simples e fácil:

Este aplicativo exige:
- Uma tabela chamada DicasAleatorias em um banco de dados com um campo código e outro dicas
- O campo código, deve ser de númeral apartir de 0 (zero)

Vamos ao código para selecionar a dica do dia no banco de dados:

' A linha abaixo é muito importante
' pois é necessário que o browser não armazene
' a página de dicas aleatórias no cache

Response.expires = 0

' Criando o objeto

Set objConn = Server.CreateObject("ADODB.Connection")

' Abrindo conexão com o banco de dados

objConn.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & Server.MapPath("tabela.mdb")

' String SQL para selecionar todos os campos da tabela DicasAleatorias

strSQL = "SELECT * FROM DicasAleatorias"

' Criando o RecordSet

set objRS = Server.CreateObject("ADODB.RecordSet")

' Executando a strSQL com o RecordSet

objRS.Open strSQL, objConn, 3, ,adCmdText

' Vamos agora fazer um randomize apartir de
' todas as dicas cadastradas no BD
' Utilizaremos recordcount e faremos
' uma contagem no total de registros e
' pegar o número inteiro deste total
' aleatoriamente.

Randomize timer

' A variavel vai armazenar o número
' inteiro da dica selecionada

strDicaAleatoria = INT(RND * objRS.RecordCount)

' Fechamos o BD

objRS.Close

' Criaremos agora uma string SQL para selecionar
' a dica que foi escolhida aleatóriamente

strSQL = "SELECT * FROM DicasAleatorias WHERE Codigo LIKE '"& strDicaAleatoria &"'"

' Executamos a string SQL apartir da instância do objeto novamente

objRS.open strSQL, objConn

' Enfim, executamos um loop e mostramos a dica do dia!

while not objRS.EOF

response.write objRS("Dicas") & "
"

objRS.MoveNext

Wend

set objRS = nothing
set objConn = nothing

%> 
Bom, conforme o tempo vai voando, vou escrever outras formas de dicas aleatórias
e aprimorar como mostrar dicas aleatórias específicas para específicos usuários,
como fazer a contagem de quantas vezes a dica foi vista e poupa-la de ser mostrada
novamente etc..

Cláudio Hickstein

Free-Lance

Voltar

Linux

Programas

ASP

Jogos

Cartão Postal

Frase

Seduzimos os outros servindo-nos de mentiras, mas queremos ser amados por nós mesmos...

Paul Geraldy

[ processado em: 6,34 segundos.]