- Fórum WMO
- → Morena's Content
Morena's Content
There have been 20 items by Morena (Search limited from 14/05/2023)
#291304 Como Fazer Para Mudar O Idioma
Posted by Morena on 31/01/2004, 00:32 in Outras Linguagens e Tecnologias
Tem alguns sites que oferecem a opção para a pessoa escolher o idioma, se estiver em português, ela pode escolher inglês, espanhol ou outros, continuando com o mesmo conteúdo, mudando apenas o idioma.
Gostaria de saber como faço isso ? Se tem algum programinha, ou tem que ser feito tudo manualmente ?
Desde já fico muito agradecida pela ajuda e desculpa se postei o tópico no local errado.
Abraços.
#250116 Como Descobrir O Caminho Do Servidor
Posted by Morena on 10/12/2003, 17:02 in ASP
<%@ LANGUAGE = VBScript %> <% 'Copyright 2002 Comnecta Tecnologias, www.comnecta.com %> <B> <p align="center"><font face="Arial" 6"" size="4" color="#000080"> Sistema de Reconhecimento de Servidores Web</font> <FONT SIZE=""6""> <p>Comnecta Tecnologias - Soluções em Internet</FONT></B><font face="Arial"><BR> </font> <font face="Arial"><FONT SIZE="2"><B>Versão 1.5</B><BR></font></font><font face="Arial" size="1"><b>Disponível Somente para Servidores Web Windows</b></font></p> <FONT SIZE="2"><HR> <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="980"><TR><TD VALIGN="TOP" width="606" bgcolor="#CCCCCC"><font face="Arial"><B><small>Nome do Servidor: </small></B><small><font color="#0000FF"><% = Request.ServerVariables("SERVER_NAME") %></font><BR> </small><b><small>Nome do Script: </small></b><small><font color="#0000FF"><% = Request.ServerVariables("SCRIPT_NAME") %></font><BR> </small><B><small>Protocolo do Servidor: </small></B><small><font color="#0000FF"><% = Request.ServerVariables("SERVER_PROTOCOL") %></font><BR> </small><B><small>Pasta Local: </small></B><small><font color="#0000FF"><% = Request.ServerVariables("PATH_INFO") %></font><BR> </small><B><small>Endereço do Físico: </small></B><small><font color="#0000FF"><% = Request.ServerVariables("PATH_TRANSLATED") %></font><BR> </small><B><small>Referencia HTTP:// : </small></B><small><font color="#0000FF"><% = Request.ServerVariables("HTTP_REFERER") %> </font> </small> </font></font><font color="#0000FF" face="Arial" size="3"><a href="http://<% = Request.ServerVariables("SERVER_NAME") %>" target="_blank"><% = Request.ServerVariables("SERVER_NAME") %> </a> <br> </font><B><font face="Arial" size="2">Seu IP :</font><small><font face="Arial" SIZE="2"> </font></small></B><font color="#0000FF" face="Arial" size="3"><%= request.servervariables("REMOTE_ADDR") %> </font><small><font color="#0000FF"></font> </small> <FONT SIZE="2"><font face="Arial"><small><BR> </small></font></font></TD><TD VALIGN="TOP" width="370" bgcolor="#CCCCCC"> <font size 4"" face="Arial"><b>Informações do Sistema</b></font> <FONT SIZE="2"><font face="Arial"><BR> <B><small>Sistema</small><small>: </B><font color="#0000FF"><% = ScriptEngine %></font><BR> <B>Versão: </B><font color="#0000FF"><% =ScriptEngineMajorVersion() %></font>.<font color="#0000FF"><% =ScriptEngineMinorVersion() %></font><BR> </small><b><small>Atualizado: </small> </b><small><font color="#0000FF"><% =ScriptEngineBuildVersion() %></font><BR><b>Tempo de Respota do Servidor Web:</b><br> </small><font color="#0000FF"><b><small><% inicio = Timer '... uma seqüência de comandos para medir a velocidade response.write "Processado em " & FormatNumber( Timer - inicio, 2 ) & " segundos" %> </small></b></font></font> </font> </TD></TR></TABLE> <HR> <font face="Arial"><B> <FONT SIZE=""4"">CDONTS Object</FONT></B></font><font face="Arial"><B><font size 4"">: </font></B></font><FONT SIZE=""2""><font face="Arial"> <font color="#800000"><% Err.Clear On Error Resume Next Set objCDONTS = Server.CreateObject("CDONTS.Session") If Err.Number <> 0 Then Response.Write("<B>NÃO INSTALADO</B> ") Else Response.Write("<B>Versão: </B>" & objCDONTS.Version & " INSTALADO ") End If %></font> <BR> </font> <HR> <font face="Arial"> <FONT SIZE=""4""><B>ADO DB Object: </B></FONT> <font color="#800000"><% Err.Clear On Error Resume Next Set objConn = Server.CreateObject("ADODB.Connection") If Err.Number <> 0 Then Response.Write("ADODB.Connection object <B>NÃO INSTALADO</B>") Else Response.Write("<B>Versão: </B>" & objConn.Version & "<BR>") End If %></font></font> <HR> <FONT SIZE=""4""><B>File System Object</B></FONT><font face="Arial"> <font color="#800000"> <% Err.Clear On Error Resume Next Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If Err.Number <> 0 Then Response.Write("NÃO INSTALADO") Else Response.Write("INSTALADO") End If %> </font></font> <HR> <FONT SIZE=""4""><B>ASPMail Object</B></FONT><font face="Arial"> <font color="#800000"> <% Err.Clear On Error Resume Next Set objASPMail = Server.CreateObject("SMTPsvg.Mailer") If Err.Number <> 0 Then Response.Write("INSTALADA") Else Response.Write("VERSÃO INSTALADO " & objASPMail.Version ) Response.Write("<BR><SMALL>EXPIRA EM:" & objASPMail.Expires & "</SMALL>" ) End If Response.Write("<BR><FONT SIZE=""2"">Para Mais Informações <A HREF=""http://www.serverobjects.com"" TARGET=""RESOURCE WINDOW"">www.serverobjects.com</A></FONT> ") %> </font> <BR> </font> <HR> <FONT SIZE=""4""><B><font face="Arial">ASPImage Object</font></B></FONT><FONT SIZE=""2""> <font face="Arial"> <font color="#800000"> <% Err.Clear On Error Resume Next Set objASPImage = Server.CreateObject("AspImage.Image") If Err.Number <> 0 Then Response.Write("NÃO INSTALADO") Else Response.Write("VERSÃO INSTALADA " & objASPImage.Version ) Response.Write("<BR><SMALL>EXPIRA EM:" & objASPImage.Expires & "</SMALL>") End If Response.Write("<BR><FONT SIZE=""2"">Para Mais Informações <A HREF=""http://www.serverobjects.com"" TARGET=""RESOURCE WINDOW"">www.serverobjects.com</A></FONT>") %> </font></font> <HR> <FONT SIZE=""4""><B>ASPUpload Object</B></FONT><font face="Arial"> <font color="#800000"> <% Err.Clear On Error Resume Next Set objASPUpload = Server.CreateObject("Persits.Upload.1") If Err.Number <> 0 Then Response.Write("NÃO INSTALADO") Else Response.Write("INSTALADO ") End If Response.Write("<BR><FONT SIZE=""2"">Para Mais Informações <A HREF=""http://www.persits.com"" TARGET=""RESOURCE WINDOW"">www.persits.com</A></FONT>") %> </font></font> <HR> <FONT SIZE=""4""><B>ASPEmail Object</B></FONT><font face="Arial"> <font color="#800000"> <% Err.Clear On Error Resume Next Set objASPEmail = Server.CreateObject("Persits.MailSender") If Err.Number <> 0 Then Response.Write("NÃO INSTALADO") Else Response.Write("INSTALADO ") Response.Write("<BR><SMALL>Expires On:" & objASPEmail.Expires & "</SMALL>") End If Response.Write("<BR><FONT SIZE=""2"">Para Mais Informações <A HREF=""http://www.persits.com"" TARGET=""RESOURCE WINDOW"">www.persits.com</A></FONT> ") %> </font> <BR> </font> <HR> <FONT SIZE=""4""><B><font face="Arial">JMail Object</font></B></FONT><FONT SIZE=""2""> <font face="Arial"> <font color="#800000"> <% Err.Clear On Error Resume Next Set objJMail = Server.CreateObject("JMail.SMTPMail") If Err.Number <> 0 Then Response.Write("NÃO INSTALADO") Else Response.Write("INSTALADO ") End If Response.Write("<BR><FONT SIZE=""2"">Para Mais Informações <A HREF=""http://www.dimac.net"" TARGET=""RESOURCE WINDOW"">www.dimac.net</A></FONT> ") %> </font> <BR> </font> <HR> <FONT SIZE=""4""><B><font face="Arial">Bamboo.SMTP Object</font></B></FONT><font face="Arial"><FONT SIZE=""2""> <font color="#800000"> <% Err.Clear On Error Resume Next Set objBamboo = Server.CreateObject("Bamboo.SMTP") If Err.Number <> 0 Then Response.Write("NÃO INSTALADO") Else Response.Write("INSTALADO ") End If Response.Write(" ") %> </font> </FONT> <BR> </font> <HR> <font 4"" face="Arial"><b>Informações desta Transmissão</b></font><font face="Arial"><FONT SIZE=""2""> <font color="#000080"><% On Error Resume Next vRunDate = Now sRunDate = Request.QueryString("DATE") If Len(Trim(sRunDate)) = 0 Then sRunDate = Request.Form("DATE") End If Response.Write("<FONT SIZE=""2"">") If IsDate(sRunDate) Then vRunDate = CDate(sRunDate) Response.Write("<BR><FONT SIZE=""2"">RunDate:" & sRunDate) Else Response.Write("<BR>RunDate: Now") End If Response.Write("<BR>RunDate : " & vRunDate ) Response.Write("<BR>CDate(RunDate) : " & CDate(vRunDate) ) Response.Write("<BR>CDate("" & RunDate) : " & CDate("" & vRunDate) ) %></font> </FONT> <!-- Mostrar os 10 últimos visitantes --> <% Application.Lock IF NOT isArray( Application( "lastTen" ) ) THEN DIM dummy( 10, 3 ) Application( "lastTen" ) = dummy END IF lastTen = Application( "lastTen" ) Application.UnLock ' Mover cada visita abaixo no Array IF lastTen( 9, 0 ) <> "" THEN FOR i = 0 TO 9 lastTen( i, 0 ) = lastTen( i + 1, 0 ) lastTen( i, 1 ) = lastTen( i + 1, 1 ) lastTen( i, 2 ) = lastTen( i + 1, 2 ) NEXT END IF ' Somar uma nova entrada FOR i = 0 TO 9 IF lastTen( i, 0 ) = "" THEN lastTen( i, 0 ) = Request.ServerVariables( "REMOTE_ADDR" ) lastTen( i, 1 ) = Request.ServerVariables( "HTTP_USER_AGENT" ) lastTen( i, 2 ) = NOW() EXIT FOR END IF NEXT Application.Lock Application( "lastTen" ) = lastTen Application.UnLock %> <br> </font> </font></font></font> <EM><font face="Arial" 2"" size="2"><b>Transmitido: <font color="#FF0000"> <% = Now %></font></b></font></em> <FONT SIZE=""2""><p> </font><b><font face="Arial" 2"" size="2">Mostrar os 10 Últimos Acessos a este Script:</font></b> <center> </p> <font face="Arial"> <div align="left"> <table bgcolor="#CCCCC0" cellspacing=0 cellpadding=3 border=1> <tr bgcolor="lightyellow"> <td><font 2"" size="2" color="#000080"><b>Visitas</b></font></td> <td><font 2"" size="2" color="#000080"><b>Direção IP</b></font></td> <td><font 2"" size="2" color="#000080"><b>Browser</b></font></td> <td><font 2"" size="2" color="#000080"><b>Hora de Visita</b></font></td> </tr> <FONT SIZE=""2""> <FONT SIZE=""2""> <FONT SIZE=""2""> <% FOR i = 0 TO 9 IF lastTen( i, 0 ) <> "" THEN %> </font></font> </font> <tr> <td><font 2"" size="2"><b><%=i + 1%></b></font> </td> <td><font 2"" size="2"><b><%=lastTen( i, 0 )%></b></font> </td> <td><font 2"" size="2"><b><%=lastTen( i, 1 )%></b></font> </td> <td><font 2"" size="2"><b><%=lastTen( i, 2 )%></b></font> </td> </tr> <FONT SIZE=""2""> <FONT SIZE=""2""> <FONT SIZE=""2""> <% END IF NEXT %> </table> </div> <BR></font></font> </font></font> <EM><font size="1" face="Arial" 2""><BR></font><FONT SIZE=""2""><FONT SIZE=""2""> <FONT SIZE="2"><CENTER><A HREF="http://www.comnecta.com">Copyright 2002 Comnecta Tecnologias - Soluções em Internet ®, Inc. All rights reserved.</A></CENTER></FONT> </font>
* OBS: procure sempre usar o BBCODE ao postar como acima. Ex.
seu codigo
#248554 Como Descobrir O Caminho Do Servidor
Posted by Morena on 09/12/2003, 00:53 in ASP
Eu já enviei um tópico assim, mas tem um tempão, tentei procurá-lo mas não encontrei.
Preciso descobrir o caminho do servidor e quando precisei o pessoal deste forum me passou um script com o nome CaminhoServidor.asp, que ao ser rodado no servidor, ele passava o caminho das pastas entre outras informações.
To querendo só para poder arrumar o meu DSN, pois faço as conexões usando o caminho do servidor... vcs entendem neh.
Resumindo... queria saber se alguém de vcs ainda tem este script para enviar pra mim ? Pois perdi o que eu tinha guardado, e só tinha esta cópia.
Se vcs não tiverem o script, mas souberem onde posso encontrar, tbm já ajuda muito.
Obrigada.
#248528 Validar Campos
Posted by Morena on 09/12/2003, 00:19 in Javascript / DOM / AJAX / ECMAScript
Valew.
#246932 Validar Campos
Posted by Morena on 07/12/2003, 12:50 in Javascript / DOM / AJAX / ECMAScript
Alguém pode me ajudar ? Não colei o código todo senão ocuparia muito espaço.
Obrigada.
Meu codigo:
</head>
<script language='JavaScript' type="text/javascript">
<!--
Function Valida(){
if (document.login.value == '')
{
alert("Este campo é obrigatório !");
form.login.focus();
return false;
}
}
-->
</script>
<body>
<form name="form" onsubmit='return Valida()'>
.
.
.
<td width="59%"><input type="text" name="login" size="15" maxlength="10"></td>
#246775 Alguem Sabe?
Posted by Morena on 07/12/2003, 09:58 in ASP
Qualquer coisa se não tiver do jeito que vc quiser faz uma busca em outros sites.
Tinha um programa de bate papo legal, vou ver se encontro em algum backup, se quiser me passa seu e-mail para enviar pra ti.
Abraços.
#246191 Como Fazer ?
Posted by Morena on 06/12/2003, 17:20 in Javascript / DOM / AJAX / ECMAScript
O ASP faz isso? Sem querer me desfazer da ajuda do Skuall, será que tem outra pessoa que saiba se tem como fazer em java ou asp?
Mesmo assim, brigadaum Skuall.
#246173 Como Fazer ?
Posted by Morena on 06/12/2003, 17:03 in Javascript / DOM / AJAX / ECMAScript
Eu acho que seria como uma folha de estilo (css), mas não tenho certeza, e também não sei como fazer. Alguém poderia me ajudar ?
Ex: para mudar a cor do link eu poderia fazer assim:
<style>
a:hover{color:#ffcc00;}
</style>
Mas e para colocar esse cabeçalho e rodapé ? É um trabalho da facul, e preciso da ajuda de vocês.
Desculpe se talvez coloquei o tópico no lugar errado.
Abraços e muito obrigada.
#162035 Referência Dao 3.6
Posted by Morena on 03/08/2003, 23:19 in Visual Basic
É o seguinte, fiquei sabendo com um amigo meu que para ter a referencia do Microsoft Dao 3.6 é preciso pegar o Service Pack e instalar no computador que tudo fica resolvido.
Tentei fazer isso no meu computador, mas não funcionou, mas no computador da minha irmã funcionou...
Então está ai, se alguém precisar, talvez funcione no de vcs.
Bjinhos.
#141110 Referência Dao 3.6
Posted by Morena on 10/07/2003, 01:20 in Visual Basic
Quando começo a desenvolver um projeto em VB, vou em References e adiciono algumas que vou usar.
Não sei como, mas consegui deletar a que se referia ao Microsoft DAO 3.6 Object Library, e não sei qual o nome do arquivo, por isso nem tem como procura-lo no meu computador.
Se alguém souber o nome já me ajuda muito, mas se vcs quiserem enviar o arquivo para mim, podem enviar por e-mail.
Ah eu uso o VB 6.0.
O meu e-mail é agathac19@bol.com.br...
Estou sem acesso a net em casa e por isso estou pedindo para enviarem por e-mail, pois não posso acessar o forum todos os dias como antes.
Fico muito agradecida a todos.
Abraços.
#88217 Janela Em Formatos Diferentes
Posted by Morena on 30/04/2003, 11:26 in HTML, CSS e Metodologias
Vou testar o código da página que passou depois.
Valew.
#88143 Janela Em Formatos Diferentes
Posted by Morena on 30/04/2003, 09:15 in HTML, CSS e Metodologias
Se estiver postando no lugar errado, por favor me desculpe.
Estou passando este link para vcs darem uma olhada do que eu to querendo, eu não sei se é uma janela, ou se é um script.
http://www.boldrini.org.br/
Quando a pag abrir vai aparecer um palhacinho se movimentando de um lado ao outro do site.
Gostaria de saber onde posso encontrar algum exemplo para fazer tipo o do palhacinho, mas com outro desenho... se alguem puder me ajudar, desde já fico muito agradecida.
Abraços.
#87519 Validação De Formulario
Posted by Morena on 29/04/2003, 10:00 in HTML, CSS e Metodologias
#87504 Botão Backward Do Navegador...urgente
Posted by Morena on 29/04/2003, 09:31 in ASP
Já tentei fazer o que eles ensinaram, mas sei lá pq, no meu caso não funcionou... então fiz uma página de logout e nele redireciono a pessoa para outra página.
E faço uma verificação sempre no inicio das paginas, se Session for igual a vazio redireciono a pessoa para a pagina de login.
Assim ela não tem como voltar enquanto não fazer o login.
Por enquanto do jeito que fiz ta funcionando.
Espero ter ajudado...
#87486 Asp E Linux
Posted by Morena on 29/04/2003, 08:47 in ASP
Desculpa ai a desinformação da minha parte, mas gostaria de saber se tem como rodar asp em servidor Linux?
Antes de colocar um novo tópico fiz a busca, mas não encontrei nada, portanto se alguém souber de um tópico com este assunto, fico muito agradecida se de alguma forma puderem me ajudar... sendo respondendo a minha pergunta ou passando o endereço do tópico.
Obrigada.
#77068 Qual A Versao Mais Recente?
Posted by Morena on 13/04/2003, 15:07 in Visual Basic
Eu uso a versão 6.0.
- Fórum WMO
- → Morena's Content
- Privacy Policy
- Regras ·