Ir para conteúdo
Fórum Script Brasil

marcus Gemeos

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    404

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que marcus Gemeos postou

  1. marcus Gemeos
    Olá, Como faço para que o usuário click no menu suspenso e chame outra página sem que precise clicar no botão? Obrigado!
  2. marcus Gemeos
    Olá pessoal, Como faço para limitar o tamanho dos arquivos que são enviados em método upload? Obrigadão!
  3. marcus Gemeos
    Olá pessoal, Já resolvir o problema, é só você colocar o sistema dentro de uma tabela e redimencionar a tabela que irá redimencionar aqutomaticamente o sistema! Obrigadão! :D Marcus
  4. marcus Gemeos
    Olá, Alguém sabe porque esse sistema só funciona e a gente digitar o texto pelo código e não na parte normal? Obrigado! Marcus <script language="JavaScript" type="text/javascript"> <!-- <% sContent = "here's the " & chr(13) & """preloaded <b>content</b>""" sContent = RTESafe(sContent) %>//Usage: writeRichText(fieldname, html, width, height, buttons, readOnly) writeRichText('rte1', '<%=sContent%>', 520, 200, true, false); //--> </script>
  5. marcus Gemeos
    Eu procurei e não conseguir... quero diminuir mais as laterais! é no arquivo htmlarea.js! Obrigado! Marcus
  6. marcus Gemeos
    É verdade... Alguém sabe como redimencionar a barra de ferramentas do HTMLAREA pois eu tentei de tudo nos scripts e nos arquivos e não achei... Obrigado! Marcus
  7. marcus Gemeos
    Ola pessoal, Estou com ASP que esta dando o seguinte erro: error '80020009' Exception occurred. /sistema/conteudo/Oficios/Oficio3.asp, line 86 Obrigado!! Abaixo segue o codigo: <!--#include virtual="../../../includes/menu.asp"--> <!--#include file="../../../includes/connect.asp"--> <HTML> <HEAD> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> <base target="_self"> </HEAD> <BODY> <% page = Request.ServerVariables("Server_Name") USUA_ID = Session("USUA_ID") UNID_ID = Session("UNID_ID") USUA_Matricula = Session("USUA_Matricula") USUA_Nome = Session("USUA_Nome") USUA_ADM = Session("USUA_ADM") unid = Session("UNID_ID") set rs_agencia=conn.execute ("SELECT UNID_NOME, (SELECT RETPV FROM USUARIOS WHERE USUA_MATRICULA='" & usua_matricula & "') AS RETPV FROM UNIDADES WHERE UNID_ID='" & unid & "'") Opcao = Request.form("Op2") Select Case Opcao Case 1 Tipo = "CI" Descricao = "CI" Case 2 Tipo = "OF" Descricao = "OF" Case 3 Tipo = "CE" Descricao = "CE" Case 4 Tipo = "PA" Descricao = "PARECER" Case 5 Tipo = "AT" Descricao = "ATA" Case 6 Tipo = "VO" Descricao = "VOTO" Case 7 Tipo = "RC" Descricao = "RESOLUÇÃO" Case 8 Tipo = "GT" Descricao = "GTM" Case 9 Tipo = "PR" Descricao = "PROCESSO" Case 10 Tipo = "PO" Descricao = "PORTARIA" Case 11 Tipo = "AE" Descricao = "ATESTE" Case 12 Tipo = "OS" Descricao = "ORDEM DE SERVIÇO" Case 13 Tipo = "DE" Descricao = "DECISÃO" Case 14 Tipo = "AS" Descricao = "ATA CAIXA SEGUROS" Case 15 Tipo = "DB" Descricao = "DECLARAÇÃO DE BENS E RENDA" Case 16 Tipo = "CR" Descricao = "CARTA REVERSAL" End Select %> <table border="0" height="41" cellspacing="0" cellpadding="0" background="http://www.caixa/padrão/imagens/FUNDO_TITULO.gif"> <tr> <td width="445" height="46" valign="bottom"> <h2>Expedientes - Pesquisa</h2> <font face=arial size=4 color="#0066CC"><b>Tipo:&nbsp;<%=Descricao%></b></font> </td> </tr> </table> <% if rs_agencia("RETPV") = "True" then unid = cstr(unid) + "R" SQL = "SELECT * FROM Oficios_EN WHERE UNID_ID='" & unid & "' AND Tipo='" & TIPO & "' AND Situacao<>'Cancelado' ORDER BY Numero DESC" else SQL = "SELECT * FROM Oficios_EN WHERE UNID_ID='" & unid & "' AND Tipo='" & TIPO & "' AND Situacao<>'Cancelado' ORDER BY Numero DESC" end if Set rsDB = Conn.Execute(SQL) If rsDB.eof then Response.write "Não há " & Descricao & " cadastrado no sistema!" Response.write "<br><br><br><a href='oficios.asp' target=_self> &nbsp; &nbsp; Voltar</a>" else %> <Table border=1 cellspacing="0" bordercolor="#0066CC"> <TR> <TD><b>Número</b></td> <TD><b>Destino</b></TD> <TD><b>Assunto</b></TD> <TD><b>Quem</b></TD> <TD><b>Quando</b></TD> <TD><b>Ações</b></TD> </tr> <% Fundo = "white" Do while not rsDB.eof IF Fundo = "lightblue" then Fundo = "white" Letra = "black" else Fundo = "lightblue" Letra = "black" end if Numero = rsDB("Numero") Destino = rsDB("Destino") Assunto = rsDB("Assunto") Nome = rsDB("Nome") Emissao = rsDB("DataHora") %> <TR bgcolor="<%=Fundo%>"> <TD><%=Numero%></TD> <TD><%=Destino%></TD> <TD><%=Assunto%></TD> <TD><%=Nome%></TD> <TD bgcolor="<%=Fundo%>"><%=Emissao%></TD> <TD bgcolor="<%=Fundo%>"><center><a href="edit.asp?numero=<%=Numero%>&tipo=<%=tipo%>"> <img alt="EDITAR" border="0" src="edit.gif">&nbsp;</a><a href="action.asp?numero=<%=Numero%>&tipo=<%=tipo%>&action=del"><img alt="CANCELAR" border="0" src="delete.gif"></a></center></TD> </TR> <% rsDB.MoveNext Loop %> </table> <% Response.write "<br>" Response.write "<hr>" Response.write "<br>" Response.write "<a href='oficios.asp' target=_self> &nbsp; &nbsp; Voltar</a>" end if rsDB.Close Set rsDB = Nothing Conn.Close Set Conn = Nothing %> </BODY> </HTML>
  8. marcus Gemeos
    ;)
  9. marcus Gemeos
    Olá amigo, Segue os comandos completos! Obrigado! Marcus <html> <head> <title>SISTEMA DE UPLOAD DE QUALQUER ARQUIVO</title> <script LANGUAGE="JavaScript"> function Limit(upload) { if (upload.file.value == "") { alert("Informe o nome do arquivo (.jpg ou .gif)!"); upload.file.focus(); return false; } vfile = upload.file.value; tfile = vfile.length; if ((vfile.substr(tfile - 4, 4) != ".jpg") & (vfile.substr(tfile - 4, 4) != ".gif")){ alert("O arquivo deverá possuir o formato (.jpg ou .gif)!"); upload.file.focus(); return false; } } </script> </head> <body> <form name=upload OnKeyPress="return false;" OnSubmit= "return Limit(upload);" method=post ENCTYPE="multipart/form-data"> Arquivo : <input type="file" name="file" size="20"><br> <input type=submit Name="Action" value="Upload do Arquivo"> </form></input></input> </body></HTML> <!---#INCLUDE FILE="upload.inc" ---> <% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then 'Request method must be "POST" For get the fields Set Fields = GetUpload() 'ALTERE A PASTA CHAMADA "imgs" PELA PASTA QUE VOCÊ QUER DEIXAR AS IMGENS 'LEMBRANDO QUE DEVE ESTAR NO MESMO DIRETORIO DAS PAGINAS UPLOAD.ASP E UPLOAD.INC 'DEIXE A BARRA "/" - PARA USAR NO SEU SITE 'DEIXE A BARRA "\" - PARA USAR NA SUA INTRANET FilePath = Server.MapPath("imgs") & "\" & Fields("file").FileName Fields("file").Value.SaveAs FilePath End If 'BY - ROBERTO GODOY %>
  10. marcus Gemeos
    Olá, Eu gostaria de saber como faço para que na hora de realizar um upload de um arquivo, o código capturasse o nome do arquivo e sua extenção "foto.jpg" para que eu possa inserir no banco de dados? Meu uplaod é sem componente! Há, e tem como renomear o arquivo antes de enviar e realizar esse processo acima, como? Obrigado! Marcus
  11. marcus Gemeos
    Olá amigo, Por que nunca tinha visto esse código e do jeito que postaro aí eu copiei! mas funcionou! Obrigado! Marcus
  12. marcus Gemeos
    Olá amigo, Entendi sua questão, mas coloquei na seguinte linha e mesmo assim eu pode digitar que eu queria no campo! Há algo de errado? Obrigado! Marcus <input readlonly='true' type="file" name="file" size="20">
  13. marcus Gemeos
    Pessoal, Obrigado pela visita de vocês, mas conseguir resolver está questão! Mas agora gostaria de saber se tem como a gente deixar um campo do formulário desabilitado para digitação? Ou seja, guando uma pessoa querer digitar alguma coisa no campo do formulário, não saia nada ou algo parecido que não deixe que escreva nada no campo de upload? Só exiba mesmo o diretório escolhido pelo usuário? Obrigado! Marcus
  14. marcus Gemeos
    Olá, Eu gostaria de um comando que leia a extenção do arquivo que vai ser enviado! Pois o pessoal me passou aqui mas parece que só funciona com componentes Dundas e não acita trim.form... Uma coisa simples da qual posso extrair a extenção do arquivo e possa dar uma mensagem de aviso! Por que não vejo outra forma de proteger o servidor de arquivos não imagens... não sei... Obrigado! Marcus
  15. marcus Gemeos
    Olá pessoal, Por que está dando o seguinte erro com a variavel "value" Tipo de erro: Objeto Request, ASP 0103 (0x80004005) A função espera um número como entrada. /texto/demo.asp, line 38 Código: <script language="JavaScript" type="text/javascript"> <!-- <% VarTexto = Request.Form("rte1").item("value") //o erro está dando aqui sContent = chr(13) & VarTexto sContent = RTESafe(sContent) %>//Usage: writeRichText(fieldname, html, width, height, buttons, readOnly) writeRichText('rte1', '<%=sContent%>', 520, 200, true, false); //--> </script> Pois no VarTexto eu queria que ele capturase os textos que o usuário digitasse!!
  16. marcus Gemeos
    Olá amigo, Pois é seguinte, do jeito que você escreveu é correto! Mas a questão é que guando o usuário fazer o upload da imagem, irá ser exibida na página a imagem inserida, mas por acaso ele no upload inserir no lugar da imagem um outro arquivo que não seja tipo de imagem, o upload não realizaria o processo! Mesmo se o usuário for e renomear a extenção do arquivo, por exemplo de nota.txt para nota.jpg, mas sabendo que esse arquivo nunca foi imagem! Entendes? O mesmo que acontece no mercado livre na hora de inserir imagens para vendas, não sei se você já viu, pois se você já vendeu lá deve está lembrado! Obrigadão!!! Marcus
  17. marcus Gemeos
    Olá pessoal, Como posso fazer para a seguinte questão: Guando a imagem falhar... ou não foi inserida dê a seguinte mensagem "Arquivo não inserido ou houve uma falha" caso ao contrário exiba imagem inserida? Preciso! Obrigado! Marcus
  18. marcus Gemeos
    É talvez esteja alguma coisa errada por aqui! Obrigado assim mesmo! Marcus
  19. marcus Gemeos
    lá amiga, Não houve sucesso na captura do diretório ao menos! E estou com dundas! Obrigado! Marcus
  20. marcus Gemeos
    Olá pessoal, Um colega me enviou comando de script abaixo, mas como faço para instalá-lo? Como instálalo no form? onclick? Obrigado! Marcus if (form.file.value == "") { alert("Informe o nome do arquivo (.pdf)!"); form.file.focus(); return false; } vfile = form.file.value; tfile = vfile.length; if (vfile.substr(tfile - 4, 4) != ".pdf") { alert("O arquivo deverá possuir o formato (.pdf)!"); form.file.focus(); return false; }
  21. marcus Gemeos

    Área De Texto Editável

    uma questão respondeu marcus Gemeos em ASP

    Veja se você tem sucesso com isso: http://www.dynamicdrive.com/dynamicindex16/richtexteditor/ mais acho que é para ASP! não ASP.NET já que você conhece... dê uma olhadinha! Marcus
  22. marcus Gemeos

    Área De Texto Editável

    uma questão respondeu marcus Gemeos em ASP

    Haf... desculpa!
  23. marcus Gemeos
    Olá amiga, O HTMLAREA é pago né? Obrigado! Marcus
  24. marcus Gemeos

    Área De Texto Editável

    uma questão respondeu marcus Gemeos em ASP

    Olá Amiga! O HMTL AREA é pago né? Obrigado! Marcus
  25. marcus Gemeos
    Olá pessoal, Como faço ou onde encontro o sistema de caixa de texto com ferramente de formatação? Igual dessa mesma aqui do fórum que escrevemos as mensagens? Opção de Negrito, Italico, Fonte... Precisso! Obrigado! Marcus
×
×
  • Criar Novo...