Senhas Aleatórias com Números e Letras

<%
Function GerarChave(valores)

Dim chr_Array(35)

chr_array(0) = "0"
chr_array(1) = "1"
chr_array(2) = "2"
chr_array(3) = "3"
chr_array(4) = "4"
chr_array(5) = "5"
chr_array(6) = "6"
chr_array(7) = "7"
chr_array(8) = "8"
chr_array(9) = "9"
chr_array(10) = "a"
chr_array(11) = "b"
chr_array(12) = "c"
chr_array(13) = "d"
chr_array(14) = "e"
chr_array(15) = "f"
chr_array(16) = "g"
chr_array(17) = "h"
chr_array(18) = "i"
chr_array(19) = "j"
chr_array(20) = "k"
chr_array(21) = "l"
chr_array(22) = "m"
chr_array(23) = "n"
chr_array(24) = "o"
chr_array(25) = "p"
chr_array(26) = "q"
chr_array(27) = "r"
chr_array(28) = "s"
chr_array(29) = "t"
chr_array(30) = "u"
chr_array(31) = "v"
chr_array(32) = "w"
chr_array(33) = "x"
chr_array(34) = "y"
chr_array(35) = "z"

Randomize
do while len(chave) < 06
num = chr_array(Int(35 * Rnd ))
chave = chave + num
loop
GerarChave = chave
End Function

response.write "Senha gerada:  " & GerarChave(06) '& vbcrlf

%>

Esta matéria foi postada originalmente no ASP4Developers por Marcio Lima (Guardião) (site), que na época era "Programador ASP e VBA, apaixonado por Design, futurismo e ficção.
". Hoje, vai saber...

MSXML4

Estou impressionado. Estava fazendo uns testes com o recém lançado MSXML4, a respeito do divulgado aumento de performance de 4 a 8 vezes. Uma página que levava ~3.5 segundos para ser processada com XSLT, passou a ser em ~0.5 segundo! O único incoveniente foi declarar o namespace do documento XSL, antes de exeutar uns XPaths (o que tem um certo sentido).

Segundo a documentação divulgada em http://msdn.microsoft.com/xml/ , o suporte ao SAX está mais rápido, adere aos padrões do W3C e possui "uma verdadeira funcionalidade side-by-side", o que significa que instalando a versão 4.0 não é perdido o suporte as versões anteriores e nem as futuras. Com a remoção do "replace mode", os recursos da versão 4.0 só serão utilizados caso utilize os Version-Dependent ProgID

Caso vc vá instalar e está confuso em qual pacote baixar, vá direto no "Installer", pois ele já possui o SDK tbém. Mas note, vc precisa desregistrar a msxml4.dll, caso tenha instalado os Tecnology Preview. Para isso faça:

regsvr32 /u msxml4.dll
regsvr32 msxml3.dll

No prompt de comando e depois comece a instalação. Um link para a documentação será colocado no seu desktop. Aí é só correr pro abraço!

Aproveitando o papel, aviso que dentro de pouco tempo o ASP4D 2.0 vai ser publicado. terminei o layout e estou trabalhando no fórum. Não vou prometer datas, mas ressalto que vai ser logo mesmo! Stay tunned!

Cya!

Esta matéria foi postada originalmente no ASP4Developers por Rubens N. Farias (site), que na época era "pós-graduado em análise de sistemas orientados a objetos, MCP, MCSD, MCAD, MCSD.NET e consultor em TI, além de idealizador do projeto ASP4Developers. Desenvolve sistemas sob medida, focados na satisfação do usuário, com qualidade e custo realista.". Hoje, vai saber...

Fade de Texto em ASP

Hahahaha, dpois q tudo q me falam que dá pra fazer isto com CSS, bom agora q já ta feito ...
Hehehehe, espero q sirva para alguem.

Nivel  - Intermediário

<%

' Uma produção dos estudios Half Malf

' Obrigado aos amigos "Underground",
' "Voodoo", "Th3V1rus","ED+","Hand Full", "Xanddinho"
' q constantemente tiram as minhas dúvidas.


' str Variavel a ser "FADEADA"

' R1 A quantidade de vermelho inicial ( 0 - 255 )
' G1 A quantidade de verde inicial    ( 0 - 255 )
' B1 A quantidade de Azul inicial     ( 0 - 255 )

' R2 A quantidade de vermelho final ( 0 - 255 )
' G2 A quantidade de verde final    ( 0 - 255 )
' B2 A quantidade de Azul final     ( 0 - 255 )

function fadeText(str, R1, G1, B1, R2,G2, B2)
   
 Dim htmlTxtxt, X
 
    if str = "" Then Exit function
 
    R2 = ((R2 - R1) / Len(str))
    G2 = ((G2 - G1) / Len(str))
    B2 = ((B2 - B1) / Len(str))
   
 For X = 0 To Len(str) - 1
     R = Abs(Int(R1 + (R2 * X)))
     G = Abs(Int(G1 + (G2 * X)))
     B = Abs(Int(B1 + (B2 * X)))
     
  htmlTxt = htmlTxt & "<FONT color="
     htmlTxt = htmlTxt & Chr(34) & "#"
     
  if R < 17 Then htmlTxt = htmlTxt & "0"
      htmlTxt = htmlTxt & Hex(R)
     if G < 17 Then htmlTxt = htmlTxt & "0"
      htmlTxt = htmlTxt & Hex(G)
     if B < 17 Then htmlTxt = htmlTxt & "0"
      htmlTxt = htmlTxt & Hex(B)
      htmlTxt = htmlTxt & Chr(34)
      htmlTxt = htmlTxt & ">"
      htmlTxt = htmlTxt & Mid(str, X + 1, 1)
      htmlTxt = htmlTxt & "</FONT>"
    Next
 
    fadeText = htmlTxt
 
    End function
%>
 

<%= fadeText("ASP4Developers ASP4Developers ASP4Developers", 0,0,0,255,255,255) %>

 

Esta matéria foi postada originalmente no ASP4Developers por Ismael Nobre (site), que na época era "Analista.
Quer me contratar ?
Cel. 96420687". Hoje, vai saber...

Diferença entre horas pré-definidas

Uma maneira bem simples de calcular diferenças entre horários.
Eu bati neste problema quando montava um sisteminha para controlar meus horarios ( tipo consultor ).
Assim q ele estiver pronto vou colocar para Download.
Qualquer melhoria, não esqueçam de postar.

<%

function horas(intervalo,Entrada01,Saida01,Entrada02,Saida02)

 'pega a diferença em segundos
 dia01 = DateDiff (intervalo,Entrada01,Saida01)
 dia02 = DateDiff (intervalo,Entrada02,Saida02)

 'faz a somatória dos segundos
 totalSegundos = dia01 - dia02

 'separa horas:minutos do total
 segundos = (totalSegundos) mod  60
 minutos = (( totalSegundos - segundos) / 60) mod 60
 horas = int((totalSegundos) / 3600)
 
 response.write horas &":"&minutos&":"&segundos
end function

response.write horas("s","08:59:0","18:46:00","12:00:00","13:00:00")

%>

Esta matéria foi postada originalmente no ASP4Developers por Ismael Nobre (site), que na época era "Analista.
Quer me contratar ?
Cel. 96420687". Hoje, vai saber...

Função para ajudar a depurar ASP

Esta função é feita em ASP com javascript, basta passa a mensagem ou variável desejada como parâmetro para ser exibida.
Espero ter ajudado!!

<html>
<head>
<title>Função de Depuração - Myers :: mayersk@hotmail.com</title>
</head>

<body bgcolor="#FFFFFF">
<%
'Exibe em uma janela Pop-up a mensagem passada como parêmetro
Function MsgBox(msg)
   MsgBox = "<script>alert('"&replace(msg,"'","""")&"')</script>"
End Function

   variavel = 0
   response.write MsgBox("valor inicial:"&variavel)
   response.write "<br>Valor Inicial:"&variavel

   '-- Seção 1 --
   variavel = variavel + 1
   response.write MsgBox("Secao 1\nvalor:"&variavel)
   response.write "<br>Seção 1 >> valor:"&variavel

   '-- Seção 2 --
   variavel = variavel + 3
   response.write MsgBox("Secao 2\nvalor:"&variavel)
   response.write "<br>Seção 2 >> valor:"&variavel

   '-- Seção 3 --
   variavel = variavel + 1
   response.write MsgBox("Secao 3\nvalor:"&variavel)
   response.write "<br>Seção 3 >> valor:"&variavel

   '-- Seção 4 --
   variavel = variavel + 2
   response.write MsgBox("Secao 4\nvalor:"&variavel)
   response.write "<br>Seção 4 >> valor:"&variavel

   response.write MsgBox("valor final:"&variavel)
   response.write "<br>Valor Final:"&variavel
%>
<br>
<br>
<a href="mailto:mayersk@hotmail.com">
<font face="Arial, Helvetica, sans-serif" size="2" color="#000000" style="text-decoration:none;">Myers
:: mayersk@hotmail.com</font> </a>
</body>
</html>

Esta matéria foi postada originalmente no ASP4Developers por Rafael "M4yers" Rossi (site), que na época era "...". Hoje, vai saber...

Execute um script SQL pelo VB

O exemplo a seguir executará um script SQL em um arquivo.  Desta maneira, o arquivo pode conter multiplos comandos, mas somente um único batch (sem comandos 'GO').  Se você precisa executar um arquivo de script contendo mais de um batch, você terá que ler o arquivo linha a linha e executar os comandos contidos nas linhas lidas, quando você encontrar um comando 'GO'.  Note que 'GO' é um delimitador de batches e não um comando T-SQL, portanto, você não pode incluí-lo na string do query enviado ao servidor.

Set oCn = CreateObject("ADODB.Connection")
Set oFSO = CreateObject("Scripting.FileSystemObject")
oCn.Open "Provider=SQLOLEDB;Data Source=MyServer;Initial
Catalog=MyDatabase;Integrated Security=SSPI"
oCn.Execute oFSO.OpenTextFile("C:\SQLScripts\MySQLScript.sql").ReadAll

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

Limitar tamanho de palavras

Algumas vezes, é interessante quebrar o conteúdo de uma palavra gigantesca em palavras menores, mesmo que nao necessariamente corretamente separada, mas apenas para preservar o tamanho de uma tabela. Tente o código abaixo:

Function Quebra( texto, maximo )
dim i, retorno, matriz
matriz  = split( texto, " " )
retorno = ""
for i = 0 to uBound( matriz )
    do while len( matriz(i) ) > maximo
       retorno = retorno & left( matriz( i ), maximo ) & " "
       matriz( i ) = mid( matriz( i ), maximo + 1 )
    loop
    retorno = retorno & matriz( i ) & " "
next
Quebra = trim( retorno )
end function

Existem outras formas, envolvendo CSS, mas esta é a mais compatível com os diferentes browsers do mercado.

Esta matéria foi postada originalmente no ASP4Developers por Rubens N. Farias (site), que na época era "pós-graduado em análise de sistemas orientados a objetos, MCP, MCSD, MCAD, MCSD.NET e consultor em TI, além de idealizador do projeto ASP4Developers. Desenvolve sistemas sob medida, focados na satisfação do usuário, com qualidade e custo realista.". Hoje, vai saber...