alessancost's Content

#830156 Div Oculto Iqual A Da Busca Do Topo

Posted by alessancost on 03/03/2007, 10:49 in Javascript / DOM / AJAX / ECMAScript

Bom dia pessoal, estou passando um perrenque aqui... tenho que desenvolver um div oculto que quando clicado em um link o div aparece, até ai tudo bem mas tenho que faze-lo ficar oculto novamente quando clicar com o botão do mouse em qualquer parte do site, menos no campo do div... resulmindo, o mesmo recurso daqui do forum onde qundo você clica no link busca do topo de forum aparece um div oculto com o form para a busca se você apertar dentro desse div nada acontesse mas se apertar fora em qualquer parte do forum o div fica oculto... como faço isso? Estou desesperado pois já estou dois dias pesquisando e tentando mas está fff...

Obrigado

Esse resultado foi o mais perto que chequei

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<script>function wdi(id){document.getElementById(id).style.display='block';}function hdi(id){document.getElementById(id).style.display='none';}</script>
<body onDblClick="java script:hdi('mka')">
<a onclick="java script:wdi('mka')">link</a>
<div id="mka"style="display:none;position:absolute;z-index:100"><form style="margin:0;padding:4px;border:1px solid #003399;background:#f0f5fa"><div style="padding:0 0 4px 0">Ir para a página</div><input type="hidden"name="id_categoria"><input type="text"name="pgn"id="ft10"style="width:38px"title="Digite o número da página que você pretende ir"> <input type="submit"id="ft14"value="Ir"></form></div>
</body>
</html>

Mas para funcionar tenho que fazer um onDblClick mas quero fazer com um onclick

#797437 Site Jurídico

Posted by alessancost on 08/11/2006, 09:28 in Avaliação de Sites

Fico feliz Makerup, eu demorei um pouco para combinar as cores...

Andreia Regina, em azul esta o menu horizontal e no sinza é a seção do site, ou seja, aonde vc esta localizado no site, por isso que as vezes pode repetir os nomes

#794080 Site Jurídico

Posted by alessancost on 27/10/2006, 21:23 in Avaliação de Sites

Obrigado pela sugestão e pelos elogios Frenesi (y)

Interessante sua idéia em relação as abas... Eu fiz +ou- isso. Quando o usuário visita uma seção o nome do mesmo aparece na abas (cinza). Eu fiz dessa maneira pois trabalho muito com incluides e até o menu horizontal e um, portanto tive que achar uma maneira simples de identificar as seções sem aumentar muito o código. Obrigado novamente pela sugestão.

Desculpe, eu não quis dizer portifólio mas sim layout, falha minha

#793944 Site Jurídico

Posted by alessancost on 27/10/2006, 15:41 in Avaliação de Sites

Boa tarde gente, eu estou fazendo algumas melhorias na programação e no portfolio do meu site jurídico. Gostaria de saber suas opiniões em relação ao portfolio, principalmente sobre os pontos fracos.

Obrigado

Jus eundi - Direito de ir e vir

#754665 Desenvolver Código Para Página Asp

Posted by alessancost on 28/06/2006, 09:48 in ASP

Bom dia, eu estou desenvolvendo um portal jurídico sem fins lucrativos, no mesmo, existe uma seção Downloads que foi desenvolvido por mim, utilizando a linguagem .asp. O sistema esta praticamente pronto, entretanto, gostaria que você desenvolvesse um código que quando o usuário fosse realizar uns determinados downloads o código copiaria o conteúdo (texto) de páginas web e o transcrevesse para PDF.

Pagamento a combinar...

#749753 Salvar Automaticamente Em Pdf

Posted by alessancost on 13/06/2006, 23:28 in HTML, CSS e Metodologias

Boa noite

Klaus, você está certo, o window.print() abre a janela pedindo a confirmação do usuário. Você também disse que minha aplicação pode gerar o PDF do HTML e disponibilizar para download... que linguagem eu deveria usar para tal (Javascript ou asp)? Existe alguma matéria relacionada a esse assunto?

bimonti, realmente a opção de salvar como pdf na hora de imprir não está disponível em todos os computadores, porém o meu público alvo utiliza o windows, entretanto eu não havia pensado na possibilidade do usuário não ter impressora instalada. Obrigado pelo toque (y)

Obrigado

#749521 Salvar Automaticamente Em Pdf

Posted by alessancost on 13/06/2006, 12:14 in HTML, CSS e Metodologias

Boa tarde a todos,

