Rubens Farias' weblog: julho 2002

quarta-feira, 24 de julho de 2002

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

Postado por Rubens Farias às 10:43

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

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

Postado por Rubens Farias às 10:35

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çã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%> </td>
<%next%>
    </tr>
<%while not qrSQL.EOF%>
     <tr>
  <%for i = 0 to qrSQL.Fields.Count - 1%>
    <td><%=qrSQL.Fields(i)%> </td>
  <%next%>
    </tr>
<%qrSQL.MoveNext%>
<%wend%>
</table>
<%end if%>
<%
set qrSQL = nothing
set Conn = nothing
%>
</body>
</html>

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

Postado por Rubens Farias às 10:34

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

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

segunda-feira, 22 de julho de 2002

Gravar um valor em um arquivo Excel com JavaScript

Postado por Rubens Farias às 11:11

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

Criando um novo ítem em um arquivo XML com createNode

Postado por Rubens Farias às 10:30

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

sexta-feira, 19 de julho de 2002

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

Postado por Rubens Farias às 17:06

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

Retirar acentos diretamente no SQL

Postado por Rubens Farias às 16:15

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

Ler todos os registros de um arquivo XML com JavaScript

Postado por Rubens Farias às 15:47

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 />");

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

Postado por Rubens Farias às 13:23

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

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

Postado por Rubens Farias às 02:11

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

quinta-feira, 18 de julho de 2002

Strings de conexão - ADO.NET Beta 2

Postado por Rubens Farias às 11:53

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()

quarta-feira, 17 de julho de 2002

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

Postado por Rubens Farias às 08:22

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

Trabalhando com Layers

Postado por Rubens Farias às 08:20

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>

segunda-feira, 15 de julho de 2002

Trabalhando com o Objeto Dictionary

Postado por Rubens Farias às 14:38

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")

Utilizando coleções

Postado por Rubens Farias às 09:49

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

domingo, 14 de julho de 2002

Dica : Web Matrix (IDE para .NET Free)

Postado por Rubens Farias às 20:24

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

De Tabela Para FORM <INPUTY TYPE=radio>

Postado por Rubens Farias às 15:11

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

De Tabela Para FORM <Select>

Postado por Rubens Farias às 15:05

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:

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

Caminho virtual de um arquivo

Postado por Rubens Farias às 14:51

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

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

Postado por Rubens Farias às 14:45

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

Testando CEP via expressão Regular (Regular Expression)

Postado por Rubens Farias às 14:21

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

segunda-feira, 8 de julho de 2002

Marquee vertical

Postado por Rubens Farias às 15:59

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>

quinta-feira, 4 de julho de 2002

Trabalhando com CSS2

Postado por Rubens Farias às 16:22

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>

quarta-feira, 3 de julho de 2002

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

Postado por Rubens Farias às 16:34

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 !

Cotação do Dolar em Tempo Real com ASPHTTP

Postado por Rubens Farias às 12:30

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

quarta-feira, 24 de julho de 2002

segunda-feira, 22 de julho de 2002

sexta-feira, 19 de julho de 2002

quinta-feira, 18 de julho de 2002

quarta-feira, 17 de julho de 2002

segunda-feira, 15 de julho de 2002

domingo, 14 de julho de 2002

segunda-feira, 8 de julho de 2002

quinta-feira, 4 de julho de 2002

quarta-feira, 3 de julho de 2002

Quem sou eu?

êêêê saudade...

StackOverflow

Rubens Farias' shared items

Arquivo

Google Analytics