Redirecionamento de Páginas

julho 5, 2007

Muito útil para redirecionar para um determinado site após a contagem do clique efetuado no link.

Ex: o usuário clica em um link do site / o link redireciona para uma página interna que após o loop no banco do clique efetuado / utiliza o redirecionador para o site que o link de fato faz referência.

———– Redirecionamento para página ASP ——————–  
  <%  
Response.AddHeader “Refresh”,“2 ; URL=pagina.asp”  
%>  
   
EXPLICAÇÕES  
‘— Componente ————— Tempo —– Caminho —  
‘Response.AddHeader “Refresh”,”segundos ; URL=pagina.asp  
 —————————————————————-  
================================================================  
—————————————————————-  
  
  
  
———– Redirecionamento para página HTML ——————  
 
Entre as tags <head>  </head> insira o código abaixo:  
  <META HTTP-EQUIV=”Refresh” CONTENT=”2 ; URL=pagina.html“> 
 
EXPLICAÇÕES 
‘— Componente ——————– Tempo —– Caminho — 
<META HTTP-EQUIV=”Refresh” CONTENT=”segundos ; URL=pagina.html”>  
   
================================================================  
= DICA: Em ambos os casos o caminho pode ser redirecionado     =  
= para um endereço completo Ex: http://www.codigofonte.com.br  =  
================================================================


Data com dia da semana e mês por extenso

julho 5, 2007

Para quem precisa exibir a data completa com dia da semana e mês por extenso para saudação ou mesmo para noticias está ai um otimo código.

Ex:
Response.Write(ExibeData(objRS(“data”)))
Ex2:
Response.Write(ExibeData(Now()))

<%  
Function ExibeData(data)  
  dia_semana = WeekDay(data)  
  Select Case dia_semana  
  Case 1 : dia_semana = “Domingo”  
  Case 2 : dia_semana = “Segunda-Feira”  
  Case 3 : dia_semana = “Terça-Feira”  
  Case 4 : dia_semana = “Quarta-Feira”  
  Case 5 : dia_semana = “Quinta-Feira”  
  Case 6 : dia_semana = “Sexta-Feira”  
  Case 7 : dia_semana = “Sábado”  
  End Select  
  mes = Month(data)  
  Select Case mes  
  Case 1 : mes = “Janeiro”  
  Case 2 : mes = “Fevereiro”  
  Case 3 : mes = “Março”  
  Case 4 : mes = “Abril”  
  Case 5 : mes = “Maio”  
  Case 6 : mes = “Junho”  
  Case 7 : mes = “Julho”  
  Case 8 : mes = “Agosto”  
  Case 9 : mes = “Setembro”  
  Case 10 : mes = “Outubro”  
  Case 11 : mes = “Novembro”  
  Case 12 : mes = “Dezembro”  
  End Select  
  ExibeData = dia_semana & “, “ & Day(Date()) & ” de “ & mes & ” de “ & Year(data)  
End Function  
  
‘ Exemplo  
Response.Write(ExibeData(now()))  
%> 


Validar CPF com expressão regular

julho 5, 2007

Esta função é muito útil na validação do CPF passado por parâmetro.

A função também verifica se o CPF está digitado no formato correto utilizando Expressão Regular.

Na função o CPF pode ser digitado em 2 formatos diferentes:
XXXXXXXXX-XX ou XXX.XXX.XXX-XX.