Com um pouco de pesquisa descobri que posso imprimir o conteúdo de uma página htm automaticamente, apenas visualizando a página com o código abaixo:

<body onload="window.print();">

Agora, quando tentamos imprimir uma página manualmente através do botão Arquivo >> Imprimir do IE aparece uma janela onde podemos selecionar a impressora. Escolhendo a opção Adobe PDF o computador vai salvar em vês de imprimir o conteúdo da página em instenção PDF.

Gostaria de saber se existo com fazer tudo isso, ou seja, salvar o conteúdo em htm em PDF automaticamente, assim que o usuário visualiza a página.

Obrigado

#732584 Figura Que Aparece Somente Nas Noticia Lidas

Posted by alessancost on 19/04/2006, 12:56 in ASP

Primeiramente obrigado pela resposta KBR. (y)

Mas tenho uma dúvida! Fazendo do modo que você explicou a imagem mudaria para todos os usuários assim que o primeiro for ler a notícia, certo?! Eu quero que mude a figura somente para o usuário que leu a noticia.

#732069 Figura Que Aparece Somente Nas Noticia Lidas

Posted by alessancost on 18/04/2006, 09:09 in ASP

Bom dia

Alguém sabe como faço para aparecer uma figura quando a noticia já foi lida pelo usuário?

Obrigado

#731274 Validação De Campos

Posted by alessancost on 15/04/2006, 16:09 in HTML, CSS e Metodologias

Boa tarde Klaus, eu consegui isolar o problema, ou seja, esta no código responsável pela validação do CPF... Cada função esta identificado mas esqueci de mencionar, por exemplo a parte que ocorre o erro esta identificado por “VALIDAR CPF” que é chamado pela seguinte função:

if (checaCPF(document.form1.cpf549.value)) {
document.form1.submit();
return true;
} else {
errors="1";
if (errors) alert('Digite corretamente o CPF!');
document.MM_returnValue = (errors == '');
return false;}

O que significa colocar por último?
Se eu pegar essa função ACIMA e colocar como última ela vai ser a última a ser processada, assim todas as outras validações vão funcionar sem problema, mas na ordem ERRADA... todos os códigos de validação que estão abaixo do CFP não funcionam... pois quando é verificado o CPF já ocorre o cadastro sem verificar o e-mail e etc...

Não quis passar uma idéia errada... esse código não foi simplesmente copiado... eu fiz muitas pesquisas para chegar nesse resultado... acontece que infelizmente não estou conseguindo resolver esse problema, fora isso, todos os recursos de validação estão funcionando deposid e muito trabalho.

Desculpe-me novamente (y)

#731225 Validação De Campos

Posted by alessancost on 15/04/2006, 12:16 in HTML, CSS e Metodologias

Eu estou

com o Javascript de validação que fiz. Tenho varios códigos devalidação: nomecompleto, cpf, e-mail, ... e codigo de confirmação.

O problema que o codigo só funciona até o CFP aparti dai os outros não estão funcionando.
Mas se eu tirar o codigo do CPF e coloca-lo como o último tudo funciona.
Por tanto acredito que o código do CPF não esta permitindo que os outros códigos funcionem.
Mas não posso tirar da ordem colocando o CPF por último.
Estou ficando loucoooo :blink:

Alguém me ajude por favor

