Função de leitura de queries em JSCRIPT para (IB 6 / Firebird)

function lerquery(strSQL){
 var sNome  = Request.ServerVariables("SERVER_NAME");
 var sCaminho = Server.MapPath("<caminho_seu_DB>");

 var sConn = "DRIVER={Easysoft IB6 ODBC};" +
 "SERVER="+ sNome +";"+
 "DATABASE="+ sNome +":"+ sCaminho +";"+
 "UID=SYSDBA;"+
 "PWD=;"+
 "DIALECT=3;"+
 "CHARSET=ISO8859_1;"+
 "ROLE=";

 var cmd = new ActiveXObject("ADODB.Command");
 with (cmd)
 {
  ActiveConnection = sConn;
  CommandText = strSQL;
  CommandType = 1;
  CommandTimeout = 3;
  Prepared = true;
 }
 var lerquery = cmd.Execute();
 return(lerquery);
}

Esta matéria foi postada originalmente no ASP4Developers por César M. Conceição (site), que na época era "Analista / Programador Pleno, mais de 4 anos de experiência no desenvolvimento de sistemas online.(HTML/XHTML/ASP/JAVASCRIPT/DHTML/MS SQL/FIREBIRD/INTERBASE/ACCESS)". Hoje, vai saber...

Salvar um Recordset em um arquivo TXT

O código ASP abaixo salva um recorset INTEIRO em um arquivo de texto, delimitado por ;

set fs = Server.CreateObject("Scripting.FilesystemObject")

set arquivo = fs.CreateTextFile(arquivo.txt)

arquivo.Write (rsgeral.GetString(adClipString, , ";", vbCrLf, ""))

 

Esta matéria foi postada originalmente no ASP4Developers por ROBSON MENDONÇA, que na época era "Desenvolvedor de Tecnologias Microsoft". Hoje, vai saber...

Apagar mais de um ítem em um listbox

Se você tem um botão que apaga um ítem em um listbox, sabe do problema que se tem quando tentamos apagar mais de um ítem. Esse código resolve o problema:

function apaga_item()
{
var f = document.frm1.list1.options.length;
var items = '';
for(var i = 0; i < f; i++)
{
if (document.frm1.list1.options[i].selected)
{
 items = items + ';' + i
}
}
items=items + ';';
var t = document.frm1.list1.options.length;
var f = -1;
for(var d = 0; d < t + 1; d++)
{
var s = ';'+d+';';
if(items.search(s)!=-1)
{
if(f==-1)
{
document.frm1.list1.options[d] = null;
f=d;
}
else
{
document.frm1.list1.options[f] = null;
}
}
}
}

Esta matéria foi postada originalmente no ASP4Developers por ROBSON MENDONÇA, que na época era "Desenvolvedor de Tecnologias Microsoft". Hoje, vai saber...

Validação de Data

Script para validar uma data enviada por um parâmetro, validando inclusive so o ano é bisexto

{
var a=document.frm1.data01.value
var chk    = 0;
var maxDay = 0;

var dd = a.slice(0,2)
var mm = a.slice(3,5)
var yyyy = a.slice(6,10)

maxDay = max_day(mm, yyyy); 

if((dd <= 0) || (dd > maxDay))
{ chk = 1;}
else if((mm <= 0) || (mm > 12))
{ chk = 1;}
else if((yyyy <= 0))
{ chk = 1;}

if(chk == 1)
{
alert('Data Inválida! Tente novamente');
document.frm1.data01.value='';
document.frm1.data01.focus()
}
else
{
document.frm1.submit();
}
}
function max_day(mn, yr)
{
   var mDay;
if((mn == 4) || (mn == 6) || (mn == 9) || (mn == 11))
{
mDay = 30;
}
else if(mn == 2)
{
mDay = isLeapYear(yr) ? 29 : 28;   
}
else
{
mDay = 31;
}
return mDay;

}

function isLeapYear(yr)
{
if (yr % 2 == 0)
return true;
return false;
}

Esta matéria foi postada originalmente no ASP4Developers por ROBSON MENDONÇA, que na época era "Desenvolvedor de Tecnologias Microsoft". Hoje, vai saber...

Combos de Datas

Esse código gera combos de acordo com a data passada por parametro. Caso nehuma data seja informada, o script usa a data atual.

 function GeraComboDia(d)
 dim data, dia, i, msg
  msg = ""
  data = trim(d)

  if data <> "" and isDate(data) then
   dia = day(data)
  else
   dia = day(now)
  end if
  
  for i = 1 to 31
   if i = dia then
    msg = msg & "<option value='" & i & "' selected>" & right("00" & i,2) & "</option>"
   else
    msg = msg & "<option value='" & i & "'>" & right("00" & i,2) & "</option>"
   end if
  next
  
  GeraComboDia = msg
 end function

 function GeraComboMes(d)
 dim data, mes, i, msg
  msg = ""
  data = trim(d)

  if data <> "" and isDate(data) then
   mes = month(data)
  else
   mes = month(now)
  end if
  
  for i = 1 to 12
   if i = mes then
    msg = msg & "<option value='" & i & "' selected>" & Meses(i) & "</option>"
   else
    msg = msg & "<option value='" & i & "'>" & Meses(i) & "</option>"
   end if
  next
  
  GeraComboMes = msg
 end function

 function GeraComboAno(d)
 dim data, ano, i, msg
  msg = ""
  data = trim(d)

  if data <> "" and isDate(data) then
   ano = year(data)
  else
   ano = year(now)
  end if
  
  for i = (year(now) - 5) to (year(now) + 5)
   if i = ano then
    msg = msg & "<option value='" & i & "' selected>" & i & "</option>"
   else
    msg = msg & "<option value='" & i & "'>" & i & "</option>"
   end if
  next
  
  GeraComboAno = msg
 end function