<%  
‘—————————————————–  
‘Funcao: IsCPF(ByVal intNumero)  
‘Sinopse: Verifica se o valor passado é um CPF válido  
‘          Formatos aceitos: XXX.XXX.XXX-XX ou  
‘                            XXXXXXXXXXXXXX  
‘Parametro: intNumero  
‘Retorno: Booleano  
‘Autor: Gabriel Fróes – www.codigofonte.com.br  
‘—————————————————–  
Function IsCPF(ByVal intNumero)  
    ‘Validando o formato do CPF com expressão regular  
    Set regEx = New RegExp                            ‘Cria o Objeto Expressão  
    regEx.Pattern = “d{3}.?d{3}.?d{3}-?d{2}”    ‘ Expressão Regular  
    regEx.IgnoreCase = True                            ‘ Sensitivo ou não  
    regEx.Global = True  
    Retorno = RegEx.Test(intNumero)  
    Set regEx = Nothing  
  
    ‘Caso seja verdadeiro posso validar se o CPF é válido  
    If Retorno = True Then  
        ‘Validando a sequencia números  
        Dim CPF_temp  
        CPF_temp            = intNumero  
        CPF_temp            = Replace(CPF_temp, “.”“”)  
        CPF_temp            = Replace(CPF_temp, “-““”)  
        CPF_Digito_temp        = Right(CPF_temp, 2)  
          
        ‘Somando os nove primeiros digitos do CPF  
        Soma    = (Clng(Mid(CPF_temp,1,1)) * 10) + (Clng(Mid(CPF_temp,2,1)) * 9) + (Clng(Mid(CPF_temp,3,1)) * 8) + (Clng(Mid(CPF_temp,4,1)) * 7) + (Clng(Mid(CPF_temp,5,1)) * 6) + (Clng(Mid(CPF_temp,6,1)) * 5) + (Clng(Mid(CPF_temp,7,1)) * 4) + (Clng(Mid(CPF_temp,8,1)) * 3) + (Clng(Mid(CPF_temp,9,1)) * 2)  
        ‘———————————-  
        ‘Calculando o 1º dígito verificador  
        ‘———————————-  
        ‘Pegando o resto da divisão por 11  
        Resto    = (Soma Mod 11)  
          
        If Resto = 1 Or Resto = 0 Then  
            DigitoHum = 0  
        Else  
            DigitoHum = Cstr(11-Resto)  
        End If  
        ‘———————————-  
        ‘———————————-  
        ‘Calculando o 2º dígito verificador  
        ‘———————————-  
        ‘Somando os 9 primeiros digitos do CPF mais o 1º dígito  
        Soma    = (Clng(Mid(CPF_temp,1,1)) * 11) + (Clng(Mid(CPF_temp,2,1)) * 10) + (Clng(Mid(CPF_temp,3,1)) * 9) + (Clng(Mid(CPF_temp,4,1)) * 8) + (Clng(Mid(CPF_temp,5,1)) * 7) + (Clng(Mid(CPF_temp,6,1)) * 6) + (Clng(Mid(CPF_temp,7,1)) * 5) + (Clng(Mid(CPF_temp,8,1)) * 4) + (Clng(Mid(CPF_temp,9,1)) * 3) + (DigitoHum * 2)  
        ‘Pegando o resto da divisão por 11  
        Resto    = (Soma Mod 11)  
          
        If Resto = 1 Or Resto = 0 Then  
            DigitoDois = 0  
        Else  
            DigitoDois = Cstr(11-Resto)  
        End If  
        ‘———————————-  
        ‘Verificando se os digitos são iguais aos digítados.  
        DigitoCPF = Cstr(DigitoHum) & Cstr(DigitoDois)  
        If Cstr(CPF_Digito_temp) = Cstr(DigitoCPF) Then  
            Retorno = True  
        Else  
            Retorno = False  
        End If  
    End If  
    IsCPF = Retorno  
End Function  
%> 


Descobrir o país a partir do endereço IP

julho 5, 2007

Descobrir o país a partir do endereço IP

<%
Option Explicit
‘Declarando das Variáveis
Dim ip

‘Requisitando os parâmetros
ip = Request.Form(“ip”)

Public Function getPaisFromIP(ByVal ip)
‘Declarando das Variáveis
Dim objCon
Dim objRs
Dim ipLongo
Dim bdAccess
Dim sql

‘Convertendo o IP para Longo
ipLongo = convertIPToLongo(ip)

‘Abrindo Conexão com o Banco de Dados
bdAccess = Server.Mappath(“ipPaises.mdb”)
Set objCon = Server.CreateObject(“ADODB.Connection”)
objCon.open “PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=” & bdAccess & “;”

‘Query para descobrir o país do IP
sql = “SELECT TBIP.*, TBPAISES.PAIS FROM TBIP INNER JOIN TBPAISES ON TBIP.SIGLA_PAIS = TBPAISES.SIGLA_PAIS WHERE “ & ipLongo & ” BETWEEN IP_INICIO AND IP_FIM”

‘Executando a Query
Set objRs = Server.CreateObject(“ADODB.RecordSet”)
Set objRs = objCon.execute(sql)

If Not objRs.EOF Then
getPaisFromIP = objRs(“PAIS”) & ” (“ & objRs(“SIGLA_PAIS”) & “)”
Else
getPaisFromIP = “Não encontrado.”
End If

‘Destruição dos objetos
objRs.close
objCon.close
set objRs = Nothing
Set objCon = Nothing
End function

Function convertIPToLongo (ByVal ip)
Dim Cont
Dim Pos
Dim AntPos
Dim Num

