quarta-feira, 24 de julho de 2002

0

Formulário com várias Ações?

Um formulário em html (<FORM>) pode ter uma ação (ACTION) somente. Porém, utilizando Javascript, temos condição de dar ao usuario a opção de enviar os dados do formulário a um script ou outro, ou seja, podemos mudar a ação (ACTION) via javascript.

Imagine que tenhamos um formulário a ser preenchido pelo usuário e que, ao final, o usuário pode enviar para o Setor de RH ou para o Setor de Compras. Teremos então dois links ao final do formulário:

<a herf="javascript: Enviar('formusuario','rh.asp')"> Enviar para o Setor de RH</a>
<a herf="javascript: Enviar('formusuario','compras.asp')"> Enviar para o Setor de Compras</a>

Devemos, para tal, definir a função Enviar:

<script language="Javascript"> 

function Enviar(nomedoform, novoaction){
   document.forms[nomedoform].action = novoaction;
   document.forms[nomedoform].submit();
}

</script>


São informados dois parâmetros para a função: o nome do formulário a ser enviado (definido no parâmetro NAME da tag FORM) e o nome do script para o qual se deseja enviar este formulário.

Para saber mais sobre envio de formulários via Javascript e suas vantagens leia o artigo Enviando o Formulário sem o Botão Submit.


Esta matéria foi postada originalmente no ASP4Developers por Adriano Nântua, que na época era "Engenheiro de software e analista de sistemas; Desenvolvedor ASP, Delphi, C/C++ e Java/JSP/Servlets; InterBase fan; Linux fan; Alvirrubro inveterado.". Hoje, vai saber...

1

Página que executa comandos SQL (um auxílio aos Administradores)

Observem como esse código simples pode ajudar na manutenção do seu site. Trata-se de uma página que executa comandos SQL, inclusive SELECT, trazendo a resposta numa tabela. Caso haja um erro na instrução SQL, achei por bem não tratá-lo e deixar por conta do IIS trazer-lhe a mensagem de erro proveniente do BD. Obviamente, só administradores AVANÇADOS devem ter acesso a essa página. Chega de papo e vamos ao que interessa:


'***************
'       SQL.asp
'***************
<%
response.buffer = true
response.expires = 10

if request.form("acao") = "ExecSQL" then
  Dim Conn
  set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open 'Ponha aqui sua string de Conexão
  set qrSQL = Conn.Execute(request.form("SQL"))
end if
%>

<html>
<head>
<title>Execução de Comandos SQL</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>


<body bgcolor="#FFFFFF">
<p><b>Execu&ccedil;&atilde;o de Comandos SQL</b></p>
<form name="formSQL" method="post" action="SQL.asp">
  <input type="hidden" name="acao" value="ExecSQL">
  <table width="80%" border="0" cellspacing="0" cellpadding="0">
    <tr align="center">
      <td height="166">
        <textarea name="SQL" rows="8" cols="100">
</textarea>
      </td>
    </tr>
    <tr>
      <td align="center" width="50%"><a href="Javascript: document.forms['formSQL'].submit()">Executar</a></td>
    </tr>
  </table>
 
<%if UCase(Mid(request.form("SQL"),1,6)) = "SELECT" then%>
<table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#666666" bordercolordark="#666666">
  <tr bgcolor="#FFFFCC">
 <%for i = 0 to qrSQL.Fields.Count - 1%>
    <td><%=qrSQL.Fields(i).name%>&nbsp;</td>
 <%next%>
    </tr>
 <%while not qrSQL.EOF%>
     <tr>
  <%for i = 0 to qrSQL.Fields.Count - 1%>
     <td><%=qrSQL.Fields(i)%>&nbsp;</td>
  <%next%>
     </tr>
 <%qrSQL.MoveNext%>
 <%wend%>
  </table>
<%end if%>
<%
set qrSQL = nothing
set Conn = nothing
%>
</body>
</html>



Esta matéria foi postada originalmente no ASP4Developers por Adriano Nântua, que na época era "Engenheiro de software e analista de sistemas; Desenvolvedor ASP, Delphi, C/C++ e Java/JSP/Servlets; InterBase fan; Linux fan; Alvirrubro inveterado.". Hoje, vai saber...

0

Mudando a cor de fundo da Linha (a là Hotmail)

Um pequeno script, a là Hotmail, para quando você quiser mudar a cor de fundo da linha quando você clica o Checkbox que há dentro dela.
(Obs.: haverá um erro de Javascript se o Checkbox não estiver dentro de uma célula de tabela)


<html>
<script language="JavaScript">
//detectando o navegador:
sAgent = navigator.userAgent;
ie = sAgent.indexOf("MSIE") > -1;


function MudarCor(CB){
  if (CB.checked){
    hL(CB);
  } else {
    dL(CB);
  }
}


