Ir para conteúdo
Fórum Script Brasil

victormartins

Membros
  • Total de itens

    1.002
  • Registro em

  • Última visita

Posts postados por victormartins

  1. faz assim cria um documento chamado, vai qualquer nome por ex: desbloquear.js dentro desse arquivo coloque isso:

    //v1.0
    //Copyright 2006 Adobe Systems, Inc. All rights reserved.
    function AC_AddExtension(src, ext)
    {
      if (src.indexOf('?') != -1)
        return src.replace(/\?/, ext+'?'); 
      else
        return src + ext;
    }
    
    function AC_Generateobj(objAttrs, params, embedAttrs) 
    { 
      var str = '<object ';
      for (var i in objAttrs)
        str += i + '="' + objAttrs[i] + '" ';
      str += '>';
      for (var i in params)
        str += '<param name="' + i + '" value="' + params[i] + '" /> ';
      str += '<embed ';
      for (var i in embedAttrs)
        str += i + '="' + embedAttrs[i] + '" ';
      str += ' ></embed></object>';
    
      document.write(str);
    }
    
    function AC_FL_RunContent(){
      var ret = 
        AC_GetArgs
        (  arguments, ".swf", "movie", "clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"
         , "application/x-shockwave-flash"
        );
      AC_Generateobj(ret.objAttrs, ret.params, ret.embedAttrs);
    }
    
    function AC_SW_RunContent(){
      var ret = 
        AC_GetArgs
        (  arguments, ".dcr", "src", "clsid:166B1BCA-3F9C-11CF-8075-444553540000"
         , null
        );
      AC_Generateobj(ret.objAttrs, ret.params, ret.embedAttrs);
    }
    
    function AC_GetArgs(args, ext, srcParamName, classid, mimeType){
      var ret = new Object();
      ret.embedAttrs = new Object();
      ret.params = new Object();
      ret.objAttrs = new Object();
      for (var i=0; i < args.length; i=i+2){
        var currArg = args[i].toLowerCase();    
    
        switch (currArg){    
          case "classid":
            break;
          case "pluginspage":
            ret.embedAttrs[args[i]] = args[i+1];
            break;
          case "src":
          case "movie":    
            args[i+1] = AC_AddExtension(args[i+1], ext);
            ret.embedAttrs["src"] = args[i+1];
            ret.params[srcParamName] = args[i+1];
            break;
          case "onafterupdate":
          case "onbeforeupdate":
          case "onblur":
          case "oncellchange":
          case "onclick":
          case "ondblClick":
          case "ondrag":
          case "ondragend":
          case "ondragenter":
          case "ondragleave":
          case "ondragover":
          case "ondrop":
          case "onfinish":
          case "onfocus":
          case "onhelp":
          case "onmousedown":
          case "onmouseup":
          case "onmouseover":
          case "onmousemove":
          case "onmouseout":
          case "onkeypress":
          case "onkeydown":
          case "onkeyup":
          case "onload":
          case "onlosecapture":
          case "onpropertychange":
          case "onreadystatechange":
          case "onrowsdelete":
          case "onrowenter":
          case "onrowexit":
          case "onrowsinserted":
          case "onstart":
          case "onscroll":
          case "onbeforeeditfocus":
          case "onactivate":
          case "onbeforedeactivate":
          case "ondeactivate":
          case "type":
          case "codebase":
            ret.objAttrs[args[i]] = args[i+1];
            break;
          case "width":
          case "height":
          case "align":
          case "vspace": 
          case "hspace":
          case "class":
          case "title":
          case "accesskey":
          case "name":
          case "id":
          case "tabindex":
            ret.embedAttrs[args[i]] = ret.objAttrs[args[i]] = args[i+1];
            break;
          default:
            ret.embedAttrs[args[i]] = ret.params[args[i]] = args[i+1];
        }
      }
      ret.objAttrs["classid"] = classid;
      if (mimeType) ret.embedAttrs["type"] = mimeType;
      return ret;
    }
    
    e na pagina coloque assim:
     <script type="text/javascript">
    AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=8,0,24,0','width','779','height','135','src','logo','quality','high','pluginspage','http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash','movie','logo','wmode','transparent' ); //end AC code
    </script><noscript><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=8,0,24,0" width="779" height="135">
        <param name="movie" value="logo.swf">
        <param name="quality" value="high">
    <param name='wmode' value='transparent'>
        <embed src="logo.swf" quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="779" height="135" ></embed>
      </object></noscript>
    

    Substitua td o que precisar na pagina, o tamanho, menu e etc...

    Esqueci pra voce colocar na pagina o script você faz assim:

    <script src="desbloquear.js" type="text/javascript"></script>

  2. Tente usar assim:

    É javascript

    Javscript

    function GenerateNoisy(value)
    {
    document.getElementById('hidGenerateNoisy').value = 'false';
    }
    function SetImage(index)
    {
    path = document.getElementById('imgPequena' + index).src;
    path = path.replace('pequena', 'grande');
    document.getElementById('imgPrincipal').src = path;
    }
    
    pagina.htm
    <table width="289" height="400" border="0" cellpadding="0" cellspacing="0">
      <tr> 
        <td width="289" valign="top"><font size="1"><br></font>
          <div align="center"><img src="carros/m_221.jpg" id="imgPrincipal" border="1"><input name="hidFotoSelecionada" id="hidFotoSelecionada" type="hidden" />
          <font size="1"></font></div>
                          <table cellSpacing="0" cellPadding="0" border="0" bordercolor="#000000" align="center" bgcolor="#ffffff" style="border:1px solid #000000">
    <tr>
    <td width="82" height="62">
    <img id="imgPequena1" onClick="SetImage('1');" onMouseOver="this.style.cursor='hand';" onMouseOut="this.style.cursor='';" src="carros/m_222a.jpg" alt="" border="0" style="height:62px;width:90px;" />
    </td>
    
    <td width="82" height="62">
    <img id="imgPequena2" onClick="SetImage('2');" onMouseOver="this.style.cursor='hand';" onMouseOut="this.style.cursor='';" src="carros/m_223.jpg" alt="" border="0" style="height:62px;width:90px;" />
    </td>
    <td width="82" height="62">
    <img id="imgPequena3" onClick="SetImage('3');" onMouseOver="this.style.cursor='hand';" onMouseOut="this.style.cursor='';" src="carros/m_221.jpg" alt="" border="0" style="height:62px;width:90px;" />                                                                                                                                    </td>
    </tr>
    </table>
    

  3. Da uma procurada no forum de ASP, porque eu lembro que eu já postei para um cara para forçar download

    Achei o que eu tinha postado

    <% 
    'mostra via servidor que o response.addheader será aplicado para download 
    response.AddHeader "Content-Type","application/x-msdownload" 
    
    'mostramos o arquivo que será feito o download, independente de sua extensão 
    'usaremos no exemplo: arquivo.pdf 
    response.AddHeader "Content-Disposition","attachment; filename=arquivo.pdf" 
    Response.Flush 
    
    Response.Buffer = True 
    Const adTypeBinary = 1 
    
    'leremos abaixo o arquivo em modo binário através do ADODB 
    Set binario = Server.CreateObject("ADODB.Stream") 
    binario.Open 
    binario.Type = adTypeBinary 
    
    'Informe aqui o caminho completo do arquivo no servidor 
    ' Se preferir, use Server.MapPath("arquivo.pdf") 
    binario.LoadFromFile Server.MapPath("arquivo.pdf") 
    Response.BinaryWrite binario.Read 
    
    binario.Close 
    Set binario = Nothing 
    Response.Flush 
    %> 
    

    ATENÇÃO, ISSO é ASP

  4. Vo te dar uma ajuda e das boas:

    <!--#include file="config.asp"-->
    <table border="1" cellpadding="4" cellspacing="0" width="363" bordercolor="#000000" align="center">
    
        <tr>
          <td bgcolor="#FFFFFF" width="363">
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td>
    <table width="98%" cellpadding="0" cellspacing="0" align="center">
      <%      sqlstmt = "SELECT * FROM noticias ORDER BY id DESC"
              Set rs = Server.CreateObject("ADODB.Recordset")
              rs.Open sqlstmt, Dados, 3, 3
    TotalRecs = rs.recordcount
    x = 0
    For x = 1 to 9999
        If rs.eof then
            Exit For
        Else
            date1 = rs("data")
            id = rs("id")
            name1 = rs("titulo")
              link = "<a href='view.asp?id=" & id & "' class='g'>" & name1 & "</a>"
            description = name1
       %>
      <tr> 
        <td height="2" valign="top"><font face="Geneva, Arial, Helvetica, san-serif" size="2"> 
          <img src="Imagens/apontar.gif"> <%=rs("data")%> - <% =link%>
    </font> 
      </tr>
    
      <%
    rs.MoveNext
    End If
    Next
    rs.close%>
    </table></td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    
    

    Esse cod eu fiz pra exibir as noticias de um site de um cliente meu

    E ESTUDE MAIS SOBRE ASP!

  5. Tenho um indique este site na pagina do meu cliente, só que fiz em CDONT, e vi que não estava funcionado na pagina, depois de analizar com muita calma vi que o servidor não da suporte para CDONT, agora quero passar para ASPMail ou ASPEmail, alguém pode me ajudar?

    indique.asp

    <!--#include file="../hora.asp"-->
    <%
    dim useraction
    
    useraction = request("action")
    select case useraction
        case "login"
            seunome = request.form("seunome")
            seuemail = request.form("seuemail")
            nomeamigo = request.form("nomeamigo")
            emailamigo = request.form("emailamigo")
            nomeamigo = request.form("nomeamigo1")
            emailamigo = request.form("emailamigo1")
            nomeamigo = request.form("nomeamigo2")
            emailamigo = request.form("emailamigo2")
                Set objCDO = Server.CreateObject("CDONTS.NewMail")
                
        htmlemail = htmlemail & "<font face=Verdana size=2><strong><font size=2>"
        htmlemail = htmlemail & "<p><font face=Verdana color=#000080>Olá </font><i><font "
        htmlemail = htmlemail & "face=Verdana color=#FF0000>" & nomeamigo & "</font></i><font face=Verdana color=#000080>!<br>"
        htmlemail = htmlemail & "<br>"
        htmlemail = htmlemail & "O seu amigo " & seunome & " entrou no site da e convidou você para visitar o site também!</font></font></strong></font></p>"
        htmlemail = htmlemail & "<br>"
        htmlemail = htmlemail & "<p><strong><font size=2 color=#000080><font face=Verdana>O site da , é um site onde você encontra muitas coisas!.</font><br><br>"
        htmlemail = htmlemail & "<font face=Verdana>Atenciosamente,<br>"
        htmlemail = htmlemail & "</font></font><i><font face=Verdana size=2 color=#000080>&nbsp;"
        htmlemail = htmlemail & "- <br>"
        htmlemail = htmlemail & "&nbsp;</font><a href=www.site.com.br><font face=Verdana size=2 color=#000080>www.site.com.br</font></a></i></strong></p>"
         
                objCDO.To = emailamigo
                objCDO.From = seuemail
                objCDO.Subject = "Visite nosso site!"
                objCDO.Body = htmlemail
                objCDO.MailFormat = 0
                objCDO.Bodyformat = 0
                objCDO.Send
                
                response.redirect "indique2.asp"    
    
    end select
    %>            
    
    
    <html>
    <head>
    
        <title>Indicação</title>
        <script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
        <link href="css.css" rel="stylesheet" type="text/css">
    </head>
    
    <body topmargin="0" leftmargin="0" bgcolor="#EEF5FB">
    <table width="100%" cellpadding="0" cellspacing="0" style="border: 2px dotted #000000"><td bgcolor="#0099CC" align="center"><strong><b><font size="4" color="#ffffff" face="Arial, Helvetica, sans-serif">Preenchendo este formulário,
    você estará indicando o site da Igreja Metodista Wesleyana aos seus amigos.<br><img src="../imagens/titulo_novoJC3.gif"></font></b></strong></td></table>
    <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr> 
        <td width="100%" height="2" bgcolor="#000000"><img src="imagens\SEPARADOR.gif" width="1" height="2"></td>
      </tr>
      <tr>
        <td background="../imagens/bg_02.jpg" height="13"> 
          <div align="center"><b><font face="Arial, Helvetica, sans-serif" size="1" color="black"> 
    <%=mensagemtempo%>
    <%=data_hoje%> 
            </font></b></div>
        </td>
      </tr>
      <tr>
        <td width="753" height="2" bgcolor="#000000"><img src="imagens\SEPARADOR.gif" width="1" height="2"></td>
      </tr>
    </table>
    
    <br><form name="theform" action="indique.asp?action=login" method="post">
    <div align="center">
    <center>
    <table bgcolor="#39597D" width="333" height="30">
    <tr><td width="117" height="1" bgcolor="#FFFFFF"><b><font color="#39597D" size="2" face="Arial">Seu
        Nome:</font></b></td>
    <td width="204" height="1" bgcolor="#FFFFFF"><input type="text" name="seunome" size=31 class="txtbox"></td></tr>
    
    
    
    <tr><td width="117" height="0" bgcolor="#FFFFFF"><b><font color="#39597D" size="2" face="Arial">Seu
        E-mail:</font></b></td>
    <td width="204" height="0" bgcolor="#FFFFFF"><input type="text" name="seuemail" size=31 maxlength=30 class="txtbox"></td></tr>
    
    
    
    <tr>
      <td width="117" height="25" bgcolor="#FFFFFF"><b><font color="#39597D" size="2" face="Arial">Nome
        do Amigo:</font></b></td>
      <td width="204" height="25" bgcolor="#FFFFFF"><input type="text" name="nomeamigo" size=31 maxlength=30 class="txtbox"></td>
    </tr>
    <tr>
      <td width="117" height="25" bgcolor="#FFFFFF"><b><font color="#39597D" size="2" face="Arial">E-mail
        do Amigo:</font></b></td>
      <td width="204" height="25" bgcolor="#FFFFFF"><input type="text" name="emailamigo" size=31 maxlength=30 class="txtbox"></td>
    </tr>
    <tr>
      <td width="117" height="25" bgcolor="#FFFFFF"><b><font color="#39597D" size="2" face="Arial">Nome
        do Amigo:</font></b></td>
      <td width="204" height="25" bgcolor="#FFFFFF"><input type="text" name="nomeamigo1" size=31 maxlength=30 class="txtbox"></td>
    </tr>
    <tr>
      <td width="117" height="25" bgcolor="#FFFFFF"><b><font color="#39597D" size="2" face="Arial">E-mail
        do Amigo:</font></b></td>
      <td width="204" height="25" bgcolor="#FFFFFF"><input type="text" name="emailamigo1" size=31 maxlength=30 class="txtbox"></td>
    </tr>
    <tr>
      <td width="117" height="25" bgcolor="#FFFFFF"><b><font color="#39597D" size="2" face="Arial">Nome
        do Amigo:</font></b></td>
      <td width="204" height="25" bgcolor="#FFFFFF"><input type="text" name="nomeamigo2" size=31 maxlength=30 class="txtbox"></td>
    </tr>
    <tr>
      <td width="117" height="25" bgcolor="#FFFFFF"><b><font color="#39597D" size="2" face="Arial">E-mail
        do Amigo:</font></b></td>
      <td width="204" height="25" bgcolor="#FFFFFF"><input type="text" name="emailamigo2" size=31 maxlength=30 class="txtbox"></td>
    </tr>
    </table>
    
    </center>
    
    </div>
    <p align="center">
    <input type="reset" value="Limpar" class="bot">
    <input type="submit" value="Enviar" class="bot"></p>
    </form>
    <!--#include file="../baixo.asp"-->
    </body>
    
    indique2.asp
    
    <%
    
            seunome = request.form("seunome")
            seuemail = request.form("seuemail")
            nomeamigo = request.form("nomeamigo")
            emailamigo = request.form("emailamigo")
            nomeamigo = request.form("nomeamigo1")
            emailamigo = request.form("emailamigo1")
            nomeamigo = request.form("nomeamigo2")
            emailamigo = request.form("emailamigo2")
    
                Set objCDO = Server.CreateObject("CDONTS.NewMail")
                
        htmlemail = htmlemail & "<font face=Verdana size=2><strong><font size=2>"
        htmlemail = htmlemail & "<p><font face=Verdana color=#000080>Olá </font><i><font "
        htmlemail = htmlemail & "face=Verdana color=#FF0000>" & seunome & "</font></i><font face=Verdana color=#000080>!<br>"
        htmlemail = htmlemail & "<br>"
        htmlemail = htmlemail & "Agradece à você por indicar o nosso site e queremos dizer que a indicação foi enviado com sucesso para " & nomeamigo & "!</font></font></strong></font></p>"
        htmlemail = htmlemail & "<br><br>"
        htmlemail = htmlemail & "<font face=Verdana>Atenciosamente,<br>"
        htmlemail = htmlemail & "</font></font><i><font face=Verdana size=2 color=#000080>&nbsp;"
        htmlemail = htmlemail & "<br>"
        htmlemail = htmlemail & "&nbsp;</font><a href=http://www.site.com.br><font face=Verdana size=2 color=#000080>www.site.com.br</font></a></i></strong></p>"
         
                objCDO.To = seuemail
                objCDO.From = "contato@site.com.br"
                objCDO.Subject = "Visite nosso site!"
                objCDO.Body = htmlemail
                objCDO.MailFormat = 0
                objCDO.Bodyformat = 0
                objCDO.Send
                
                if objCDO.Send = true then
                            response.redirect "ok1.asp"    
                            else
                            response.redirect "indique.asp"
    
    %>            
    
    

    Vlw

  6. Isso não deu certo, o cod aqui:

      <%      sqlstmt = "SELECT * FROM noticias2 ORDER BY id, data DESC"
              Set rs = Server.CreateObject("ADODB.Recordset")
              rs.Open sqlstmt, Dados, 3, 3
    TotalRecs = rs.recordcount
    x = 0
    For x = 1 to 9999
        If rs.eof then
            Exit For
        Else
            date1 = rs("data")
            id = rs("id")
            name1 = rs("titulo")
              link = "<a href='view.asp?id=" & id & "' class='g'>" & name1 & "</a>"
            description = name1
       %>
    

    não sei c você entendeu errado, mas tipo tenho um sistema de noticia e eu queria que ele ordenasse não ordem certa, quando eu adicionasse ele colocasse o ultimo que eu adicionei em primeiro e quando eu add ele coloca o outro que eu adcionei em baixo do primeiro

  7. Na exibicao de noticias eu queria que fosse da ultima id para baixo, entenderam??

    eu fiz assim:

    ORDER BY id, data DESC
    

    só que ele exibe de cima para baixo e eu queria que fosse de baixo para cima,

    Ele está fazendo assim:

    Exibe de 1, 2, 3, 4, 5, 6

    E eu quero assim 6, 5, 4, 3, 2, 1

    é só um exemplo isso.

    Entenderam?

  8. Tem como o select option com o link abrir a pagina no iframe???

          <select onChange="location = options[selectedIndex].value">
          <option value="e.asp" target="frame" select>Selecione um mês</option>
          <option value="dez05.asp" target="frame">Dezembro/2005</option>
          <option value="out05.asp" target="frame">Outubro/2005</option>
          <option value="jun05.asp" target="frame">Junho/2005</option>
          <option value="abr01.asp" target="frame">Abril/2001</option>
          <option value="mar01.asp" target="frame">Março/2001</option>
          </select>
    

    Como se fosse isso ai que eu postei só que o target não funciona

×
×
  • Criar Novo...