If ip = “” Then
convertIPToLongo = 0
Else
For Cont = 1 To 4
Pos = InStr(AntPos + 1, ip, “.”, 1)
If Cont = 4 Then
Pos = Len(ip) + 1
End If
Num = Int(Mid(ip, AntPos + 1, Pos – AntPos – 1))
AntPos = Pos
convertIPToLongo = ((Num Mod 256) * (256 ^ (4 – Cont))) + convertIPToLongo
Next
End If
End Function
%>
<!DOCTYPE html PUBLIC ‘-//W3C//DTD XHTML 1.0 Transitional//EN’ ‘http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd’&gt;
<html xmlns=http://www.w3.org/1999/xhtml&#8221; xml:lang=“pt” lang=“pt-br”>
<head><title>DEMO : Descobrir o País a partir do IP</title></head>
<style>body{font:normal 12px tahoma}</style>
<body>
<h1>DEMO : Descobrir o País a partir do IP</h1>
Digite o Endereço IP (xxx.xxx.xxx.xxx)<br />
<form action=“<%=Request.ServerVariables(“SCRIPT_NAME“)%>” method=“POST”>
<input type=“text” size=“20” name=“ip” />
<input type=“submit” value=“Enviar” />
<form>
<%If Len(ip) > 10 Then%>
<h2>Resultado:</h2>
Endereço IP: <b><%=ip%></b><br />
País: <b><%=getPaisFromIP(ip)%></b>
<%Else%>
<br />IP Inválido.
<%End If%>
</body>
</html>

Créditos do criador do código fonte: http://www.codigofonte.com.br/codigo/asp/ambiente/descobrir-o-pais-a-partir-do-endereco-ip


VbScript: FormatDateTime ()

junho 29, 2007

Retorna Data ou Hora formatada de acordo com parâmetros. Ex:

Dim dataAtual, dataFormatada
dataAtual = now ( )
dataFormatada = FormatDateTime(dataAtual, 1)

Códigos de Formato :
0 – Retorna o formato short date (caso seja passado apenas a hora o retorno será a hora, se passar a data o retorno será a data, se passar ambos, como short format)
1 – long date
2 – short date format especificado nas Configurações Regionais do computador
3 – Retorna a hora especificada nas Configurações Regionais do computador
4 – Retorna a hora usando o formato 24horas (hh:mm)


Taxa de Dolar direto do BCB

maio 29, 2007

<%
Set XMLHttp = Server.CreateObject(“Microsoft.XMLHTTP”)
XMLHttp.open “GET”, “http://www.bcb.gov.br/htms/infecon/taxas/taxas.htm&#8221;, false
XMLHttp.send()
pega = XMLHttp.ResponseText
cotacao = LCase(pega)
Set cod = Nothing

i = 1
teste = cotacao
i = inStr(i,cotacao,”taxa de venda”)
i = inStr(i,cotacao,”<tr>”)
i = inStr(i,cotacao,”<td”)
i = inStr(i,cotacao,”>”)
f = inStr(i,cotacao,”</td>”)
cotacao_data = Mid(cotacao,i,(f-i))
cotacao_data = Replace(cotacao_Data,”>”,” “)
i = inStr(f,cotacao,”<td “)
i = inStr(i,cotacao,”>”)
f = inStr(i,cotacao,”</td>”)
cotacao_venda = Mid(cotacao,i,(f-i))
cotacao_venda = Replace(cotacao_venda,”>”,” “)
i = inStr(f,cotacao,”<td “)
i = inStr(i,cotacao,”>”)
f = inStr(i,cotacao,”</td>”)
cotacao_compra = Mid(cotacao,i,(f-i))
cotacao_compra = Replace(cotacao_compra,”>”,” “)

response.write “Data: “&cotacao_data&”<br>”
response.write “Dolar Venda: “&cotacao_venda&”<br>”
response.write “Dolar Compra : “&cotacao_compra&”<br>”

%>

Fonte: http://artigos.scriptfacil.com/?arquivo=e&t=4&a=29


Tela Cheia

maio 28, 2007

Exemplo em Javascript de abertura de um site em tela cheia a partir de um botão:

<script languae=”javascript”>
function Abrir(url)
{
window.open(url,”,’fullscreen=yes’);
}
</script>

<input type=”button” NAME=”btnAbrir” value=”Abrir em Tela Cheia” onclick=”Abrir(‘http://www.bol.com.br&#8217;);”>