Ir para conteúdo
Fórum Script Brasil

Decio

Membros
  • Total de itens

    797
  • Registro em

  • Última visita

Tudo que Decio postou

  1. Desculpe se não entendi direito, mas e se você depois que validar o login , redirecionar o usuario para uma página que no seu evento "load" abriria este link. daria certo isto?
  2. Decio

    Session Em Loja Virtual

    Uma session resumidamente pode ser classificada como uma variavel que você pode criar para cada usuario que entrar no seu site. por exemplo , vamos imaginar que exista area restritas em seu site e que o usuario precise de fazer um login. Quando este usuario se logar no sistema , você cria uma session tipo Session("login")=true , dai em diante você pode utilizar em qualquer página de sua loja uma validação tipo : if Session("login")<> True then... ' vai para página de erro... Explique qual a dúvida que tentaremos ajudar.
  3. Decio

    E Ai Eddie_666

    Sem brigas... Antigamente existia versões do VB para aprendizado , que tinha todas as funções mas não gerava o executável.Tenta olhar no site da Microsoft. Quanto a pirataria , polêmica a parte , sou contra , mas sou a favor de preços justos e não os abusivos praticados pelas empresas se softwares.
  4. Decio

    Como Validar Campos?

    tente assim: if rs.eof = false then 'não existe nenhum cadastro. 'Pode inserir o registro else 'Existe o usuario e cpf , não pode efetuar o cadastro. end if A partir que EOF é igual a FALSE , é porque não achou nada. A partir que EOF é igual a TRUE , é porque achou algum registro, então não é preciso fazer mais nenhuma comparação dentro do if.
  5. Decio

    Coletar Dados De Site Externo

    Talvez de certo passando parâmetros entre páginas. Vamos imaginar um usuario cadastrado em uma determinada pagina e que possui uma variavel que foi setada em seu login para true, e que quer acessar uma pagina em outro local que precise que este usuario esteja logado.Bastaria incluir no link www.outrapagina.com.br?Login=True e na página hospedada em outro site verificaria o parametro recebido com <% User=Request.QueryString("Login") %> , lembrando que desta forma você pode passar diversos valores. Quanto a dúvida do nosso outro colega , eu continuo afirmando até que me provem o contrário, não é possível ter dois global.asa mesmo dentro de um mesmo dominio.
  6. Decio

    Desafio

    Não seria o caso de criar uma Session("User_Visible")=True/False , e quando você for mostrar os usuarios on-line , você faz esta verificação? seria um esquema tipo de páginas de bate-papo em que alguns usuarios conversam em modo reservado...
  7. Decio

    Cdonts

    Sei la, aparentemente com o "err" você consegue pegar o erro .Eu uso, mas acho o Cdonts muito fraco. já aconteceu de enviar um email e ele chegar dois dias depois ao destinatário...
  8. Decio

    Coletar Dados De Site Externo

    Se "externa" significa em outro site, eu acho que não tem jeito. o objeto Application só vale para a sessão do mesmo site.(imagina a confusão se você pudesse ler\alterar variaveis de outro site)
  9. Decio

    Como Validar Campos?

    você não pode comparar dados da forma como esta fazendo : if len(login_atual)=rs_login And len(cpf_atual)=rs_cpf then... Acho melhor assim: <% login = strcomp((trim(login_atual)),(trim(rs("rs_login "))),1) IF login = 0 then.... 'igual %> faça o mesmo para os dois campos que quer comparar. você tambem não precisa por em loop porque so vai achar um registro: mude ->Do while Not rs.Eof para -> if rs.eof = false then... achou registro A outra pergunta se você deve criar variaveis vai depender se você vai precisar destas informações em outra página , ai você deve armazenar em variaveis do tipo Session
  10. você pode usar este componente que é muito bom e tem uma versão free: http://www.oopadelic.com/htmlmailer/ O problema é que não envia anexo
  11. Para saber quantos on-line , você pode usar este código dentro do Global.asa: <script language=VBScript RUNAT=Server> Sub Application_OnStart Application.Lock Application("usu_corrente") = 0 Application.UnLock End Sub Sub Session_OnStart Application.Lock Application("usu_corrente") = Application("usu_corrente") + 1 Application.UnLock End Sub Sub Session_OnEnd Application.Lock Application("usu_corrente") = Application("usu_corrente") - 1 Application.UnLock End Sub </script> Dentro de Application("usu_corrente") vai estar a qtde de usuarios on line. Para saber quantos estão logados no sistema, você pode usar algo parecido , você cria uma variavel do tipo Application("user_logado") e incrementar a cada login e decrementar quando o usuario sair do site.
  12. Decio

    Pagina "multifuncional"

    Só declarar um tipo de variavel pode não resolver o problema ex: Dim numero numero = request.QueryString("ID")'Forma pouco correta o mais indicado seria assim: numero = Cint(request.QueryString("ID")) 'Para inteiros Ou seja , tente ao inserir no banco de dados da seguinte forma: Cint(para numeros) e Cstr(Para Strings) Quanto a outra dúvida , você poderia tambem usar Session: Em cada página você insere o código: <% Session("PAGINA")="Veio da página obrigado.asp" %> Dai em qualquer página você pode recuperar da seguinte forma: <% Response.Write Session("PAGINA") %>
  13. Decio

    Cdonts

    Este código eu fiz por estar com um problema parecido, que não dava erro mas não enviava o e-mail. Quando eu fiz o código de tratamento de erro apareceu o motivo. No seu código o tratamento de erro está estranho , você define "msgenv=1" e depois "if msgenv=1 then " = ok . Desta forma sempre vai ser ok não é verdade?
  14. O Global.asa só funciona na raiz do site , portanto você esta correto , se quiser ter 2 Global.asa , você deve ter dois sites distintos.
  15. Decio

    Preciso De Um Chat

    Estes dois são bem simples: http://www20.brinkster.com/decio/papo.asp http://www20.brinkster.com/decio/chat/CHATrOom.asp se você gostar solicite por e-mail que eu lhe envio.
  16. Decio

    Como Validar Campos?

    A melhor forma é fazer um select no banco de dados procurando pelo usuario e cpf, depois voce verifica se EOF = true , se for é porque existe o registro.
  17. Decio

    Cdonts

    Tenta este exemplo que eu testei e sei que está funcionando: <% on error resume next Dim objMail Dim Message Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.To = "xxxxx@xxxx.com.br" objMail.From = "xxxx@xxxxx.com.br" objMail.Subject = "teste." Message="teste do sistema" objMail.Body = Message objMail.Importance = 2 objMail.bcc = "xxxx@xxx.com.br" objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.Send Set objMail = Nothing if err.number <> 0 then Response.Write err.number & " - " & err.description else Response.Write "ENVIO DE E-MAIL ok" end if %>
  18. Então tenta o que lhe falei : rode sua ocx pelo VB , (normalmente abre o Internet Explorer) e peça para exibir o código fonte. Vai aparecer algo assim: <HTML><BODY><OBJECT classid="clsid:C2BA0BEC-6AD1-4831-A0D8-12E7F596F6E2"> </OBJECT></BODY></HTML> Ai é so colocar o código em sua página , que nem precisa ser ASP. Ou , como exemplo ,usando o FrontPage 2000 que é um editor conhecido por todos, clique em "inserir" + "avançado" +"controle activeX " . Se o seu componente estiver registrado corretamente ele vai aparecer em uma lista de componentes, dai basta seleciona-lo.
  19. Decio

    Atraso Em Vbscript

    A função Sleep não da um atraso no processamento e sim para o processamento por um tempo pre-determinado. Mesmo assim é uma chamada a API do Windows , que nunca ouvi dizer que é possível usar em páginas ASP.Se esta função resolve seu problema , eu sugiro você cria uma função parecida usando um timer: você pega a hora atual , soma o tempo necessário e faz um loop até atingir o tempo desejado para sair da função. Acho que da certo.
  20. Explique melhor o erro que esta dando. olhando o código , eu acho que você esta querendo pegar o ID do campo autonumeração que você acabou de criar, mas após o addnew você não vai conseguir, é preciso fazer um novo select com as informações que você acabou de digitar para achar o registro e pegar o campo autonumeração. Eu faço desta forma forma , se alguém souber alguma forma mais pratica , me corrija.
  21. Decio

    Access X Sql

    Usando ADO não muda muita coisa, que eu saiba. Antigamente eu testava os meus programas em um banco de dados Access antes de usar no SQL.
  22. Em asp nunca ouvi dizer que é possivel. O que você pode fazer é juntar os dois (htmal e asp) . Para ver como colocar o ocx na página, basta rodar a ocx no Vb , e quando ele abrir o IE para testar a OCX , basta copiar o código HTMl pedindo para exibir o código fonte. Mas é aquele problema: se a sua página estiver na web e alguém tentar acessa-la não vai conseguir ver o componente , se não tiver o mesmo instalado em sua máquina, e vai ser dificil você conseguir convencer alguém a instalar um componente de origem desconhecida .
  23. Se for tipo ocx você pode usar em páginas normais HTML , só que o componente tem que estar instalado no cliente também. Se for do tipo dll tem que ser linguagem dinamica , tipo o ASP , e a dll tem que estar registrada no servidor . dai basta instanciar a dll tipo: Set MyObject = Server.CreateObject("teste.TesteClass")
  24. Decio

    Dúvida

    você poderia fazer assim : você envia o e-mail para a pessoa e já faz o cadastro do e-mail no banco de dados. no link para a sua página você passa o parametro: www.suapaginadecadastro?ID=fulano@xx.com.br Quando o usuario entrar na sua página você recupera o ID e faz a procura no banco de dados, se existir você continua , caso contrario envia uma mensagem de erro.
  25. Decio

    Alguem Me Diz

    mostra como você esta abrindo o database. Pode ser que você esteja abrindo a conexão somente para leitura.
×
×
  • Criar Novo...