quarta-feira, 17 de setembro de 2003

1

Tudo sobre txts leitura e criação

Este componente possui uma serie de propriedades e métodos para manipulação de arquivos e diretórios do servidor Web.


Para instanciar tal objeto numa página ASP escrevemos o seguinte código:


 


Dim Objeto


 


Set Objeto = Server.CreateObject("Scripting.FileSystemObject")
 


 


Esse objeto recém instanciado representa o Sistema de Arquivo do servidor Web. Devemos agora criar outro objeto(TextStream), a partir desse, para representar um determinado arquivo. Fazemos isso, utilizando o método OpenTextFile do FileSystemObject:


 


Set Arquivo = Objeto.OpenTextFile(Nome,modo,cria,formato)
 


 


Onde:


Nome
 Nome do arquivo a ser utilizado pelo script
 
Modo
 Modo de Abertura do arquivo. 1 para leitura, 2 para gravação por cima, 3 para gravação adicional.
 
Cria
 Valor Booleano que indica se o arquivo deve ser criado(true) ou não(false) caso não  exista.
 
Formato
 Indica o formato de gravação do arquivo a ser utilizado. -1 Unicode, 0 Ascii
 


 


Para lermos o conteúdo de um ar[quivo, podemos utilizar os seguintes métodos do objeto TextStream:


Read (quantidade)
 Lê um determinado número de caracteres do arquivo
 
ReadLine
 Lê uma linha inteira do arquivo
 
ReadAll
 Lê o arquivo inteiro de uma só vez
 


 


Mas se nos interessar gravar informações no arquivo, os métodos disponíveis são:


Write
 Grava uma string no arquivo
 
WriteLine
 Grava um string no arquivo, incluindo a quebra de linha
 
WriteBlankLines
 Grava um determinado número de linhas em branco num arquivo
 


 


Esse componente ActiveX ainda possui as seguintes propriedades:


 


AtEnOfLine
 Indica o fim de uma determinada linha do arquivo
 
AtEnOfStream
 Indica o Final do Arquivo
 
Column
 Indica em que coluna do arquivo estamos
 
Line
 Indica o número da linha atual do arquivo
 


 


O código a seguir mostra como abrimos um arquivo localizado no servidor WEB e exibimos seu conteúdo:


 


Exemplo 23.1 : Arquivo1.asp 


 


<% @Language=vbScript %>


<HTML><HEAD><TITLE>Curso ASP</TITLE></HEAD>


<BODY><CENTER>


<% dim final


   final = "</CENTER></BODY></HTML>"


   On Error Resume Next


   Set Obj = Server.CreateObject("Scripting.FileSystemObject")


   Set arquivo = Obj.OpenTextFile("D:\pessoas.txt",1)


   if Err then


       Response.write "Ocorreu um erro tentando abrir o arquivo!"


       Response.write final


       Response.End


   end if


   Response.Write "Lista de E-mails<BR>"


   Response.write "<HR>"


   do while arquivo.AtEndOfStream=false


     a = arquivo.Readline 


     response.write a & "<BR>"


     a = arquivo.Readline 


     response.write a & "<HR>"


   loop


   Response.Write "Nova Entrada"


   Response.Write "<FORM ACTION=Arquivo2.asp>"


   Response.Write "NOME : <INPUT TYPE=TEXT NAME=NOME><BR>"


   Response.Write "EMAIL : <INPUT TYPE=TEXT NAME=EMAIL><BR>"


   Response.Write "<INPUT TYPE=SUBMIT VALUE=ENVIAR></FORM>"


   REsponse.Write final


   arquivo.close


%>
 


 


A próxima página ASP mostra como escrever num arquivo localizado no servidor WEB. Lembrando que essa página deve ser acessada por um formulário WEB com um objeto de NAME=Nome e outro NAME=Email:


 


Exemplo 23.2 Arquivo2.asp


<% @Language=vbScript %>


<HTML><HEAD><TITLE>Curso ASP</TITLE></HEAD>


<BODY><CENTER>


<% dim final


   final = "</CENTER></BODY></HTML>"


   On Error Resume Next


   Set Obj = Server.CreateObject("Scripting.FileSystemObject")


   Application.Lock


   Set arquivo = Obj.OpenTextFile("D:\pessoas.txt",8)


   if Err then


       Response.write "Ocorreu um erro tentando abrir arquivo!"


       Response.write final


       Response.End


  end if


   Arquivo.WriteLine(Request("Nome"))


   Arquivo.WriteLine(Request("Email"))


   arquivo.close


   if Err then


       Response.write "Ocorreu um erro tentando gravar no arquivo!"


       Response.write final


       Response.End


   else


      Response.Write "Dados inseridos com sucesso!" & "<BR>"


      Response.Write "Nome:" & Request("Nome") & "<BR>"


      Response.Write "Email :" & Request("Email")


   end if


   Response.Write final


%>
 



Por Nissim Victor - 9167-9495


Web Developer



 


 



Esta matéria foi postada originalmente no ASP4Developers por Ozzy Sys Informatica LTDA, que na época era "Ozzy Sys Informatica LTDA -

Fabrica de software desenvolvido em
ASP , VB e plataforma .net ...
SQL , Oracle

Transformamos todos os seus problemas em soluções ...

( 011 ) 9167-9495". Hoje, vai saber...

terça-feira, 16 de setembro de 2003

3

Coloque notícias dinamicas no seu site

<html>
<head>
<script language='javascript'><!--
var speed=4500
i=0
j=0
m=0
function regenerate(){
window.location.reload()
}
function regenerate2(){
if (document.layers)
setTimeout("window.onresize=regenerate",450)
}


function update(){
if (document.layers){
document.mensagem.document.submensagem.document.write(tnoticias[i])
document.mensagem.document.submensagem.document.close()
}
else
document.all.submensagem.innerHTML=tnoticias[i]


if (i<tnoticias.length-1)
i++
else
i=0
setTimeout("update()",speed)
}


function Inicio() {
   if (document.all||document.layers) {
      regenerate2();
      update();}}
var tnoticias = new Array();
// Aqui você atualiza as notícias do site
// Cuidado com as aspas duplas
tnoticias[0]="<p align='left'><font size='1' face='Verdana,Arial,Helvetica'>05/09/2003 - Com reforma, a carga tributária pode crescer 4,5%</font></p>";
tnoticias[1]="<p align='left'><font size='1' face='Verdana,Arial,Helvetica'>05/09/2003 - Corte de impostos pode entrar na agenda</font></p>";
tnoticias[2]="<p align='left'><font size='1' face='Verdana,Arial,Helvetica'>05/09/2003 - Reforma tributária ajuda a distribuição de renda</font></p>";
tnoticias[3]="<p align='left'><font size='1' face='Verdana,Arial,Helvetica'>03/09/2003 - Receita vai concentrar fiscalização em devedor que ficou fora do Refis</font></p>";
// Você pode retirar ou acrescentar noticias no vetor
--></script>
</head>


<body onload="Inicio()">
<table>
<tr><td width='100%' height='70' valign='top'><div id="mensagem">
<div id="submensagem">Aguarde...</div>
</div></td></tr></table>


<!-- resto da página - -->


</body>
</html>


[]'s



Esta matéria foi postada originalmente no ASP4Developers por Rogério César (Craz¥ Man) (site), que na época era "Analista de Sistemas, programador, web Designer.". Hoje, vai saber...

0

Utilizando Janelas Pop-up's menos chatas

Eu particularmente odeio janelas Pop-Up's, então desenvolvi algo bem simples utilizando cookies para que pessoas como eu, que visitam meu site, não fiquem aborrecidas com as janelas, escolhendo se quer que estas continuem abrindo.


<!--  Index.asp -->


<%function iif(condicao,sim,nao)
   if condicao then
      iif=sim
   else
      iif=nao
   end if
end function
popup=request.cookies("pop")%>


<html>
<head>
<script language='javascript'><!--
function AbreJanela() {
   window.open('propaganda.asp','_blank','toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, menubar=no, top=0, left=0, width=310, height=410');}
--></script>
</head>
<body<%=iif(popup="nao",""," onload='AbreJanela()'"%>>


<!-- Resto da página -->


</body>
</html>


 


<!-- propaganda.asp -->


<html>


<body>


<!-- figuras e banners e etc. -->


<%if request.QueryString("mostra")="nao" then
   response.cookies("pop")="nao"
   response.cookies("pop").Expires = #January 01, 2030#
   response.write "<script>window.close();</script>"
end if%>

<a href='javascript:window.close();'>Fechar Janela</a>
<br><br>
<a href='propaganda.asp?mostra=nao'>Não quero mais que esta janela apareça</a>
</body>
</html>


Espero que ajude!


[]'s



Esta matéria foi postada originalmente no ASP4Developers por Rogério César (Craz¥ Man) (site), que na época era "Analista de Sistemas, programador, web Designer.". Hoje, vai saber...

quarta-feira, 10 de setembro de 2003

0

Deixe o ROBO te pegar !!!

Se voce mantém uma versão RSS do seu site e quer que ela seja catalogada pelos webbots e outros coloque o seguinte código nos elementos do cabeçalho:

<link rel="alternate" type="application/rss+xml" title="RSS" href="url para o rss">

Esta matéria foi postada originalmente no ASP4Developers por Thiago Machado Souza (site), que na época era "Programador Desbravador, buscando quebrar todas as fronteiras além do horizonte da arte de programar !
www.thiagomachado.com.br". Hoje, vai saber...

domingo, 7 de setembro de 2003

0

Validador de Numeros

function isNumeric(str) {


 var objRegExp  = /^[0-9]*$/;
 return objRegExp.test(str);


}



Esta matéria foi postada originalmente no ASP4Developers por Daniel Passos (site), que na época era "Consultor de TI com fortes conhecimentos nas linguagens HTML, JavaScript, Perl, ASP e PHP. Conhecimentos básicos de Java (Swing, JSP & Servlets), orientação a objetos e UML, Banco de dados MySQL, SQL Server e Oracle.". Hoje, vai saber...

0

Validador de Valor (Money)

function isMoney(str) {


 var objRegExp  = /^[0-9]*,\d{2}$/;
 return objRegExp.test(str);


}



Esta matéria foi postada originalmente no ASP4Developers por Daniel Passos (site), que na época era "Consultor de TI com fortes conhecimentos nas linguagens HTML, JavaScript, Perl, ASP e PHP. Conhecimentos básicos de Java (Swing, JSP & Servlets), orientação a objetos e UML, Banco de dados MySQL, SQL Server e Oracle.". Hoje, vai saber...

0

Passa pro proximo campo

Passa pro proximo campo, passando o campo atual (pra ele descobrir o proximo)


função util quando um campo chegar a um determinado numero de caracteres ou selecionar um valor (num select). Use sua criatividade :)


function pcmp(campo) {


 var i, g;


 // Varre todo o formulario
 for (i = 0; i < campo.form.elements.length; i++) {


  // Quando achar a posição do campo atual
  if (campo == campo.form.elements[i]) {


   // Testa se ainda existe outro objeto no formulario
   if( i < (campo.form.elements.length - 1)) {
    
    // Varre todo o formulario apartir do proximo campo
    for (i = (i +1); i < campo.form.elements.length; i++) {


     // Caso esse campo não seja um campo oculto
     if( (campo.form.elements[i].type != "hidden") && (campo.form.elements[i].type != "reset") ) {
      campo.form.elements[i].focus();
      break; // Sai da leitura
     }  
    }
    
   }


   break; // Sai da leitura


  }


 }


}



Esta matéria foi postada originalmente no ASP4Developers por Daniel Passos (site), que na época era "Consultor de TI com fortes conhecimentos nas linguagens HTML, JavaScript, Perl, ASP e PHP. Conhecimentos básicos de Java (Swing, JSP & Servlets), orientação a objetos e UML, Banco de dados MySQL, SQL Server e Oracle.". Hoje, vai saber...

0

Compara Strings

function cptx(txt1, txt2)


 if(CSTR(TRIM(UCASE(txt1))) = CSTR(TRIM(UCASE(txt2)))) then
  cptx = true
 Else
  cptx = false
 End If
 
End Function



Esta matéria foi postada originalmente no ASP4Developers por Daniel Passos (site), que na época era "Consultor de TI com fortes conhecimentos nas linguagens HTML, JavaScript, Perl, ASP e PHP. Conhecimentos básicos de Java (Swing, JSP & Servlets), orientação a objetos e UML, Banco de dados MySQL, SQL Server e Oracle.". Hoje, vai saber...

0

Formata Valor (Money)

Formata para que aparecen sempre com dois digitos apos a virgula


function fmoeda(d)
 
 if( (Len(d) <=0) ) then
  fmoeda = "0,00"
 else
  if(instr(d,",")) then
   d = d & 00
   dezena   = Left(d, instr(d,",") - 1)
   centavos = Mid(d, instr(d,","), 3)
   fmoeda = dezena & centavos
  else
   fmoeda = d & ",00"
  End If
 End If


End Function


 



Esta matéria foi postada originalmente no ASP4Developers por Daniel Passos (site), que na época era "Consultor de TI com fortes conhecimentos nas linguagens HTML, JavaScript, Perl, ASP e PHP. Conhecimentos básicos de Java (Swing, JSP & Servlets), orientação a objetos e UML, Banco de dados MySQL, SQL Server e Oracle.". Hoje, vai saber...

0

Sql Seguro

E sempre importante dar uma limpada no que o usuario digita antes de inserrir no banco de dados, o ponta pe inicial e trocar todas as aspas por aspas duplas


Function sqlseguro(strTexto) 
  sqlseguro = Replace(strTexto, Chr(39), Chr(39) & Chr(39))
End Function


 



Esta matéria foi postada originalmente no ASP4Developers por Daniel Passos (site), que na época era "Consultor de TI com fortes conhecimentos nas linguagens HTML, JavaScript, Perl, ASP e PHP. Conhecimentos básicos de Java (Swing, JSP & Servlets), orientação a objetos e UML, Banco de dados MySQL, SQL Server e Oracle.". Hoje, vai saber...

0

Desabilitada Botão Direito do Mouse

var message="";


function clickIE() {
 if (document.all) {
  (message);
  return false;
 }
}


function clickNS(e) {
 if (document.layers||(document.getElementById&&!document.all)) {
  if (e.which==2||e.which==3) {
   (message);
   return false;
  }
 }
}


if (document.layers) {
 document.captureEvents(Event.MOUSEDOWN);
 document.onmousedown=clickNS;
}


else{
 document.onmouseup=clickNS;document.oncontextmenu=clickIE;
}


document.oncontextmenu=new Function("return false")



Esta matéria foi postada originalmente no ASP4Developers por Daniel Passos (site), que na época era "Consultor de TI com fortes conhecimentos nas linguagens HTML, JavaScript, Perl, ASP e PHP. Conhecimentos básicos de Java (Swing, JSP & Servlets), orientação a objetos e UML, Banco de dados MySQL, SQL Server e Oracle.". Hoje, vai saber...