Ir para conteúdo
Fórum Script Brasil

jissa

Veteranos
  • Total de itens

    2.999
  • Registro em

  • Última visita

Tudo que jissa postou

  1. Tadinha.. já tá doida.. isto que da mecher com programas... Heheheheh mas é assim mesmo.... 99% das vzs sabemos as respostas... apenas temos preguiça de pensar.. né não?
  2. Duas Formas que vi por ai... a segunda é muito mais facil... Testa ká (1) Cotação do Dolar em Tempo Real com ASPHTTP [8/1/2003] Este Script pega a cotação em tempo real direto da Gazeta Mercantil. <% Set HttpObj = Server.CreateObject("AspHTTP.Conn") HttpObj.URL = "http://www.investshop.com.br/mer/include/Dolar.csv" cotacao = HttpObj.GetUrl cotacoes = replace(cotacao,"Nome;Compra;Venda;Variacao","") ' Tira a primeira parte que é lixo ' Coloca Valores em uma Array dim valores() dim cont, cont_valores for cont = 1 to len(cotacoes) step 1 if (mid(cotacoes,cont,1) = ";") or (mid(cotacoes,cont,1) = " ") or (mid(cotacoes,cont,1) = Chr(10))then cont_valores = cont_valores + 1 Redim Preserve valores(cont_valores) valores(cont_valores) = Cstr(str) str = "" else str = str + mid(cotacoes,cont,1) end if next ' Fim Coloca valores em uma Array ' Coloca os valores nas variaveis DOLAR_COMERCIAL_COMPRA = valores(3) DOLAR_COMERCIAL_VENDA = valores(4) DOLAR_COMERCIAL_VARIACAO = valores(5) DOLAR_PARALELO_COMPRA = valores(7) DOLAR_PARALELO_VENDA = valores(8) DOLAR_PARALELO_VARIACAO = valores(9) DOLAR_TURISMO_COMPRA = valores(11) DOLAR_TURISMO_VENDA = valores(12) DOLAR_TURISMO_VARIACAO = valores(13) PTAX_COMPRA = valores(15) PTAX_VENDA = valores(16) PTAX_VARIACAO = valores(17) ' Fim coloca os valores nas variaveis %> (2) MAIS FACIL tem a parte de noticias se não quiser tira <tr> <td bgcolor="#FFFFFF" bordercolor="#000066" width="248"> <div align="center"><a href="http://www.estadao.com.br/economia" target="index"><img src="http://www.estadao.com.br/economia/ticker/taxasPt0.gif" border="0" width="200" height="70"></a></div> </td> <td bgcolor="#FFFFFF" bordercolor="#000066" width="231"> <div align="center"><a href="http://www.estadao.com.br/agestado/" target="_blank"><img src="http://www.estadao.com.br/redacao1/MarqueeD.gif" width="235" height="23" border="0"></a></div> </td> </tr>
  3. Cara o Anao Script postou isto outro dia.. eu testei e funciona legal.. da uma olhada e faça a adaptacao conforme sua necessidade.. espero que seja isto <html> <head> <title>Java + Java</title> </head> <body bgcolor="#FFFFFF" link="#000000" vlink="#000000" alink="#000000" <!--content start--> <table border="0" cellpadding="5" cellspacing="5" width="96%"> <tr> <td width="100%"><p align="center"> <font color="000000" face="verdana, Times New Roman, Times, serif" size="2pt">Esse Script é um pequeno Sistema de Busca q você pode<br> colocar em Seu Web Site. Para adicionar os links você precisa<br> mexer no código fonte. Mas é muito legal... Para Testar,<br> digite <strong>java</strong> no Campo de Formulário abaixo<br> </font><script language="JavaScript"><!-- // Hide Script from Old Browsers /* Optimized by Daniel Bergman [http://botw.cjb.net]. Java Search Engine ©1997 Adam ALLEN. Version 2.0 You may use this search engine on your page, but keep this notice intact, and at the bottom of leave the Copyright notice at the bottom of this page. This scripts is my property, so please honnour my requests, If you do so, you may freely copy, distribute, give this scripts But it will FOREVER REMAIN MY PROPERTY. This is the first Java Script that I have wrote, and am proud of it, I feel pleased that I can contribute back to the bank of JavaScripts that I have used on my page from other people, AN EYE FOR AN EYE! */ Keyword = new Object(); Descrip = new Object(); Address = new Object(); // Keyword[0] = n (where n is the number of keywords which can be searched Keyword[0] = 6 // Each entry is split into // Keyword[n] = text (where text is the keyword of which the entry is to // be searched by (type Keywords in lowercase) // Descrip[n] = text (where text is the description associated to this entry // Address[n] = text (where text is the URL associated to the entry // n is the entry number. Keyword[1] = "java" Descrip[1] = "Java + Java - Scripts e Applets em Java, Apostilas, totalmente grátis!" Address[1] = "http://www.javamaisjava.hpg.com.br" Keyword[2] = "java" Descrip[2] = "Java + Java - Apostilas sobre Java Scripts e Applets e muito mais!" Address[2] = "http://www.javamaisjava.hpg.com.br" Keyword[3] = "free" Descrip[3] = "Your site can go here!" Address[3] = "ttp://www.yoursite.com" Keyword[4] = "free" Descrip[4] = "Your site can go here!" Address[4] = "http://www.yoursite.com" function checkDatabase() { var Found = false var Item = document.forms[0].searchfor.value.toLowerCase(); stats='toolbar=no,location=no,directories=no,status=no,menubar=no,height=300,width=300,' stats += 'scrollbars=yes,resizable=yes' MsgBox = window.open ("","msgWindow",stats) MsgBox.opener = window; MsgBox.opener.name = "opener"; MsgBox.document.write("<head><title>Resultado da Busca</title></head>"); MsgBox.document.write ("<body bgcolor=white text=black link=blue vlink=darkblue alink=blue><H2><CENTER><font face=arial>Resultado da Busca</CENTER></H2>") MsgBox.document.write ("<font size=3><b><center>Busca por : "+Item+"</center><hr width=50%></b></font>"); for (var i=1; i <= Keyword[0]; i++) { if(Item == Keyword) { Found = true; MsgBox.document.write ("<li><font color=arial><font size=2><b>"+Descrip+"<BR><A HREF="+Address+" target='opener'>Click Aqui para Acessar</A></font></font>") } } if(!Found) MsgBox.document.write ("<H4>Nenhuma Ocorrência</H4>") // Leave the line below intact if you want to legally use this script MsgBox.document.write ("<FORM><CENTER>") MsgBox.document.write ("<font size=2><font color=arial><INPUT type='button' value='Fechar' onClick = 'self.close()'></font>") MsgBox.document.write ("</CENTER></FORM>") MsgBox.document.write ("<H6><small><small><small><b></b><font color=white><font face=arial><font size=1><font color=black>Java + Java Sistema de Busca <br>© 2001 All Rights Reserved</font></font></small></small></small>") // There must be my notice above if you are to use this script legally. // It took many hours work, fairs is fair, I just want that little line in // and you get a fully working Search ENGINE, for FREE, on your site // In Java Scripts as well, and not crap JAVA! // Also a copyright notice MUST appear with the form. } // --></script></p> <form name="form1"> <p align="center"><font color="000000" face="verdana, Times New Roman, Times, serif" size="2pt"><b>Procurar por:</b><br> <input type="text" size="20" name="searchfor"><b><input type="button" value="Procurar" align="absmiddle" onclick="checkDatabase()"></b><br> <br> </font> <font color="000000" face="verdana, Times New Roman, Times, serif" size="2pt">Para Testar, procure por java</font></p> </form> </td> </tr> </table> <!--content stop--> <form> <p align="center"><font color="#000000"><input type="button" name="button" value="Código Fonte" onclick="window.location = &quot;view-source:&quot; + window.location.href"> </font></p> </form> <p align="center"> <font color="000000" face="verdana, Times New Roman, Times, serif" size="2pt"><b>Java + Java</b></font></p> </body> </html>
  4. aqui mesmo no SB.. tem nos Scripts... va á e procura um que ache legal...
  5. Cara desisti da Ideia.. Fiz diferente.. da forma que estava querendo ia ficar iguar.. se o cliente tiver por ex. 300 cadastros com a letra A, ia continuar com o mesmo problema... ai fiz assim: Faço a lista normal com a paginacao (que to querendo uma melhor... ) ai coloquei um input no rodape da Pagina para que o Cliente Filtre o que quiser.. então se ele quiser so os Clientes que seja Industria ele digita no campo, posta e so aparece os Industria... Ficou legal..
  6. não entendi .. poderia explicar melhor
  7. Funciona Sim.. muitas vezer não´para de funcionar, por que você pode ter alterado alguma lnha.... Pega um que voce considere o melhor.. . tente rodar ele conforme as especificacoes de quem fez... se der algum erro Posta o Erro que te Ajudamos...
  8. Meus Comentarios. : UaHahahHehehahahhahauahhhaha
  9. Tenta isto aqui... pega do Estadao.. só que não é só o Dolar.. aparecem taxas das bolsas.... e tem a parte de noticias se interessar. <tr> <td bgcolor="#FFFFFF" bordercolor="#000066" width="248"> <div align="center"><a href="http://www.estadao.com.br/economia" target="index"><img src="http://www.estadao.com.br/economia/ticker/taxasPt0.gif" border="0" width="200" height="70"></a></div> </td> <td bgcolor="#FFFFFF" bordercolor="#000066" width="231"> <div align="center"><a href="http://www.estadao.com.br/agestado/" target="_blank"><img src="http://www.estadao.com.br/redacao1/MarqueeD.gif" width="235" height="23" border="0"></a></div> </td> </tr> Testa lá....
  10. é que gosto do Forum JavaScript.. o pessoal é mais leal.. :) mesmo se fosse em Fortran / Pascal eu postaria aqui.. heheheh
  11. jissa

    Duvidas ?!?!?

    Cara .. ta dificil... da erro de vez em guando.. fica quase que impossivel saver.. umas coisas que voce ainda pode verificar.. se sua pagina não faz referencia a outra e/ou se não pega algum plugin de outra.. se voce tem certeza que não é no seu provedor.. pode ser em outro.. ou então ver linha por linha da pagina, por falar em Pagina é em uma só ou varia que apresenta o erro Tem que ir por eliminatoria, até descobrir.. quando souber ai sim voce pode tratar o erro.
  12. Cara isto facilita a Vida Pacas.... acho que to postando em local errado... mas sei lá o Moderador Muda... :) <% '-------------------------------------------------------------------- ' criaConsultaSQL ' Criado por Rafael Martins de Ascenção ' Email: iamaz@ig.com.br - ICQ: 118036283 ' -------------------------------------------- ' strOri = palavra procurada ' campos = campos da tabela a serem selecionados pela consulta ' tabela = tabela onde será feita a consulta ' condicoes = filtro para o registros selecionados ' tipoBusca = E, OU, EXATA ' camposPesquisa = campos onde será feita a busca ' ordem = campos a classificar os registros '-------------------------------------------------------------------- function criaConsultaSQL(strOri,campos,tabela,condicoes,tipoBusca,camposPesquisa,ordem) dim str,sql,cmpPsq str = preparaPalavra(strOri) sql = "SELECT " & campos & " FROM " & tabela & " where " cmpPsq = split(camposPesquisa,",") if tipobusca = "EXATA" then sql = sql & " (" for i=0 to ubound(cmpPsq) if i <> 0 then sql = sql & " or " end if sql = sql & cmpPsq(i) & " like '%" & str & "%'" next sql = sql & ")" else if tipobusca = "E" then expr = " and " else expr = " or " end if strvet = split(str," ") sql = sql & " ((" for i=0 to ubound(cmpPsq) if i <> 0 then sql = sql & ") or (" end if for j=0 to ubound(strvet) if j <> 0 then sql = sql & expr end if sql = sql & cmpPsq(i) & " like '%" & strvet(j) & "%'" next next sql = sql & "))" end if if condicoes <> "" then sql = sql & " and " & condicoes end if sql = sql & " order by " & ordem criaConsultaSQL = sql end function 'E para utilizá-la: pegaReg.Open criaConsultaSQL(frase, "campo1,campo2,campo3,campo4", "tabela", "campo=1", "E", "campo1,campo2", "campo1,campo2"), conex %>
  13. jissa

    Duvidas ?!?!?

    esquisito.. pode ser problema do Servidor e não das suas paginas.. já pensou nisto?? Ou então voce tem quantidade restrita de pessoas que possa acessar seu site.. Tenta falar com o o seu Provedor..
  14. Cara achei isto na Internet.. e lemprei do tópico, ve se serve.. Cotação do Dolar em Tempo Real com ASPHTTP [8/1/2003] Este Script pega a cotação em tempo real direto da Gazeta Mercantil. <% Set HttpObj = Server.CreateObject("AspHTTP.Conn") HttpObj.URL = "http://www.investshop.com.br/mer/include/Dolar.csv" cotacao = HttpObj.GetUrl cotacoes = replace(cotacao,"Nome;Compra;Venda;Variacao","") ' Tira a primeira parte que é lixo ' Coloca Valores em uma Array dim valores() dim cont, cont_valores for cont = 1 to len(cotacoes) step 1 if (mid(cotacoes,cont,1) = ";") or (mid(cotacoes,cont,1) = " ") or (mid(cotacoes,cont,1) = Chr(10))then cont_valores = cont_valores + 1 Redim Preserve valores(cont_valores) valores(cont_valores) = Cstr(str) str = "" else str = str + mid(cotacoes,cont,1) end if next ' Fim Coloca valores em uma Array ' Coloca os valores nas variaveis DOLAR_COMERCIAL_COMPRA = valores(3) DOLAR_COMERCIAL_VENDA = valores(4) DOLAR_COMERCIAL_VARIACAO = valores(5) DOLAR_PARALELO_COMPRA = valores(7) DOLAR_PARALELO_VENDA = valores(8) DOLAR_PARALELO_VARIACAO = valores(9) DOLAR_TURISMO_COMPRA = valores(11) DOLAR_TURISMO_VENDA = valores(12) DOLAR_TURISMO_VARIACAO = valores(13) PTAX_COMPRA = valores(15) PTAX_VENDA = valores(16) PTAX_VARIACAO = valores(17) ' Fim coloca os valores nas variaveis %>
  15. Cara.. pelo que me lembro.. comecei com o TK85... passei pelo Basic da Labo (super mini, acho que nem existe mais), C (Turbo C. da Borland, para você ter uma ideia já esta no museu da Borland), algumas coisas com para o Dbase 2 / 3 /Clipper / alguma coisa em DataFlex muito tempo com C 4.5 Borland Tb.. até ai tudo em DOS, Windows só Delphi.. há e uma vz com o Clarion uns acertos de um Sistema.... e agora to tentanto aprender e desenvolver na e para Internet... com JavaScript e ASP, e assim que terminar o servico que estou fazendo tentarei aprender JAVA para desenvolver em DeskTop que é o meu forte mesmo... na Internet Cai de paraquedas, um Cliente pediu um Sistema, e como não sou de desistir, peguei para fazer comprei uns tres livros, e muito tutorial na .net.. participo de do Forum , assim as coisas que não sei aprendo e as que sei aprimoro com algumas dificuldades dos outros .... agora tempo... faz muito tempo: tem gente aqui que manja muiito mais que eu que quando já utilizava meu PC/XT 8086 nem imaginavam de vir ao mundo... CARA TO VELHO pacas.... e vou ficar mais velho no dia 14;; :(
  16. é ainda funciona para usuarios finais... quase que todos os Programadores ou os Montadores de Programas.. já sabem disto... mas como Falou o BaixinhoScript... ops.. AnaoScript.. tudo a mesma coisa.. é para aprender.. e aproposito.. já que é para aprender... é MOUSE não MAUSE... não se escreve como se le...
  17. alguém tem algum JavaScript em ASP em QqrCoisa.Script que faça paginaçao alfabetica.. tipo.. tenho um cadastro de Clientes Fornecedores, etc.. e queria mostrar para o cliente na listagem as letras de A a Z e ele filtraria a letra clicada mostrando os nomes iniciados por esta letra.... Please.. URGENTE mesmo.... tenho que entregar um trabalho e já to atrazado .. tudo bem que o prometido é dia 10.. mas tem um monte de coisas aqui ainda para fazer.... Se alguém puder ajudar agradeço... se não fazer o que a não ser ter que fazer.. né?
  18. cara isto não adianta.. se alguém manter o botao direito precionado e apertar a barrade espaço o menu é liberado..
  19. Cara balao como estes já tomei muitos.. o que faço agora com Sistemas que estao em Desenvolvimento é testar as paginas no meu Host, apos 100% pronta eu passo os arquivos para o contratante.. eu só trabalho com programacao se o cliente quiser testar os programas ela faz um link para a minha pagina ou acessa direto.. isto esta em contrato.. as formas de pagamento utilizo 40% na Entrada e 60% na Entrega.. se for parcelado so transfiro os fontes apos o pagamento dinal ser compensado.. Com programas compilados e linkeditaos é diferente.. sempre podemos colocar uma proteçao ate o pagamento final. mas na Web.. a unica forma que encontrei foi esta... Mas faz parte... desanima um pouco, mas levanta a cabeça e vai em frente.. Um dia ele ainda liga para voce..pode apostar.. voce ainda recebe.. não se preoculpe. Boa Sorte nas Proximas...
  20. Para voce descompactar no Server voce tem que ter acesso ao Server.. Mas o melhor local para suporte seria no proprio provedor.. eles tem que te dar o caminho para fazer isto. com FTP não consegue?? tenta com um prgrama tipo WSFTP.. é antiguinho.. mas funciona que é uma maravilha...
  21. jissa

    Novo Problema De Eliane :-d

    vou ver com calma o codigo.. ams acho que ele esta entendendo que a aspa simples esta fechando a primeira, por isto o erro...
  22. jissa

    Criptografar Asp

    Recebeu o cript?? voce não tem ele com .zip?? se tiver manda novamente
×
×
  • Criar Novo...