Ir para conteúdo
Fórum Script Brasil

Luiz Guilherme

Membros
  • Total de itens

    119
  • Registro em

  • Última visita

Posts postados por Luiz Guilherme

  1. to precisando fazer umas verificacoes... e ta me dando erro aqui:

    horario = time()-0.00695

    AbreConexao

    dim cSql,cRs

    'cSql = "select top 1 * from acessos where ip='"& request.servervariables("REMOTE_ADDR")&"' and dia='"& day(now())&"' and mes='"& month(now())&"' and ano='"& year(now())&"' and hora >"& horario&")"

    cSql = "select * from acessos where ip='"& request.ServerVariables("REMOTE_ADDR") &"' and dia="& day(now()) &" and mes="& month(now()) &" and ano="& year(now()) &" and hora >" &horario

    set cRs = conexao.execute(cSql)

    fala que é erro na sintaxe.. operador faltando

  2. alguém sabe como transformar uma variavel string em em hora.... ex:

    hora= 10:20:35

    horaatual= time()

    transformar esse valor numa hora... e depois fazer tipo

    Atraso = hora - horaatual

    response.write atraso

    já pensei em separar hora minuto e segundo fazer as subtrações e depois agrupar tudo de novo.. mais também não sei como transformar string em numerico.

  3. ola pessoal.. bom minha duvida é a seguinte... estou com o seguinte problema..

    na hora de cadastrar o acesso de um usuario no meu site... eu verifico se aquele ip acessou o site dentro de um periodo de 10 minutos atras.. se sim, ele não cadastra.. e se não ele cadastra.. mais eu não to conseguindo fazer contas com horas... exemplo time()-10 (minutos...)... como faço para subtrair 10 minutos de uma hora??

  4. Para fazer inserções você utiliza o comando insert... Procura uma apstila de sql, ajuda bastante ter essas ferramentas em mãos ... Exemplo

    <%

      if request.form("enviando")="sim" then

        sql= "insert into Clientes(nome,endereco,email) values ('"&Request.form("nome")&"','"&Request.form("endereco")&"','"&Request.form("email")&"')"

        conexao.execute(sql)

      end if

    %>

    <form action=cadastro.asp method=post>

    <input type=hidden name=enviando value=sim

    Nome: <input type=text name=nome value=<%=request.from("nome")%>><br>

    Endereço: <input type=text name=endereco value=<%=request.from("endereco")%>><br>

    E-mail: <input type=text name=email value=<%=request.from("email")%>>

    <input type=submit value=cadastrar>

    </form>

  5. Entrei em Contato com o pessoal, do registro.br, e perguntei para eles se eles possuiam essa tabela, segundo eles, não existe nenhuma relação entre Ip e Localização Geografica, ele me passo alguns ips que ele sabe que com certeza pertencem ao brasil (passo os 6 primeiros digitos). o que eu consegui descobri, é que em alguns casos quando o provedor coloca o nome da cidade em um certo campo de conexão, é possivel descobrir qual a cidade da pessoa, mais lembrando que localização geografica não tem nada a ver com ip....

  6. cara da uma olhada nisso e ve se ajuda

    cara coloca as verificação antes do form....

    a parte de gravar também, dai você faz um if no começo da pagina:

    if request.form("enviando")="sim" then

    Faz as Verificações e a gravaçõa.... else

    Mostra o form.... no propio value de cada campo, você coloca

    <input type=Text" value="<%=request.form("nomecampo")%>">

    porque caso haja algum problema nas verificações você mostra os valores dos campos de novo, e o cliente não tem que digitar td de novo....

    fica assim

    If request.form("enviando")= "sim" then

      -------verifica-----------

      if verifica = true ' tudo certo then

        ---------Grava----------

        cadastrado=true

      else

        ---------mostra erros---------

        cadastrado=false

      end if

    end if

    if cadastrado=false

      ----- mostra formulario -----

    senão

      ------cadastrook.asp------

      envia email cadastro ok

    end if

    end if

    Espero que te de uma luz... o meu é mais ou menos assim

  7. Ola pessoal.... Eu gostaria de saber se alguém sabe fazer o mapeamento de ip,

    eu quero montar uma estatistica no meu site, e queria saber ser tem como mapear o ip do usuario para saber de que cidade ele esta acessando o site, ou no minimo o estado...

    alguém ai sabe fazer isso?

  8. Pessoal bom dia...

    Como faço para conseguir mais informações sobre o usuario que acessa minha pagina...???

    se ele é usuario logado, até da certo, porque eu busco no cadastro as informações...

    mais se ele é visitante não tem como eu descobrir mais do que o ip da maquina, porque eu queria fazer uma estatistica de acesso, de onde acessan mais o site essas coisas entendem????

    Quem puder passar informações agradeço...

  9. tipo, se ao logar você guardar em uma session tipo logado = sim, e em cada pagina você fizer uma verificação se ele esta logado ou não, ao fazer o log out, ele muda o valor da session, dai ele pode usar voltar, avançar o q for que ele não tera disponibilidade de acesso...

  10. eu uso o seguinte codigo para fazer a contagem....

    dim ip,hora,contsql,contrs

    abreconexao

    contsql= "insert into acessos (ip,datahora) values ('"&request.servervariables("REMOTE_ADDR")&"','"&now()&"')"

    conexao.execute(contsql)

    fechaconexao

    e incluo ela na pagina na qual quero contar a visita, o q você pode fazer é criar um campo a mais na tabela, e cada pagina que você chamar, criar uma session e armazenar a pagina atual, e na logo ensiguida chamar o contador... passando como parametro a pagina...

    depois é só filtrar isso, e montar o relatorio...

    espero ter ajudado, se quiser mais esplicações, posta ai, estou com um pouco de pressa para ir para a facul...hehehehe

  11. na realidade... não procurei sabe exatamente o q cada comando faz.... quando me passaram me preocupei mais em saber se ia funcionar...... por isso não posso te explicar como cada comando funciona.... mais alguém mais experiente que eu ai, pode te dar alguns codigos.....

    de nada sempre que precisar estamos ai...

  12. você já tentou fazer um sistema de logof, se a pessoa estiver logada poderar altarar se não não pode alterar

    é ssa é uma boa ideia... e no dai no sistema de login você cria a session("codcliente")....

    e na hora da alteração, em vez de você usar query string, você usa a session("codcliente")....

    resumindo o cara só podera ver e alterar os dados se ele estiver logado(a session tiver valor) se não não....

  13. criptografa o codigo...... tiop dai fica...

    ?cod=#-! (exemplo)

    e na hora de retornar o codigo descriptografa....

    <%

    Const EncC1 = 109

    Const EncC2 = 191

    Const EncKey = 161

    Public Function EncriptaStr(Texto)

    Dim TempStr, TempResult, TempNum, TempChar

    Dim TempKey

    Dim i

    TempStr = Texto

    TempResult = ""

    TempKey = ((EncKey * EncC1) + EncC2) Mod 65536

    For i = 1 To Len(TempStr)

    TempNum = (Asc(Mid(TempStr, i, 1)) Xor (AuxShr(TempKey, 8))) Mod 256

    TempChar = Chr(TempNum)

    TempKey = (((Asc(TempChar) + TempKey) * EncC1) + EncC2) Mod 65536

    TempResult = TempResult & TempChar

    Next

    EncriptaStr = TempResult

    End Function

    %>

    <%

    'descriptografando o texto

    Public Function DecriptaStr(Texto)

    Dim TempStr, TempResult, TempNum, TempChar

    Dim TempKey

    Dim i

    TempStr = Texto

    TempResult = ""

    TempKey = ((EncKey * EncC1) + EncC2) Mod 65536

    For i = 1 To Len(TempStr)

    TempNum = (Asc(Mid(TempStr, i, 1)) Xor (AuxShr(TempKey, 8))) Mod 256

    TempChar = Chr(TempNum)

    TempKey = (((Asc(Mid(TempStr, i, 1)) + TempKey) * EncC1) + EncC2) Mod 65536

    TempResult = TempResult & TempChar

    Next

    DecriptaStr = TempResult

    End Function

    Private Function AuxShr(Numero, BShr)

    AuxShr = Int(Numero / (2 ^ BShr))

    End Function

    dai fica assim...

    id = rs("id")

    ide = encriptastr(id)

    <a href="mostradados.asp?cod=ide">

    ---

    e na outra pagina

    ---

    ide = request.querystring("id")

    id = decriptastr(ide)

    At+.....

  14. Consegui fazer uma coisa simples.... veja o q acham....

    <%

      dim contsql

      abreconexao

      contsql= "insert into acessos (ip,datahora) values ('"&request.servervariables("REMOTE_ADDR")&"','"&now()&"')"

      conexao.execute(contsql)

      fechaconexao

    %>

    e depois do um include na pagina para a qual quero registrar o acesso.....

    se quiser ainda pode verificar se o usuario (atravez do ip) já acessou o site uma vez e não registralo de novo...

  15. fala ai galera....

    bom, minha duvida é o seguinte... quero fazer um contador de acesso simples..

    quando a pagina for aberto via sql adiciono um ao contador, mais o q eu queria saber mesmo, é se tem como eu adquiri mais informações sobre o usuario que esta acessando minha pagina, ip, seila....alguma informação a mais...

    obrigado a todos...

  16. bom.... pesquisei mais a fundo qual seria o problema nesse caso...

    e cheguei a conclusão que o erro ocorre devido ao fato que a letra "b" ao se Criptografada, se transforma hein ' "aspa simples" o que ocasiona o erro no codigo já que utilizo aspas para montar o codigo de verificação...

    há alguma maneira de evitar esse erro???? abaixo o codigo....

    sql="insert into clientes (razaosocial,endereco,numero,bairro,cidade,estado,cep,telefone,cnpj,inscest,nomecomprador,datanasc,email,rg,cpf,telefone1,login,senha)"

    sql=sql&" values('"&request.form("razaosocial")&"','"&request.form("endereco")&"','"&request.form("numero")&"','"&request.form("bairro")&"','"&request.form("cidade")

    sql=sql&"','"&request.form("estado")&"','"&cep&"','"&request.form("telefone")&"','"&request.form("cnpj")&"','"&request.form("ie")

    sql=sql&"','"&request.form("nomecomprador")&"','"&datanasc&"','"&request.form("email")&"','"&request.form("rg")&"','"&request.form("cpf")&"','"&telcomprador&"','"&logine&"','"&senhae&"')"

    conexao.execute(sql)

    cadastrado= true

  17. bom de acordo com alguyns testes.... como eu to encriptando os dados..... tem nome de usuario que conforme eu encripto, ele da algum erro na linha de codigo....... da uma olhada naquele primeiro post... e ve o q pode ser....

×
×
  • Criar Novo...