Rubens Farias' weblog: outubro 2000

terça-feira, 10 de outubro de 2000

Criar MDB pelo DAO 3.6

Postado por Rubens Farias às 12:45

Const dbVersion10 = 1
Const dbVersion11 = 8
Const dbVersion20 = 16
Const dbVersion30 = 32
Const dbVersion40 = 64
Sub CreateNewMDB(FileName, Format)
  Dim Engine 
  Set Engine = CreateObject("DAO.DBEngine.36")
  Engine.CreateDatabase FileName, ";LANGID=0x0409;CP=1252;COUNTRY=0", Format
End Sub

'Create Access2000 database
CreateNewMDB "G:\a2000.mdb", dbVersion40

Retirado de http://www.pstruh.cz/tips/detpg_createmdb.htm

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

Compacte bancos de dados MDB pelo ASP/VBS script

Postado por Rubens Farias às 12:40

Você pode compactar bancos de dados do Access (MDB) de uma aplicação ASP de duas formas:

1. Via DAO (versão 3.5 precisa estar instalada)
Set Engine = CreateObject("DAO.DBEngine.35")
Engine.CompactDatabase "path\database.mdb", "path\compacted_database.mdb"

2. JRO (MDAC 2.1 ou superior precisa estar instalado)
Set Engine = CreateObject("JRO.JetEngine")
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=path\database.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=path\compacted_database.mdb"

Ambas as soluções não suportam a compactação para o mesmo nome de arquivo. Você precisa criar um banco de dados compactado temporário e então copiá-lo sobre o bancos de dados original.

Retirado de http://www.pstruh.cz/tips/detpg_CompactMDB.htm

sábado, 7 de outubro de 2000

Gerando números aleatórios

Postado por Rubens Farias às 15:32

Para gerar um numero aleatorio em um intervalo use a seguinte fórmula onde upperbound é o intervalo superior e lowerbound o intervalo inferior.

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

Retirado do news uol.mundodigital.linguagens.asp

O que o servidor tem a dizer ?

Postado por Rubens Farias às 15:27

Use as linhas abaixo para ver as variáveis de servidor disponíveis:

Retirado do news uol.mundodigital.linguagens.asp

Determinar o tamanho de um arquivo

Postado por Rubens Farias às 14:46

Para arquivos, retorna o tamanho, em bytes, do arquivo especificado. Para pastas, retorna o tamanho, em bytes, de todas as subpastas e arquivos contidos na pasta.

O object é sempre um objeto File ou Folder.

O código a seguir ilustra o uso da propriedade Size com um objeto Folder:

Sub ShowFileSize(filespec)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    s = UCase(f.Name) & " uses " & f.size & " bytes."
    response.write s
End Sub

Postado em uol.mundodigital.linguagens.asp por Cyber Walker

quinta-feira, 5 de outubro de 2000

Listar diretórios

Postado por Rubens Farias às 16:36

Use o codigo abaixo para que possa listas um diretorio !
<%

diretorio = "d:/Intetpub/wwwroot/123"
arquivos = showfolderlist(diretorio)

Function ShowFolderList(folderspec)
            Dim fso, f, f1, fc, s
            Set fso = CreateObject("Scripting.FileSystemObject")
    if fso.FolderExists(folderspec) Then
             Set f = fso.GetFolder(folderspec)
              Set fc = f.Files
             total = 0
             For Each f1 in fc
     if f1.Name<>"Default.asp" Then
         response.write "<a href='d:/" & f1.Name & "'</a> " & f1.Name & "<br>"
     end if
             Next
    else
       total = 0
    end if
            ShowFolderList = arquivos
          End Function

%>

Aproveite !

Esta matéria foi postada originalmente no ASP4Developers por Vinicius Martins (site), que na época era "Espero poder ajudar sempre que puder !". Hoje, vai saber...

Usuários on-line

Postado por Rubens Farias às 16:29

Crie uma pagina e coloque o código abaixo:

<% response.write "Estamos com " & Application("QuantosAgora") & " usuário(s) conectados no momento !" %>

-------------------------------------------

Crie um Global.asa e faca o seguinte:

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
' Sub Application_OnStart é a função que dispara
' cada vez que o servidor internet começa.

' Aqui vamos validar o tempo que ahcamos que o utilizador
' está válido on-line. (se não houver actividade por parte
' do mesmo em x minutos, é feito um log off, apagando-se
' a sua instância da variável de sessão)
Session.Timeout = 1

' O método .Lock tranca a variável Applicationpara que possamos
' actualizar a mesma. Se não a trancarmos a mesma não será
' alterada, neste caso a variável "QuantosAgora"
Application.Lock

' Vamos começar a veriável em 0
Application("QuantosAgora") = 0

        ' Destrancamos agora
        Application.UnLock
End Sub
Sub Session_OnStart
        ' Sub Session_OnStart é a função que dispara
        ' por cada vez que um utilizador entra no site

        ' Aqui vamos então incrementar a nossa variável
      Application.Lock
Application("QuantosAgora") = Application("QuantosAgora") + 1
Application.UnLock
End Sub
Sub Session_OnEnd
        ' Sub Session_OnEnd é a função que desperta
        ' por cada vez que um utilizador sai, é definido n
' minutos depois do utilizador sair ou estiver inactivo.
        ' Estes n minutos são definidos por Session.Timeout em
' Sub Application_OnStart

' então,quanto um utilizador é contado como menos um
' acesso simultâneo e por isso vamos decrementar a variável
' "QuantosAgora"
Application.Lock
Application("QuantosAgora") = Application("QuantosAgora") - 1
Application.UnLock
End Sub
</SCRIPT>

