Ir para conteúdo
Fórum Script Brasil

marcos_804

Membros
  • Total de itens

    379
  • Registro em

  • Última visita

Tudo que marcos_804 postou

  1. cara eu já tinha pensado nisso... mas quando eu uso o else na mesma linha ele da erro... ... Logo não funciona...
  2. Galera, preciso saber uma coisa. Eu já programo em asp há algum tempo, mas aqueles montes de if else e end if me tiram a paciencia. As vezes são muitos if's... Eu programo em javascript e faco uma expressao assim: var codigo = ''; (codigo=='')? alert('Campo vazio') : alert('Campo com algo escrito') é a mesma coisa que eu fizesse assim (em asp)... if codigo = "" then response.write "Campo vazio" else response.write "Campo com algo escrito" end if Preciso saber dos amigos se tem como fazer uma expressao semelhante aquela digitada em javascript mas em asp... pois este monte de if e else... as vezes deixa uma possivel funcao que eu va criar muito grande. .... Desde já agradeço...
  3. marcos_804

    Problema Com Datas!

    Eu já tentei imprimir de todas as formas. Mudei o campo de data para texto, de texto para data. Usei o between assim: "SELECT * FTOM TB_Contrato WHERE D_Contrato between #"& data1 &"# and #"& data2 & "# Mas não funcionou de forma alguma. Se eu tirar o "#", o script le como se eu quisesse fazer uma divisão. Não deu certo mesmo.
  4. Galera o "registro" que ele disse aí é onde o Windows grava tudo que acontece no pc. Programas instalados ou desistalados, dentre outras informações ---> Bem, respondendo a sua pergunta, eu não sei se tem como fazer isso não.
  5. Geralmente quando eu tenho de fazer duas conexoes eu uso dois objetos. Exemplo: Set rs1 = server.CreateObject("ADODB.RecordSet") Set rs2 = server.CreateObject("ADODB.RecordSet") Conexao1 = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("Banco") rs1.Open "SELECT * FROM Tabela1", Conexao1, 3,3 Execute tudo da conexão rs1 rs2.Open "SELECT * FROM Tabela2", Conexao1,3,3 rs2.Close rs1.Close Eu faço assim e sempre funciona. ---Obs.: Para você entender aqueles "3,3" que eu pus depois da conexão veja este link: http://www.pythonbrasil.com.br/moin.cgi/PythonComADO .... Espero ter ajudado!
  6. marcos_804

    Problema Com Datas!

    Sim.. mudei de pra texo e para data, mas nem mesmo assim o resultado é satisfatório. as datas que ele busca no banco não batem, pois eu fazia a exibição apra eu ver... ... Me ajudem... - Formato não é... pois já mudei.... texto e data ... Desde já agradeço!
  7. Bem faz assim: Crie o seu formulario de html normalmente: <form action="pagina.asp" metho="post"> <input type="radio" value="1" name="bot">Incluir<br> <input type="radio" value="2" name="bot">Excluir<br> </form> Daí na página "pagina.asp" você trata os campos do formulario. butao = request.form("bot") if butao = "1" then ' Se a string butao valer 1 então ela realiza o que estiver proposto para um, que seria incluir elseif butao = "2" ' Se a string butao valer 2 então ela realiza o que estiver proposto para dois, que seria excluir. end if Eu tratei o "request.form("bot")" de maneira de valores, como somente um valor iria ser passado como o campo do formulario dai eu faco a proposta para ele com cada valor que eu puser! ... espero ter ajudado!
  8. Pessoal tenho um problema para poder fazer consulta entre datas. Não consegui. Não teve santo que fizesse o troço dar certo. Usei até o between para tentar fazer uma busca entre datas, mas nada deu certo... então tive de desenvolver um algorítimo de próprio punho... ---> Compartilharei com quem quiser... <% '==== Chamando as strings de cod_curso e Cod_funcionario Cod_Curso = request.QueryString("Cod_Curso") 'String que busca por curso Cod_Funcionario = request.QueryString("Cod_Funcionario") 'String que busca por curso '========= VERIFICANDO SE AS DUAS DATAS SÃO MESMO DATAS VÁLIDAS =============================== If Not IsDate(request.QueryString("data1")) OR Not IsDate(request.QueryString("data2")) then response.Write "<br>&nbsp;&nbsp;&nbsp;&nbsp;Alguma das datas digitadas est&aacute; inv&aacute;lida!<br>" if Not IsDate(request.QueryString("data1")) then response.Write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style=""color:#FF0000;font-weight:bold"">A data (inicial) "& request.QueryString("data1") & " n&atilde;o &eacute; v&aacute;lida</span><br>" end if if Not IsDate(request.QueryString("data2")) then response.Write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style=""color:#FF0000;font-weight:bold"">A data (final) "& request.QueryString("data2") & " n&atilde;o &eacute; v&aacute;lida</span><br>" end if response.End end if '========= FIM DE VERIFICAR SE AS DUAS DATAS SÃO MESMO DATAS VÁLIDAS ========================== '========= VERIFICANDO SE ALGUM CAMPO DE DATA ESTÁ VAZIO ====================================== if IsEmpty(request.QueryString("data1")) OR IsEmpty(request.QueryString("data2")) then response.Write "As duas datas devem ser digitadas corretamente" response.End end if '========= FIM DE VERIFICAR SE ALGUM CAMPO DE DATA ESTÁ VAZIO ================================= '========= VERIFICANDO SE A PRIMEIRA DATA É MENOR QUE A SEGUNDA DATA ========================== if DateDiff("d",request.QueryString("data1"),request.QueryString("data2")) < 0 then response.Write "A data inicial ("& request.QueryString("data1") &") deve ser menor que a data final ("& request.QueryString("data2") &")!" response.End end if '========= FIM DE VERIFICAR SE A PRIMEIRA DATA É MENOR QUE A SEGUNDA DATA ===================== data1 = FormatDateTime(request.QueryString("data1"),2) data2 = FormatDateTime(request.QueryString("data2"),2) '==== CRIANDA UMA ARRAY DA DATA PARA PODER SEPARAR EM DIA, mês, E ANO arrdata1 = split(data1,"/") arrdata2 = split(data2,"/") '=== VERIFICAR QUAL A DIFERENÇA DE ANO ENTRE A DATA INICIAL E FINAL verificarAno = int(arrdata2(2)) - int(arrdata1(2)) if verificarAno < 0 then 'Caso diferença de anos seja menor que 0(zero) response.Write "Você deve digitar o primeiro ano maior que o segundo ano<br>" elseif int(verificarAno) = int(0) then 'Caso diferença de anos seja 0(zero) for xMes = arrdata1(1) to arrdata2(1) if int(xMes) < int(10) then xMes = "0"& int(xMes) else xMes = xMes end if if int(xMes) < int(arrdata2(1)) then '=== VERIFICANDO SE O LOOP DO DIA VAI COMEÇAR EM 1 OU DIA DO mês INICIAL if int(xMes) = int(month(data1)) and int(year(data1)) < int(year(data1)+1) then diaInicial = day(data1) else diaInicial = 1 end if for x = diaInicial to 31 if int(x) < int(10) then x = "0"& x else x = x end if '===== VERIFICANDO SE A DATA É VÁLIDA - POR EXEMPLO. NÃO HÁ 31/02/2006 if IsDate(x &"/"& xMes &"/"& arrdata1(2)) then dataBusca = dataBusca &" D_Contrato='"& x &"/"& xMes &"/"& arrdata1(2) &"' OR D_Contrato='"& int(x) &"/"& int(xMes) &"/"& arrdata1(2) &"' OR" else dataBusca = dataBusca end if next else '=== VERIFICANDO SE O LOOP DO DIA VAI COMEÇAR EM 1 OU DIA DO mês INICIAL if int(xMes) = int(month(data1)) and int(year(data1)) < int(year(data1)+1) then diaInicial = day(data1) else diaInicial = 1 end if for x = diaInicial to int(arrdata2(0)) if int(x) < int(10) then x = "0"& x else x = x end if '===== VERIFICANDO SE A DATA É VÁLIDA - POR EXEMPLO. NÃO HÁ 31/02/2006 if IsDate(x &"/"& xMes &"/"& arrdata1(2)) then dataBusca = dataBusca &" D_Contrato='"& x &"/"& xMes &"/"& arrdata1(2) &"' OR D_Contrato='"& int(x) &"/"& int(xMes) &"/"& arrdata1(2) &"' OR" else dataBusca = dataBusca end if 'dataBusca = dataBusca &" D_Contrato="& x &"/"& xMes &"/"& arrdata1(2) &" OR<br>" next end if next else for xAno = arrdata1(2) to arrdata2(2) if int(xAno) < int(arrdata2(2)) then for xMes = int(arrdata1(1)) to 12 '=== VERIFICANDO SE O LOOP DO DIA VAI COMEÇAR EM 1 OU DIA DO mês INICIAL if int(xMes) = int(month(data1)) and int(year(data1)) < int(year(data1)+1) then diaInicial = day(data1) else diaInicial = 1 end if for x = diaInicial to 31 if int(x) < int(10) then x = "0"& int(x) else x = x end if if int(xMes) < int(10) then xMes = "0"& int(xMes) else xMes = xMes end if '===== VERIFICANDO SE A DATA É VÁLIDA - POR EXEMPLO. NÃO HÁ 31/02/2006 if IsDate(x &"/"& xMes &"/"& xAno) then dataBusca = dataBusca &" D_Contrato='"& x &"/"& xMes &"/"& xAno &"' OR D_Contrato='"& int(x) &"/"& int(xMes) &"/"& arrdata1(2) &"' OR" else dataBusca = dataBusca end if 'dataBusca = dataBusca & x &"/"& xMes &"/" & xAno &" OR<br>" next next 'end if elseif int(xAno) >= int(arrdata2(2)) then for xMes = 1 to int(arrdata2(1)) '=== VERIFICANDO SE O LOOP DO DIA VAI COMEÇAR EM 1 OU DIA DO mês INICIAL if int(xMes) = int(month(data1)) and int(year(data1)) < int(year(data1)+1) then diaInicial = day(data1) else diaInicial = 1 end if for x = diaInicial to 31 if int(x) < int(10) then x = "0"& int(x) else x = x end if if int(xMes) < int(10) then xMes = "0"& int(xMes) else xMes = xMes end if '===== VERIFICANDO SE A DATA É VÁLIDA - POR EXEMPLO. NÃO HÁ 31/02/2006 if IsDate(x &"/"& xMes &"/"& xAno) then dataBusca = dataBusca &" D_Contrato='"& x &"/"& xMes &"/"& xAno &"' OR D_Contrato='"& int(x) &"/"& int(xMes) &"/"& arrdata1(2) &"' OR" else dataBusca = dataBusca end if 'dataBusca = dataBusca & x &"/"& xMes &"/" & xAno &" OR<br>" next next end if next end if dataBusca = replace(dataBusca,"'","#") 'REPLACANDO (') POR (#) PARA PODER FAZER A BUSCA POR DATAS, pois o banco geral está usando data '====== FAZENDO A VERIFICAÇÃO SE A BUSCA SERÁ POR UM CURSO ESPECÍFICO OU NÃO if int(Cod_Curso) = "" OR int(Cod_Curso) = 0 then dataBusca = dataBusca else dataBusca = replace(dataBusca,"OR"," AND Cod_Curso="& Cod_Curso &" OR") end if 'Fim da verificação se a busca será feita pelo curso especifico '====== FAZENDO A VERIFICAÇÃO SE A BUSCA SERÁ POR UM FUNCIONARIO ESPERICIFO OU NÃO if int(Cod_Funcionario) = "" OR int(Cod_Funcionario) = 0 then dataBusca = dataBusca else dataBusca = replace(dataBusca,"OR"," AND Cod_Indicacao="& Cod_Funcionario &" OR") end if 'Fim da verificação se a busca será feita pelo curso especifico dataBusca = mid(dataBusca,1,len(dataBusca)-3) 'Esta string tira o ultimo "OR" do final da string dataBusca, pois o loop acrescenta demais response.Write dataBusca ----> O PROBLEMA! Quanto faço busca de data que tem dias maiores que 12 então ele busca normalmente. Ex: 13/05/2006 ... Mas se eu buscar uma data inferior a 12 então ele entede como data americana (mm/dd/aaaa) alguém sabe como eu faço para que este burro do computador entenda que eu estou no brasil? Sem o sessio.LCID, cujo já tentei tambem Desde já agradeço a atenção de todos.!
  9. marcos_804

    Erro No Randomize

    Faz assim ó Abra a conexão Depois crie uma matriz para armazenar dados dentro de cada elemento dim Legal(10000) rs.Open "Select...", conexao, 3, 3 for [color=#000099][b]x[/b][/color] = 1 to rs.Recordcount if rs.EOF then exit for Legal([color=#000099][b]x[/b][/color]) = rs("[color=#003300][b]IndiceDaTabela[/b][/color]") rs.MoveNext Next 'Agora você cria o randomize para poder chamar um elemento que venha da matriz com um elemento de [color=#000099][b]x[/b][/color] Randomize [color=#996633][b]RandomNumber[/b][/color] = Legal(Int(Rnd *RS.Recordcount) + 1) rs.Close Então voce pega o resultado do randomize e abre a conexao com apenas aquele registro que estava cadstrado. rs.Open "SELECT... WHERE indice="& [color=#996633][b]RandomNumber[/b][/color], conexao, 3, 3 ... Espero ter ajudado!
  10. marcos_804

    Ajuda Para A Pesquisa

    Você escreveu este link não é? a href="?cod=<%=objRS("codigo")%>&visualizar=S"><%=objRS(TiraAspas("nome"))%></ Então.. agora é só você chamar a string "cod" da "url" na página detalhes Exemplo [color=#FF0000][b]codigo[/b][/color] = request.querystring("cod") ' Pega o valor que estiver depois do sinal de igual da string até "&". Exemplo: se tivermos uma string asim "?tipo=marcos%20oliveira" se eu chamar a string "request.querystring("tipo")" ele vai me retornar "marcos oliveira". 'Daí você faz uma busca no banco pelo código Exp.: rs.Open "SELECT * FROM sua_Tabela WHERE campo="& [color=#FF0000][b]codigo[/b][/color], suaConexão, 3, 3 Daí é só voce executar e pronto ele exibirá as informações... .... Espero ter ajudado... Caso precise poste aí...
  11. Olha só os valores nos campos estão assim: dd/mm/aaaa Exemplo: 10/05/1987 - Assim que está no banco. ---> Mas eu preciso que faça a seleção somente de um mês em específico. Tentei dar um "mid" no campo de data mas ele não aceitou. ... E este tal do between nunca funciona como que espero...! ... Espero que tenham entendido e que possam me ajudar...
  12. Galera, atualmente eu trabalho com ASP. Estou muito querendo aprender PHP, mas para isso é necessário que eu tenha um compilador. Eu gostaria de saber como funciona a forma de compilar no PHP --- Exemplo: No ASP se chama "http://localhost/index.asp" e no ASP usa-se o IIS para fazer a compilação... ... Como eu poderia fazer isso em PHP... Desde já agradeço a atenção!
  13. marcos_804

    Urgente Please!

    Caramba para isso você só precisa fazer upload dos arquivos do chat... Verifica aqui no forum... tem um monte muito legal...
  14. Galera estou desenvolvendo um sistema de intranet. Já tenho todos os funcinarios cadastrado no banco de dados. Preciso mostrar as pessoas que fazem aniversario somente este mês... ---> O problema, é que os dados de data de nascimento foram armazenados todos no mesmo campo Ex: 09/05/1987 Mas agora eu preciso chamar o "select" somente pelo mês. Tentei usar um "mid" no nome do campo, mas da erro. alguém saberia como eu posso fazer para poder selecionar desta forma...? --> Desde já agradeço.
  15. marcos_804

    Zeros A Esquerda

    Faça o seguinte... Dá um loop assim: id = "35" ' Valor ficticio. Qualquer valor for x = 1 to 5-len(id) ' O len id mostra qtos caracteres tem dentro da string. dai é só diminuir o valor das cinco casas pelo numero de casas que a string [b]id[/b] tem. zeros = zeros & "0" next response.write zeros & id Eu precisei fazer um codigo semelhante para poder gerar boletos... e eu fiz esta mesma logica acima. ... Espero ter ajudado.
  16. Galera eu preciso capturar a largura da janela que esta aberta do browser. A do monitor, beleza, eu uso... window.screen.width window.screen.height Mas eu quero a do browser... alguém sabe como? Desde já agradeco a atenção...!
  17. Bem, com respeito ao padding eu sei que ele deixa o espaco "almofadado". Mas o problema é este. No IE, eu dito: largura:150px padding:3px 3px 3px 10px e o negocio funciona... mas na DROGA DO FF... se eu fizer isso ele fica destorcido e com o tamanho maior que o que eu determinei.
  18. A lista completa... hoje eu consegui compilar este codigo... dai descobri que "underline" é 95, mas já fica aqui todos os outros para todos... chr(1) = chr(2) = chr(3) = chr(4) = chr(5) = chr(6) = chr(7) = chr(8) = chr(9) = chr(10) = chr(11) = chr(12) = chr(13) = chr(14) = chr(15) = chr(16) = chr(17) = chr(18) = chr(19) = chr(20) = chr(21) = chr(22) = chr(23) = chr(24) = chr(25) = chr(26) = chr(27) = chr(28) = chr(29) = chr(30) = chr(31) = chr(32) = chr(33) = ! chr(34) = " chr(35) = # chr(36) = $ chr(37) = % chr(38) = & chr(39) = ' chr(40) = ( chr(41) = ) chr(42) = * chr(43) = + chr(44) = , chr(45) = - chr(46) = . chr(47) = / chr(48) = 0 chr(49) = 1 chr(50) = 2 chr(51) = 3 chr(52) = 4 chr(53) = 5 chr(54) = 6 chr(55) = 7 chr(56) = 8 chr(57) = 9 chr(58) = : chr(59) =; chr(60) = < chr(61) = = chr(62) = > chr(63) = ? chr(64) = @ chr(65) = A chr(66) = B chr(67) = C chr(68) = D chr(69) = E chr(70) = F chr(71) = G chr(72) = H chr(73) = I chr(74) = J chr(75) = K chr(76) = L chr(77) = M chr(78) = N chr(79) = O chr(80) = P chr(81) = que chr(82) = R chr(83) = S chr(84) = T chr(85) = U chr(86) = V chr(87) = W chr(88) = X chr(89) = Y chr(90) = Z chr(91) = [ chr(92) = \ chr(93) = ] chr(94) = ^ chr(95) = _ chr(96) = ` chr(97) = a chr(98) = b chr(99) = c chr(100) = d chr(101) = e chr(102) = f chr(103) = g chr(104) = h chr(105) = i chr(106) = j chr(107) = k chr(108) = l chr(109) = m chr(110) = n chr(111) = o chr(112) = p chr(113) = que chr(114) = r chr(115) = s chr(116) = t chr(117) = u chr(118) = v chr(119) = w chr(120) = x chr(121) = y chr(122) = z chr(123) = { chr(124) = | chr(125) = } chr(126) = ~ chr(127) = chr(128) = € chr(129) = chr(130) = ‚ chr(131) = ƒ chr(132) = „ chr(133) = … chr(134) = † chr(135) = ‡ chr(136) = ˆ chr(137) = ‰ chr(138) = Š chr(139) = ‹ chr(140) = Œ chr(141) = chr(142) = Ž chr(143) = chr(144) = chr(145) = ‘ chr(146) = ’ chr(147) = “ chr(148) = ” chr(149) = • chr(150) = – chr(151) = — chr(152) = ˜ chr(153) = ™ chr(154) = š chr(155) = › chr(156) = œ chr(157) = chr(158) = ž chr(159) = Ÿ chr(160) = chr(161) = ¡ chr(162) = ¢ chr(163) = £ chr(164) = ¤ chr(165) = ¥ chr(166) = ¦ chr(167) = § chr(168) = ¨ chr(169) = © chr(170) = ª chr(171) = « chr(172) = ¬ chr(173) = ­ chr(174) = ® chr(175) = ¯ chr(176) = ° chr(177) = ± chr(178) = ² chr(179) = ³ chr(180) = ´ chr(181) = µ chr(182) = ¶ chr(183) = · chr(184) = ¸ chr(185) = ¹ chr(186) = º chr(187) = » chr(188) = ¼ chr(189) = ½ chr(190) = ¾ chr(191) = ¿ chr(192) = À chr(193) = Á chr(194) =  chr(195) = à chr(196) = Ä chr(197) = Å chr(198) = Æ chr(199) = Ç chr(200) = È chr(201) = É chr(202) = Ê chr(203) = Ë chr(204) = Ì chr(205) = Í chr(206) = Î chr(207) = Ï chr(208) = Ð chr(209) = não chr(210) = Ò chr(211) = Ó chr(212) = Ô chr(213) = Õ chr(214) = Ö chr(215) = × chr(216) = Ø chr(217) = Ù chr(218) = Ú chr(219) = Û chr(220) = Ü chr(221) = Ý chr(222) = Þ chr(223) = ß chr(224) = à chr(225) = á chr(226) = â chr(227) = ã chr(228) = ä chr(229) = å chr(230) = æ chr(231) = ç chr(232) = è chr(233) = é chr(234) = ê chr(235) = ë chr(236) = ì chr(237) = í chr(238) = î chr(239) = ï chr(240) = ð chr(241) = não chr(242) = ò chr(243) = ó chr(244) = ô chr(245) = õ chr(246) = ö chr(247) = ÷ chr(248) = ø chr(249) = ù chr(250) = ú chr(251) = û chr(252) = ü chr(253) = ý chr(254) = þ chr(255) = ÿ E para verificar qualquer uma outra tecla sozinha... faca o seguinte <input type="text" value="" onkeyup="this.value=event.keyCode"> Colque o codigo acima em uma pagina da web qualquer e pressione a tecla desejada... ...Espero que tenha ajudado...
  19. Bem para isso você poderia gravas esta ultima atualização de seu usuario num banco de dados... ---> ou seja.... digamos que a pessoa clique no botao atulizar... dai voce pode chamar um banco e gravar estes dados em uma tabela. Juntamente com um cookie o sistema comparario este usuario logado com o que esta gravado no banco... Ao menos esta é a unica solucao que eu vejo atualmente... espero ter ajudado...
  20. Acredito que você pode adaptar este codigo... Agora eu estou meio sem tempo, mas se pudesse o faria. O Código abaixo bloqueia que a pessoa use a tecla "F5" <script> var placar = 0; var competicao = 106; c = navigator.appVersion.toLowerCase(); if (c.indexOf("msie 5") != -1) document.write('<link href="styles-ie5.css" rel="stylesheet" type="text/css" />'); function showDown(evt) { evt = (evt) ? evt : ((event) ? event : null); if (evt) { if (navigator.appName=="Netscape") { if (evt.which == 116) { // When F5 is pressed cancelKey(evt); } else if (evt.ctrlKey && (evt.which == 82)) { // When ctrl is pressed with R or N cancelKey(evt); } } else { if (event.keyCode == 116) { // When F5 is pressed cancelKey(evt); } else if (event.ctrlKey && (event.keyCode == 78 || event.keyCode == 82)) { // When ctrl is pressed with R or N cancelKey(evt); } } } } function cancelKey(evt) { if (evt.preventDefault) { evt.preventDefault(); return false; } else { evt.keyCode = 0; evt.returnValue = false; } } if (navigator.appName=="Netscape") document.addEventListener("keypress",showDown,true); document.onkeydown = showDown; </script> ... Espero ter ajudado.
  21. marcos_804

    Recarregar A Página

    Se voce quiser que a pagina de um reload... é so usar a tag refresh la no read... Mas se voce quiser que a pagina não dê um reload... use o ajax...
  22. marcos_804

    Componente De Template

    Vou explicar melhor. Faça o seguinte. Crie um arquivo totalmente formatado em html (Isso vai ser apenas a parte do programador de design). ---> Exemplo: template.html <html> <head> <title>Teste de pagina formatada</title> </head> <body> <table> <tr> <td><!--AquiVemOMenu--></td> <td><!--AquiVemNoticias--></td> <tr> </table> </body> </html> Dai atraves de um arquivo asp que gerara os codigos de banco você pode ler este arquivo "template.html" e colocar o conteudo dele em uma string. Assim... fonte.asp 'Cria o bojeto Set Fso = CreateObject("Scripting.FileSystemObject") 'Abre o arquivo existente. e o server.MapPath localiza o diretorio que o arquivo se encontra. Set ObjFile = Fso.GetFile(server.MapPath("template.html")) 'O método OpenAsTextStream abre o arquivo como sendo um fluxo de texto. Set objStream = ObjFile.OpenAsTextStream 'Colocando o arquivo de texto que veio do arquivo dentro de uma string While Not ObjStream.AtEndOfStream 'O método Readline lê uma linha de um arquivo Linha = Linha & ObjStream.Readline & "<br>" Wend 'Agora como temos todo o conteudo do arquivo dentro de uma string vamos dar um "replace" pelo conteudo de html por qualquer conteudo que queremos. Linha = replace(Linha,"<!--AquiVemOMenu-->","<a href=#>Link1</a><br><a href=#>Link2</a>") Linha = replace(Linha,"<!--AquiVemNoticias-->","Noticia1<br>Noticia2<br>Noticia3<br>Noticia4") 'Depois de ter dado o replace nos conteuvoce simplismente escreve o conteudo response.write Linha Espero que isso sirva e que eu tenha ajudado...
  23. marcos_804

    F5

    Olá, como no tópico que foi ditado pela andréia ainda estavam en discussao, fui buscar resposta e econtrei. Bem o código aqui BLOQUEIA F5, e algumas teclas mais, é só adaptar. Testei no IE, é bom você testar ai no FF. ---> Segue o código: <script> var placar = 0; var competicao = 106; c = navigator.appVersion.toLowerCase(); if (c.indexOf("msie 5") != -1) document.write('<link href="styles-ie5.css" rel="stylesheet" type="text/css" />'); function showDown(evt) { evt = (evt) ? evt : ((event) ? event : null); if (evt) { if (navigator.appName=="Netscape") { if (evt.which == 116) { // When F5 is pressed cancelKey(evt); } else if (evt.ctrlKey && (evt.which == 82)) { // When ctrl is pressed with R or N cancelKey(evt); } } else { if (event.keyCode == 116) { // When F5 is pressed cancelKey(evt); } else if (event.ctrlKey && (event.keyCode == 78 || event.keyCode == 82)) { // When ctrl is pressed with R or N cancelKey(evt); } } } } function cancelKey(evt) { if (evt.preventDefault) { evt.preventDefault(); return false; } else { evt.keyCode = 0; evt.returnValue = false; } } if (navigator.appName=="Netscape") document.addEventListener("keypress",showDown,true); document.onkeydown = showDown; </script> ...Espero ter ajudado. falou.. Ate mais
  24. Sim... É possivel sim bloquear a telcla F5 do teclado. Busquei e reencontrei este codigo... <script> var placar = 0; var competicao = 106; c = navigator.appVersion.toLowerCase(); if (c.indexOf("msie 5") != -1) document.write('<link href="styles-ie5.css" rel="stylesheet" type="text/css" />'); function showDown(evt) { evt = (evt) ? evt : ((event) ? event : null); if (evt) { if (navigator.appName=="Netscape") { if (evt.which == 116) { // When F5 is pressed cancelKey(evt); } else if (evt.ctrlKey && (evt.which == 82)) { // When ctrl is pressed with R or N cancelKey(evt); } } else { if (event.keyCode == 116) { // When F5 is pressed cancelKey(evt); } else if (event.ctrlKey && (event.keyCode == 78 || event.keyCode == 82)) { // When ctrl is pressed with R or N cancelKey(evt); } } } } function cancelKey(evt) { if (evt.preventDefault) { evt.preventDefault(); return false; } else { evt.keyCode = 0; evt.returnValue = false; } } if (navigator.appName=="Netscape") document.addEventListener("keypress",showDown,true); document.onkeydown = showDown; </script> ... Podem testar ai... (No IE funciona, não sei na Mer... do FF) Espero ter ajudado...
  25. marcos_804

    Detectar Browser

    cara... não sei se isso foi uma ironia. Mas só passei aquilo que eu usaria para criar uma logica de um codigo. Eu tambem não imagino muito por onde começar. Por isso se a informação não foi válida desculpa ai.
×
×
  • Criar Novo...