marcos_804
-
Total de itens
379 -
Registro em
-
Última visita
Tudo que marcos_804 postou
-
É possivel sim bloquear F5 do teclado, pois o site do uol utilizou isso durante a copa, já que eles utilizavam ajax para fazer atualização de tempo e placar. Uma pena que eu não peguei este codigo... ate estudei... mas não peguei...
-
Cara eu tentei criar um codigo aqui para fazer rodar... mas o meu computador esta uma droga... Testa... usar este codigo e compila-lo. Dai voce localiza na pagina "_" e vê o codigo asc de "underline". <% for x = 1 to 255 response.write x &" = "& chr(x) &"<br>" next %> falou... espero ter ajudado
-
cara há muito tempo estou a procura disso mas não encontrei ate agora. O que da para voce fazer é criar uma pagina html com todas as intruções... -----> exemplo: <html> <head> <title>Olá</title> </head> <body> <!--menu--><br> <!--noticias--> </body> </head> E dai voce criaria um arquivo em asp que gerasse todo o script...(conexao com bd e tudo mais) dai atraves de um objeto "FSO" voce leria este arquivo de texto do html, o colocaria em uma string e então daria uns "replaces" para poder trocar o conteudo pelos comentarios de html.. ...falou? .... Espero ter ajudado...
-
Usa... request.ServerVariables("HTTP_USER_AGENT") ... Dai voce pode ver se é o mozila, ff, ie... neste caso é só montar a lógica. falou...? Espero ter ajudado...
-
Saindo uma função quentinha do forno... '====== VERIFICANDO E TIRANDO OS ACENTOS DAS PALABRAS ============================================= Function TiraAcento(Palavra) CAcento = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ" SAcento = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN" Texto = "" if Palavra <> "" then For X = 1 to Len(Palavra) Letra = mid(Palavra,X,1) Pos_Acento = inStr(CAcento,Letra) if Pos_Acento > 0 then Letra = mid(SAcento,Pos_Acento,1) end if Texto = Texto & Letra next TiraAcento = Texto end if end function Function VerificaPalavra(atributo) Dim i Dim id Dim Auxiliar Dim Resultado Auxiliar = Split(Atributo, " ", - 1, vbBinaryCompare) For i = LBound(Auxiliar) To Ubound(Auxiliar) Resultado = Resultado & " " & TiraAcento(Auxiliar(i)) Next VerificaPalavra = Trim(Resultado) end function Usa esta aí... Funciona perfeitamente. falou... ... Espero ter ajudado!
-
Tenho certeza que que voce deve utilizar "OR" SELECT * FROM produto WHERE ([color=#CC0000][b]cat='x' [u]OR[/u] cat = 'y'[/b][/color]) ORDER by RND(INT(NOW*codigo)-NOW*codigo) Pois o script funcionaria da seguinte forma... Selecionar todos os campos da tabela "produto" onde categoria seja IGUAL a x OU categoria seja IGUAL a Y. falou? ... Espero ter ajudado...
-
Como assim? Veja se eu entendi: Se eu quiser um botão com a largura de 150px o paddig seria: direito: 3, top: 3;bottom:3, e left:10 dai eu teria de dar a largura do botao 137px? e a altura de, supomos que eu queira um botao de 25 px de altura, dai eu deveria dar a altura de 19px... seria isso? ... Desde já agradeço a atenção!
-
Veja um codigo de ajax que eu adaptei: //Tenta criar o objeto xmlHTTP try{ xmlhttp = new XMLHttpRequest(); }catch(ee){ try{ xmlhttp = new ActiveXObject("Msxml2.XMLHTTP"); }catch(e){ try{ xmlhttp = new ActiveXObject("Microsoft.XMLHTTP"); }catch(E){ xmlhttp = false; } } } function ajaxRun(url,id,msg){ { //Abre a conexão xmlhttp.open("GET",url ,true); //Função para tratamento do retorno xmlhttp.onreadystatechange=function() { if (xmlhttp.readyState==4){ //Mostra o HTML recebido document.getElementById(id).innerHTML=xmlhttp.responseText; //Roda o próximo }else{ document.getElementById(id).innerHTML = msg; } } //Executa xmlhttp.send(null) } } ---- Descrição: ajaxRun(url,id,msg) url = pagina que será executada para rodar o ajax; id = o "div id" que apresentará uma resposta para o usuario. msg = mensagem para o usuario durante o processamento da pagina ---------> Exemplo: <a href="#" onclick="ajaxRun('pagina.asp?escreve=Nome','mostra','...Aguarde...');">Clique aqui</a> <div id="mostra"></div> ---> pagina: pagina.asp resposne.write request.querystring("escreve") -----------> Faça o teste Bem, espero ter ajudado.
-
(Não sei se esta pessoa vai ver a resposta) mas faça isso. coloque na tag "body" <body onload="window.focus();"> ...Flww, Espero que ajude...
-
Galera... estou criando uns botoes que rodam perfeitamente no IE (São aqueles semelhantes ao do site do UOL, cujo muda de cor quando o mouse esta sobre) Estou usanto "UL". mas quando eu dou o padding para "a" e para o "a:hover", ele fica todo distorcido. alguém poderia me dar uma luz, de como funciona a droga do "padding" no Mozila?
-
Dá para fazer isso em asp ou em javascript, tanto faz... Voce pode fazer assim: <% nome = request.form("nome") 'Requerendo o campo de nome para envio if nome = "" then respnose.write "É necessário digitar o campo de nome<br><a href=""java script:history.go(-1);"">Clique aqui para voltar</a>" response.end 'Neste linha significa que o codigo so sera rodado ate aqui end if %> Dai voce faz isso com todos os campos. Se voce quiser definir quantos caracteres minimos a pessoa deve digitar para poder seguir a mensagem vce pode usar assim: variavel = "meu" len(variavel) < "3" ' Esta funcao len retorna quantos caracteres tem dentro de uma string, dai se voce quiser permitir mensagens apenas com mais de 3 ou 100 caracteres voce podera fazer isso. Espero que tenha ajudado. ----------------> Em javascript seria assim <script> function barra(){ if(document.meuformulario.campo.value ==''){ alert('Você deve digitar o campo campo!'); return false; } } </script> <form name="meuformulario" actio="?" method="post" onsubmit="return barra();"> <input type="text" name="campo"> <input type="submit" value="submeter"> </form> Espero mesmo que ajude....!
-
Site Fica Lento Quando Mais Pessoas Acessam!
pergunta respondeu ao victormartins de marcos_804 em ASP
Bem, eu entendi por que ele usou este "9999". Há algum tempo atras, quando eu estava começando a aprender asp eu peguei um codigo aqui no scriptbrasil que era este mesmo. mas se quiser exibir todos os registros do banco de dados faca assim: mude "9999" para "rs.RecordCount" -
alguém me ajude. É algo urgente. Preciso de uma função como esta. tenho uma noção de como fazer, mas as que eu tentei deram "pau". Desde já agradeco a atenção de todos.
-
Galera peguei um codigo de boleto para poder estudar um pouco. Estava eu la estudano quando me deparei com funcoes assim... [b]x18 = cint(left( x126, 2)) : x126 = right(x126, len(x126) - 2) : x125 = x2(x18)[/b] alguém poderia me dizer o que significa o ":" (dois pontos) nesta funcao. Ou melhor... alguém poderia me explicar esta funcao... ... Desde já agradeco
-
Galera algum tempo eu estava precisando de um codigo que escrevesse o valor de real por extenso... vim aqui no forum e consegui... mas agora estou precisando de outra coisa. Preciso de uma função que escreva a porcetangem, pois eu tentei adaptar a do valor em real mas não deu certo... .... Desde já agradeco a todos....
-
Cara não tenho nenhum codigo mas vou te falar como eu faria... ordenarPor = request("ordenarPor") filtro1 = request("filtro1") filtro2 = request("filtro2") filtro3 = request("filtro3") filtro4 = request("filtro4") rs.Open "SELECT * FROM TB_Tabela Campo1="& filtro1 & "Campo2="& filtro2 &"Campo3="& filtro3 &"Campo4="& filtro4 &"Campo5="& filtro5 &"Campo5="& filtro5 &" ORDER BY "& ordenarPor &" ASC "
-
Galera estou precisando de um chat para rodar na minha intranet. Mas todos estes codigos que eu peguei na iternet não funcionam muito bem... pois guardam conversas já passadas. --> Por causa disso estou tentando fazer um proprio. alguém poderia me ajudar a resolver algumas duvidas? ---> Definir que quando o browser se fechar aquela sessao criada seja perdida. ---> uma sessao de HORA seja iniciada para que a pessoa so possa ver as conversas depois da sua entrada no chat. ---> Tem como fazer um "dateDiff" na hora fazer com que a pessoa so tenha acesso as conversas depois da entrada... ------------> Se alguém souber me responder desde já agradeço...!
-
Cara não tenho noção nenhuma do que você deve fazer mesmo por que você não expos a pagina ai para nós... mas uma coisa que voce poderia fazer é uma conexão assim... Set rs = Server.CreateObject("ADODB.RecordSet") ' Criando o Objeto DSNConexao = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("SeuBanco.mdb") ' Fazendo a conexão rs.Open "SELECT * FROM tabela_sua", DSNXConexao, 3 , 3 rs.AddNew 'Falando que inserirá um novo registro na tabela aberta acima rs("Campo1") = request.form("login") rs("Campo2") = request.form("senha") rs.Update ' Agualizando com o novo registro rs.Close 'Fecha o bojeto Bem espero que ajude... Até depois...
-
Vai ai algum codigo para você fazer isso <%Set Jpeg = Server.CreateObject("Persits.Jpeg") Jpeg.Open Server.MapPath("clock.jpg") Jpeg.Width = Jpeg.OriginalWidth * .8 Jpeg.Height = Jpeg.OriginalHeight * .8 If Request("Grayscale") = "1" Then Jpeg.Grayscale 1 End If If Request("Sharpen") = "1" Then Jpeg.Sharpen 1, 250 End If If Request("Horflip") = "1" Then Jpeg.FlipH End If If Request("Verflip") = "1" Then Jpeg.FlipV End If Jpeg.Quality = Request("Quality") Jpeg.Interpolation = Request("Interpolation") If Request("Crop") = 1 Then Jpeg.Crop 30, 30, 470, 320 End If Jpeg.SendBinary %> C#: <%@ Import Namespace="System.Web" %> <%@ Import Namespace="System.Reflection" %> <%@ Import Namespace="ASPJPEGLib" %> <%@ Page aspCompat="True" Language="C#" Debug="true" %> <script runat="server" LANGUAGE="C#"> void Page_Load(Object Source, EventArgs E) { ASPJPEGLib.IASPJpeg objJpeg; objJpeg = new ASPJPEGLib.ASPJpeg(); objJpeg.Open( Server.MapPath("clock.jpg") ); objJpeg.Width = (int)(objJpeg.OriginalWidth * 0.8); objJpeg.Height = (int)(objJpeg.OriginalHeight * 0.8); if( Request["Grayscale"] == "1" ) objJpeg.Grayscale( 1 ); if( Request["Sharpen"] == "1" ) objJpeg.Sharpen( 1, 250 ); if( Request["Horflip"] == "1" ) objJpeg.FlipH(); if( Request["Verflip"] == "1" ) objJpeg.FlipV(); objJpeg.Quality = int.Parse(Request["Quality"]); objJpeg.Interpolation = int.Parse(Request["Interpolation"]); if( Request["Crop"] == "1" ) objJpeg.Crop( 30, 30, 470, 320 ); objJpeg.SendBinary(Missing.Value); } </script> Espero que sirva... até mais..
-
Bem galera estou criando um sistema para uma escola. O código abaixo é um pedaço de uma parte que estou usando. Será que alguém poderia me ajudar a usar somente um objeto, pois desta forma eu ganharia performance na busca... Por favor alguém me ajuda a usar somente um objeto o "rs". Desde já eu agradeço --> Segue o código abaixo... rs.Open "SELECT * FROM TB_Alunos WHERE Cod_Status=3 ORDER BY Aluno ASC", DSN, 3, 3 for xAlunos = 1 to rs.RecordCount if rs.EOF then exit for '==== PREPARANDO UM OBJETO PARA CHAMAR A CONEXÃO PARA MOSTRAR OS ALUNOS ENSALADOS = [color=#CC0000][b]Set rsEnsala = Server.CreateObject("ADODB.RecordSet")[/b][/color] ' UM SEGUNDO OBJETO rsEnsala.Open "SELECT * FROM TB_Ensalamento WHERE Cod_Turma="& request.QueryString("turmaID") &" AND Cod_Aluno="& rs("Cod_Aluno"), DSNbancos, 3, 3 '=== SE EXISTIR UM ALUNO NESTA TURMA ENTÃO FAZ O ENSALAMENTO for x = 1 to 1 if rsEnsala.EOF then exit for ensalamento = ensalamento & "<tr>" & vbcrlf &_ "<td width=""552"">"& i + 1 & ". "& rs("Aluno") &"</td>" &_ "<td>"& rs("Nascimento") &"</td>"& vbcrlf &_ "</tr>"& vbcrlf rsEnsala.MoveNext i = i + 1 Next rsEnsala.Close '==== FIM PREPARANDO UM OBJETO PARA CHAMAR A CONEXÃO PARA MOSTRAR OS ALUNOS ENSALADOS = rs.MoveNext Next rs.Close Desde já agradeço a ateção...!
-
Tudo bem... mas como eu poderia usar um "FOR" para este unico campo...? Desde já agradeço a atenção!
-
Bem galera fiz uma função para checar uma caixa de checkbox. Mas Eu sempre tenho mais de um campo de chekbox por vez com o mesmo nome... Exemplo: <input type="checkbox" value="1" name="Cod_Mod"> Modulo 1 <input type="checkbox" value="2" name="Cod_Mod"> Modulo 2 <input type="checkbox" value="3" name="Cod_Mod"> Modulo 3 <input type="checkbox" value="4" name="Cod_Mod"> Modulo 4 <input type="checkbox" value="5" name="Cod_Mod"> Modulo 5 Bem, quando eu tenho somente um campo de check box o codigo funciona... mas quando tem mais de um campo com o mesmo nome o codigo deixa passar... como eu poderia fazer para fazer a verificação de todos os campos.... ... Veja o codigo que eu fiz.... //Verificação se tem algum MÓDULO SELECIONADO PARA ESTA TURMA if(document.frm_turma.Cod_Modulo.checked==0){ alert('É obrigatório selecionar no mínimo UM MÓDULO PARA ESTA TURMA!'); document.frm_turma.Cod_Modulo.focus(); return false; } Espero que me ajudem... ...Desde já agradeço pela atenção!
-
PELO AMOR DE DEUS ME AJUDEM... NÃO SEI QUASE NADA EM DELPHI MAS SEI QUE É POSSÍVEL FAZER ISSO. --> DESDE JÁ AGRADEÇO.
-
POR GENTILEZA.... vamos aí pessoal! Ajudem... Desde já agradeço a todos...
-
Pessoal estou desenvolvendo um sistema que deve gerar um relatório de também gera boletos. -> boleto: as vezes eu preciso que o sistema imprima 24 boletos de vez, mas como eu não consegui colocar estes boletos todos dentro de uma unica pagica da web eu preciso que o sistema abra o numero de janelas equivalentes ao numero de boletos que foram gerados. Ex.: se o cliente quer imprimir 24 boletos então abrir-se-ão 24 janelas. -->desta forma perco performance no meu sistema. --->Gostaria de saber se tem como eu fazer uma aplicação em delphi que possa integrar com a web e dai eu imprimo todas os boletos, que seriam abertos em páginas, de uma vez só capturando através desta aplicação a url da pagina e enviando para a impressora configurada. Há a possibilidade de fazer isso? Se tem como eu poderia fazer? ----> desde já eu agradeço a atenção de todos!