Clipper On Line • Ver Tópico - Usando tabelas dBase com ASP

Usando tabelas dBase com ASP

Discussão sobre outras linguagens de programação.

Moderador: Moderadores

 

Usando tabelas dBase com ASP

Mensagempor rochinha » 04 Ago 2013 18:10

Amiguinhos,

Eis um exemplo simples de uso de uma tabela dBase em um site que tenha suporte Á ASP.
<%
    ' Função pra gerar um numero aleatorio de 0 a um determinado numero
    ' podendo ou nao ser retornado apenas o valor inteiro.
    '------------------------------------------------------------
    Function Random(n,t)
       Randomize
       If t = 1 Then
          Random = Fix(Rnd*n)
       Else
          Random = (Rnd*n)
       End If
    End Function
%>

<%
    pos       = instrrev(lcase(request.servervariables("path_translated")),lcase(scriptrelativefolder)& "\" & lcase(formaction))
    db_dir    = left(request.servervariables("path_translated"), pos-1 )
    db        = db_dir & ".\"
    ' Campos Recuperados
    nome      = replace(request.QueryString("UserEmail")      , "'", "''")
    senha     = replace(request.QueryString("UserPass")       , "'", "''")
    pagina    = "http://www.5volution.com"
    codigo    = day(date)&month(date)&year(date)&"S"&Random(1000000000000000,15)&"M"&month(date)&year(date)&minute(date)
    nivel     = "1" 'Nivel 1-Visitante 2-Cliente 3-Eu

    set cnn= server.createobject("adodb.connection")
    cnn.open "Driver={Microsoft dBase Driver (*.dbf)};;DBQ="& db &";"
    cnn.execute("INSERT INTO acessos(nome,senha,pagina,codigo,nivel)" & _
                          "VALUES ('"&_
                                   nome&"','"&_
                                   senha&"','"&_
                                   pagina&"','"&_
                                   codigo&"','"&_
                                   nivel&"')" )
    Set cnn = Nothing
    Set Mail = Nothing
%>
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes



Retornar para Outras linguagens de programação

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 17 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro