sk15
nerobr
funciono
Não informado
danceman hasn't added any friends yet.
29/06/2007, 10:08
29/06/2007, 09:09
$diretorio = getcwd();
// abre o diretório
$ponteiro = opendir($diretorio);
// monta os vetores com os itens encontrados na pasta
while ($nome_itens = readdir($ponteiro)) {
$itens[] = $nome_itens;
}
// ordena o vetor de itens
sort($itens);
// percorre o vetor para fazer a separacao entre arquivos e pastas
foreach ($itens as $listar) {
// retira "./" e "../" para que retorne apenas pastas e arquivos
if ($listar!="." && $listar!=".."){
// checa se o tipo de arquivo encontrado é uma pasta
if (is_dir($listar)) {
// caso VERDADEIRO adiciona o item à variável de pastas
//$pastas[]=$listar;
} else{
// caso FALSO adiciona o item à variável de arquivos
$arquivos[]=$listar;
}
}
}
// lista as pastas se houverem
/*
if ($pastas != "" ) {
foreach($pastas as $listar){
print "Pasta: <a href='$listar'>$listar</a><br>";}
}
*/
// lista os arquivos se houverem
if ($arquivos != "") {
foreach($arquivos as $listar){
print " Arquivo: <a href='$listar'>$listar</a><br>";}
}
28/06/2007, 11:49
28/06/2007, 08:15
function CreateObject()
{
$COM = new Java('itaucripto');
return $COM;
}
$cripto = CreateObject();
$dados = $codEmp.",";
$dados .= $pedido.",";
$dados .= $valor.",";
$dados .= $observação.",";
$dados .= $chave.",";
$dados .= $nomeSacado.",";
$dados .= $codigoInscricao.",";
$dados .= $numeroInscricao.",";
$dados .= $enderecoSacado.",";
$dados .= $bairroSacado.",";
$dados .= $cepSacado.",";
$dados .= $cidadeSacado.",";
$dados .= $estadoSacado.",";
$dados .= $dataVencimento.",";
$dados .= $urlRetorna.",";
$dados .= obsAd1.",";
$dados .= obsAd2.",";
$dados .= obsAd3.",";
$cripto = CreateObject();
$manda=$cripto->geraDados($dados);
echo "<br><br>".$manda;18/04/2007, 14:31
SELECT tbprodutos.Id as Idprod, tbprodutos.cod_barras as codbarras,tbprodutos.descricao as descriprod, tbclidistr.idDis, tbdislab.cod_lab, tbclientes.Id as idcliente FROM tbprodutos INNER JOIN tbprodlab ON (tbprodlab.cod_prod = tbdislab.cod_lab) INNER JOIN tbdislab ON (tbdislab.cod_lab = tbclidistr.idDis) INNER JOIN tbclidistr ON (tbclidistr.idDis = tbclientes.Id) WHERE tbclientes.idcliente = 1
Community Forum Software by IP.Board
Licensed to: Webmasters Online

Postagens