marcos_804
-
Total de itens
379 -
Registro em
-
Última visita
Posts postados por marcos_804
-
-
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....!
-
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 bojetoBem 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.CloseDesde 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!
Bloquear F5
em Ajax, JavaScript, XML, DOM
Postado
É 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...