function checkForm(formName){
errors="";
d=document.forms[formName];
if(d.nome768.value==""){errors+=" O campo Nome Completo não foi preenchido\n";}
if(d.cpf549.value==""){errors+=" O campo CPF não foi preenchido\n";}
if(d.eml.value==""){errors+=" O campo E-mail não foi preenchido\n";}
if(d.login708.value==""){errors+=" O campo Usuário não foi preenchido\n";}
if(d.senha583.value==""){errors+=" O campo Senha não foi preenchido\n";}
if(d.senha583_2.value==""){errors+=" O campo Confirme sua Senha não foi preenchido\n";}
if(d.pergunta.value==""){errors+=" O campo Lembrete de Senha não foi preenchido\n";}
if(d.resposta.value==""){errors+=" O campo Resposta não foi preenchido\n";}
if(d.key_ent.value==""){errors+=" O campo Código de Confirmação não foi preenchido\n";}
if(errors!="")
{msg = "_____________________________________________________________\n\n";
msg += "Seu cadastro não pode ser concluído porque algum erro foi encontrado.\n";
msg += "Preencha o(s) campo(s) solicitado(s) e tente novamente:\n";
msg += "_____________________________________________________________\n\n";
alert(msg + errors);
return false;}
if(form1.nome768.value.indexOf(" ") < 1)
{alert("Voce precisa preencher Nome e Sobrenome!");
form1.nome768.focus();
return false;}
if (checaCPF(document.form1.cpf549.value)) {
document.form1.submit();
return true;
} else {
errors="1";
if (errors) alert('Digite corretamente o CPF!');
document.MM_returnValue = (errors == '');
return false;}
if (/^([\w\.\-])+\@(([\w\-])+\.)+([\w ]{2,4})$/.test(document.form1.eml.value) == false) {
alert("E-mail inválido!");
return false;}
if(d.senha583.value!=d.senha583_2.value)
{alert("As senhas não condizem!");
return false;}
if(d.codigo.value!=d.key_ent.value)
{alert("O código de confirmação esta errado!");
return false;}
function setErrorMsg(err) // VALIDAR CPF
{document.all.forms[0].theError.value=err;}
function checaCPF (CPF) {
if (CPF.length != 11 || CPF == "00000000000" || CPF == "11111111111" ||
CPF == "22222222222" || CPF == "33333333333" || CPF == "44444444444" ||
CPF == "55555555555" || CPF == "66666666666" || CPF == "77777777777" ||
CPF == "88888888888" || CPF == "99999999999")
return false;
soma = 0;
for (i=0; i < 9; i ++)
soma += parseInt(CPF.charAt(i)) * (10 - i);
resto = 11 - (soma % 11);
if (resto == 10 || resto == 11)
resto = 0;
if (resto != parseInt(CPF.charAt(9)))
return false;
soma = 0;
for (i = 0; i < 10; i ++)
soma += parseInt(CPF.charAt(i)) * (11 - i);
resto = 11 - (soma % 11);
if (resto == 10 || resto == 11)
resto = 0;
if (resto != parseInt(CPF.charAt(10)))
return false;
return true;}}
function teste(e) { // SOMENTE NUMEROS NO CAMPO
if(window.event) {
key = e.keyCode;}
else if(e.which) {
key = e.which;}
if (key!=8 || key < 48 || key > 57) return (((key > 47) && (key < 58)) || (key==8));
{return true;}}
function mostra_cadastro1(){ // FUNÇÃO ESCONDE/MOSTRA CADASTRO
document.getElementById('cadastro1').style.display='block';
document.getElementById('cadastro2').style.display='none';}
function mostra_cadastro2(){
document.getElementById('cadastro1').style.display='none';
document.getElementById('cadastro2').style.display='block';}

#731033 Select Para Dois Inputs

Posted by alessancost on 14/04/2006, 14:21 in HTML, CSS e Metodologias

Obrigado Boxer

Eu estou fazendo parti de um banco de dados. O nome do select é Category, do primeiro input é Links e do segundo input é Source

Kakao obrigado pela ajuda, mas aqui não funcionou o teste

#730977 Select Para Dois Inputs

Posted by alessancost on 14/04/2006, 11:55 in HTML, CSS e Metodologias

Boa páscoa e muito chocolate

Eu tenho que fazer uma coisa que não sei... novidade!!! :assobio:

Eu tenho um select e dois inputs. No select existem algumas opções que quando selecionado um faz aparecer automaticamente texto nos dois inputs.

Ex: Seleciono martelo no select, no primeiro input aparece o texto prego e no segundo input o texto madeira.
Seleciono água no select, no primeiro input aparece o texto copo e no segundo input o texto peixe.

Obrigado (y)

#730460 Código Que Retire O Excesso De Caracteres Do Lado Esquerdo Da Frase

Posted by alessancost on 12/04/2006, 17:57 in ASP

Boa tarde

Eu tenho esse código de três pontinhos que não corta a palavra no meio. Funciona perfeitamente! Mas gostaria de fazer uma mudança e não sei como fazer... O código retira o excesso de caracteres da final da frase, ou seja, do lado direito.

Ex: A vida é justa para...

Eu quero que esse código retire o excesso de caracteres do lado esquerdo da frase.

Ex: ....é justa para os justos

Obrigado pela ajuda

<%Function Resumindo(strBuf, intSize)
Dim i, strTmp
If Len(strBuf) < intSize Then
Resumindo = strBuf
Else
If Mid(strBuf, intSize, 1) = " " Then
strTmp = Left(strBuf, intSize - 1)
Else
strTmp = Left(strBuf, intSize)
For i = intSize + 1 To Len(strBuf)
If Mid(strBuf, i, 1) = " " Then Exit For
strTmp = strTmp & Mid(strBuf, i, 1)
Next
End If
Resumindo = strTmp & "..."
End If
End Function%>

