Jump to content


Renan L. Queiroz

Member Since 11/12/2007
Offline Last Active 18/06/2010, 09:50
*****

#995419 Imprimindo Decrescivamente

Posted by Renan L. Queiroz on 25/02/2010, 13:27

O distinct funciona como um verificador de repetições, no caso desse ultimo select:
select distinct s.equipamento_cer order by s.id_certificado DESC LIMIT $co 
Ele irá trazer cada "s.equipamento_cer" único, sem repetições!
As repetiuções são desconcideradas!


#995270 Ler Arquivo Compactado

Posted by Renan L. Queiroz on 24/02/2010, 09:09

Fiquei curioso com seu post e fui dar uma pesquisada.
Encontrei o seguinte script:
<?php
$za = new ZipArchive();

$za->open('test_with_comment.zip');
print_r($za);
var_dump($za);
echo "numFiles: " . $za->numFiles . "\n";
echo "status: " . $za->status  . "\n";
echo "statusSys: " . $za->statusSys . "\n";
echo "filename: " . $za->filename . "\n";
echo "comment: " . $za->comment . "\n";

for ($i=0; $i<$za->numFiles;$i++) {
    echo "index: $i\n";
    print_r($za->statIndex($i));
}
echo "numFile:" . $za->numFiles . "\n";
?>
Fonte: Funções para arquivos Zip
Ps: Extenção que permite que você manipule arquivos ZIP e os arquivos do mesmo.

Mais fontes:
PHP Manual: Zip - Manual
PHP Manual: Rar - Manual
Nusphere PHP Manual: Rar Functions

Valeu ;-), sua dúvia foi muito útil!


#994834 Javascript No Asp

Posted by Renan L. Queiroz on 19/02/2010, 16:08

Tenta usar o response.write desta forma:
<% 
    Set conexao=server.CreateObject("Adodb.connection") 
    Set tabela=server.CreateObject("Adodb.recordset") 

    Dim banco 
    banco="driver={driver do microsoft access (*.mdb)}; dbq="& server.MapPath ("bancod.mdb") 
    conexao.open banco

    Dim sql, ano
    ano = Year(now)

    sql="SELECT * FROM cartas WHERE Data LIKE '%" & ano & "%' ORDER BY codigo DESC"
    tabela.open sql,conexao,3,3
    SetLocale("pt-br")

    While Not tabela.EOF
%>
        <tr onmouseover="this.bgcolor=gold" onmouseout="this.bgColor='#FFFFFF'" >
            <td align="center"> <%=tabela("Codigo")%> </td>
            <td> <%=tabela("Empresa")%> </td>
            <td align="center"> <%=tabela("Receptor")%> </td>
            <td> <%=tabela("Assunto")%> </td>
            <td align="center"> <%=tabela("Data")%> </td>
            <td align="center"> <%=tabela("Pasta")%> </td>
            <td> <%=tabela("Por")%> </td>
            <td align="center">
                <a href='editar_cartas.asp?codigo=" & tabela("codigo") &"'>
                    <img alt='Editar Registro' border="0" src="images\editar.gif" />
                </a>
            </td>
            <td align="center">
                <a href='excluir_cartas.asp?codigo=" & tabela("codigo") &"'>
                    <img alt='Excluir Registro' border="0" src="images\excluir.gif" />
                </a>
            </td>
        </tr>
<%
        tabela.movenext
    Wend
%>
Caso desconheça a forma simplicicada <%= é igual a <% response.write! ;-)

Ah percebi algumas </td> faltando e coloquei a impressão dos dados dessa para
evitar problemas com as áspas dentro da string a serem impressas.
Veja se isso ajuda!


#994811 [Resolvido] Imprimir Somente Os Dados Do Ano Atual

Posted by Renan L. Queiroz on 19/02/2010, 14:35

Tenta assim:
sql="SELECT * FROM cartas WHERE data LIKE '%"& ano &"%' ORDER BY codigo"



#994670 [Resolvido] Galeria De Fotos Com Capa

Posted by Renan L. Queiroz on 18/02/2010, 09:33

Entendi, meu intuito inicial era alterar a sua query (sql) para que retornase-mos a imagem referente
à cada um dos eventos, sendo assim após incluir o endereço da imagem na consulta era só incluir no script.