O gera combo de Ano usa apenas 10 anos (os 5 ultimos e os 5 proximos). Esses valores podem ser mudados de acordo com a utilidade.

Para gerar os combos use:

<select name="dia">
<%= GeraComboDia(now()) %>
</select>

<select name="mes">
<%= GeraComboMes(now()) %>
</select>

<select name="dia">
<%= GeraComboAno(now()) %>
</select>

Esta matéria foi postada originalmente no ASP4Developers por Danilo Freitas, que na época era "Programador em VB, VBScript e SQL Server.". Hoje, vai saber...

Valida E-mail via ASP

Essa funcao tem como base um email no formato minimo de x@x.x

 function ValidaEmail(text)
  dim x, strArr, strDot, valida
  x = trim(text)
  strArr = instr(x,"@")
  valida = true
  
  if strArr < 2 then
   valida = false
  else
   x = mid(x,strArr + 1,len(x))
   strDot = instr(x,".")

   if instr(x,"@") <> 0 then valida = false
   if strDot < 2 then valida = false
   x = mid(x,strDot + 1,len(x))
   if trim(x) = "" then valida = false
  end if
  
  ValidaEmail = valida
 end function

Para testar eh so usar:
if not ValidaEmail("x@x.x")then
  response.write("email invalido")
  response.end()
end if

Esta matéria foi postada originalmente no ASP4Developers por Danilo Freitas, que na época era "Programador em VB, VBScript e SQL Server.". Hoje, vai saber...

Janelas Popup no Datagrid .net

Em meu Datagrid eu tenho uma coluna HyperLinkColumn.  Sempre que um usuário clicar nela, uma janela pop-up se abrirá com um conteúdo relativo ao link.

Isto parece fácil exceto por um problema: Uma janela extra se abre com o texto: [object]. 

Este é o código que cria a coluna Hyperlink: 

HyperLinkColumn col3 = new HyperLinkColumn();
col3.DataNavigateUrlFormatString = javascript:window.open('detalhe.aspx?id={0}'','','width=640;height=480;
scrollbars=1; resizable=1');"
col3.DataTextField = "Produto";
col3.DataNavigateUrlField = "CodProduto";
grid1.Columns.Add(col3);

O objeto Hyperlink instrui ao browser para avaliar a expressão e trocar a pagina corrente pelo seu resultado, a menos que esse resultado seja void.
O valor retornado por window.open é um objeto, cuja representação string é a palavra [object].

Para se livrar deste efeito colateral, certifique-se que a expressão avaliada resulta em void

Aqui segue o que eu fiz para evitar este problema:

Na página aspx:

<SCRIPT LANGUAGE="JavaScript">
<!--
   void function popUp(URL)
   {
      window.open(URL, 'detalhe', 'toolbar=0,scrollbars=0,location=0,statusbar=0,menubar=0,resizable=0,width=700,height=500,left=10,top=10');
   }
// -->
</script>

no code-behind, mudei a linha para:
col3.DataNavigateUrlFormatString = "javascript:popUp('detalhe.aspx?id={0}');";

Esta matéria foi postada originalmente no ASP4Developers por Valmir Cinquini (site), que na época era "Analista/Programador C#, VB.Net, ASP, VB, Javascript e T-SQL

www.cinquini.com.br/vcinquini>". Hoje, vai saber...

Como criar um XML via código ASP

<%
  Dim xmldoc
  Set xmldoc = Server.CreateObject("Microsoft.XMLDOM")

  ' Checa se o documento tem algum conteudo
  If (xmldoc.childNodes.length = 0) Then
    ' Criando o documento XML
    Set root = xmldoc.createNode("element", "Hi-Tech", "")
    xmldoc.appendChild (root)

    Set onode = xmldoc.createNode("element", "Employee", "")
    onode.Text = "Gurpreet Singh"

    xmldoc.documentElement.appendChild (onode)
    Set inode = xmldoc.createNode("element", "Address", "")

    onode.appendChild (inode)

    Set child = xmldoc.createNode("element", "Address1", "")
    child.Text = "Nepean Ont"

    inode.appendChild (child)

    Set child = xmldoc.createNode("element", "Address2", "")
    child.Text = "Canada"
    inode.appendChild (child)
  End If

' salva o arquivo xml
  xmldoc.save (Server.Mappath("savedI2.xml"))
%>

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