Eu chequei até esse resultado, mas ta com um erro... está cortando a palavra pela metade.

Function Resumindo(strBuf, intSize)
Dim i, strTmp
If Len(strBuf) < intSize Then
Resumindo = strBuf
Else
If Mid(StrReverse(strBuf), intSize, 1) = " " Then
strTmp = Right(strBuf, intSize - 1)
Else
strTmp = Right(strBuf, intSize)
For i = intSize + 1 To Len(strBuf)
If Mid(strBuf, i, 1) = " " Then Exit For
strTmp = StrReverse(Mid(StrReverse(strBuf), i, 1))&strTmp
Next
End If
Resumindo = "..." &strTmp
End If
End Function

#726791 Substituir Textos Por Outros

Posted by alessancost on 02/04/2006, 23:32 in ASP

Obrigado replay (y)

Com sua ajuda chequei ao resultado desejado...

entrevistas = replace(replace(replace(replace(rs("entrevistas"),"<pergunta>","<div><b><font color=""#003399"">Jus eundi</font> - "),"</pergunta>","</b><br><img src=""../img/espaco.gif"" width=""1"" height=""5""></div>"),"</resposta>","</div><br>"),"<resposta>","<div><b><font color=""#b06b14"">"&rs("nome")&"</font></b> - ")

#725766 Substituir Textos Por Outros

Posted by alessancost on 31/03/2006, 01:13 in ASP

Boa noite
Gostaria de saber como faço isso: Eu digito <per>texto</per> em um textarea e salvo no banco. Bem, no banco vai aparece conforme digitado “<per>texto</per>”. Agora tenho uma página que mostra o conteúdo do bando e nessa mesma página tenho que fazer um código que reconhece os “<per> </per>” digitado anteriormente no textarea e substitui-lo na página de apresentação por <div> </div>. Como posso fazer isso?

Obrigado

#722273 Busca Palavra

Posted by alessancost on 22/03/2006, 22:13 in ASP

Olha eu aqui novamente com esse sistema de busca

Beleza pessoal!?
Bem tenho esse codigo de busca

Quando digito ¨casa da Lu¨ aparerece o sequinte resultado:

casa da Lu
casa
casamento
casado
Lu
Luciene

Eu gostria que no resultado aparecesse assim

casa da Lu
casa
Lu

Veja bem, não é palavra exata pos o resultado seria somente:

Casa da Lu

<% Rs3.MoveNext
Loop
end if

If strconsulta <> "" Then
SQL = "SELECT palavra, registro "
SQL = SQL + "FROM dicionario_latim "
IF strbusca = 1 then
SQL = SQL + "WHERE palavra LIKE '" & TiraAcento(Replace(strconsulta, "'", "''")) & "' "
end if
IF strbusca = 2 then
palavra2=split(strconsulta," ")
SQL = SQL + "WHERE palavra LIKE '%" & TiraAcento(Replace(palavra2(0), "'", "''")) & "%' "
for x = 1 to Ubound(palavra2)
pesq=palavra2(x)
SQL = SQL + "OR palavra LIKE '%" & TiraAcento(Replace(palavra2(x), "'", "''")) & "%' "
next
end if
SQL = SQL + "ORDER BY palavra;"

Rs2.open sql
intContador = Rs2.RecordCount %>

Obrigado

#720592 Busca Por Palavras Na Frase

Posted by alessancost on 19/03/2006, 09:29 in ASP

Resolvido Humberto - S.O.S. (y)

<% Rs3.MoveNext
Loop
end if

If strconsulta <> "" Then
SQL = "SELECT palavra, registro "
SQL = SQL + "FROM arquivo "
IF strbusca = 1 then
SQL = SQL + "WHERE palavra LIKE '" & TiraAcento(Replace(strconsulta, "'", "''")) & "' "
end if
IF strbusca = 2 then
palavra2=split(strconsulta," ")
SQL = SQL + "WHERE palavra LIKE '%" & TiraAcento(Replace(palavra2(0), "'", "''")) & "%' "
for x = 1 to Ubound(palavra2)
pesq=palavra2(x)
SQL = SQL + "OR palavra LIKE '%" & TiraAcento(Replace(palavra2(x), "'", "''")) & "%' "
next
end if
SQL = SQL + "ORDER BY palavra;"

