Ir para conteúdo
Fórum Script Brasil

Decio

Membros
  • Total de itens

    797
  • Registro em

  • Última visita

Tudo que Decio postou

  1. Decio

    Evitar Overflow

    Depende do tipo de dados , se for um int , você pode especificar: if Cint(Request.QueryString("ID")) > 1000 then Response.Redirect("http://xxx.com.br") se for do tipo string , faz como você falou: if len(Request.QueryString("ID")) > 5 then then Response.Redirect("http://xxx.com.br") Espero ter ajudado.
  2. Decio

    Aspemail

    Eu sugiro também substituir o chr(10) & chr(13) por simplesmente a tag "<br>", se é que a sua intenção é apenas dar um "line feed junto com um CR"
  3. Eu achei muito bom. Eu faria menor os desenhos em que estarão os menus noticias - dicas - cursos
  4. Decio

    I/o

    I/O significa Input e Output ou seja portas de entrada e saida.
  5. Decio

    Bi-array

    Se entendi bem , acho que você quer isto: 'Código VB Dim TESTE(10) As String * 10 TESTE(1) = "PINDAMONHANGABA" MsgBox TESTE(1) A saida sera 'PINDAMONHA' pois o array esta limitado a 10 caracter. Isto é equivalente em C a: char TESTE[10][10]; e que deve ser correspondente ao javascript.
  6. Decio

    Ramdomizar...

    Eu tentaria fazer usando a propriedade recordCount para saber o total de registro no database (que deve ter campos auto numeração ) e usaria a função RND (consulte o Help do VB para usar) para escolher aleatóriamente um campo do database.Lembrando que a função RND tem o incoveniente de ser repetitiva.
  7. Decio

    Pequenas Dúvidas

    Cint é um comando para transformar determinado numero em inteiro ex: <% numero = 1.95 VarInt = Cint(numero) response.write VarInt %> a saida será: 1 UCase transforma uma string escrita em letras minúsculas para letras maiúsculas, existe o LCase que faz o inverso. Tente usar assim: apelido = trim (request.form("apelido")) Não sei o significado das aspas em negrito, nunca usei o comando TRIM desta forma e nem sei se é necessário usar algum parâmetro no comando TRIM , que tem a finalidade de retirar espaços em branco no começo e no fim da string. Se alguém souber para que serve aquela aspas , favor me explique também. Quanto ao ID= , a resposta do nosso amigo resolve seu problema.
  8. O básico: CommomDialog1.Filter = "Arquivos ZIP|*.zip" 'Se quizer selecionar tipos de arquivos a serem visualizados CommomDialog1.ShowOpen 'para abrir o CommomDialog If Len(CommomDialog1.filename) = 0 Then Exit Sub' para verificar se foi selecionado algum arquivo msgbox = CommomDialog1.filename ' o arquivo que foi selecionado. A partir dai , é só usar códigos para fazer algo com o arquivo (apagar, copiar, mover , etc...).
  9. Decio

    Não Entendo...

    Caro colega assim fica dificil. Envie um trecho do código da forma como esta pegando o valor enviado. O que você esta usando? Request.QueryString ou Request.Form??
  10. Decio

    Cor Ouro

    A código hexa da cor Gold usada no Interdev é ffd700
  11. Decio

    Erro

    Olhando por cima seu código tem os seguintes erros: você tenta recuperar informações em Request("TxtNome") , mas seu campo de texto se chama TextNome , todos os campos tem os mesmos erros. Acostume-se a digitar a coleção que esta usando junto com o objeto: Request.Form ao invés de só request. Tente mostrar na tela desta forma: Response.Write "Nome: " & Request.Form("TextNome")
  12. Decio

    Visual Interdev

    Olha, que eu saiba , ele só funciona com o II's , e ainda assim precisa de uma configuração especifica para poder editar o arquivo no servidor.Não basta dar apenas o nome do servidor, tem que dar permissão para poder editar as páginas. O que você pode fazer é criar um arquivo com o notepad, por exemplo: teste.asp sem nada de conteudo, salva-lo , e depois usar o Interdev para inserir o seu código.
  13. Decio

    Como Usar "<a Href=...

    Olá, Eu acredito que você tenha que fazer o seguinte: Vamos atribuir alguns valores para exemplo: varx_url="http://scriptbrasil.com.br" var_comentario ="teste" varx_url="<a href= " & varx_url &"?ID=" & var_comentario & "target=_blank></a><br>" Note que inclui um "ID=" , que é uma forma de se recuperar a informação passada como parâmetro da váriavel var_comentario em outra página.
  14. Decio

    Fileup

    Se for antes de anexar é facil: <% Function getSize(log_file_name)'Determine the size of the file Set fsobj=Server.CreateObject("Scripting.FileSystemObject") Set auto=fsobj.GetFile(server.mappath("nome.xxx")) getSize=auto.size End Function %> Para chamar a função: <% dim A , TAM A=getSize("nome.xx") / 1024 'deve passar o nome do arquivo. A = A / 1000 If A >= 1 then TA ="mb" else TA ="kb" A = A * 1000 end if Response.Write CInt(A) & " " & TA %> espero ter ajudado
  15. Decio

    Ajuda Com Este Codigo

    você pode procurar no próprio site do AspMail http://www.aspemail.com Existe bastante informação a respeito, inclusive com exemplos.
  16. Decio

    Redirecionar

    Com java script e frame não dá , pelo menos eu não consegui, a solução era a página de erro configurável, mas não tenho está opção.mas vou continuar tentando até ter certeza que é impossível de se fazer.valeu.
  17. Decio

    Consultar Db Access

    Eu acho que o erro esta nas aspaa (falta aspa simples): Esta assim: .Open "select * from Contatos where Nome=" & strNome & "", cn deveria ser assim: .Open "select * from Contatos where Nome= '" & strNome & "' ", cn No Sql strings devem estar com aspas simples. Da forma que esta , a consulta pensa que strNome é numerico. Sei la... pelo menos a alteração vai ser simples...
  18. Decio

    Checkbox

    Eu também não entendi direito. você quer recuperar as informações do banco de dados e mostra-la na tela , junto com os check box , e em seguida fazer a validação alterando o check box e depois salvando com as novas informações ?? é isso? Se não for , envie um exemplo , mesmo que seja só em html , só para ter uma idéia.
  19. Decio

    Redirecionar

    alguém teria alguma idéia de como eu poderia saber que um link não existe mais ao redirecionar para determinada página? ex: <% URL="http://xxx.com.br" Response.Redirect (URL) %> Caso não exista este link, é carregada a tela de erro padrão do browser, e não tem como eu editar diretamente está página para fazer algum tratamento de erro. Eu gostaria de carregar uma página padrão minha, sera que isto é possivel??
  20. Decio

    Esqueci Senha

    Olha , este código é o que eu uso para enviar e-mail: <% Dim objMail Dim TheMessage Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.To = "deciohp@yahoo.com.br" objMail.From = "deciohp@yahoo.com.br" objMail.Subject = "Resposta automática." TheMessage = "Corpo da mensagem" objMail.Body = TheMessage objMail.Importance = 2 objMail.bcc = "deciohp@yahoo.com.br" objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.Send Set objMail = Nothing SendMail=0 %> Se este código não funcionar , é preciso verificar se o seu servidor tem o CDONTS instalado.
  21. Decio

    Logon_user

    Eu vou pesquisar, eu acho que o usuario tem que ter a senha e nome de usuario validado no servidor em que o IIs está instalado. Uma opção mais fácil é pegar o IP do usuário com o comando Request.ServerVariables("REMOTE_ADDR") , mas , se quizer saber de que é este IP , você vai precisar de progama de terceiros para saber, e de qualquer forma , a resposta é lenta. Caso você saiba o numero do IP de quem está acessando a página , resolve o seu problema
  22. Eu tenho uma conta no Brinkster , é gratis , mas existe planos pagos.
  23. Decio

    Scripts

    Caro colega, Especifique o erro.
  24. Eu sugiro que você crie uma variavel para cada Página, tipo assim: <% If Session("Visitada")="TRUE" Then Response.Write "Favor Não Teclar F5 , OK???" Response.End End If Session("Visitada")="TRUE" Response.Write "você ainda não teclou F5..." %> <% If Session("Visitada")="TRUE" Then Response.Write "Favor Não Teclar F5 , OK???" Response.End End If Session("Visitada")="TRUE" Response.Write "você ainda não teclou F5..." %> Vai dar um pouco de trabalho, mas acho que daria certo. você precisa limpar a variavel depois que o usuario sair da pàgina.
  25. Decio

    Duvida C++

    Olha, eu pessoalmente acho que isto não é possível. Eu programo + ou - em você 6 da MS. Em VC6 , se você criar um projeto baseado em Dialog, e fechar este form , você encerra o programa. Seria mais pratico você ter um form principal , e a partir deste form , você chamar os outros sem fechar o form principal , ficando este oculto pelos form que você abrir.
×
×
  • Criar Novo...