RAFBRASIL

Olá pessoal! Eu sugiro que vocês pensem se é conveniente continuar permitindo posts de usuários não registrados. É que não custa nada se registrar (com um email válido e confirmado), os não registrados só contribuem com questões, não com soluções e frequentemente ficam postando spam e pirâmides ai, dai os administradores não podem fazer nada além de tirar o post. E o cara some sem deixar rastro. Se todos tivessem de se registrar, isso inibiria os spamers pelo menos um pouco não é? Um abraço!

Mas acho que não é uma boa vce por timeout infinito não por que é uma brecha muito grande na segurança. Além do mais acho que li uma vez que a função timeout tem um limite e certamente teu servidor tb. limita o tamanho da sessão para economizar recursos.

Ceh, acho que ninguém entendeu o que vce quer. O que tem a ver a posição do número (que número, um índice?) com a história? Mas se eu entendi o que pretendes, talvez a tua resposta seja usar as funções Mid(), LEn() e talvez Split() do VB.

Olá Bosco! Inicialmente cabe dizer que isso ai não é asp e sim html e javascript, pelo que o pessoal de lá seriam mais indicados para te ajudar. Mas pelo que conheço da coisa, acho que vce está dando duas instruções diferentes para a submissão do formulário, uma no hiperlink do action e outra no "on submit". Acho que o erro está ai.

