-
Content count
20 -
Joined
-
Last visited
Community Reputation
0 ComumAbout Gabriel Jansen

- Birthday 07/24/1993
Informações Pessoais
-
Sexo
Masculino
-
Gabriel Jansen started following [Colaboração] Replace entre caracteres., ASP Clássico, AJAX e Access, Select Sum em campos separados and and 3 others
-
Você pode usar junto com o ASP um Autocomplete+Ajax (uso isso no meu sistema de pedido). É necessário você usar 2 páginas... Uma que vai receber a string do Ajax e procurar no banco de dados e imprimir os valores e a outra que é a página que você vai usar pra digitar nos inputs. Veja esse exemplo criado pelo Mateus Gamba > Autocomplete + JQuery + ASP – Atualizado
-
Se o objetivo é fazer uma somatória por coluna x referente ao pontox, coluna y referente ao pontoy faria dessa forma: SELECT (SELECT SUM(PONTOX) FROM TORNEIOS WHERE ATLETAX='João') as SOMATORIAX, (SELECT SUM(PONTOY) FROM TORNEIOS WHERE ATLETAY='João') as SOMATORIAY Se quiser testar online > SQL Fiddle
-
Gabriel Jansen changed their profile photo
-
Na minha aplicação eu faço tocar um áudio de Beep quando entra um pedido novo (um registro no BD). Primeiro pego uma variável para receber o Recordcount, dai no final da leitura dela eu salvo essa variável em uma session. Ai no código da página forço ela da um refresh e faço uma comparação da variável que recebe o primeiro recordcount com a session, caso ela seja diferente ela solta um beep. Ex: Response.AddHeader "Refresh", "180" ' faz o refresh na página a cadad 180 segundos SET Conn = server.CreateObject("adodb.connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=caminho_do_bd;Persist Security Info=False" Conn.CursorLocation = 3 SET RS = Server.CreateObject("ADODB.Recordset") RS.open "SELECT * FROM Tabela", conn, 1,3 comp = Rs.RecordCount 'variavel que faz a contagem de quantos registros tem o banco. IF comp <> Session("cont") Then 'caso o registro da tabela seja diferente da ultima ela solta o beep nesse caso você substituiria pelo icone da notificação Response.Write ("<embed height='0' width='0' src='img/beep.mp3' />") End if Session("cont") = Rs.RecordCount 'salvo a variavel na session antes de destruir a conexão com BD.
-
Alejandro Estive lidando com um painel administrativo e também estava preocupado quanto a isso, uma solução que resolveu foi Com cookies Dim check,refe,testa 'cookies criado na página que recebe o formulário do login check = Request.Cookies("check") 'Aqui recupera o cookies criado na validação refe = Request("HTTP_REFERER") 'resgata a referencia de onde veio a página variavel = "testelogin." 'aqui você coloca uma parte do seu site que identifique ele eu coloquei parte do dominio ex: www.testelogin.com.br IF check = "TRUE" AND Instr(refe, variavel) <> 0 Then 'verifica se o cookies é valido e a página de origem é do site If Request("HTTP_REFERER") = "" Then 'caso o usuario digite ela a referencia é vazia e ele é redirecionado para outra página response.Redirect("http://www.google.com.br/") Response.End End If Else 'Cookies invalio ou referencia invalida também redireciona response.Redirect("http://www.google.com.br/") End if Sem Cookies If Request("HTTP_REFERER") = "" Then 'caso o usuario digite a pagina para acesso, a referencia é vazia ele redireciona (não é muito segura, mas já evita acesso de curioso) response.Redirect("http://www.google.com.br/") Response.End End If
-
Acho que entendi, seria um tipo ORDER BY pela data?
-
Então, se você não conseguiu fazer pelo DISTINCT, faz ela fazer uma consulta depois que você vê as datas... Ex SET RS = Server.CreateObject("ADODB.Recordset") RS.open "SELECT * FROM NOTICIA WHERE ... seu codigo da data" 'Nessa consulta tu pega data Do If Not Rs.EOF Then SET GGS = Server.CreateObject("ADODB.Recordset") GGS.open "SELECT * FROM NOTICIA WHERE .... seu codigo da data" ' Nessa você manda ela imprimir as datas puxando a data da consulta anterior GGS.Close() SET GGS = Nothing RS.movenext END IF Loop While not RS.eof RS.Close() SET RS = Nothing Fiz isso em uma consulta que preciso imprimir os pedidos da data tal e listar todos eles (já que eu uso banco de dados access e infelizmente não consegui usar select distinct nele ), a desvantagem que se você não fechar as consultas depois sobrecarrega o banco pra caramba.
-
Boa tarde! Não sei se seria o lugar correto mas queria deixar uma pequena colaboração, em meio a pesquisa na internet não achei uma forma para o asp clássico de fazer replace entre duas variáveis definida e tentei estudar um pouco sobre replace e não consegui entender ao certo, então apelei. Em meio ao texto pode ser que precise remover algo que está entre o determinada parte do conteúdo, ex: Abacaxi <0,1111> desidratado, para Abacaxi desidratado. Criei a função abaixo: FUNCTION REPLACE_ENTRE(VARIAVEL,INICIO,FIM) TEXTO=VARIAVEL INICIA=split(TEXTO,INICIO) IF Ubound(INICIA)>"0" Then FINALIZA=split(INICIA(1),FIM) REPLACE_ENTRE=INICIA(0)&""&FINALIZA(1) ELSE REPLACE_ENTRE=TEXTO END IF END FUNCTION Para fazer o replace chama ela dessa forma, caso queira pode fazer a alteração dos caracteres para qualquer um que deseja (desde que haja diferença entre elas tipo: [ , ], <,>, sx, xs): REPLACE_ENTRE("Variavel que deseja fazer replace","caractere que identifica inicio","caractere que identifica o final") Quero retirar uma parte do texto onde fica entre os caracteres "[" e "]". Há quem o faça [mas não o aconselha] por isso não o farei. FUNCTION REPLACE_ENTRE(VARIAVEL,INICIO,FIM) TEXTO=VARIAVEL INICIA=split(TEXTO,INICIO) IF Ubound(INICIA)>"0" Then FINALIZA=split(INICIA(1),FIM) REPLACE_ENTRE=INICIA(0)&""&FINALIZA(1) ELSE REPLACE_ENTRE=TEXTO END IF END FUNCTION TEXTO="Há quem o faça [mas não o aconselha] por isso não o farei." TEXTO=REPLACE_ENTRE(TEXTO,"[","]") Imprimindo a variável ela ficará assim: Há quem o faça por isso não o farei. É isso ai