function hL(E){
 if (ie) //se for internet explorer
  {
   while (E.tagName!="TR")
   {E=E.parentElement;}
  }
 else
  {
  while (E.tagName!="TR")
   {E=E.parentNode;}
  }
 E.className = "estilo1";
}


function dL(E){
 if (ie)
  {
  while (E.tagName!="TR")
   {E=E.parentElement;}
  }
 else
  {
  while (E.tagName!="TR")
   {E=E.parentNode;}
  }
 E.className = "estilo2";
}



</script>
<style type="text/css">
<!--
.estilo1 {
 background-color: #009999;
}
.estilo2 {
 background-color: #990000;
}
-->
</style>
<body>
Clique para ver funcionando!!!
<table width="75%" border="1" cellpadding="1" cellspacing="0" bordercolor="#FFFFFF">
  <tr class="estilo1">
    <td><input name="checkbox" type="checkbox" value="checkbox" checked onClick="MudarCor(this)"></td>
  </tr>
  <tr class="estilo2">
    <td><input type="checkbox" name="checkbox2" value="checkbox" onClick="MudarCor(this)"></td>
  </tr>
  <tr class="estilo1">
    <td><input name="checkbox3" type="checkbox" value="checkbox" checked onClick="MudarCor(this)"></td>
  </tr>
</table>
</body>
</html>



Esta matéria foi postada originalmente no ASP4Developers por Adriano Nântua, que na época era "Engenheiro de software e analista de sistemas; Desenvolvedor ASP, Delphi, C/C++ e Java/JSP/Servlets; InterBase fan; Linux fan; Alvirrubro inveterado.". Hoje, vai saber...

segunda-feira, 22 de julho de 2002

0

Gravar um valor em um arquivo Excel com JavaScript

Olá pessoal, abaixo apresento uma forma de acessar um arquivo excel com JavaScript, o código abaixo pode ser otimizado para realizar cálculos via WEB, atualizando os campos na planilha automaticamente.

   var o_Excel;
   var Excel_append;

  
Excel_append = new ActiveXObject("Excel.Application");
  
o_Excel = new ActiveXObject("Excel.Sheet");
  
o_Excel.Application.Visible = true;
  
o_Excel.ActiveSheet.Cells(1,1).Value = "Esta é a coluna A, linha 1";
  
o_Excel.SaveAs("C:\\ARQUIVO.XLS");
  
o_Excel.Application.Quit();



Esta matéria foi postada originalmente no ASP4Developers por Rafael Felix Budel, que na época era "Programador ASP, JavaScript, VBScript, CSS2, DHTML, utilizando tecnologia XML, XMLHTTP, XMLDOM, ASP.NET - C#.". Hoje, vai saber...

0

Criando um novo ítem em um arquivo XML com createNode

Olá pessoal, abaixo apresento um exemplo de como criar um novo ítem em um arquivo XML utilizando o método createNode


Arquivo XML
<currencies>
   <moeda>Marco Alemao</moeda>
   <moeda>Lira Italiana</moeda>
   <moeda>Yene</moeda>
   <moeda>Dollar</moeda>
</currencies>


 


o_xml = new ActiveXObject("Microsoft.XMLDOM");
o_xml.async = false;
o_xml.load("arquivo.xml");


root = o_xml.documentElement;
novo_node = o_xml.createNode(1, "moeda", "");
node_text = o_xml.createNode(3, "", "");
node_text.text = "Real";
novo_node.appendChild(node_text);
root.insertBefore(novo_node, root.childNodes.item(3));


nome_node = o_xml.getElementsByTagName("moeda");
node_tam = nome_node.length;
for (i = 0; i < node_tam; i++)
   document.write(nome_node[i].text + "<br>");


Saída :


Dollar
Lira Italiana
Marco Alemao
Yene
Real



Esta matéria foi postada originalmente no ASP4Developers por Rafael Felix Budel, que na época era "Programador ASP, JavaScript, VBScript, CSS2, DHTML, utilizando tecnologia XML, XMLHTTP, XMLDOM, ASP.NET - C#.". Hoje, vai saber...

sexta-feira, 19 de julho de 2002

0

Listar todas as pastas existentes em um diretório com ASP

Olá pessoal, desenvolvi um código ASP para exibir todas as pastas em um diretório específico.

  Dim obj_Pasta
  Dim o_met
  Dim o_met1
  Dim o_met2
  Dim a_pasta
  Dim caminho

  caminho = "c:\"


  Set obj_Pasta = CreateObject("Scripting.FileSystemObject")
  Set o_met = obj_Pasta.GetFolder(caminho)
  Set o_met2 = o_met.SubFolders

  For Each o_met1 In o_met2
      a_pasta = a_pasta & o_met1.name
      a_pasta = a_pasta &  "<BR>"
  Next

  Response.Write a_pasta



