Ir para conteúdo
Fórum Script Brasil

victormartins

Membros
  • Total de itens

    1.002
  • Registro em

  • Última visita

Posts postados por victormartins

  1. No meu site eu coloquei um contador de acessos e usuarios online pelo Global.asa, só que ele não exibe os valores!

    Global.asa

    <script LANGUAGE=VBScript RUNAT=Server>
    ' Listing 6.8   Global.asa for Tracking the Number of Currently Connected and Overall Users Since the Application Started
    Sub Application_OnStart
      Application.Lock
      Application("currentUser") = 0
      Application("allUser") = 0
      Application.UnLock
    End Sub
    
    Sub Session_OnStart
      Application.Lock
      Application("currentUser") = Application("currentUser") + 1
      Application("allUser") = Application("allUser") + 1
      Application.UnLock
    End Sub
    
    Sub Session_OnEnd
      Application.Lock
      Application("currentUser") = Application("currentUser") - 1
      Application.UnLock
    End Sub
    </SCRIPT>
    
    default.asp
    <font face="Arial" color="Black" size="2">
    <b>Total de acessos: <% Application("allUser") %><br>
    Usuários on-line: <% Application("currentUser") %></b></font>
    

    Vlw!

  2. Bom galera é o seguinte:

    Estou desenvolvendo um site para uma loja de carros, na pagina estoque eu mando ele buscar no banco de dados, até ai tudo bem, só que eu queria que ele exibisse uma linha de uma cor e a outra linha de outra cor.

    Tipo assim:

    Versão HTML

    <html>
    
    <head>
    <meta http-equiv="Content-Language" content="pt-br">
    <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
    <link href="css.css" rel="stylesheet" type="text/css">
    <title>..:: ::..</title>
    </head>
    <script src="funcao.js" language="JavaScript" type="text/JavaScript">
    </script>
    <body topmargin="0" leftmargin="0" alink="#000000" vlink="#000000" link="#000000">
    <table border="0" width="150" height="30" cellpadding="0" cellspacing="0" align="center" bgcolor="#FFFFFF" style="border: 2px dotted #000000">
      <tr>
      <tudo>
      <center><b>
      <font size="3" color="#FF0000" face="Verdana, Arial, Helvetica, sans-serif">
      Estoque</font></b>
    </center>
    </tudo>
    </tr>
    </table>
    
                <table width="500" border="0" cellspacing="0" cellpadding="0" bordercolor="#000000" align="center">
                <tr>
                <tudo>
                <font size="1">&nbsp;
                
                </font>
                </tudo>
                </tr>          
              <tr>
                <tudo valign="top" bgcolor="#000000">
                <table borderColor=#000000 cellSpacing=1 cellPadding=1 width=672 align=center border=0>
                  <tbody>
                    <tr bgcolor="#22a4ff">
                      <tudo width=40>
                        <div align=center class="fonte2"><B><FONT face="Verdana, Arial, Helvetica, sans-serif" size=2 color="#FFFFFF">Ano</FONT></B></div></tudo>
                      <tudo width=43>
                        <div align=center class="fonte2"><B><FONT face="Verdana, Arial, Helvetica, sans-serif" size=2 color="#FFFFFF">Cor</FONT></B></div></tudo>
                      <tudo width=350>
                        <div align=center class="fonte2"><B><FONT face="Verdana, Arial, Helvetica, sans-serif" size=2 color="#FFFFFF">Marca/Modelo</FONT></B></div></tudo>
    
                      <tudo width=30>
                        <div align=center class="fonte2"><B><FONT face="Verdana, Arial, Helvetica, sans-serif" size=2 color="#FFFFFF">Comb.</FONT></B></div></tudo>
                      <tudo width=65>
                        <div align=center class="fonte2"><B><FONT face="Verdana, Arial, Helvetica, sans-serif" size=1 color="#FFFFFF">Garantia motor e câmbio</FONT></B></div></tudo>
                      <tudo width=100>
                        <div align=center class="fonte2"><B><FONT face="Verdana, Arial, Helvetica, sans-serif" size=2 color="#FFFFFF">Preço<br>(à vista)</FONT></B></div></tudo>
                      
                    </tr>
                    <tr bgcolor="#8acfff">
                      <tudo>
                        <div align=center class="fonte14 fonte13">2006</div></tudo>
                      <tudo>
                        <div align=center class="fonte14">Preto</div></tudo>
                      <tudo>
                        <div align=left class="fonte14"><img src="carros/mm_civic.jpg" align="left">&nbsp;&nbsp;<a href="java script:abrecarro('honda.htm','','width=600,height=480,scrollbars=yes')" class="carro">Honda Civic 2005 16v 1.7</a><br>&nbsp;&nbsp;<br>&nbsp;&nbsp;Banco de couro, freio ABS</div></tudo>
    
                      <tudo>
                        <P align=center class="fonte14">G</P></tudo>
                      <tudo>
                        <div align=center class="fonte14">3 meses</div></tudo>
                      <tudo>
                        <div align=center class="fonte14">R$ 21.900,00</div></tudo>
                      
                    </tr>
    
                    <tr bgcolor="#d7ebff">
                      <tudo>
                        <div align=center class="fonte14">2006</div></tudo>
                      <tudo>
                        <div align=center class="fonte14">Preto</div></tudo>
                      <tudo>
                        <div align=left class="fonte14"><img src="carros/mm_palio.jpg" align="left">&nbsp;&nbsp;<a href="java script:abrecarro('palio.htm','','width=600,height=480,scrollbars=yes')" class="carro">Fiat Palio 16v 1.4</a><br>&nbsp;&nbsp;<br>&nbsp;&nbsp;Ar, direção</div></tudo>
    
                      <tudo>
                        <P align=center class="fonte14">G</P></tudo>
                      <tudo>
                        <div align=center class="fonte14">3 meses</div></tudo>
                      <tudo>
                        <div align=center class="fonte14">R$ 10.600,00 </div></tudo>
                      
                    </tr>
        
                  </tbody>
                </TABLE>
    </tudo>
              </tr>
              
          </table>      </tudo>
        </tr>
    
    
    
    
            
                </tudo>
              </tr>
    
    
    </body>
    
    </html>
    
    No ASP
    <!--#include file="bibconnection.asp"-->
    <html>
    <head>
    <meta http-equiv="Content-Language" content="pt-br">
    <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
    <link href="css.css" rel="stylesheet" type="text/css">
    <title>..::  ::..</title>
    </head>
    <script src="funcao.js" language="JavaScript" type="text/JavaScript">
    </script>
    <body topmargin="0" leftmargin="0" alink="#000000" vlink="#000000" link="#000000">
    
    <!--#include file="cima.asp"-->
      <table border="0" width="150" height="30" cellpadding="0" cellspacing="0" align="center" bgcolor="#FFFFFF" style="border: 2px dotted #000000">
      <tr>
      <tudo>
      <center><b>
      <font size="3" color="#FF0000" face="Verdana, Arial, Helvetica, sans-serif">
      Estoque</font></b>
    </center>
    </tudo>
    </tr>
    </table>
    
                <table width="500" border="0" cellspacing="0" cellpadding="0" bordercolor="#000000" align="center">
                <tr>
                <tudo>
                <font size="1">&nbsp;
                
                </font>
                </tudo>
                </tr>          
              <tr>
                <tudo valign="top" bgcolor="#000000">
                <table borderColor=#000000 cellSpacing=1 cellPadding=1 width=672 align=center border=0>
                  <tbody>
                    <tr bgcolor="#22a4ff">
                                      <tudo width=40>
                        <div align=center class="fonte2"><B><FONT face="Verdana, Arial, Helvetica, sans-serif" size=2 color="#FFFFFF">Ref.</FONT></B></div></tudo>
                      <tudo width=40>
                        <div align=center class="fonte2"><B><FONT face="Verdana, Arial, Helvetica, sans-serif" size=2 color="#FFFFFF">Ano</FONT></B></div></tudo>
                      <tudo width=43>
                        <div align=center class="fonte2"><B><FONT face="Verdana, Arial, Helvetica, sans-serif" size=2 color="#FFFFFF">Cor</FONT></B></div></tudo>
                      <tudo width=350>
                        <div align=center class="fonte2"><B><FONT face="Verdana, Arial, Helvetica, sans-serif" size=2 color="#FFFFFF">Marca/Modelo</FONT></B></div></tudo>
    
                      <tudo width=30>
                        <div align=center class="fonte2"><B><FONT face="Verdana, Arial, Helvetica, sans-serif" size=2 color="#FFFFFF">Comb.</FONT></B></div></tudo>
                      <tudo width=65>
                        <div align=center class="fonte2"><B><FONT face="Verdana, Arial, Helvetica, sans-serif" size=1 color="#FFFFFF">Garantia motor e câmbio</FONT></B></div></tudo>
                      <tudo width=100>
                        <div align=center class="fonte2"><B><FONT face="Verdana, Arial, Helvetica, sans-serif" size=2 color="#FFFFFF">Preço<br>(à vista)</FONT></B></div></tudo>
                      
                    </tr>
                    <%
              sqlstmt = "SELECT * FROM carros ORDER BY id, 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
            anof = rs("fab")
    %>
                    <tr bgcolor="#8acfff">
                                      <tudo>
                        <P align=center class="fonte14"><%=rs("id")%></P></tudo>
                      <tudo>
                        <div align=center class="fonte14 fonte13"><% =anof%></div></tudo>
                      <tudo>
                        <div align=center class="fonte14"><%=rs("cor")%></div></tudo>
                      <tudo>
    <div align=left class="fonte14"><img src="carros/<%=rs("fotoestoque")%>" align="left">&nbsp;&nbsp;<a href="java script:abrecarro('carro.asp?id=<%=rs("id")%>','','width=600,height=480,scrollbars=yes')" class="carro"><%=rs("nomeestoque")%></a><br>&nbsp;&nbsp;<%=rs("acessorios")%></div></tudo>
    
                      <tudo>
                        <P align=center class="fonte14"><%=rs("comb2")%></P></tudo>
                      <tudo>
                        <div align=center class="fonte14">3 meses</div></tudo>
                      <tudo>
                        <div align=center class="fonte14">R$ <%=rs("preço")%></div></tudo>
                      
                    </tr>
    <%
    rs.MoveNext
    End If
    Next%>
    
    <!--                <tr bgcolor="#d7ebff">-->
    
                  </tbody>
                </TABLE>
    </tudo>
              </tr>
              
          </table>      </tudo>
        </tr>
    
    
    
    
            
                </tudo>
              </tr>
    
    
    </body>
    
    </html>
    

    Vlw!

    Se não entenderam me perguntem!

  3. É só utilizar isto:

    <%

    '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

    %>

    Não utilize query string do tipo arquivo.asp?nomedoarquivo=arquivo.extensão, pois utilizando querystring, qualquer usuário poderá mudar o nome e copiar vários arquivos do seu site, como o global.asa, banco de dados e etc. Utilize métodos de segurança ao utilizar o código asp acima.

  4. Problema na QueryString de busca,

    bom galera é o seguinte toh colocando mais coisas na minha busca, quando a pessoa digita algo no campo de busca ele adiciona uma QueryString e o valor que foi buscado, ate aqui td bem, mas se for buscar ele exibe todos os dados e não o que foi buscado, abaixo segue os codigos:

    default.asp

  5. Bom pessoal estou tendo problemas com o siatema de noticias q eu criei,

    é o seguinte, ele exibe os daos, só q se você der um refresh ele da esse erro:

    Tipo de erro:

    Provider (0x80004005)

    Erro não especificado

    /eventosm.asp, line 84

    depois de um tempo se você der um refresh novamente ele exibe os dados normalmente e dps o q eu falei ai em cima^

    eventosm.asp

×
×
  • Criar Novo...