Ir para conteúdo
Fórum Script Brasil

TIO CARNEGO

Membros
  • Total de itens

    59
  • Registro em

  • Última visita

Posts postados por TIO CARNEGO

  1. :ph34r:

    Seguinte,

    Declare uma interface "ISetadorDeEvento" com um método "CliqueDoBotao" e faça com que sua página a implemente, depois no evento do button na própria masterpage você chama "Me.Page" tipada como "ISetadorDeEvento" e chama o método "CliqueDoBotao".

    :rolleyes:

  2. ph34r.gif

    O quadro de cima só gerará um evento que necessite da atualização do quadro de baixo quando ele próprio for atualizado, assim usando um IFRAME para armazenar o quadro de baixo não seria necessário uso de nenhum script.

    Uma opção por scripts geraria inconsistência dependendo da segurança configurada no navegador.

    rolleyes.gif

  3. ph34r.gif

    Function FormataData(aData)
    FormataData=Year(aData)&"/"&String(2-Len(Month(aData)),"0")&Month(aData)&"/"&String(2-Len(Day(aData)),"0")&Day(aData)
    End Function
    
    NumeroDeDiasAAcrescentar = 15
    DataDeVencimento = FormataData(DateAdd("d", NumeroDeDiasAAcrescentar, Date()))
    

    rolleyes.gif

  4. ph34r.gif

    Set aConexao = Server.CreateObject("ADODB.Connection")
    	aConexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&oCaminhoDoBanco&";"
    Set oRS = CreateObject("ADODB.Recordset")
    	oRS.CursorType = 2
    	oRS.LockType = 2
    	oRS.Open "SELECT TOP 1 * FROM qualquertabela",aConexao
    	oRS.AddNew
    	oRS("CampoTal") = ValorTal
    	oRS("CampoTal") = ValorTal
    	oRS.UpDate
    	'Aqui o valor do campo de autoincremento já está disponível
    	'Si num for usá mais, fecha a bagaça
    	oRS.Close
    Set oRS = Nothing
    Set aConexao = Nothing
    	'Si for usá apaga as três linha acima
    	'Totau ou Parciau?
    

    rolleyes.gif

  5. ph34r.gif

    Fi,

    O Objeto Request já está disponível no evento Session_OnStart portanto você pode recuperar os valores postados para o seu site sim.

    Quanto a segunda opção só na gambiarra.

    Falow!!!!

    rolleyes.gif

  6. ph34r.gif

    Dany,

    Logo depois que você que postei esse código você disse q teve problemas, pra saber corretamente por que isso acontece a gente deve saber que tipo de código js há nos arquivos ou dentro do html e se eles estão atrelados a eventos.

    Além disso qual é a mensagem exata do erro?

    rolleyes.gif

  7. ph34r.gif

    Não funciona porque Strcomp retorna 0 (Booleano falso) quando o teste é bem sucedido.

    If (Strcomp(Right(banner,3),"swf")=0) And flash Then
    error = error & "<br>Seu banner não é em flash mas você selecionou a opção em flash." 
    End If
    

    rolleyes.gif

  8. ph34r.gif

    Aqui vai uma dica:

    <%
    Option Explicit
    Dim oEndereco
    oEndereco="http://www.google.com.br/search?hl=pt-BR&q=Quem+%C3%A9+o+pai&meta="
    Dim aPagina,oFluxo
    Set oFluxo = Server.CreateObject("Microsoft.XMLHTTP")
    oFluxo.open "GET",oEndereco,False
    oFluxo.send()
    Set aPagina = CreateObject("htmlfile")
    aPagina.write(oFluxo.responseText)
    Response.Write(aPagina.Body.InnerText)
    %>

    rolleyes.gif

  9. ph34r.gif

    <body onLoad="MM_timelinePlay('Timeline1')" background-color:transparent>
    <div id="Layer1" style="background-color:transparent; position:absolute; left:11px; top:18px; width:333px; height:292px; z-index:1; background-image:transparent; layer-background-image:transparent; border: 1px none #000000;">
      <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="350" height="350">
        <param name="movie" value="vaisefudeee.swf">
        <param name=quality value=high>
        <PARAM NAME=WMODE VALUE=TRANSPARENT>
        <embed src="vaisefudeee.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="350" height="350"></embed>
      </object>
    </div>
    </body>
    
    

    rolleyes.gif

  10. ph34r.gif

    Set tb = CreateObject("ADODB.Recordset")
    tb.cursortype = 2
    tb.locktype = 2
    tb.Open "Select TOP 1 * From perguntas,Conn
    tb.AddNew
    For Each Campo in tb.Fields
     Campo.Value=Request.Form(Campo.Name)
    Next
    tb.UpDate
    tb.Close
    

    rolleyes.gif

  11. ph34r.gif

    Esse script é parecido com o q você quer fazer:

    <%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
    <%
    x = parseFloat(Request.Form("a"))
    y = parseFloat(Request.Form("b"))
    %>
    <html>
    <head>
    <title>Operações de multiplicação</title>
    </head>
    <body>
    <font color="#CC0000"><%=isNaN(y*x)?"Operação Inválida!!":"Operação Efetuada com sucesso!!"%></font><br>
    <font color="green">Digite 2 números para multiplicação:</font><br>
    <form method="post">
      <input type="text" name="a" value="<%=isNaN(x)?"":x%>">&nbsp;*&nbsp;
      <input type="text" name="b" value="<%=isNaN(y)?"":y%>">&nbsp;=&nbsp;
      <input type="text" disabled value="<%=isNaN(y*x)?"":y*x%>"><br>
      <input type="submit" value="Resultado">&nbsp;&nbsp;<input type="reset" value="Limpar">
    </form>
    </body></html>

    rolleyes.gif

  12. ph34r.gif

    Dany,

    Se você quiser uma ajuda legal mesmo seria interessante que você postasse um exemplo do arquivo q você está tentando abrir e como você está fazendo isso no código.

  13. ph34r.gif

    Function FormataDataDeFormaDecente(aData)
    FormataDataDeFormaDecente=String(2-Len(Day(aData)),"0")&Day(aData)&"/"&String(2-Len(Month(aData)),"0")&Month(aData)&"/"&Year(aData)
    End Function

    rolleyes.gif

×
×
  • Criar Novo...