Mesmo com o con declarado, esse script não apresentou a imagem?!
<%
    sql = "select distinct e.id_evento, e.titulo, e.descricao, (select top 1 arquivo from tb_fotos_eventos f where f.id_evento = e.id_evento) as capa from tb_eventos e where e.status = true"
    Set rs = con.execute(sql)
    While rs.eof = False
%>
        <h4>
            <a href="viewEventos.asp?id=<%=rs("id_evento")%>"><img src="<%=rs("capa")%>" alt="<%=rs("descricao")%" title="<%=rs("descricao")%"></a>
        </h4>
<%
        rs.movenext
    Wend
%>
    ***************************************************************************************************************
<%
'Continua...

Faça um teste, coloque isso no lugar do script anterior:
<%
    sql = "select distinct e.id_evento, e.titulo, e.descricao, (select top 1 arquivo from tb_fotos_eventos f where f.id_evento = e.id_evento) as capa from tb_eventos e where e.status = true"
    Set rs = con.execute(sql)
    While rs.eof = False
        response.write rs("capa") &"<br />"
        rs.movenext
    Wend
    response.end
O que é imresso?


#994669 [Resolvido] Alterar Variavel Xml Com Asp

Posted by Renan L. Queiroz on 18/02/2010, 09:29

De uma passadinha neste tópico: Que Tal Inserir, Visualizar E Deletar Linhas De Um Xml?
Veja se ajuda!


#994067 Paginando Fotos

Posted by Renan L. Queiroz on 10/02/2010, 09:12

Colega faça um teste com este script atualizado para ver se está ok, por conta da identação!
Enquanto isso vou estar analisando o mesmo para lhe ajudar! ;-)

---

Estava olhando aqui, mas a princípio acredito que o problema seja relacionado à CSS.
Acredito que seja algo como colocar um "float:left" para a div que contem as imagens
e quando der o limite fazer a quebra incluindo o "clear: both;" para a próxima.

Vou continuar fazendo alguns teste, jajá respondo!

---

Olha como ficaria o esquema do css no teste que fiz:
...
        <script src="lightbox/js/lightbox.js" type="text/javascript"></script>

        <link href="css/estilo.css" rel="stylesheet" type="text/css" />
        <link href="lightbox/css/lightbox.css" rel="stylesheet" type="text/css" media="screen" />
        <style type="text/css">
            #corpo{
                float: left;
                width: 72px;
                border: solid 1px red;
            }
        </style>

    </head>

    <body>
...
Inclui um estilo para a div que contem as imagens

Ai para colocar um limite para a quantidade de fotos por linha, inclua uma div (pai)
com uma largura definida:
...
        <link href="css/estilo.css" rel="stylesheet" type="text/css" />
        <link href="lightbox/css/lightbox.css" rel="stylesheet" type="text/css" media="screen" />
        <style type="text/css">
            #campoImagens{
                width: 1024px;
            }
            #corpo{
                float: left;
                width: 72px;
            }
        </style>

    </head>

    <body>

        <div id="campoImagens">
<%
            'Iniciamos o Loop
            rsBuscaProdutos.AbsolutePage = intpagina 
            intrec = 0
            While intrec < 60 'rsBuscaProdutos.PageSize And Not rsBuscaProdutos.eof 
%>
                <div id="corpo">
                    <a href="imgPortFotos/teste.jpg<%'=rsBuscaProdutos("ARQUIVO")%>" rel="lightbox[roadtrip]">
                        <img src="imgPortFotos/teste.jpg<%'=rsBuscaProdutos("ARQUIVO")%>" width="70" height="70" border="0" />
                    </a>
                </div>
<%
                rsBuscaProdutos.MoveNext
                intrec = intrec + 1

                If rsBuscaProdutos.eof Then
                    response.write " " 
                End If

            Wend 
%>
        </div>
<%
        'Criamos as Validações para a navegação "Anterior" e "Próximo" 
        If intpagina > 1 Then
...



#994064 Ajuda Boleto Bancário Bb

Posted by Renan L. Queiroz on 10/02/2010, 08:24

Colega, me parece que o escript está todo em uma só linha!
Seria isso mesmo? Caso sim tente deixar conforme foi impresso aqui no tópico! ;-)

Ao ser gerado o erro:

Expected end of statement

Ele está falando que esperava o fim da linha ou do comando.


#993942 Imprimir Dados De Um Formulário

Posted by Renan L. Queiroz on 08/02/2010, 13:20