Rs2.open sql
intContador = Rs2.RecordCount %>

Agora estou tetanto resolver esse problema...
Quando digito casa no campo o resultado é

casa
casamento
casarão

no caso tenho que fazer com que o resultado seja casa... se consequir posto aqui o resultado

#720467 Mistério Com Meus Formulários

Posted by alessancost on 18/03/2006, 20:03 in ASP

Obrigado replay, deve ser mesmo... vou ver o que consigo. Obrigado (y)

#720452 Busca Por Palavras Na Frase

Posted by alessancost on 18/03/2006, 19:27 in ASP

Obrigado Humberto - S.O.S. (y)

#720451 Mistério Com Meus Formulários

Posted by alessancost on 18/03/2006, 19:24 in ASP

Olá pessoal, gostaria de saber a opinião de vocês. Eu tenho vários formulários de envio de e-mails (Indique esse site, recomende essa notícia e etc.). Tudo funcionava perfeitamente, foi testado diversas vezes. Então, sem que eu possa entender, os destinatários pararam de receber os e-mails de todos os recursos. Não foi modificado nada em meus códigos e não ocorre nenhum erro... o meu sistema indica que o e-mail foi enviado com sucesso, no entanto o destinatário nunca recebe o e-mail. Alguém já passou por essa situação? Alguém tem idéia o que ta acontecendo? Qual seria a solução para esse meu problema?

Obrigado (y)

#720181 Busca Por Palavras Na Frase

Posted by alessancost on 17/03/2006, 23:21 in ASP

Generation, eu fiz assim:

consulta2 = split(strconsulta," ")
SQL = SQL + "WHERE PALAVRA LIKE '%" & TiraAcento(Replace(consulta2(1), "'", "''")) & "%' "
n=0
i=2
Do While n = 0
if NOT consulta2(i) = null or NOT consulta2(i) = "" then
SQL = SQL + "'%" & TiraAcento(Replace(consulta2(1), "'", "''")) & "%' "
i = i + 1
else
n = 1
end if
loop

E ocorre esse erro:

Microsoft VBScript runtime error '800a0009' 

Subscript out of range: 'i'

Como posso descobrir em quantas partes ele quebrou uma frase? Já que eu não sei quantas palavras o usuário poderá colocar numa pesquisa.
Obrigado e um bom final de semana (y)

#719330 Busca Por Palavras Na Frase

Posted by alessancost on 15/03/2006, 23:00 in ASP

Pessoal hoje estou muito chato mesmo :rolleyes:

Acho que este é o meu terceiro tópico hoje. Pois bem, vamos lá, Eu tenho um código de busca... por exemplo se eu digitar Alessandro no campo o resultado é:

Alessandro Costa
Alessandro Andrade
Alessandro Natto

Até ai tubo bem! Mas se eu digitar alessandro costa.... o resultado será

Alessandro Costa

Mas estou querendo que fique assim

Alessandro Costa
Alessandro Andrade
Alessandro Natto
Thiago Costa
Marta da Costa Lima

O meu código ta assim:

If strconsulta <> "" Then
SQL = "SELECT palavra, registro "
SQL = SQL + "FROM dicionario_latim "
IF strbusca = 1 then
SQL = SQL + "WHERE palavra LIKE '" & TiraAcento(Replace(strconsulta, "'", "''")) & "' "
end if
IF strbusca = 2 then
SQL = SQL + "WHERE PALAVRA LIKE '%" & TiraAcento(Replace(strconsulta, "'", "''")) & "%' "
end if
SQL = SQL + "ORDER BY palavra;"

#719036 Escrever A Página Na Paginação

Posted by alessancost on 15/03/2006, 13:09 in ASP

Obrigado maktub (y)

Vou estudar o código que você postou

----------------------------------

maktub, acho que você não entendeu o que estou querendo fazer. Eu não encontrei no seu código um campo onde o usuário escreveria a página que ele quer ir...

Eu já tenho uma paginação... o que quero fazer agora é criar um campo onde o usuário digita a página que ele que ir na paginação.

Grato (y)

Use o Botão Editar para acrescentar mais informações no Post

#719030 Escrever A Página Na Paginação

Posted by alessancost on 15/03/2006, 12:41 in ASP

Olá amigos Wm, eu fiz minha primeira paginação... muito simples... Gostaria de saber como posso fazer um campo onde o usuário digita a página que ele quer visualizar e então aperte no botão IR.

Obrigado (y)