Esta matéria foi postada originalmente no ASP4Developers por Rafael Felix Budel, que na época era "Programador ASP, JavaScript, VBScript, CSS2, DHTML, utilizando tecnologia XML, XMLHTTP, XMLDOM, ASP.NET - C#.". Hoje, vai saber...

0

Retirar acentos diretamente no SQL

Caros amigos,


Tudo bem? como vocês sabem, trabalhar diretamente formatações no banco fica muito mais rapido do que em codigo.
Por isso vejam como remover acentos, colocar em maiusculas e mostrar desta forma o dado.


Digamos que seu campo se chame NO_CIDADE e
que você receba o nome da cidade na variavel nomeCidade.


'#Criando variavel SQL
vSQLnomeEmpresa = "select upper(translate(Trim(NO_CIDADE),'áÁàÀãÃâÂâäÄéÉêÊËëÈèíÍïÏÌìóÓôÔõÕöÖòÒúÚÙùúûüÜÛ','AAAAAAAAAAAEEEEEEEEIIIIIIOOOOOOOOOOUUUUUUUUU')) NO_CIDADE, CO_UF from TB_CIDADE where upper(translate(Trim(NO_CIDADE),'áÁàÀãÃâÂâäÄéÉêÊËëÈèíÍïÏÌìóÓôÔõÕöÖòÒúÚÙùúûüÜÛ','AAAAAAAAAAAEEEEEEEEIIIIIIOOOOOOOOOOUUUUUUUUU')) LIKE '%"& UCase(TiraAcento(Trim(nomeCidade))) &"%'"



Esta matéria foi postada originalmente no ASP4Developers por Allan Torres (site), que na época era "Analista de sistemas, trabalho com ASP, Oracle, PHP, C, Ferramentas Case e estudo Eng. Elétrica. Sempre as ordens! ]:)". Hoje, vai saber...

1

Ler todos os registros de um arquivo XML com JavaScript

Olá pessoal, no exemplo abaixo gerei um arquivo XML e um script que faz um loop por todo XML lendo todos os registros e imprimindo em tela.


<?xml version="1.0" encoding="iso-8859-1" ?>
<colecao>
<cds>
  <titulo>AAAAA</titulo>
  <cantor>BBBBB</cantor>
</cds>
<cds>
  <titulo>AAAAA</titulo>
  <cantor>BBBBB</cantor>
</cds>

<cds>
  <titulo>AAAAA</titulo>
  <cantor>BBBBB</cantor>
</cds>

</colecao>


var obj_Inf = new ActiveXObject("Msxml.DOMDocument");
var obj_Pai;
var obj_Texto;
obj_Inf.load("cds5.xml");
obj_Inf.async = "false";
obj_Pai = obj_Inf.documentElement;


