Jump to content
Fórum Script Brasil

negociadorweb

Membros
  • Posts

    103
  • Joined

  • Last visited

Everything posted by negociadorweb

  1. Utilizando o LCase() todos os caracteres ficarão em minusculos. Use a funcao abaixo que ela vai retornar por exemplo: SÃO JOSÉ DOS CAMPOS em São José dos Campos para usar a funcao basta fazer a chamada: <% Response.Write(ConverteMaiuscula("SÃO JOSÉ DOS CAMPOS"))%> []'s Public Function ConverteMaiuscula(Texto) Dim sPalavra, iPosIni Dim iPosFim, sResultado iPosIni = 1 Texto = LCase(Texto) & " " Do Until InStr(iPosIni, Texto, " ") = 0 iPosFim = InStr(iPosIni, Texto, " ") sPalavra = Mid(Texto, iPosIni, iPosFim - iPosIni) iPosIni = iPosFim + 1 If sPalavra <> "de" And sPalavra <> "da" And sPalavra <> "do" And _ sPalavra <> "das" And sPalavra <> "dos" And sPalavra <> "a" And sPalavra <> "e" Then sPalavra = UCase(Left(sPalavra, 1)) & LCase(Mid(sPalavra, 2)) End If sResultado = sResultado & " " & sPalavra Loop ConverteMaiuscula = Trim(sResultado) End Function
  2. Mano, algumas rotinas para trabalhar com FSO Abraços <% '************************************ 'Trabalhando com Drives (C:,D:,etc...) '************************************ Sub ShowDriveInfo(drvPath) Dim fso, drv, s Set fso = CreateObject("Scripting.FileSystemObject") Set drv = fso.GetDrive(fso.GetDriveName(drvPath)) s = "Drive " & UCase(drvPath) & " - " s = s & drv.VolumeName & "<br>" s = s & "Total Space: " & FormatNumber(drv.TotalSize / 1024, 0) s = s & " Kb" & "<br>" s = s & "Free Space: " & FormatNumber(drv.FreeSpace / 1024, 0) s = s & " Kb" & "<br>" Response.Write s End Sub %> utilização: <% ShowDriveInfo("C:") %> <% '************************************ 'Criando arquivos txt e escrevendo neles '************************************ Dim fso, tf Set fso = CreateObject("Scripting.FileSystemObject") Set tf = fso.CreateTextFile("c:\testfile.txt", True) ' Escreve uma nova linha tf.WriteLine("Testando 1, 2, 3.") ' Escreve 3 linhas novas em branco tf.WriteBlankLines(3) ' Escreve outra linha. tf.Write ("Teste de FSO.") tf.Close %> Basicamente é isso.... tem mais coisa, mas pra não confundir você é melhor ir devagar... []'s
  3. Pode ser permissao sim, mas saca só a sua instrução.... Tem um request.form e um request.querystring. Dá uma olhada nisso.... ou você usa o post( request.form ) ou get (request.querystring) abraços.
  4. negociadorweb

    Pop-up Em Asp

    Meu, sinceramente acho os scripts do chacal muito bons, porém muito básicos. Eu os aconselho mesmo para aqueles que precisam de uma referência para estudos. Quero deixar claro que não estou desmerecendo o programador, afinal não duvido da sua capacidade, apenas expondo meu ponto de vista. Tem um album online para download muito bom, aliás, um dos melhores que já ví por ai. Algumas funcionalidades que ele inclui: * thumbs * area restrita para administração * Uploads de imagens sem precisar instalar componentes * visualizacao das imagens * envio para amigos, etc... muito bom mesmo, e o melhor???? É 100% GRÁTIS. Segue o link: http://www.b-cp.com/igallery/default.asp Abraços.
  5. Sugiro que você comente a linha do seu código que impede que o erro seja exibido "On Error Resume Next". Feito isso, poste o erro gerado aki. Assim fica mais fácil de ver o que tá dando errado. []'s
  6. negociadorweb

    Preciso De Ajuda?

    E ae mano, tudo bem? Primeiro vamos pegar o maior valor dentro do array, ok? Isso pode ser feito pelo código: ok.. até aqui não oi nenhum mistério para você. Agora vamos fazer um loop que irá percorrer todo o array. Se ele encontrar valores iguais ao armazenado anteriormente, então guarda a posição do registro no array. Vamos lá: Acho que é isso. Se não for, dá o toque, valeu? Abraços.
  7. Acho que seria mais facil, na hora em que ele for chamar a funcao js passar o asp, tipo: novo("<%=id%>") é bem mais rápido e mais pratico.
  8. negociadorweb

    Ecomerce

    Alguém conhece um script open source bom para indicar? valeu
  9. negociadorweb

    Registro

    Fala brow, na paz? você quer mostrar as 5 últimas noticias na principal do seu site, correto? Não precisa fazer um while de 1 ate 5, você pode passar direto no sql, qtos registros ele deve retornar. Por exemplo: Retorna os 5 registros da tabela por ordem de data: A instrução acima vai retornar os 5 registros mais atualizados da sua tabela por ordem de data. A mesma regra vale para quando o usuário quiser ver todas. Só q ao invés de usar o Top 5 * você vai selecionar do modo normal: Lembrando que não é bom usar o Select * From, sempre que possível utilize a instrução passando somente os campos que realmente vai utilizar, ok? Assim você ganha em desempenho. qualquer coisa dá o toque
  10. é os seguinte: Eu sou terceirizado na CEF e estamos desenvolvendo um sistema que irá integrar varias rotinas no Brasil inteiro de outros sistemas da caixa. O primeiro desafio do sistema é fazer com que uma leitora especifica de cheques conectada no cliente envie dados para um campo tipo text no aplicativo. é mais ou menos isso.... o usuario abre uma tela do sistema, que está todo em asp, passa o cheque na leitora e os dados do cheque são capturados pelo sistema e mostrado para o usuario na tela para confirmacao dos dados. qualquer ajuda é bem vinda
  11. veja o exemplo do código em http://www.codeworks.it/net/VBNetRs232.htm
  12. com o vb tem jeito....... o que acontece é que eu tenho o codigo em vb.net que eu achei em um site, porem eu preciso dessa conexao com o vbscript. Um amigo programador disse que tem como sim porem ele tb não sabe como fazer. ele sabe que tem como pois ele já viu um codigo assim funcionando, só que o amarradinho do outro programador que fez o codigo não quis dar o fonte nem vender. é f...
  13. negociadorweb

    Portas Seriais

    Galera, é o seguinte.... Preciso conectar uma porta serial NO CLIENTE para um aplicativo que estou desenvolvendo aqui no meu serviço... Alguma dica? Código? Solução? De ante-mao obrigado a todos...
  14. apoiado.... abaixo a colnagem de códigos........ hehehe......... na dúvida, põe aqui os códigos que a gente "resorve" []'s :ph34r:
  15. acho que ele quer é ler o arquivo em vez de simplesmente mostrar seu conteudo. se for isso mesmo, dá um toque q a gente dá um jeito aqui. se não, entendi errado. []'s :ph34r:
  16. negociadorweb

    Acesso Negado

    salve, aventureiros do ASP....... to com um problema que eu nunca vi antes. na intranet aqui de onde trabalho fui enviar um email com cdonts e foi gerado o erro abaixo: Error Type: Microsoft VBScript runtime (0x800A0046) Permission denied alguém pode me dizer como resolver isto, e o mais importante, porque aconteceu isso? []'s :ph34r:
  17. negociadorweb

    Suporte Online - Sos

    cara não conheço esse sistema do superasp. mas tenho um que achei na rede muito bom escrito totalmente em ASP. se quiser, podemos fazer uma "troca de figurinhas." []'s :ph34r:
  18. negociadorweb

    Sessão

    mano voce pode usar o Session.Abandon que ele irá encerrar a sessão do usuário logado. []'s :ph34r:
  19. negociadorweb

    Pegando Urls

    doido mano.... eu é que troquei as paradinha, aqui. foi mal. mas a sua saida é massa. hehhe :ph34r:
  20. negociadorweb

    Pegando Urls

    cara faz uma junçao <% url = Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("Script_Name") response.write url %> o resultado seria algo do tipo: 127.0.0.1/torpedo/frmtorpedo.asp?para=kk note que não aparecerá o http:// :ph34r:
  21. Ae galera, tenho um script que eu peguei por ai... Não vou colocar aqui por que o autor não permitiu sua divulgação. Quem quiser, manda um mail ae que eu libero o codigo valeu? [email protected] :ph34r:
  22. negociadorweb

    Puxando Dados

    Mano, você pode fazer o seguinte: Vamos supor que você tenha uma tabela com o nome de mp3 e um campo nela chamdo de banda. Para saber qtas bandas estao cadastradas, faz o seguinte: <% Dim totalBandas, rst, conn, driver set conn = Server.CreateObject("ADODB.Connection") driver = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=banco_de_dados;Persist Security Info=False" conn.Open driver Set rst = conn.Execute("SELECT COUNT(banda) As tBandas FROM mp3") totalBandas = tBandas Set rst = Nothing Set conn = Nothing Response.Write("Total de Bandas cadastradas em nosso site: ") & totalBandas %> Vale lembrar que essa é uma das várias formas de contar os seus registros. Dá uma pesquisada que você vai aprender bastante. Uma dica, dá pra contar utilizando Matrizes tb. Para saber outros dados, troque os nomes das tabelas e dos campos que deseja. qualquer coisa dá o toque :ph34r:
  23. negociadorweb

    Dados

    Para utilizar o Server.MapPath utilize a string abaixo: & Server.MapPath("sitelegal.mdb") ou sem o mappath DBQ=d/www/sitelegal/sitelegal.mdb valeu? Abraços
  24. Para retirar suas páginas do cache da máquiba,utileze: <meta http-equiv="pragma" content="no-cache"> Abraços galera :ph34r:
  25. voce está apertando o Enter no teclado para mudar de linha ou tá digitando o texto direto? Se você estiver usando o Enter e ainda assim persistir o erro , faz o seguinte: no seu codigo ASP, procure a linha onde você manda escrever o texto na tela. Por exemplo: vamos supor que esteja assim o seu codigo: <% Response.Write tabela("campo_mensagem") %> altere para este: <% Dim msg msg = tabela("campo_mensagem") msg = Replace(msg, vbCrlF, "<br>") Response.Write Server.HTMLEncode(msg) %> Com o codigo acima você vai estar colocando as quebras de linha eu sua mensagem, da mensma forma que o usuario digitou. Caso isso não resolva, coloque o codigo da pagina aqui pra ver onde está o erro, ok? Abraços :ph34r:
×
×
  • Create New...