Ale, inicialmente dá para ver que você precisa aumentar o timeout das suas páginas se quiser deixar o usuário logado mais tempo. Timeout=60 (a sesssão durará 60minutos e só então cairá. Outra coisa é que vce deve forçar o usuário a colocar os seus produtos de uma vez no banco de dados do site. Vce usa um não é? Assim ponha um botão "cadastrar" ou "inserir" que mostre ao usuário que, sem pressionar aquele botão a seleção dele não ficará registrada. Um abraço.

Mais uma vez esse calote aqui no fórum, esses caras não tem desconfiômetro ou nos acham com cara de trouxas! Espero que tirem esa droga de post dai logo!

Amigos! Acho que este fórum com o outros são um excelente exemplo de cooperação. Aprendi o pouco que sei aqui e já abusei bastante da boa vontade dos amigos como o dark0, que poderiam estar cuidandoodos projetos privados deles ao invés de darem dicas para os iniciantes. Acho um exempo tão louvável que o mínimo que posso fazer para retribuir é tb. ajudar o fórum no limite dos meus parcos conhecimentos, é claro. E assim a coisa vai indo, comonaquele filme "A corrente do Bem" ou coisa parecida. Não faz sentido num espírioto competitivo fazermos coisas free, é bem verdade. MasEsse e outros fóruns similares demonstram que que felizmente isso ocorre. Ainda bem! Se dai se fará mais, melhor. Talvez tudo não dê pára fazer e muita coisa seja impraticável. Mas o que já fazemos aqui já acho muito bom e mostra que muita coisa é possível, apesar da lógica competitiva! Um abraço!

Olha acho uma booa idéia termos aqui um tópico fico de scripts, como já temos os de funções. Opiniões contra e a favor à parte, o que ocorre é que os scripts prontos estão em todo o lugar e se o fórum fosse meu preferiria disponiblizar o máximo aqui do que forçar o pessoal a buscar em outro lugar. Quanto à questão da violação do direito autoral bem levantada pelo dark0, creio que sempre haverá esse tipo de coisa, mas isso não deve ser determinante para pautar nossas ações. Pois mesmo argumento se aplicaria ao nosso tópico de funções e principalmente ao fórum todo, pois ensinar a programar como fazemos aqui alimenta a concorrência bem mais do que disponibilizar scripts, que aliás nunca estão realmente "prontos" e sempre requerem adaptações. Suponho que todoo o espírito desse fórum free, com troca de dicas é da cooperação e muito mais maléfico do que o copiador de scripts é o programador que só absorve diicas, mas não retorna nada pro grupo. Eu pelo menos tento corresponder à ajuda que recebo aqui dos colegas experientes como o dark0, respondendo aos que tem dúvidas que sei responder (poucos, é verdade). A cooperação quando funciona como aqui, ela acaba ajudando todo mundo e o grupo sempre sai ganhando, pois evita-se que todos desenvolvam e aprendam tudo sózinhos. Assim o traballho do programador fica cada vez num nível mais alto, no aperfeiçoamento e adaptação ao problema do cliente. Em síntese, ou coperamos, mesmo sabendo que alguns só estão ai para colher, ou fica cada um por si, e o grupo e especialmente os iniciantes (eu inclusive) que se danem. Ou não, é claro. Um abbraço!

Olá, tem um monte de scripts de boletos por ai, é só fazer uma busca aqui no fórum ou no google. Só que inicialmente vce vai ter de escolher o banco, pois cada um tem um script próprio. Veja, por exemplo este post daqui mesmo: http://scriptbrasil.com.br/forum/index.php...34238&hl=boleto Até!

Oi Ale_xacunois, acho que voce quis dizer "desmarque" e não "marque" mostrar mensagens de erro http amigáveis, não é? Abraço!

Principe, ve se esse tutorial não te ajuda em algo: fazendo sistema de upload em ASP E Feliz Páscoa a todos!

Olha consegui um tutorial completo para fazer um sisteminha de upload em www.cjdinfo.com.br, quem sabe não pode ser de valia. Eu acho legal fazer o sistema ao invés de pegar um pronto, pois isso nos d´pa uma compreensão maior do mesmo e nos possibilita alterá-lo cf. nossas necessidades. Ai vai o tutorial: Upload de arquivo com função ASP HTML/ASP - 07/11/2002 -------------------------------------------------------------------------------- 1) Crie uma página inicial para a escolha do arquivo a ser submetido conforme o exemplo abaixo: <html> <body> <form method="POST" enctype="multipart/form-data" action="upload.asp"> <input type=file size=60 name="ArqLocal"><br> <input type=submit value="Upload"> </form> </body> </html> 2) Crie uma segunda página, que no exemplo seria upload.asp. Para efetivar o Upload, execute nela a função abaixo. Os comentários da função explicam como utilizá-la: '------------------------------------------------------------------- ' Salva o arquivo enviado no local especificado: ' Se TipoLocal=0 => Local deve ter Pathname completo do arquivo ' Se TipoLocal=1 => Local deve ter o diretório do arquivo. O Nome ' será o mesmo do arquivo enviado. ' Retorna: ' >0 = Comprimento do arquivo recebido. Upload Ok. ' -1 = Codificação inválida (Sem "multipart/form-data") ' -2 = Boundary não especificado ' -3 = Boundary não encontrado ' -4 = Filename inválido ' -5 = Dados inválidos '------------------------------------------------------------------- function SalvaArqUpload(TipoLocal, Local) dim DadosPost, DadosBin, Boundary, PosIni dim oFs, Arq, ArqDest dim i, f, s ' Aumenta o TimeOut para Grandes Arquivos: Server.ScriptTimeout = 3600 ' 1 Hora ' Verifica se codificação é "multipart/form-data": s = Request.ServerVariables("HTTP_CONTENT_TYPE") If InStr(s, "multipart/form-data") = 0 Then SalvaArqUpload = -1 exit function end if ' Carrega o campo "boundary": Boundary = "" i = InStr(s, "boundary=") if i > 0 then f = InStr(i + 9, s, ";") if f > 0 then Boundary = Trim(mid(s, i + 9, f - i - 9)) else Boundary = Trim(mid(s, i + 9)) end if else SalvaArqUpload = -2 exit function end if ' Recebe os dados enviados (Bruto): DadosPost = "" DadosBin = Request.BinaryRead(Request.TotalBytes) For i = 1 to LenB(DadosBin) DadosPost = DadosPost & Chr(AscB(MidB(DadosBin,i,1))) Next ' Procura início do Frame de dados: PosIni = InStr(DadosPost, Boundary) If PosIni = 0 then SalvaArqUpload = -3 exit function end if PosIni = PosIni + Len(Boundary) + 1 ' Monta o nome do Arquivo de Destino: ArqDest = Local if TipoLocal = 1 then ' Separa Nome do Arquivo: s = "" i = InStr(PosIni, DadosPost, "filename=") if i > 0 then f = InStr(i + 10, DadosPost, NL) s = mid(DadosPost, i + 10, f - i - 11) else SalvaArqUpload = -4 exit function end if i = InStrRev(s, "\") if i = 0 then i = InStrRev(s, "/") end if if i > 0 then s = mid(s, i + 1) end if if right(ArqDest, 1) <> "\" then ArqDest = ArqDest & "\" end if ArqDest = ArqDest & s end if ' Separa os dados do arquivo: DadosArq = "" i = InStr(PosIni, DadosPost, NL & NL) if i > 0 then f = InStr(i + 4, DadosPost, Boundary) DadosArq = mid(DadosPost, i + 4, f - i - 8) else SalvaArqUpload = -5 exit function end if ' Grava arquivo: Set oFs = Server.CreateObject("Scripting.FileSystemObject") Set Arq = oFs.CreateTextFile(ArqDest, True) Arq.Write(DadosArq) Arq.Close Set oFs = Nothing ' Normaliza TimeOut e sai: Server.ScriptTimeout = 90 SalvaArqUpload = Len(DadosArq) end function 3) Comentários: Este processo feito com rotina ASP é extremamente lento e só é recomendado para arquivos pequenos, da ordem de 10 a 20KB no máximo, pois consome demais a CPU do servidor. O ideal para uploads é utilizar objetos específicos para isso.

Ai pessoal, graças ao auxílio do grande Dark0, descobri a 1a e grande besteira que eu estava fazendo. Ocorre que eu, ao contrério da maioria parece, rodo meus scripts no servidor remoto e estava eperando que o FSO examinasse meus arquivos no meu micro cliente. Dai que o Dark=0 me disse que isso não dá, pois o FSO só lida com arqivos no servidor! Mas dai, me desculpando pelo equívoco na questão inicial, eu pergunto aos colegas: Como então um sistema de upload acessa um arquivo do cliente e depois o repassa para o servidor? Espero que agora a questão esteja no caminho correto!