for (i = 0; i < obj_Pai.childNodes.length; i++){
   obj_Texto = obj_Pai.childNodes.item(i).childNodes.item(0).childNodes.item(0).nodeValue;
document.write(i+1 +" - "+ obj_Texto +"<br />");



Esta matéria foi postada originalmente no ASP4Developers por Rafael Felix Budel, que na época era "Programador ASP, JavaScript, VBScript, CSS2, DHTML, utilizando tecnologia XML, XMLHTTP, XMLDOM, ASP.NET - C#.". Hoje, vai saber...

0

Mostrando tipo de data e hora no ASP.NET (C# e VB)

Script simples para vizualização de formato de data e hora.


====== usando C#
<script language ="c#" runat = "server">
void Page_Load(Object src, EventArgs e) {
   DateTime myDate = DateTime.Now;
   normal.Text = myDate.ToString();
   shortdt.Text = myDate.ToShortDateString();
   longdt.Text = myDate.ToLongDateString();
   longtm.Text = myDate.ToLongTimeString();
   shorttm.Text = myDate.ToShortTimeString();
}
</script>
<p>Normal : <asp:label id = "normal" runat = "server" /></p>
<p>Data Curta : <asp:label id = "shortdt" runat = "server" /></p>
<p>Data Longa : <asp:label id = "longdt" runat = "server" /></p>
<p>Hora Longa : <asp:label id = "longtm" runat = "server" /></p>
<p>Hora Curta : <asp:label id = "shorttm" runat = "server" /></p>


====== usando VB
<script language ="vb" runat = "server">
Sub Page_Load(src as object , e as eventargs)
   dim myDate = DateTime.Now
   normal.Text = myDate.ToString()
   shortdt.Text = myDate.ToShortDateString()
   longdt.Text = myDate.ToLongDateString()
   longtm.Text = myDate.ToLongTimeString()
   shorttm.Text = myDate.ToShortTimeString()
end Sub
</script>
<p>Normal : <asp:label id = "normal" runat = "server" /></p>
<p>Data Curta : <asp:label id = "shortdt" runat = "server" /></p>
<p>Data Longa : <asp:label id = "longdt" runat = "server" /></p>
<p>Hora Longa : <asp:label id = "longtm" runat = "server" /></p>
<p>Hora Curta : <asp:label id = "shorttm" runat = "server" /></p>


exemplo: http://www.fixe.com.br/asp4d/data.aspx


download do código: http://www.fixe.com.br/asp4d/data.zip



Esta matéria foi postada originalmente no ASP4Developers por Felipe "Prog" Esteves (site), que na época era "Prog (da rede Brasnet de IRC) - Analista de Sistemas, WebMaster, WebDesigner, Programador e Maluco. Conhecimento: C/C++, ObjectPascal, Java, JavaScript, ActionScript, ActivePerl, ASP, PHP, T-SQL e derivados. Ferramentas: Linux, WinXP, MSSQL, MySQL, IB, MSAccess, Delphi, C++Builder, Forte, ERWin, TextPad, IIS5, Resin, Apache, Tomcat, mod_php, mod_perl, ActivePerl, SDK.NET, J2EE SDK, MSXML, Flash, Dreamweaver, CorelDRAW e PhotoShop. Atualmente estudando (fase de conclusão do curso superior de Sistemas de Informação - www.unp.br), aprimorando conhecimento em tecnologias (XML, SVG, Java/JSP, .NET) e cuidando da empresa (www.fixe.com.br).". Hoje, vai saber...

0

Criando e Manipulando Imagens "On Fly" no ASP.NET (C# e VB)

Este é um pequeno exemplo para criar e/ou manipular imagens em tempo de execução. Uma utilização bem interessante é:
<img src="imagem.aspx">
ou
<img src="imagem.aspx?texto=Bom dia">


Este tipo de recurso sempre me foi muito necessário, o qual eu só tive resultados em servidores que desponibilizavam o componente ASPImage ou com a linguagem PHP. A aplicação recebia uma imagem, upload via web, e salvava 3 arquivos dessa mesma imagem, em tamanhos variados.


Neste exemplo, é criado uma imagem como um "contador de Hits".


===== Usando C#
<%
@Page language="c#" ContentType="image/jpeg"  %> 
<% @Import Namespace="System.Drawing" %> 
<% @Import Namespace="System.Drawing.Imaging" %> 
<% @Import Namespace="System.Drawing.Drawing2D" %>
<% 
Response.ClearContent();


// criando novo Bitmap no formato 24bit, dimensões 120x30
Bitmap imagem = new Bitmap(120, 30, PixelFormat.Format24bppRgb);  


// criando novo objeto gráfico (objeto que será manipulado)
Graphics g = Graphics.FromImage(imagem);
 
// contando (tentei fazer isso incrementar, mas não deu certo)
Application["intPageCount"] = 1;
 
// limpa a imagem (neste caso, coloca a cor do fundo)
g.Clear(Color.Yellow);


// antialias (suavizando serrilhado)
g.SmoothingMode = SmoothingMode.AntiAlias;
 
// pinta o número na imagem criada 
g.DrawString("Conta: " + Application["intPageCount"], new Font("verdana",14,FontStyle.Bold),SystemBrushes.WindowText, new PointF(2,2));
 
// cria efeito degrade 
g.FillRectangle(new LinearGradientBrush(new Point(0,0), new Point(120,30), Color.FromArgb(0,0,0,0),Color.FromArgb(255,255,255,255)),0,0,120,30);
 
// exibe a imagem
imagem.Save(Response.OutputStream, ImageFormat.Jpeg);


// desalocando objetos da memória
g.Dispose();
imagem.Dispose();
Response.End();
%> 


===== Usando VB
<%
@ page language="vb" contenttype="image/jpeg" %> 
<%@ import namespace="system.drawing" %> 
<%@ import namespace="system.drawing.imaging" %> 
<%@ import namespace="system.drawing.drawing2d" %> 
<% 
response.clear


' criando novo Bitmap no formato 24bit, dimensões 120x30
dim imagem as New bitmap(120, 30, pixelformat.format24bpprgb)  


' criando novo objeto gráfico (objeto que será manipulado)
dim g as graphics = graphics.fromImage(imagem) 
 
' contando
application("intPageCount")+=1  
 
' limpa a imagem (neste caso, coloca a cor do fundo)
g.clear(color.yellow) 


' antialias (suavizando serrilhado)
g.smoothingMode = smoothingMode.antiAlias
 
' pinta o número na imagem criada 
g.drawString("Conta: " & application("intPageCount"), New font("verdana",14,fontstyle.bold),systembrushes.windowtext, New pointF(2,2)) 
 
' cria efeito degrade 
g.FillRectangle(New linearGradientBrush(New point(0,0), New point(120,30), color.fromArgb(0,0,0,0),color.fromArgb(255,255,255,255)),0,0,120,30) 
 
' exibe a imagem
imagem.save(response.outputstream, imageformat.jpeg)  


' desalocando objetos da memória
g.dispose() 
imagem.dispose() 
response.end 
%>


exemplo1: http://www.fixe.com.br/asp4d/imagem1.aspx


exemplo2: http://www.fixe.com.br/asp4d/imagem2.aspx

download do código: http://www.fixe.com.br/asp4d/image-x.zip

Esta matéria foi postada originalmente no ASP4Developers por Felipe "Prog" Esteves (site), que na época era "Prog (da rede Brasnet de IRC) - Analista de Sistemas, WebMaster, WebDesigner, Programador e Maluco. Conhecimento: C/C++, ObjectPascal, Java, JavaScript, ActionScript, ActivePerl, ASP, PHP, T-SQL e derivados. Ferramentas: Linux, WinXP, MSSQL, MySQL, IB, MSAccess, Delphi, C++Builder, Forte, ERWin, TextPad, IIS5, Resin, Apache, Tomcat, mod_php, mod_perl, ActivePerl, SDK.NET, J2EE SDK, MSXML, Flash, Dreamweaver, CorelDRAW e PhotoShop. Atualmente estudando (fase de conclusão do curso superior de Sistemas de Informação - www.unp.br), aprimorando conhecimento em tecnologias (XML, SVG, Java/JSP, .NET) e cuidando da empresa (www.fixe.com.br).". Hoje, vai saber...

quinta-feira, 18 de julho de 2002

0

Strings de conexão - ADO.NET Beta 2

Olá pessoal, abaixo apresento algumas formas de conexão com ADO.NET beta 2


Usando OleDb
using System.Data.Oledb;
OleDbConnection Conexao = new OleDbConnection();
Conexao.ConnectionString = "Provider=SQLOLEDB;" +
                           "DataBase=Northwind;" +
                           "user id=sa; PWD=senha";
Conexao.Open()



Usando SqlClient
using System.Data.SqlClient;
SqlConnection Conexao = new SqlConnection();
Conexao = new SqlConnection("Initial Catalog=Northwind;" +
                            "Data Source=servidor;" +
                            "Integrated Security=SSPI;" +
                            "user id=sa; PWD=senha";
Conexao.Open()



Usando MS-Access
using System.Data.OleDb;
OleDbConnection Conexao = new OleDbConnection();
Conexao.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;"+
                            @"Data Source=C:\BaseDeDados.mdb";
Conexao.Open()



Esta matéria foi postada originalmente no ASP4Developers por Rafael Felix Budel, que na época era "Programador ASP, JavaScript, VBScript, CSS2, DHTML, utilizando tecnologia XML, XMLHTTP, XMLDOM, ASP.NET - C#.". Hoje, vai saber...

quarta-feira, 17 de julho de 2002

0

Imprimir todas as variáveis de sessão do servidor

Olá pessoal, a seguir apresento um exemplo de como imprimir todas as variáveis de sessão do servidor.


   Session("nome") = "Rafael"
   Session("data") = "17/07/2002"


   For Each Item In Session.Contents
      Response.Write Item & " = " & Session.Contents(Item) & "<br>"
   Next



Esta matéria foi postada originalmente no ASP4Developers por Rafael Felix Budel, que na época era "Programador ASP, JavaScript, VBScript, CSS2, DHTML, utilizando tecnologia XML, XMLHTTP, XMLDOM, ASP.NET - C#.". Hoje, vai saber...

0

Trabalhando com Layers

Olá pessoal, a seguir apresento um exemplo de como trabalhar com layers, otimizando a página html ou ASP.

<body onLoad="Carrega()">
<style type="text/css">.estilo_botao {  font-family: verdana; font-size: 8pt; color: #000000; background-color: #CCCC00; border: #333333; border-style: solid; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px}</style>
<script language="javascript">
function Carrega()
{
       LAYER1.style.display = 'none';
       LAYER2.style.display = 'none';
}


var FlagEstado = 0;


function Muda()
{
   LAYER1.style.display = 'none';


    if (FlagEstado=='0')
    {
       FlagEstado = 1;
       bot.value = 'LAYER 1';
       LAYER1.style.display = '';
       LAYER2.style.display = 'none';
    }
    else
    {
       FlagEstado = 0;
       bot.value = 'LAYER 2';
       LAYER1.style.display = 'none';
       LAYER2.style.display = '';
    }
}

</script>
<br>
<input type=button id=bot onClick="Muda()" class="estilo_botao">
<br>
<br>
<div id=LAYER1><b><font color="#000099" face="Verdana, Arial, Helvetica, sans-serif">LAYER
  1</font></b></div>
<div id=LAYER2><font color="#990099" size="3" face="Verdana, Arial, Helvetica, sans-serif"><b>LAYER
  2</b></font></div>
</body>



Esta matéria foi postada originalmente no ASP4Developers por Rafael Felix Budel, que na época era "Programador ASP, JavaScript, VBScript, CSS2, DHTML, utilizando tecnologia XML, XMLHTTP, XMLDOM, ASP.NET - C#.". Hoje, vai saber...

segunda-feira, 15 de julho de 2002

0

Trabalhando com o Objeto Dictionary

Olá Pessoal, abaixo falo um pouco sobre o Objeto Dictionary,

O objeto Dictionary armazena pares de ( nome/valor ) em um array (no qual é feita referência como chave e item, respectivamente)
Cada ítem é associado a uma chave única.


No exemplo abaixo é criado um objeto Dictionary chamado "Linguagem", são adicionados alguns pares ( chave/item ) e são exibidos os valores do item para as chaves a,b,c.


Dim Linguagem


Set Linguagem = CreateObject("Scripting.Dictionary")

    Linguagem.Add "a","C"
    Linguagem.Add "b","C++"
    Linguagem.Add "c","C#"


    Response.Write Linguagem.Item("a")
    Response.Write Linguagem.Item("b")
    Response.Write Linguagem.Item("c")



Esta matéria foi postada originalmente no ASP4Developers por Rafael Felix Budel, que na época era "Programador ASP, JavaScript, VBScript, CSS2, DHTML, utilizando tecnologia XML, XMLHTTP, XMLDOM, ASP.NET - C#.". Hoje, vai saber...

0

Utilizando coleções

Olá pessoal,
A seguir demonstro um exemplo de código para trabalhar com coleções em ASP.

Data = Month(Date)


If Data <= 9 Then
   Data = "0" & Data
End If


Application("nome") = "Rafael"
Application("data") = Day(Date) & "/" & Data


For Each Item in Application.Contents
      Response.Write Item & "=" & Application.Contents(Item) & "<br>"
Next



Esta matéria foi postada originalmente no ASP4Developers por Rafael Felix Budel, que na época era "Programador ASP, JavaScript, VBScript, CSS2, DHTML, utilizando tecnologia XML, XMLHTTP, XMLDOM, ASP.NET - C#.". Hoje, vai saber...

domingo, 14 de julho de 2002

0

Dica : Web Matrix (IDE para .NET Free)

Recentemente foi lançado um editor para aplicações ASP.NET totalmente gratuito com o objetivo de proporcionar aos desenvolvedores uma opção extra e totalmente gratuita. (Visto que o Visual studio .NET é um IDE relativamente caro, principalmente para desenvolvedores autônomos e pequenas empresas)

O Web Matrix é um projeto de +- 1 ano, totalmente feito em C# e com a característica de ser 'Community Supported'. Acompanha também o mini SQL server MSDE também gratuito.

Mais infos :http://www.asp.net/webmatrix/default.aspx?tabindex=4&tabid=46



Ken :)
_________________
-|- Ken Awamura @ www.kencwb.com



Esta matéria foi postada originalmente no ASP4Developers por Ken Awamura (site), que na época era "Eternamente Aprendiz". Hoje, vai saber...

0

De Tabela Para FORM <INPUTY TYPE=radio>

Le todos os registro de uma tabela e monta as opçoes com <INPUT TYPE=radio>


<%


Sub db2radio(Nradio, Tabela, Valor, Nome, Ordenador, Checked)


 Set objconex = Server.CreateObject("ADODB.Connection") : objconex.Open strconex
 Set RecSet = objconex.execute("SELECT * FROM " & Tabela & " ORDER BY " & Ordenador)


 if (Not RecSet.EOF) then
  RecSet.MoveFirst
  Do While Not RecSet.EOF
   If(CSTR(TRIM(UCASE(RecSet.Fields(Valor)))) = CSTR(TRIM(UCASE(Checked)))) then
    Response.Write("<INPUT TYPE=radio NAME="& Nradio &" value=" & RecSet.Fields(Valor) & " checked>" & RecSet.Fields(Nome)) & chr(13))
   Else
    Response.Write("<INPUT TYPE=radio NAME="& Nradio &" value=" & RecSet.Fields(Valor) & ">" & RecSet.Fields(Nome)) & chr(13))
   End if
   RecSet.MoveNext
  Loop
 End If


 RecSet.Close : Set RecSet = Nothing : objconex.close : Set objconex = Nothing


End Sub


%>



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

De Tabela Para FORM <Select>

Rotina que le todos os registro de uma tabela e monta um combo select com seus registros


OBS: Nao esqueça de chamar a funcao dentro de um select :)


ex:


<SELECT NAME=nomedoselect>


<% call db2select("nome-da-tabela", "campo-onde-estava-o-valor", "campo-onde-estara-o-nome", "campo-ordenador", valor-a-vir-selecionado %>


</SELECT>


<%


Sub db2select(Tabela, Valor, Nome, Ordenador, Selected)


 Set objconex = Server.CreateObject("ADODB.Connection") : objconex.Open strconex
 Set RecSet = objconex.execute("SELECT * FROM " & Tabela & " ORDER BY " & Ordenador)


 if (Not RecSet.EOF) then
  RecSet.MoveFirst
  Do While Not RecSet.EOF
   If (RecSet.Fields.Item(valor) = Selected) then
    Response.Write("<option value=" & RecSet.Fields.Item(valor) & " selected>" & RecSet.Fields.Item(nome)) & "</option>" & chr(13))
   else
    Response.Write("<option value=" & RecSet.Fields.Item(valor) & ">" & RecSet.Fields.Item(nome)) & "</option>" & chr(13))
   end if
   RecSet.MoveNext
  Loop
 End If


 RecSet.Close : Set RecSet = Nothing : objconex.close : Set objconex = Nothing