Salve dentro do diretorio e confira !

Esta matéria foi postada originalmente no ASP4Developers por Vinicius Martins (site), que na época era "Espero poder ajudar sempre que puder !". Hoje, vai saber...

quarta-feira, 4 de outubro de 2000

Enviar formulário por email sem componentes

Postado por Rubens Farias às 16:35

Use o código abaixo para enviar um formulário por email, sem utilizar componentes:

Seu email:<input type=text name=email><br>

Cor do seu cabelo:<input type=text name=cabelo><br>
Versão do Quake Instalada:<input type=text name=versao><br>

Outros comentários:<textarea name=comentarios></textarea>

</form>

Identificando o navegador

Postado por Rubens Farias às 15:55

Para acessar visualizar o browser que o visitante está usando, basta acessar a variável appName do objeto navigator, como segue:

Usuários Online

Postado por Rubens Farias às 12:19

Ao utilizar o global.asa para saber quantos são as conexões ativas no momento, e quiser que o contador seja decrementado, em um minuto após a sessão terminar, use:

Session.TimeOut = 1

Boa Sorte!
[]'s
ASPrendiz

Esta matéria foi postada originalmente no ASP4Developers por Kleber Shimabuku (site), que na época era "Programador ASP". Hoje, vai saber...

terça-feira, 3 de outubro de 2000

Criando gráficos dinâmicos

Postado por Rubens Farias às 13:14

Para fazer gráficos de barras/colunas dinâmicos, você não precisa de applets java. Basta você criar uma imagem GIF, de dimensões de 1x1 e redimensioná-la, usando os parâmetros width e height da tag IMG:

<%
set rsquery = conn.execute( "select campo_numerico from tabela order by campo_numerico" )
do while not rsquery.eof %>
<img src="pixel.gif" width="10" height="<%= rsquery("campo_numerico") %>"><%
rsquery.movenext
loop %>

Tabela com cores alternadas

Postado por Rubens Farias às 13:13

Para listar todos os dados de um recordset em uma tabela usando cores alternadas, faça o seguinte:

<% sql = "select * from tabela"
     Set Rs = conexao.execute(sql)
     cor = 1
     do while not rs.eof
             if (cor = 1) then
                 bg = "#FFFFFF"
                 cor = 2
             else
                 bg = "#000000"
                 cor = 1
             end if
             %>
              <td bgcolor="<%=bg%>">rs("nome")</td>
    <%   rs.movenext
     loop %>

Esta matéria foi postada originalmente no ASP4Developers por Kleber Shimabuku (site), que na época era "Programador ASP". Hoje, vai saber...

Listando as variáveis enviadas por um formulário

Postado por Rubens Farias às 13:02

O código abaixo ajuda a visualizar os campos enviadas por um formulário:

<%
for each x in request.form
response.write( x & ": " & request.form( x ) & "<br>" )
next
%>

Como depurar o "500 server error" ?

Postado por Rubens Farias às 12:49

Esse erro atrapalha na depuração dos scripts e é causado por uma configuração default do Internet Explorer. Vá em ferramentas, Opções da Internet, Avançado, Navegação e desabilite a opção "Mostrar mensagens de erro http amigáveis"

Como pesquisar campos data

Postado por Rubens Farias às 12:41

É comum nos depararmos com a necessidade de filtarmos consultas por campos data. Dependendo do banco de dados, é necessário utilizarmos alguns caracteres especiais, que variam conforme o banco de dados utilizado. Segue a codificação, para tabelas do MS-Access, acessando os registros que tenham data menor ou igual a de hoje, ordenados pelo campo data, decrescente:

sqlStmt = "SELECT * FROM tabela WHERE Campo_data >= #" & month(now) & "/" & day(now) & "/" & uear(now) & "# order by campo_data desc"
set rsquery = conn.execute( sqlStmt )

Conexão ADO DSN-less

Postado por Rubens Farias às 12:35

Como conectar-se a um banco de dados ? Essa pergunta é frequentemente feita e tem uma resposta simples.

Tomando como base que a grande maioria dos desenvolvedores ASP utilizam bancos de dados Access, coloque as seguintes linhas no início da execução, substituindo o "arquivo.mdb" pelo nome do seu banco de dados:

dim conn
set conn = server.createobject("adodb.connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("arquivo.mdb")

Mantenha a ordem nos programas

Postado por Rubens Farias às 12:31

É muito comum nos perdermos na lógica dos programas, por não praticarmos tarefas simples:

Idente o código, tanto ASP quanto HTML

Comente o código, explicando o que ele faz

Lembre-se que o código a gente escreve "para os outros"

Utilize nomes de variáveis que sugiram seu conteúdo

Isso facilita (e muito!) a manutenção.

segunda-feira, 2 de outubro de 2000

Qual o endereço IP do visitante ?

Postado por Rubens Farias às 15:34

Para mostrar o endereço IP do visitante:

<%= request.servervariables( "REMOTE_ADDR" ) %>

Bem-vindo, Visitante!

Postado por Rubens Farias às 14:57

Essa é a primeira versão do Asp4Developers, um local onde desenvolvedores podem compartilhar informações que são constantemente solicitadas em newsgroups (tipo, como fazer uma autenticação de usuários, etc.)

A idéia é que este site sirva como um banco de dados, sendo acessado e atualizado pelos próprios visitantes.

O layout está bem simples e talvez algumas coisas não funcionem ou estejam faltando. Nesse caso, envie um email para mim que eu tentarei fazer as alterações assim que eu tiver um tempinho livre.

Um abraço e seja bem-vindo!

Rubens Farias' weblog