Explorer, infelizmente o tutorial que indicaste não resolve o problema. A siintaxe do FSO parce estar correta. mas talvez a descrição das pastas do windows xp sejam vistas de forma diferente por ele! Se pelo menos desse para peggar o caminho absoluto do lado do cliente ou se pudess elistar as pastas no cliente...

Pois é Principe, mas o teu problema acho que tenho uma meia solução. Existe um script ai no tópico de funções (upload sem componentes) que funciona no windows XP. Mas ele não usa FSO e não sei como alterá-lo e ele salva os arquivos com um nome pré-definido, o que não dá. Dai a dúvida cruel: se aquele script consegue fazer o upload, ele é possivel no win XP. Mas o que então estamos fazendo errado? Ou o FSO e o win XP não "se cruzam"??? Tomara que algum iluminado ai ou algum moderador nos dê uma luz, pois li um monte de tutoriais, a sibntaxe do FSO é simples. Mas pra nós só não funciona!!!!

Obrigado explore, mas nada disso funcionou. o FSO sempre retorna falso para esta ou qualquer pasta do drice C:, embora retorne true para o próprio drive. Alguém por favor sabe como posso resolver esse probçlema?? Eu gostaria que o código FSO copiasse todos os arquivos de um diretório fixo no cliente para o servidor, mas sequer consigo que ele detecte a existência de uama pasta no cliente?? Será que é incompatibilidade com o win XP?? Mas se for, como os sistemas de upload prontos coneguem??? Por favor ajuudeemmm-me!!!

Olha, coom o FSO no win XP eu consido detectar a existência dos drives, mas só. Pastas e arquivos nem pensar, sempre dá mensagem de "Path not found ". Uso: Set FSO = Server.CreateObject("Scripting.FileSystemObject") response.write FSO.FolderExists("c:\tarefas") A pasta tarefas está láano driive c:, mas oo retorno sempre vem FALSE !!! SErá que há incompatibilidade entre o win XP e o FSO???

Olha pessoall, tenho um script que mistura asp e javascript e faz variar o nome da variável, que pelo que entendi é o que o Rinaldo deseja: opener.form1.estado<%=Cont%>.value = estado; onde cont é uma variável cujo vallor é setado em asp e é variável (01,02,...) dai o javascript a le como opener.form1.estado01.value = estado; opener.form1.estado02.value = estado; dependendo do valor de Cont

Olha nutz eu enfrentei o mesmo problema na universidade até com mandado de segurança. A alegação é que o tempo míniimo serve para o estudante vivenciar o curso, não ficar só no básico, mas vivenciar, ver outras coisas a respeito, etc. O problema é que só exigir um tempo míniimo, de fato, não garante que o aluno vai vivenciar a coisa. Mas esse tempo mínimo é exigido em todo o lugar, pelo próprio MEC. Vide a faculdade mais próxima de vce. PS: perdi o Mandado dde Segurança.

Obrigadão Crystian! Estava mesmo entalado com esse problema! Vou já tentar a tua solução. Valeu mesmo!

Olha esse erro dá quando há uma incompatibilidade nas comparações da SQL. Vce tem certeza que o campo "mês" é numérico?

Então desculpe ai, forum erado!

Pessoal, não consigo resolver este problema e espero que vces me ajudem! A linha abaixo deveria abri uma popup, mas não abre. Se coloco ".focus();" no lugar da ";" do final, ela at´r trnta abrir a popup mas dá erro "null is null or not an object". quando chamo a mesma linha num comando "onclick" ela funciona com o ".focus()", mas se a chamo num script dai ela não funciona. JanelaPopUp('../pesquisageral.asp?txt=<%=nomecliente%>& NomeCampo1=<%=NomeCampo1%>&NomeCampo2=<%=NomeCampo2%>& sqlpesquisa=<%=sqlpesquisa%>&CampoCompara=<%=CampoCompara%>&ntxt=01' ,500,500); Será que alguém pode me solucionar esse problema ai? Dizer onde está meu erro?

Pessal, não consigo resolver este problema e espero que vces me ajudem! A linha abaixo deveria abri uma popup, mas não abre. Se coloco ".focus();" no lugar da ";" do final, ela at´r trnta abrir a popup mas dá erro "null is null or not an object". quando chamo a mesma linha num comando "onclick" ela funciona com o ".focus()", mas se a chamo num script dai ela não funciona. JanelaPopUp('../pesquisageral.asp?txt=<%=nomecliente%>&NomeCampo1=<%=NomeCampo1%>&NomeCampo2=<%=NomeCampo2%>&sqlpesquisa=<%=sqlpesquisa%>&CampoCompara=<%=CampoCompara%>&ntxt=01',500,500); Será que alguém pode me solucionar esse problema ai? Dizer onde está meu erro?

function Raiz(numero, raiz) Raiz = EXP(LOG(numero)/raiz) End Function function Exponenciacao(numero, expoente) Exponenciacao = EXP(LOG(numero) * expoente) End Function OBs: para raiiz quadrada do numero é só gazer o argumento raiz=2 PS: Este post era pra o tópico de funções, mas postei aqui por engano!