End Sub


%>



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

Caminho virtual de um arquivo

O server.Mappath mostra o caminho real essa função mostra o caminho virtual


<%


Function PathVirtual()
  PathVirtual = Request.ServerVariables("SCRIPT_NAME")
  PathVirtual = Mid(PathVirtual, 1, inStrRev(PathVirtual, "/"))
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

Transforma uma string (lixo) em inteiro via expressão regular (Regular Expression)

A pouco tempo tive de pegar os dados de pretensões salarias de um campo que era de string (varchar) e passar seus valores para interiro acabei desenvolvendo essa expressão regular (Regular Expression) que julgo uma mão na roda.


<%


Dim str


str = "54.00 3 2 ,00 1.tio, san$23,00"
Response.Write("String Original = " & str & " - String Modificada = " & dinheirointeiro(str))


function dinheirointeiro(string)


Set regEx = New RegExp                ' Cria o Objeto Expressão


 regEx.Pattern = "[a-z]+|\$+|\,00$|\,00$| +|\,+|\.+|[^0-9]+" ' Expressão Regular
 regEx.IgnoreCase = True                 ' Sensitivo ou não
 regEx.Global = True          ' Não sei exatamente o que faz 


 caracterdetroca = ""      ' Caracter que ficara no lugar o encontrado


 dinheirointeiro = regEx.Replace(string, caracterdetroca) ' Faz a troca


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