Bem para isso você necessitará das seguintes "ferramentas"
1 - ASP Forms e CSS

Fazendo da seguinte forma:
1 - Criação do formulário - OK
2 - Recepção dos dados do formulário - ??
3 - Edição do layout da tela de apresntação via CSS - A fazer

Entendeu? O caminho está ai, precisando de mais ajuda é só postar! ;-)


#993907 Imprimir Dados De Um Formulário

Posted by Renan L. Queiroz on 08/02/2010, 08:26

Bem para que possamos ajudar ficaria melhor esclarecer algumas questões!

1 - Já tem o formulário pronto?
2 - Está com dúvida em que parte?


#992790 [Resolvido] Erro Ao Carregar A Foto

Posted by Renan L. Queiroz on 25/01/2010, 13:36

A primeiro momento seu script parece correto, mas aconselho a seguir o seguinte passo:
Como você não tem direto acesso para tal, entre em contato com o Host e peça para incluirem
as permissões necessárias para você.

Uma das resoluções no caso de acesso ao dados de servidor:

01. Abra o Windows NT Explorer e siga até a pasta a ser alterada.
02. Botão-Direito na pasta, e acesse o menu Propriedades.
03. Na aba de Segurânça click em Permissões.
04. Se os usuários do IIS estiverem listados (IUSR_<computador>, IWAM_<computador>) e o IWAM_<computador> for o padrão, finalize, caso contrário, vá para o passo seginte.
05. Clique em Adicionar.
06. Selecione seu computador na lista de nomes no menu drop-down.
07. Clique em Mostrar usuários.
08. Selecione o IUSR_<computador> Conta de convidade da Internet e o IWAM_<computador> conta de processo do IIS, e clique em Adicionar.
09. Clique em Alterar, para alterar suas permissões.
10. Clique em OK, e feche a janela de inclusão de Usuários e Grupos.
11. Clique em OK, para fechar a janela de permissões no diretório.
12. Clique em OK, para fechar a janela de prorpiedades.
13. Repita os passos 2 a 12 para cada pasta necessária.




#992652 [Resolvido] Erro Ao Carregar A Foto

Posted by Renan L. Queiroz on 22/01/2010, 17:06

Verifica o tipo de permissão para a pasta utilizada!!
Leitura e Escrita.

Caso perssista, poste novamente!


#992484 Conteúdo

Posted by Renan L. Queiroz on 20/01/2010, 10:43

Colega da uma passada no Devmedia!!
Tenho assinatura da SQL Magazine e muita das coisas ali impressas tem algo no site relacionado!


#992057 [Resolvido] Acces+Arquivo Doc+Asp

Posted by Renan L. Queiroz on 14/01/2010, 10:07

Colega, veja bem se entendi seu problema,
você quer que ao ser apresentado seu arquivo doc, seja apresentada uma
imagem e ao clicar na mesma o doc seja acessado (download), acredito que
isso possa te ajudar:
<%
    If Right(tb("arquivo"), 3) = "doc" Then 
%>
        <a href="<%=tb("arquivo")%>">
            <img src="imagem/iconeDoc.gif">
        </a>
<%
    ElseIf Right(tb("arquivo"), 3) = "pdf" Then 
%>
        <a href="<%=tb("arquivo")%>">
            <img src="imagem/iconePdf.gif">
        </a>
<%
    ElseIf Right(tb("arquivo"), 3) = "xls" Then 
%>
        <a href="<%=tb("arquivo")%>">
            <img src="imagem/iconeEcxel.gif">
        </a>
<%
    Else
%>
        <a href="<%=tb("arquivo")%>">
            <img src="imagem/iconeImg.gif">
        </a>
<%
    End If
%>
Utilizei a forma abreviada para acessar o valor do registro no RecordSet: tb("arquivo")
Vale como o que você utiliza: tb.Fields.Item("arquivo").Value

Fonte para o tutorial da função Right do VBs: VBScript Right Function
Caso queira saber sobre mais funções: VBScript Functions, vale a pena dar uma olhada, ótima referência!


#991709 Problema Com Variável

Posted by Renan L. Queiroz on 08/01/2010, 16:53

Ah entendi agora, rs!
Tenta isso:
if (isset($_POST['habilitacao'])) {
    $tipo_habi = implode(",", $_POST['habilitacao']);
}





IPB Skin By Virteq