E ae galera, bom o que eu queria não são listas de sites com codigos prontos e tal, eu queria uns sites com referencias ? Como assim um amigo fez e me mandou um que ele usa no dia a dia, talvez ajude a vocês tb, mas vo usar como exemplo
<%
'Conectar ao banco de dados(ACCESS)
Set Sua_Conexao = Server.CreateObject("ADODB.Connection")
Sua_Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("banco_de_dados.mdb")
'Conectar ao banco de dados(MySQL)
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open = "Driver=MySQL ODBC 3.51 Driver; DATABASE=banco_de_dados; SERVER=Nome_do_servidor; UID=Usuario; PASSWORD=Senha"
'SELECT
SQL = "SELECT * FROM tabela"
'Selecionar dados de um determinado campo
SQL = "SELECT * FROM tabela WHERE Campo = '"&Campo&"'"
'Organizar os dados
SQL = "SELECT * FROM tabela WHERE Campo = '"&Campo&"' ORDER BY Campo FUNÇÃO"
'Função
DESC, ASC, RND, Entre outros
'Atualizar dados
SQL = "UPDATE tabela SET Campo = '"&Campo&"', Campo2 = '"&Campo2&"' WHERE Campo = '"&Campo&"'"
'Deletar dados
SQL = "DELETE FROM tabela WHERE Campo = '"&Campo&"'"
'Inserir dados
SQL = "INSERT INTO tabela(Campo, Campo2)" & "values ('"&Campo&"', '"&Campo2&"')"
'Contar registros
SQL = "SELECT COUNT(Campo/*) AS total FROM tabela"
'Buscar nos campos
SQL = "SELECT * FROM tabela WHERE campo like '%"&campo&"%'"
'Criar RecordSet
Set Sua_Conexao = Server.CreateObject("ADODB.RecordSet")
'Executar SQL
Sua_Conexao.Execute(SQL)
'Estrutura de repetição
Do While Not Rs.EOF
Rs.MoveNext
Loop
'Ou
While Not Rs.EOF
Rs.MoveNext
Wend
'Variaveis
Variavel = Conteudo
'Ex.:
Teste = Request("Teste")
'Importantes
'Para campos numericos deve-se usar:
Campo = "&Campo&"
'Para campos tipo texto:
Campo = '"&Campo&"'
'Funçoes de data
Second(Time) - Segundo
Minute(Time) - Minutos
Hour(Time) - Hora
WeekDayName(WeekDay(Date())) - Dia da semana, tipo: Segunda...
MonthName(Month(Date())) - Dia do mes, tipo: Abril
Month(Date) - Mes
Day(Date) - Dia
Year(Date) - Ano
'Pegar um determinado numero de caracters da esquerda para direita
Left(Request("Campo"), 3)
'Pegar um determinado numero de caracters da direita para esquerda
Hight(Request("Campo"), 3)
'Trocar 1 por 2
Replace(Request("Campo"), "1", "2")
'Gravar cookie
Response.Cookies("Nome_do_Cookie")("Campo") = Variavel
'Incluir paginas
<!--#include file="Endereço da pagina"-->
'Apagar Sessions
Session("NomeSession") = Empty
'Diferença entre datas
yyyy - Ano
q - Quarto
m - Mês
y - Dia do Ano
d - Dia
w - Dia da semana
ww - Semana do ano
h - Hora
n - Minuto
s - Segundo
novadata = DateAdd("yyyy", 1, now) = A variável novadata
assumirá o valor da data de hoje acrescida de 1 ano, ou seja, irá representar
uma data do ano de 2004.
novadata = DateAdd("yyyy", -1, now) = A variável novadata
assumirá o valor da data de hoje deduzida 1 ano, ou seja, irá representar uma
data do ano de 2002.
intervalo = DateDiff("yyyy", "10-22-1985", "10-22-1990") = A
variável intervalo terá o valor de 5, que é o intervalo de tempo, em anos, entre
as duas datas.
ano = DatePart("yyyy", "10-22-1985") = A variável ano terá o
valor de 1985, que é o ano da data em questão.
'Rotacionar registros do banco de dados
varDados = Rs.GetRows()
Rs.MoveFirst
Do While Not Rs.EOF
Counter = Counter + 1
Rs.MoveNext
Loop
Randomize
varDados = Int(Rnd * Counter)
Campo1 = ""&varDados(0,Campo1)&""
Campo2 = ""&varDados(1,Campo1)&""
Por exemplo te uma explicação, um exemplo e algo aidicional, alguém conhece sites assim ?
Conheço o devguru.com mas tem pouca coisa de exemplos e tal =)
Pergunta
DackAle
E ae galera, bom o que eu queria não são listas de sites com codigos prontos e tal, eu queria uns sites com referencias ? Como assim um amigo fez e me mandou um que ele usa no dia a dia, talvez ajude a vocês tb, mas vo usar como exemplo
Por exemplo te uma explicação, um exemplo e algo aidicional, alguém conhece sites assim ?
Conheço o devguru.com mas tem pouca coisa de exemplos e tal =)
Bom valeu
Abraçosss
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.