Testando CEP via expressão Regular (Regular Expression)

Expressão Regular (Regular Expression) que testa a sintaxe de um cep (no formato 12345-123) O retorno da função e true (verdadeiro) ou false (falso) teste a função como no exemplo abaixo:


<%


xxx = "12345-123"


if(cep(xxx)) then
 Response.Write("CEP OK!")
else
 Response.Write("CEP Incorreto!")
End If 


function cep(strcep)


 Set regEx = New RegExp  'Cria o Objeto Expressão


 regEx.Pattern = "\d{5}-\d{3}"    ' Expressão Regular
 regEx.IgnoreCase = True         ' Sensitivo ou não
 regEx.Global = True                ' Não sei exatamente o que faz 


 cep = RegEx.Test(strcep)
 
 Set regEx = Nothing


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...

segunda-feira, 8 de julho de 2002

0

Marquee vertical

Olá pessoal,
Criei um código DHTML simples para exibir um marquee vertical.

<HTML>
<HEAD>
<SCRIPT LANGUAGE="JavaScript">
document.write('<marquee id="iescroller" direction="up" width="80" height="65" scrollamount="2" scrolldelay="2" style="border:3 solid NAVY; background-color:6699CC">');
iescroller.onmouseover = new Function("iescroller.scrollAmount=1");
iescroller.onmouseout = new Function("iescroller.scrollAmount=1");
document.write('<font size="3" face="Verdana" color="NAVY">')
document.write('<Div align="center"><b>R</b>afael</div><br><br>');
document.write('<Div align="center"><b>F</b>elix</div><br><br>');
document.write('<Div align="center"><b>B</b>udel...</div><br><br>');
document.write('</font>');
document.write('</marquee>');
</script>
</HEAD>
</BODY>
</HTML>



