terça-feira, 10 de outubro de 2000

0

Criar MDB pelo DAO 3.6

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

0

Compacte bancos de dados MDB pelo ASP/VBS script

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



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

sábado, 7 de outubro de 2000

1

Gerando números aleatórios

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



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

0

O que o servidor tem a dizer ?

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


<table border=1>
<%
for each Item in Request.ServerVariables %>
 <tr>
  <td nowrap><%= Item %></td>
  <td><%= Request.ServerVariables(Item) %></td>
 </tr><%
next %>
</table>


Retirado do news uol.mundodigital.linguagens.asp



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

0

Determinar o tamanho de um arquivo

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



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

quinta-feira, 5 de outubro de 2000

0

Listar diretórios

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

0

Usuários on-line

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

0

Enviar formulário por email sem componentes

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>

 <input type=submit value="Enviar email">

</form>


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

0

Identificando o navegador

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


<script type="text/javascript">
alert( "Seu navegador é o\n" + navigator.appName )
</script>



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

0

Usuários Online

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

0

Criando gráficos dinâmicos

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



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

0

Tabela com cores alternadas

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

0

Listando as variáveis enviadas por um formulário

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



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

0

Como depurar o "500 server error" ?

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"

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

0

Como pesquisar campos data

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



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

0

Conexão ADO DSN-less

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



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

0

Mantenha a ordem nos programas

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



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

segunda-feira, 2 de outubro de 2000

0

Qual o endereço IP do visitante ?

Para mostrar o endereço IP do visitante:


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



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

0

Bem-vindo, Visitante!

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!



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