select distinct s.equipamento_cer order by s.id_certificado DESC LIMIT $coEle irá trazer cada "s.equipamento_cer" único, sem repetições!
As repetiuções são desconcideradas!
- tiago_me likes this
Posted by Renan L. Queiroz on 25/02/2010, 13:27
select distinct s.equipamento_cer order by s.id_certificado DESC LIMIT $coEle irá trazer cada "s.equipamento_cer" único, sem repetições!
Posted by Renan L. Queiroz on 24/02/2010, 09:09
<?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
Posted by Renan L. Queiroz on 19/02/2010, 16:08
<% 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!
Posted by Renan L. Queiroz on 19/02/2010, 14:35
sql="SELECT * FROM cartas WHERE data LIKE '%"& ano &"%' ORDER BY codigo"
Posted by Renan L. Queiroz on 18/02/2010, 09:33
<% 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...
<% 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.endO que é imresso?
Posted by Renan L. Queiroz on 18/02/2010, 09:29
Posted by Renan L. Queiroz on 10/02/2010, 09:12
... <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
... <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 ...
Posted by Renan L. Queiroz on 10/02/2010, 08:24
Ele está falando que esperava o fim da linha ou do comando.Expected end of statement
Posted by Renan L. Queiroz on 08/02/2010, 13:20
Posted by Renan L. Queiroz on 08/02/2010, 08:26
Posted by Renan L. Queiroz on 25/01/2010, 13:36
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.
Posted by Renan L. Queiroz on 22/01/2010, 17:06
Posted by Renan L. Queiroz on 22/01/2010, 16:45
CREATE FUNCTION FUNC_SPLIT(@texto varchar(8000))Assim você pode manipular os registros através do VBScript!!
returns @palavras table (
pos smallint primary key,
valor varchar(8000)
)
AS
BEGIN
-- variaveis locais
declare
@pos smallint,
@i smallint,
@j smallint,
@s varchar(8000)
set @pos = 1
while @pos <= len(@texto)
begin
set @i = charindex(' ', @texto, @pos)
set @j = charindex(',', @texto, @pos)
if @i > 0 or @j > 0
begin
if @i = 0 or (@j > 0 and @j < @i)
set @i = @j
if @i > @pos
begin
set @s = substring(@texto, @pos, @i - @pos)
insert into @palavras
values (@pos, @s)
end
set @pos = @i + 1
while @pos < len(@texto) and substring(@texto, @pos, 1) in (' ', ',')
set @pos = @pos + 1
end
else
begin
insert into @palavras
values (@pos, substring(@texto, @pos, len(@texto) - @pos + 1))
set @pos = len(@texto) + 1
end
end
return
END
pos | valor |
---|---|
1 | Renan |
7 | Lemes |
13 | Queiroz |
/* variaveis de teste */Script para teste local.
declare @texto varchar(2000)
declare @palavras table(pos smallint, valor varchar(2000))
set @texto = 'Renan Lemes Queiroz'
/* variaveis locais */
declare
@resultadoNome varchar(2000),
@pos smallint,
@i smallint,
@j smallint,
@s varchar(2000)
set @pos = 1
while @pos <= len(@texto)
begin
set @i = charindex(' ', @texto, @pos)
if @i > 0
begin
if @i > @pos
begin
-- @i agora detém o primeiro delimitador na cadeia
set @s = substring(@texto, @pos, @i - @pos)
insert into @palavras
values (@pos, @s)
end
set @pos = @i + 1
while @pos < len(@texto) and substring(@texto, @pos, 1) in (' ', ',')
set @pos = @pos + 1
end
else
begin
insert into @palavras
values (@pos, substring(@texto, @pos, len(@texto) - @pos + 1))
set @pos = len(@texto) + 1
end
end
-- aqui voce trata o retorno, formado na qual será impresso
set @resultadoNome = (select top 1 valor from @palavras order by pos)
+' '+
(select top 1 valor from @palavras order by pos desc)
select @resultadoNome
Posted by Renan L. Queiroz on 20/01/2010, 10:43
Posted by Renan L. Queiroz on 14/01/2010, 10:07
<% 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")
Community Forum Software by IP.Board
Licensed to: Webmasters Online