Esta matéria foi postada originalmente no ASP4Developers por Rafael Felix Budel, que na época era "Programador ASP, JavaScript, VBScript, CSS2, DHTML, utilizando tecnologia XML, XMLHTTP, XMLDOM, ASP.NET - C#.". Hoje, vai saber...

quinta-feira, 4 de julho de 2002

0

Trabalhando com CSS2

Olá pessoal, abaixo apresento algumas formas de otimizar o código html.


<span style="text-transform: none">Teste teste</span>
<input type=text style="text-transform: none" value="Teste teste">
saída : Teste teste


<span style="text-transform: capitalize">Teste teste</span>
<input type=text style="text-transform: capitalize" value="Teste teste">
saída : Teste Teste


<span style="text-transform: lowercase">Teste teste</span>
<input type=text style="text-transform: lowercase" value="Teste teste">
saída : teste teste


<span style="text-transform: uppercase">Teste teste</span>
<input type=text style="text-transform: uppercase" value="Teste teste">
saída : TESTE TESTE


Neste exemplo utilizei classes para definir os estilos aplicados aos objetos, otimizando e facilitando muito a manutenção do código.


<style>
Definimos a classe e setamos o objeto e o evento.
a.exemplo:hover
{
Atributos
    color            : yellow ;
    font-size        : 10px   ;
    background-color : red    ;
    text-decoration  : none   ;
    cursor           : help   ;
}

</style>


<a class="exemplo" href="http://www.asp4developers.com.br">Testando estilo CSS2</a>



Esta matéria foi postada originalmente no ASP4Developers por Rafael Felix Budel, que na época era "Programador ASP, JavaScript, VBScript, CSS2, DHTML, utilizando tecnologia XML, XMLHTTP, XMLDOM, ASP.NET - C#.". Hoje, vai saber...

quarta-feira, 3 de julho de 2002

0

Gerar um arquivo XML a partir de registros na base de dados

Olá pessoal, criei um código ASP que gera um arquivo XML a partir de dados recuperados de uma base de dados.

    'Declaração de variáveis
    Dim Conexao, Rs, strSQL, url, RECEBE, Obj_Arquivo, Obj_Texto


    'Armazenar o caminho da base de dados na variável url
    url = "D:\Inetpub\wwwroot\BaseDeDados.mdb"


    'Instanciando a variável Conexao
    Set Conexao = Server.CreateObject("ADODB.Connection")


    'Abrindo a conexao com a bade de dados
    Conexao.Open "DBQ=" & url & ";DRIVER={Microsoft Access Driver (*.mdb)};"


    'Instrução SQL
    strSQL = "SELECT * FROM TABELA"


    'Executando a instrução SQL
    Set Rs = Conexao.Execute(strSQL)


    'Lendo os registros da base de dados e armazenando na variável RECEBE
    While NOT Rs.EOF
        RECEBE = "<DADOS>" + vbcrlf
        RECEBE = RECEBE + "<NUMERO>"         + (Rs("NUMERO"))        + "<NUMERO>"        + vbcrlf
        RECEBE = RECEBE + "<IDENTIFICACAO>"  + (Rs("IDENTIFICACAO")) + "<IDENTIFICACAO>" + vbcrlf
        RECEBE = RECEBE + "</DADOS>"
    Rs.MoveNext : Wend


    'Instanciando a variável Obj_Arquivo
    Set Obj_Arquivo = CreateObject("Scripting.Obj_ArquivotemObject")


    'Instanciando a variável Obj_Texto com o método do objeto Obj_Arquivo, passando como parâmetro a url e o nome do arquivo XML
    Set Obj_Texto = Obj_Arquivo.CreateTextFile("D:\Inetpub\wwwroot\Arquivo.XML", True)


    'Gravando o resultado contido na variável RECEBE no arquivo XML
    Obj_Texto.WriteLine("<PROCESSO>") + RECEBE + ("</PROCESSO>")


Até a próxima pessoal, Abraços !



Esta matéria foi postada originalmente no ASP4Developers por Rafael Felix Budel, que na época era "Programador ASP, JavaScript, VBScript, CSS2, DHTML, utilizando tecnologia XML, XMLHTTP, XMLDOM, ASP.NET - C#.". Hoje, vai saber...

0

Cotação do Dolar em Tempo Real com ASPHTTP

Este Script pega a cotação em tempo real direto da Gazeta Mercantil.
Bom proveito a todos, e qualquer bug, me envia um e-mail ou um icq.
abraços.


-- Início do Script --


<%
  
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 eh 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


%>


-- Fim do Script --



Esta matéria foi postada originalmente no ASP4Developers por Guilherme Bacellar Moralez (site), que na época era "Consultor e Desenvolvedor Web, especializado em ASP, ASP.NET e MySql.
Gosta de se definir como Professor Pardal, pois, cada pepino que lhe aparece... Tem que inventar umas soluções mirabolantes. Talvez vocês encontrem alguns de seus códigos neste site.". Hoje, vai saber...