Ir para o conteúdo

Conteúdo mais curtido


#1116 Array_Count_Values_Recursive

Postado por Carlos Coelho em 21 novembro 2012 - 20:45

Desenvolvi uma função que conta as frequências de cada valor em um array multidimensional ou não.

Achei legal compartilhar com a galera.

O array para teste
Spoiler


A função array_count_values_recursive

/**
* Conta as frequências de cada valor de um array
* @param array $input O array de valores para contagem
* @return array Retorna um array associativo de
* valores de input como chaves e suas quantias como valor.
*/
function array_count_values_recursive( array $input )
{
$result = array( );
array_walk_recursive(
$input,
function( $value ) use( &$result )
{
if( isset( $result[ $value ] ) )
{
$result[ $value ] += 1;
}
else
{
$result[ $value ] = 1;
}
}
);
return $result;
}


Modo de usar

<?php

var_dump( array_count_values_recursive( $array ) );

?>


Resultado

array
'Q' => int 5
'Z' => int 5
'Y' => int 2
'E' => int 6
'X' => int 4
'F' => int 4
'R' => int 3
'B' => int 5
'O' => int 5
'K' => int 6
'U' => int 4
'N' => int 4
'H' => int 7
'J' => int 3
'I' => int 2
'S' => int 4
'A' => int 4
'P' => int 4
'V' => int 6
'M' => int 4
'G' => int 3
'T' => int 3
'L' => int 2
'C' => int 2
'D' => int 10
'W' => int 4



#11009 Linhas Com Alguras Iguais Em Grids

Postado por Rick =) em 09 maio 2013 - 19:06

/**
 * jQuery.fn.equelizeHeights(uniform)
 * If `uniform` is `true`, all elements will have the same height.
 * Otherwise, the equalization will be on a line-basis.
 *
 * Copyright (C) 2013 Henrique Barcelos 
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 * 
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.

 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>
 */
(function($){
	$.fn.equalizeHeights = function(uniform){
    	var elems = $(this);

    	var lineBasisEqualization = function() {
        	var maxHeight = 0;
        	var lineObjects = [];
        	var offsetTopFirst = elems.eq(0).offset().top;
        	elems.each(function(i){
            	if(offsetTopFirst != $(this).offset().top) {
                	$(lineObjects).height(maxHeight);
                	lineObjects = [this];
                	offsetTopFirst = $(this).offset().top;
                	maxHeight = 0;
            	} else {
                	if($(this).height() > maxHeight) {
                    	maxHeight=$(this).height();
                	}
                	lineObjects.push(this);
            	}
            	if(i == elems.size() - 1) {
                	$(lineObjects).height(maxHeight);
            	}
        	});
    	}

    	var uniformEqualization = function() {
        	var maxHeight = 0;
        	elems.each(function(i){
            	if($(this).height() > maxHeight) {
                	maxHeight=$(this).height();
            	}
        	});
        	elems.height(maxHeight);
    	}

    	if(uniform === true) {
        	uniformEqualization();
    	} else {
        	lineBasisEqualization();
    	}
    	return this;
	};
})(jQuery);

Uso:
// Nivela as alturas para cada "linha" distinta
$('ul li').equalizeHeights();

// Nivela todas as alturas para o mesmo tamanho
$('ul li').equalizeHeights(true);



#923 Criando Menu Dinamicamente!

Postado por Elnatã Levi em 06 agosto 2012 - 18:09

Bom pessoal estou postando um código aqui pra galera pois existem pessoas que se perguntam principalmente a galera que está começando no php, como faço para adicionar menu em várias paginas diferentes sem ter que alterar página por página? Então ai vai o código pessoal!

Obs.: É um menu simples mas vocês podem estar incrementando facilmente!


Esta é a pagina menu.php:


<?php

$menu_index = "<a href='index.php'>Index</a>";
$menu_exibe = "<a href='exibe.php'>Exibe</a>";
$menu_pesquisar = "<a href='pesquisar.php'>Pesquisar</a>";

$mostra_menus = "<div id='menu'><ul>
				
					<li>$menu_index</li>
					<li>$menu_exibe</li>
					


				</ul></div>";
				
				print $mostra_menus;

?>


Este sera o código que vocês irão colocar nas paginas em que querem o menu:


<?php
include ("menu.php");

?>



Este é o modelo do css do menu:


#menu ul {
    padding:0px;
    margin:0px;
    float:left;
    width: 100%;
    background-color:transparent;
    list-style:none;
    font:80% Tahoma;
}
#menu ul li { display: inline; } //Se quiser deixar o menu vertical altere esta linha!
 
#menu ul li a {
    background-color:transparent;
    color: #333;
    text-decoration: none;
    
    padding: 2px 10px;
    float:left;
}
 
#menu ul li a:hover {
    background-color:transparent;
    color: #6D6D6D;
    border-bottom:3px solid #EA0000;
}




Este é o exemplo de uma index.php


<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<link rel="stylesheet" href="estilo.css" type="text/css" media="all">
<title>Cadastrar Eventos</title>
</head>
<body>

 
<img src="logo-ifnmg.png" />
<?php
include ("menu.php");

?>
</body>
</html>


Então é isso ai pessoal espero que vocês tenham gostado é que possam tirar proveito!


#281 Auto Complete Com Google

Postado por Patrique em 10 outubro 2010 - 00:53

Criei um sistema de autocomplete em pesquisas, utilizando as sugestões vindas do google, além da imensa base de dados das palavras, os resultados são mais rápido devido aos ultras servidores do google.

Segue abaixo os codes...

index.asp

<html>
<head>
    <title>Auto Complete com gooogle</title>
    <script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jquery/1.4.2/jquery.min.js"></script>
    <script type="text/javascript" src="js/jquery.autocomplete.js"></script>
    <link rel="stylesheet" type="text/css" href="css/jquery.autocomplete.css" />
    <script type="text/javascript">
    $().ready(function() {        
        $("#q").autocomplete("procura.asp", {
            width: 212,
            selectFirst: false
        });
        $("#q").result(function(event, data, formatted) {
            if (data)
                $(this).parent().next().find("input").val(data[1]);
        });
    });
    </script>
</head>
<body>
<div id="content">
    <form autocomplete="off" >
        <p>
            <input type="text" size="30" id="q" /> 
        </p>
    </form>
</div>
</body>
</html>

procura.asp

<%
autor: Patrique André (O Gostosão)
perfil: http://forum.imasters.com.br/index.php?/user/31010-patrique/

q = Trim(Request.QueryString("q"))

If q <> "" Then

    urlpesquisa = "http://suggestqueries.google.com/complete/search?qu=" & q

    Set objHttp = Server.CreateObject("MSXML2.XMLHTTP")
    objHttp.Open "GET", urlpesquisa, False
    objHttp.Send

    palavras = objHttp.responseText

    lixo = "window.google.ac.h([""" & q & """,[["
    palavras = Replace(palavras, lixo, "")
    array_itens = Split(palavras, "],[")

    For Each itens In array_itens
        array_item = Split(itens, ",")
        chave = array_item(0)
        chave = Replace(chave, """", "")
        chave = chave & vbCrLf
        Response.Write(chave)
    Next

    Set objHttp = Nothing

End If
%>

Baixe o plugin em jquery chamado

Autocomplete - jQuery plugin 1.0.2

e crie uma pasta chamada js e coloque lá, utilize também o css.

O resultado será esse

http://adresende.com...sters/sugestao/

[]'s


#275 Datas Comemorativas Sem Bd

Postado por Patrique em 10 outubro 2010 - 00:31

Tinha um sistema de datas comemorativas que buscava no BD, mais resolvi passar para code puro sem a necessidade de se ter BD isso é considerável já que não precisarei utilizar e fazer requisições no bd por isso.

Segue abaixo o code

<%
'autor: Patrique André (O Gostosão)
'perfil: http://forum.imasters.com.br/index.php?/user/31010-patrique/

Function Comemoracao()

   separador = "<br />"
   dia       = Day(Date)
   mes       = Month(Date)

   If mes = 01 Then
      Select Case dia
         Case 01 : comemoracao = "Confraternização Universal "& separador &" Dia Mundial da Paz"
             Case 02 : comemoracao = "Dia da Abreugrafia"
             Case 05 : comemoracao = "Criação da 1ª Tipografia no Brasil"
             Case 06 : comemoracao = "Dia de Reis "& separador &" Dia da Gratidão"
             Case 07 : comemoracao = "Dia da Liberdade de Cultos"
             Case 08 : comemoracao = "Dia do Fotógrafo"
             Case 09 : comemoracao = "Dia do Fico (1822)"
             Case 14 : comemoracao = "Dia do Enfermo"
             Case 20 : comemoracao = "Dia do Museu de Arte Moderna do RJ "& separador &" Dia do Farmacêutico"
             Case 21 : comemoracao = "Dia Mundial da Religião"
             Case 24 : comemoracao = "Dia da Previdência Social "& separador &" Dia da Constituição "& separador &" Instituição do Casamento civil no Brasil"
             Case 25 : comemoracao = "Dia do Carteiro "& separador &" Fundação de São Paulo "& separador &" Criação dos Correios e Telégrafos no Brasil"
             Case 27 : comemoracao = "Dia da Elevação do Brasil Vice-Reinado (1763)"
             Case 28 : comemoracao = "Dia da Abertura dos Portos (1808)"
             Case 30 : comemoracao = "Dia da Saudade "& separador &" Dia do Portuário "& separador &" Dia Nacional das Histórias em Quadrinhos "& separador &" Dia da Não-Violência"
             Case 31 : comemoracao = "Dia do lançamento do 1º Satélite · EUA (1958)"
      End Select
   ElseIf mes = 02 Then
      Select Case dia
             Case 02 : comemoracao = "Dia do Agente Fiscal "& separador &" Dia de Iemanjá"
             Case 05 : comemoracao = "Dia do Datiloscopista"
             Case 07 : comemoracao = "Dia do Gráfico"
             Case 09 : comemoracao = "Dia do Zelador"
             Case 11 : comemoracao = "Dia da Criação da Casa de Moeda "& separador &" Dia Mundial do Enfermo"
             Case 13 : comemoracao = "Dia Nacional do Ministério Público"
             Case 14 : comemoracao = "Dia da Amizade"
             Case 16 : comemoracao = "Dia do Repórter"
             Case 19 : comemoracao = "Dia do Esportista"
             Case 21 : comemoracao = "Dia da Conquista do Monte Castelo (1945) "& separador &" Data Festiva do Exército"
             Case 23 : comemoracao = "Dia do Rotaryano"
             Case 24 : comemoracao = "Promulgação da 1ª Constituição Republicana (1891)"
             Case 25 : comemoracao = "Dia da criação do Ministério das Comunicações"
             Case 27 : comemoracao = "Dia dos Idosos "& separador &" Dia do Agente Fiscal da Receita Federal"
             Case 28 : comemoracao = "Carnaval"
      End Select
   ElseIf mes = 03 Then
      Select Case dia
             Case 02 : comemoracao = "Dia Nacional do Turismo"
             Case 03 : comemoracao = "Dia do Meteorologista"
             Case 05 : comemoracao = "Dia do Filatelista Brasileiro "& separador &" Dia Mundial da Oração (1ª Sexta-feira do mês)"
             Case 07 : comemoracao = "Dia do Fuzileiros Navais"
             Case 08 : comemoracao = "Dia Internacional da Mulher"
             Case 10 : comemoracao = "Dia do Telefone"
             Case 12 : comemoracao = "Dia do Bibliotecário"
             Case 14 : comemoracao = "Dia do Vendedor de Livros "& separador &" Dia Nacional da Poesia "& separador &" Dia dos Animais"
             Case 15 : comemoracao = "Dia da Escola "& separador &" Dia Mundial do Consumidor"
             Case 19 : comemoracao = "Dia de São José "& separador &" Dia do Carpinteiro "& separador &" Dia do Marceneiro"
             Case 20 : comemoracao = "Início do outono"
             Case 21 : comemoracao = "Dia Universal do Teatro "& separador &" Dia Internacional Contra a Discriminação Racial"
             Case 23 : comemoracao = "Dia Mundial da Meteorologia"
             Case 26 : comemoracao = "Dia do Cacau"
             Case 27 : comemoracao = "Dia do Circo"
             Case 28 : comemoracao = "Dia do Diagramador "& separador &" Revisor"
             Case 31 : comemoracao = "Dia da Integração Nacional "& separador &" Dia da Saúde e Nutrição"
      End Select
   ElseIf mes = 04 Then
      Select Case dia
         Case 01 : comemoracao = "Dia da Mentira"
             Case 02 : comemoracao = "Dia do Propagandista"
             Case 04 : comemoracao = "Dia Nacional do Parkinsoniano"
             Case 06 : comemoracao = "Sexta-feira Santa"
             Case 07 : comemoracao = "Dia do Corretor "& separador &" Dia do Jornalismo "& separador &" Dia do Médico Legista "& separador &" Dia Mundial da Saúde"
             Case 08 : comemoracao = "Dia da Natação "& separador &" Dia do Correio "& separador &" Dia Mundial do Combate ao Câncer "& separador &" Páscoa"
             Case 09 : comemoracao = "Dia Nacional do Aço"
             Case 10 : comemoracao = "Dia da Engenharia"
             Case 12 : comemoracao = "Dia do Obstetra"
             Case 13 : comemoracao = "Dia do Office-Boy "& separador &" Dia dos Jovens"
             Case 14 : comemoracao = "Dia Pan-Americano"
             Case 15 : comemoracao = "Dia da Conservação do Solo "& separador &" Dia Mundial do Desenhista "& separador &" Dia do Desarmamento Infantil"
             Case 18 : comemoracao = "Dia Nacional do Livro Infantil "& separador &" Dia de Monteiro Lobato"
             Case 19 : comemoracao = "Dia do Exército Brasileiro "& separador &" Dia do Índio"
             Case 20 : comemoracao = "Dia do Diplomata"
             Case 21 : comemoracao = "Tiradentes "& separador &" Dia da Latinidade "& separador &" Dia da Polícia Civil "& separador &" Dia do Metalúrgico"
             Case 22 : comemoracao = "Descobrimento do Brasil "& separador &" Dia da Força Aérea Brasileira "& separador &" Dia da Comunidade luso-brasileira"
             Case 23 : comemoracao = "Dia de São Jorge "& separador &" Dia Mundial do Escoteiro"
             Case 24 : comemoracao = "Dia do Agente de Viagem "& separador &" Dia Internacional do Jovem Trabalhador"
             Case 25 : comemoracao = "Dia do Contabilista "& separador &" Dia da ONU"
             Case 26 : comemoracao = "Dia do Goleiro "& separador &" Dia da 1ª Missa no Brasil"
             Case 27 : comemoracao = "Dia da Empregada Doméstica "& separador &" Dia do Sacerdote"
             Case 28 : comemoracao = "Dia da Educação "& separador &" Dia da Sogra"
             Case 30 : comemoracao = "Dia do Ferroviário "& separador &" Dia Nacional da Mulher"
      End Select
   ElseIf mes = 05 Then
      Select Case dia
         Case 01 : comemoracao = "Dia Mundial do Trabalho"
         Case 02 : comemoracao = "Dia Nacional do Ex-combatente "& separador &" Dia do Taquígrafo"
         Case 03 : comemoracao = "Dia do Sertanejo"
         Case 05 : comemoracao = "Dia de Rondon "& separador &" Dia da Comunidade "& separador &" Dia Nacional do Expedicionário "& separador &" Dia do Pintor"
         Case 06 : comemoracao = "Dia do Cartógrafo"
         Case 07 : comemoracao = "Dia do Oftalmologista "& separador &" Dia do Silêncio"
         Case 08 : comemoracao = "Dia da Vitória "& separador &" Dia do Profissional Marketing "& separador &" Dia do Artista Plástico "& separador &" Internacional da Cruz Vermelha"
         Case 09 : comemoracao = "Dia da Europa"
         Case 10 : comemoracao = "Dia da Cavalaria "& separador &" Dia do Campo"
         Case 11 : comemoracao = "Integração do Telégrafo no Brasil"
         Case 12 : comemoracao = "Dia Mundial do Enfermeiro"
         Case 13 : comemoracao = "Dia da Ascenção "& separador &" Abolição da Escravatura "& separador &" Dia da Fraternidade Brasileira "& separador &" Dia do Automóvel"
         Case 14 : comemoracao = "Dia das Mães "& separador &" Dia Continental do Seguro"
         Case 15 : comemoracao = "Dia do Assistente Social "& separador &" Dia do Gerente Bancário"
         Case 16 : comemoracao = "Dia do Gari"
         Case 17 : comemoracao = "Dia Internacional da Comunicação e das Telecomunicações "& separador &" Dia da Constituição"
         Case 18 : comemoracao = "Dia dos Vidreiros "& separador &" Dia Internacional dos Museus"
         Case 19 : comemoracao = "Dia dos Acadêmicos do Direito"
         Case 20 : comemoracao = "Dia do Comissário de Menores"
         Case 21 : comemoracao = "Dia da Língua Nacional"
         Case 22 : comemoracao = "Dia do Apicultor"
         Case 23 : comemoracao = "Dia da Juventude Constitucionalista"
         Case 24 : comemoracao = "Dia da Infantaria "& separador &" Dia do Café "& separador &" Dia do Datilógrafo "& separador &" Dia do Detento "& separador &" Dia do Telegrafista "& separador &" Dia do Vestibulando"
         Case 25 : comemoracao = "Dia da Indústria "& separador &" Dia do Massagista "& separador &" Dia do Trabalhador Rural"
         Case 27 : comemoracao = "Ascenção "& separador &" Dia do Profissional Liberal"
         Case 29 : comemoracao = "Dia do Estatístico "& separador &" Dia do Geógrafo"
         Case 30 : comemoracao = "Dia da Decoração "& separador &" Dia do Geólogo "& separador &" Dia das Bandeiras"
         Case 31 : comemoracao = "Dia do Comissário de Bordo "& separador &" Dia Mundial das Comunicações Sociais "& separador &" Dia do Espírito Santo"
      End Select
   ElseIf mes = 06 Then
      Select Case dia
         Case 01 : comemoracao "Dia de Caxias "& separador &" Primeira transmissão de TV no Brasil"
         Case 03 : comemoracao "Dia Mundial do Administrador de Pessoal"
         Case 05 : comemoracao "Dia da Ecologia "& separador &" Dia Mundial do Meio Ambiente"
         Case 07 : comemoracao "Dia da Liberdade de Imprensa"
         Case 08 : comemoracao "Dia do Citricultor "& separador &" Dia do Porteiro"
         Case 09 : comemoracao "Dia do Tenista "& separador &" Dia da Imunização "& separador &" Dia Nacional de Anchieta"
         Case 10 : comemoracao "Dia da Artilharia "& separador &" Dia da Língua Portuguesa "& separador &" Dia da Raça"
         Case 11 : comemoracao "Dia da Marinha Brasileira "& separador &" Dia do Educador Sanitário"
         Case 12 : comemoracao "Dia do Correio Aéreo Nacional "& separador &" Dia dos Namorados"
         Case 13 : comemoracao "Dia de Santo Antônio "& separador &" Dia do Turista"
         Case 14 : comemoracao "Dia do Solista "& separador &" Dia Universal de Deus"
         Case 15 : comemoracao "Corpus Christi"
         Case 17 : comemoracao "Dia do Funcionário Público Aposentado"
         Case 18 : comemoracao "Dia do Químico "& separador &" Imigração Japonesa      Case"
         Case 19 : comemoracao "Dia do Cinema Brasileiro"
         Case 20 : comemoracao "Dia do Revendedor"
         Case 21 : comemoracao "Dia da Mídia "& separador &" Dia do Imigrante "& separador &" Dia Universal Olímpico "& separador &" Início do inverno"
         Case 24 : comemoracao "Dia das Empresas Gráficas "& separador &" Dia de São João "& separador &" Dia Internacional do Leite"
         Case 27 : comemoracao "Dia Nacional do Progresso"
         Case 28 : comemoracao "Dia da Renovação Espiritual"
         Case 29 : comemoracao "Dia de São Pedro e São Paulo "& separador &" Dia do Papa "& separador &" Dia da Telefonista "& separador &" Dia do Pescador"
         Case 30 : comemoracao "Dia do Economista"
      End Select
   ElseIf mes = 07 Then
      Select Case dia
         Case 01 : comemoracao "Dia da vacina BCG"
         Case 02 : comemoracao "Dia do Hospital "& separador &" Dia do Bombeiro Brasileiro"
         Case 04 : comemoracao "Dia Internacional do Cooperativismo "& separador &" Independência dos EUA"
         Case 06 : comemoracao "Dia da criação do IBGE"
         Case 08 : comemoracao "Dia do Panificador"
         Case 09 : comemoracao "Dia da Revolução e do Soldado Constitucionalista"
         Case 10 : comemoracao "Dia da Pizza"
         Case 13 : comemoracao "Dia do Engenheiro de Saneamento "& separador &" Dia do Cantor "& separador &" Dia Mundial do Rock"
         Case 14 : comemoracao "Dia do Propagandista de Laboratório "& separador &" Dia da Liberdade de Pensamento"
         Case 15 : comemoracao "Dia Nacional dos Clubes"
         Case 16 : comemoracao "Dia do Comerciante"
         Case 17 : comemoracao "Dia de Proteção às Florestas"
         Case 19 : comemoracao "Dia da Caridade "& separador &" Dia Nacional do Futebol"
         Case 20 : comemoracao "Dia do Amigo e Internacional da Amizade "& separador &" Dia da 1ª Viagem à Lua (1969)"
         Case 23 : comemoracao "Dia do Guarda Rodoviário"
         Case 25 : comemoracao "Dia de São Cristóvão "& separador &" Dia do Colono "& separador &" Dia do Escritor "& separador &" Dia do Motorista"
         Case 26 : comemoracao "Dia da Vovó"
         Case 27 : comemoracao "Dia do Motociclista"
         Case 28 : comemoracao "Dia do Agricultor"
      End Select
   ElseIf mes = 08 Then
      Select Case dia
         Case 01 : comemoracao "Dia Nacional do Selo"
         Case 03 : comemoracao "Dia do Tintureiro"
         Case 05 : comemoracao "Dia Nacional da Saúde"
         Case 08 : comemoracao "Dia do Pároco "& separador &" Dia dos Bandeirantes"
         Case 11 : comemoracao "Dia da Televisão "& separador &" Dia do Advogado "& separador &" Dia do Estudante "& separador &" Dia do Garçom"
         Case 12 : comemoracao "Dia Nacional da Artes"
         Case 13 : comemoracao "Dia do Economista "& separador &" Dia dos Pais"
         Case 15 : comemoracao "Assunção de Nossa Senhora "& separador &" Dia da Informática "& separador &" Dia dos Solteiros"
         Case 19 : comemoracao "Dia do Artista de Teatro "& separador &" Dia Mundial da Fotografia"
         Case 22 : comemoracao "Dia do Folclore"
         Case 23 : comemoracao "Dia da Injustiça"
         Case 24 : comemoracao "Dia da Infância "& separador &" Dia dos Artistas "& separador &" Dia de São Bartolomeu"
         Case 25 : comemoracao "Dia do Exército Brasileiro "& separador &" Dia do Feirante "& separador &" Dia do Soldado"
         Case 27 : comemoracao "Dia do Corretor de Imóveis "& separador &" Dia do Psicólogo"
         Case 28 : comemoracao "Dia da Avicultura "& separador &" Dia dos Bancários"
         Case 29 : comemoracao "Dia Nacional do Combate do Fumo"
         Case 31 : comemoracao "Dia da Nutricionista"
      End Select
   ElseIf mes = 09 Then
      Select Case dia
         Case 01 : comemoracao "Início da Semana da pátria"
         Case 02 : comemoracao "Dia do Repórter Fotográfico "& separador &" Dia Internacional do Livro Infantil"
         Case 03 : comemoracao "Dia do Guarda Civil "& separador &" Dia do Biólogo"
         Case 05 : comemoracao "Dia Oficial da Farmácia "& separador &" Dia da Amazônia"
         Case 06 : comemoracao "Dia do Alfaiate "& separador &" Data do Hino Nacional "& separador &" Dia do Barbeiro"
         Case 07 : comemoracao "Independência do Brasil"
         Case 08 : comemoracao "Dia Internacional da Alfabetização"
         Case 09 : comemoracao "Dia do Administrador "& separador &" Dia do Médico Veterinário "& separador &" Dia da Velocidade"
         Case 10 : comemoracao "Dia da Imprensa "& separador &" Fundação do 1º Jornal do Brasil"
         Case 13 : comemoracao "Dia do Agrônomo"
         Case 14 : comemoracao "Dia da Cruz "& separador &" Dia do Frevo"
         Case 16 : comemoracao "Dia Internacional para a Preservação da Camada de Ozônio"
         Case 17 : comemoracao "Dia da Compreensão Mundial"
         Case 18 : comemoracao "Dia dos Símbolos Nacionais"
         Case 19 : comemoracao "Dia de São Geraldo "& separador &" Dia do Teatro"
         Case 20 : comemoracao "Dia do Funcionário Municipal "& separador &" Dia do Gaúcho "& separador &" Dia da Polícia Civil"
         Case 21 : comemoracao "Dia da Árvore "& separador &" Dia do Fazendeiro "& separador &" Dia do Radialista"
         Case 22 : comemoracao "Data da Juventude do Brasil"
         Case 23 : comemoracao "Início da primavera "& separador &" Dia do Soldador"
         Case 25 : comemoracao "Dia Nacional do Trânsito"
         Case 26 : comemoracao "Dia Interamericano das Relações Públicas"
         Case 27 : comemoracao "Dia de Cosme e Damião "& separador &" Dia do Ancião "& separador &" Dia do Encanador "& separador &" Dia Mundial de Turismo"
         Case 28 : comemoracao "Dia da Lei do Ventre Livre"
         Case 29 : comemoracao "Dia do Anunciante "& separador &" Dia do Petróleo "& separador &" Dia do Professor de Educação Física"
         Case 30 : comemoracao "Dia da Secretária "& separador &" Dia da Navegação "& separador &" Dia Mundial do Tradutor "& separador &" Dia Nacional do Jornaleiro"
      End Select
   ElseIf mes = 10 Then
      Select Case dia
         Case 01 : comemoracao "Dia Internacional da Terceira Idade "& separador &" Dia de Santa Terezinha "& separador &" Dia do Vendedor "& separador &" Dia Nacional do Vereador"
         Case 03 : comemoracao "Dia Mundial do Dentista "& separador &" Dia do Petróleo Brasileiro "& separador &" Dia das Abelhas"
         Case 04 : comemoracao "Dia da Natureza "& separador &" Dia do Barman "& separador &" Dia do Cão "& separador &" Dia do Poeta "& separador &" Dia de São Francisco de Assis"
         Case 05 : comemoracao "Dia das Aves "& separador &" Dia Mundial dos Animais "& separador &" Dia da promulgação da Constituição Brasileira de 1988"
         Case 07 : comemoracao "Dia do Compositor"
         Case 08 : comemoracao "Dia do Nordestino"
         Case 09 : comemoracao "Dia do Açougueiro e profissionais do setor"
         Case 10 : comemoracao "Semana da Ciência e Tecnologia "& separador &" Dia Mundial do Lions Clube"
         Case 11 : comemoracao "Dia do Deficiente Físico "& separador &" Dia do Teatro Municipal"
         Case 12 : comemoracao "Dia de Nossa Senhora Aparecida "& separador &" Dia da Criança "& separador &" Dia do Atletismo "& separador &" Dia do Engenheiro Agrônomo "& separador &" Dia do Mar "& separador &" Dia do Descobrimento da América"
         Case 13 : comemoracao "Dia do Fisioterapeuta"
         Case 14 : comemoracao "Dia Nacional da Pecuária"
         Case 15 : comemoracao "Dia do Normalista "& separador &" Dia do Professor"
         Case 16 : comemoracao "Dia Mundial da Alimentação "& separador &" Dia da Ciência e Tecnologia"
         Case 17 : comemoracao "Dia da Indústria Aeronáutica Brasileira "& separador &" Dia do Eletricista"
         Case 18 : comemoracao "Dia do Médico "& separador &" Dia do Estivador "& separador &" Dia do Securitário "& separador &" Dia do Pintor"
         Case 21 : comemoracao "Dia do Contato "& separador &" Dia Internacional do Controlador de Vôo"
         Case 23 : comemoracao "Dia da Aviação e do Aviador"
         Case 24 : comemoracao "Dia das Nações Unidas - ONU"
         Case 25 : comemoracao "Dia da Democracia "& separador &" Dia do Dentista Brasileiro "& separador &" Dia do Sapateiro"
         Case 28 : comemoracao "Dia de São Judas Tadeu "& separador &" Dia do Funcionário Público"
         Case 29 : comemoracao "Dia Nacional do Livro"
         Case 30 : comemoracao "Dia do Balconista "& separador &" Dia do Comerciário "& separador &" Dia da Decoração"
         Case 31 : comemoracao "Dia Mundial do Comissário de Vôo "& separador &" Dia das Bruxas - Halloween"   
      End Select
   ElseIf mes = 11 Then
      Select Case dia
         Case 01 : comemoracao "Dia de Todos os Santos"
         Case 02 : comemoracao "Dia de Finados"
         Case 03 : comemoracao "Dia do Cabeleireiro "& separador &" Dia do Barbeiro "& separador &" Instituição do Direito e Voto da Mulher (1930)"
         Case 04 : comemoracao "Dia do Inventor"
         Case 05 : comemoracao "Dia da Ciência e Cultura "& separador &" Dia do Cinema Brasileiro "& separador &" Dia do Radioamador e Técnico Eletrônica"
         Case 08 : comemoracao "Dia do Aposentado "& separador &" Dia Mundial do Urbanismo"
         Case 09 : comemoracao "Dia do Hoteleiro"
         Case 10 : comemoracao "Dia do Trigo"
         Case 11 : comemoracao "Dia do Soldado Desconhecido"
         Case 12 : comemoracao "Dia do Supermercado"
         Case 14 : comemoracao "Dia do Bandeirante"
         Case 15 : comemoracao "Proclamação da República "& separador &" Dia Nacional da Alfabetização"
         Case 16 : comemoracao "Semana da Música"
         Case 19 : comemoracao "Dia da Bandeira"
         Case 20 : comemoracao "Dia do Auditor Interno "& separador &" Dia Nacional da Consciência Negra "& separador &" Dia do Biomédico"
         Case 21 : comemoracao "Dia da Homeopatia "& separador &" Dia das Saudações"
         Case 22 : comemoracao "Dia do Músico"
         Case 23 : comemoracao "Dia Internacional do Livro"
         Case 25 : comemoracao "Dia Nacional do Doador de Sangue"
         Case 26 : comemoracao "Dia do Ministério Público"
         Case 28 : comemoracao "Dia Mundial de Ação de Graças"
      End Select
   ElseIf mes = 12 Then
      Select Case dia
         Case 01 : comemoracao "Dia Internacional da Luta contra a AIDS "& separador &" Dia do Imigrante "& separador &" Dia do Numismata"
         Case 02 : comemoracao "Dia Nacional do Samba "& separador &" Dia da Astronomia "& separador &" Dia Pan-americano da Saúde "& separador &" Dia Nacional das Relações Públicas"
         Case 04 : comemoracao "Dia da Propaganda "& separador &" Dia do Pedicuro"
         Case 08 : comemoracao "Dia Mundial da Imaculada Conceição "& separador &" Dia da Família "& separador &" Dia da Justiça"
         Case 09 : comemoracao "Dia da Criança Defeituosa "& separador &" Dia do Fonoaudiólogo "& separador &" Dia do Alcoólico Recuperado"
         Case 10 : comemoracao "Declaração Universal Direitos Humanos "& separador &" Dia Internacional dos Povos Indígenas "& separador &" Dia Universal do Palhaço"
         Case 11 : comemoracao "Dia do Arquiteto "& separador &" Dia do Engenheiro "& separador &" Dia do Agrônomo"
         Case 13 : comemoracao "Dia do Cego "& separador &" Dia do Marinheiro "& separador &" Dia do Ótico"
         Case 16 : comemoracao "Dia do Reservista"
         Case 19 : comemoracao "Dia do Atleta Profissional"
         Case 20 : comemoracao "Dia do Mecânico"
         Case 21 : comemoracao "Dia do Atleta"
         Case 22 : comemoracao "Início do verão"
         Case 23 : comemoracao "Dia do Vizinho"
         Case 24 : comemoracao "Dia do Órfão"
         Case 25 : comemoracao "Natal"
         Case 26 : comemoracao "Dia da Lembrança"
         Case 28 : comemoracao "Dia do Salva-vidas"
         Case 31 : comemoracao "Dia de São Silvestre "& separador &" Réveillon"
      End Select
   End If
   
   If comemoracao <> "" Then
      comemoracao = comemoracao
   Else
      comemoracao = "nada é comemorado hoje... <img src='http://code.imasters.com.br/public/style_emoticons/default/sad.gif' class='bbc_emoticon' alt=':(' />"
   End If
   
End Function
%>
<%=comemoracao()%>



#273 Encurtando Url Com Goo.gl

Postado por Patrique em 09 outubro 2010 - 18:05

<%

'---------------------------------------------------------------------

' Autor da Função: Patrique André (O gostosão)

' Perfil: http://forum.imasters.com.br/index.php?/user/31010-patrique/

'---------------------------------------------------------------------

Function google(link)

    Set objXMLHTTP = CreateObject("Msxml2.XMLHTTP")

        URLAPI = "http://goo.gl/api/shorten?url="& link &""

        objXMLHTTP.Open "POST", URLAPI, FALSE

        objXMLHTTP.send()

        resultado = objXMLHTTP.responseText

        separa = Split(resultado,"""")

        urlcriada = separa(3)

        Response.Write urlcriada

    Set objXMLHTTP = nothing

End Function



call google("http://forum.imasters.com.br/index.php?/topic/411696-encurtando-url-com-goo-gl/")

%>



#311 Gerador De Senhas

Postado por PF Webmaster em 16 outubro 2010 - 01:17

Hello Programmers,

Segue abaixo um código muito útil que fiz há algum tempo para a geração de senhas alfanuméricas aleatóriamente.
Tudo o que você precisa é definir na chamada da função quantos caracteres você quer na senha gerada.


<%
'Estabelecendo que a codificação da página será em UTF-8'
Response.charset = "utf-8"

'Criando a função para gerar as senhas'
function geradorSenhas(num) 

dim numero1, numero2, numero3
for numero2 = 48 to 90 
	if numero2 < 58 or numero2 > 64 then
		numero1 = numero1 & chr(numero2) & " "
	end if
next

numero1 = split(lcase(numero1) & numero1)

randomize

for numero2 = 1 to num
	numero3 = numero3 & numero1( int(ubound(numero1) * rnd) )
next

geradorSenhas = numero3

end function

'Chamando a função, entre os parênteses você determina o tamanho da senha que deseja gerar'
'Nessa chamada, por exemplo, a função vai gerar uma senha com 10 caracteres'
Response.write geradorSenhas(10)
%>


No mais é isso,

Qualquer dúvida, pergunte!

[]'s

Pedro Felipe.


#276 Saber O Dia Da Semana De Determinada Data

Postado por Patrique em 10 outubro 2010 - 00:35

Segue abaixo um code que eu fiz para mostrar o dia da semana de determinada data.

No meu caso serviu para mostrar ao usuário que dia da semana ele nasceu de acordo com a data criada no registro, mas serviria também para outras coisas, basta usar a mente!

<%
autor: Patrique André (O Gostosão)
perfil: http://forum.imasters.com.br/index.php?/user/31010-patrique/

Function Nasceu(data)

    diasemana = WeekDay(data,vbSunday)
    nomesemana = WeekDayName(diasemana,false,vbSunday)

    If diasemana = 1 or diasemana = 7 Then
        abrevia = "um"
    Else
        abrevia = "uma"
    End If      

    Nasceu = "Você nasceu em "& abrevia &" " & nomesemana

End Function

Response.Write Nasceu("26/08/2010")
%>



#993 Como Definir Os Mime Types Válidos De Um Tipo De Arquivo

Postado por Carlos Coelho em 24 setembro 2012 - 08:25

Vou mostrar uma solução que encontrei para facilitar minha vida na hora de definir os mime types que poderão ser aceitos pelo sistema na hora de salvar um arquivo enviado por upload. Afinal, decorar todos os mime types é difícil.

Primeiro vou criar um arquivo que conterá todos as extensões existentes e seus respectivos mime types.

O nome do arquivo é apenas MimeTypes, isso mesmo, sem extensão, apenas MimeTypes. Se estiver faltando alguma extensão, basta acrescentar na lista.

MimeTypes
Spoiler



Agora o script que irá buscar os mime types corretos para cada extensão informada.


<?php
/**
* Define um array de mime types permitidos com base na extensão
* @param array $extensions O array com as extensões permitidas
* @return array Os mime types possíveis das extensões
*/
function getMimeTypes( array $extensions )
{
$mimes = file_get_contents( 'MimeTypes', FILE_USE_INCLUDE_PATH );
$mime_types = array( );
foreach( $extensions as $search )
{
preg_match_all( sprintf( '/^.%s[^\n\r]+/mi', $search ), $mimes, $matches );
$mime_types = array_merge( $mime_types, preg_replace( '/^[\S]+[[:space:]]+/', null, $matches[ 0 ] ) );
}
return $mime_types;
}


Teste

<?php

var_dump( getMimeTypes( array( 'jpg', 'gif', 'png', 'zip' ) ) );

/**

array
0 => string 'image/jpeg' (length=10)
1 => string 'image/pjpeg' (length=11)
2 => string 'image/gif' (length=9)
3 => string 'image/png' (length=9)
4 => string 'application/x-compressed' (length=24)
5 => string 'application/x-zip-compressed' (length=28)
6 => string 'application/zip' (length=15)
7 => string 'multipart/x-zip' (length=15)

*/



Como usar

<?php

// Pega o mime type do arquivo enviado
$finfo = new finfo( FILEINFO_MIME_TYPE );
$mime_type_arquivo = $finfo->file( $_FILES[ 'userfile' ] [ 'tmp_name' ] ); // O nome temporário do arquivo, como foi guardado no servidor

// Pega os mime types associados a cada extensão permitida
$mime_types_permitidos = getMimeTypes( array( 'jpg', 'gif' ) );

if( in_array( $mime_type_arquivo, $mime_types_permitidos ) )
{
echo 'Arquivo válido!';
}
else
{
echo 'Arquivo negado!';
}


É isso pessoal. :thumbsup:


#335 Buscando E Salvando Xml De Outro Site.

Postado por PF Webmaster em 21 outubro 2010 - 14:37

Hello Programmers,

Fiz esse pequeno código para ajudar um amigo que estava com problemas para consumir um XML do site do INPE, onde ele obtém a previsão do tempo de sua cidade.
O código é simples, de fácil entendimento, tem 4 parâmetros e todos são obrigatórios.


<%
'obs: essa rotina pode ser facilmente adapatada para baixar qualquer arquivo, e não apenas um XML'
'escolha a pasta levando em consideração a pasta onde este script ficará'

sub armazenarXML(url, encode, pasta, nome)

	'variável para armazenar o cabeçalho do nosso XML'
	dim content, Stream

	content = "<?xml version='1.0' encoding='" & encode & "' ?>"

	'Cria o objeto XML para fazermos o request da página, usaremos o método GET'
	Set Xml = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0") ' para o XMLHHTP 6'
	'Set Xml = Server.CreateObject("MSXML2.XMLHTTP.4.0") para o XMLHTTP 4'
	'Set Xml = Server.CreateObject("MSXML2.XMLHTTP.3.0") para o XMLHTTP 3'
	'Set Xml = Server.CreateObject("MSXML2.ServerXMLHTTP") para o XMLHTTP 2'
	'Set Xml = Server.CreateObject("Microsoft.XMLHTTP") para uma versão não especificada, não recomendado!'

	'Método , url da página com o arquivo'
	Xml.open "GET", url, false

	'Baixa o arquivo'
	Xml.send

	'Cria o Stream para salvar o arquivo'
	set Stream = Server.CreateObject("ADODB.Stream")

	'Abre a Stream e seta o tipo para texto'
	Stream.Type = adTypeText
	Stream.Open

	content = content & Xml.responseText

	'Retorna o conteudo do arquivo e faz o stream dele'
	Stream.WriteText (content)

	'Agora é so salvar o arquivo'
	Stream.SaveToFile Server.MapPath("\" & pasta & "\" & nome & ".xml"), adSaveCreateOverWrite 'sobrescreve o XML, pra não precisar ficar verificando com FSO'

	if(Err.number <> 0) then
		Response.write(Err.number & "<br />")
		Response.write(Err.description & "<br />")
		Response.write(Err.file & "<br />")
		Response.write(Err.line & "<br />")
	else
		Response.write("Arquivo XML salvo com sucesso.")
	end if

end sub

'chamando a rotina, e passando os devidos parâmetros'
armazenarXML "http://servicos.cptec.inpe.br/XML/cidade/4305/previsao.xml", "utf-8", "search", "previsao-tempo"

%>




#220 Criando Xml Com Asp

Postado por Ted k' em 04 outubro 2010 - 17:29

<%

ArquivoXML = "criado.xml" 'adicionando um nome no arquivo

Set FSO = CreateObject("Scripting.FileSystemObject") 'criando o objeto FSO

Set Linhas = FSO.CreateTextFile(Server.MapPath(ArquivoXML), True) 'salvando o arquivo no servidor através do método "CreateTextFile"

'gerando linas

    Linhas.WriteLine("<?xml version=""1.0""?>")

    Linhas.WriteLine("<container>")

    Linhas.WriteLine("<tag_01>TEXTO DA TAG 01</tag_01>" )

    Linhas.WriteLine("<tag_02>TEXTO DA TAG 02</tag_02>" )

    Linhas.WriteLine("<tag_03>TEXTO DA TAG 03</tag_03>" )

    Linhas.WriteLine("</container>")

'destruíndo os objetos

Linhas.Close

Set Linhas = Nothing

%>




#212 Persits.pdf

Postado por Ted k' em 04 outubro 2010 - 16:21

Esse script pega a página do terra e converte, bloqueia para não modificar e não copiar e ainda gera paginação!

<!--METADATA TYPE="TypeLib" UUID="{414FEE4B-2879-4090-957E-423567FFCFC6}"-->
<%
' Início - Mostrar Contrato : Gerar PDF '
        Dim Pdf, Doc, Page
        Set Pdf = Server.CreateObject("Persits.Pdf")
        Set Doc = Pdf.CreateDocument

                Doc.ImportFromUrl "http://www.terra.com.br"
                Doc.Encrypt "7658tedk4784584754747584484584854484545", "", 40, PdfFull And (Not PDFModify) And (Not PDFCopy)

                For Each Page In Doc.Pages
                        Page.Canvas.DrawText "Pág."&Page.Index&"/"&Doc.Pages.Count&"", "x=15, y=20", Doc.Fonts("Arial")
                Next

        Doc.SaveHttp("attachment; filename=Contrato.pdf")
' Final - Mostrar Contrato : Gerar PDF '
%>

Para obter mais informações do Persits.Pdf, acesse o site aqui com manual e confira as informações, algumas delas disponibilizei aqui como por exemplo:
Bloquear pdf para Impressão = pdfPrint, olha outros exemplo aqui abaixo:
pdfFull = &HFFFFFFFC (all significant bits)
pdfPrint = &H04 (Bit 3)
pdfModify = &H08 (Bit 4)
pdfCopy = &H10 (Bit 5)
pdfAnnotations = &H20 (Bit 6)
pdfForm = &H0100 (Bit 9)
pdfExtract = &H0200 (Bit 10)
pdfAssemble = &H0400 (Bit 11)
pdfPrintHigh = &H0800 (Bit 12)

A METADATA server para identificar os parâmentros de bloqueio:


#209 Listar Favoritos Do Youtube

Postado por Ted k' em 04 outubro 2010 - 16:14

Classe
<%
class YouTube
        private objXML
        private objLista
        private usuario
        private url
        private id, i
        private nome_objeto
        
        private sub objetosXML()
                set objXML = server.createObject("MSXML2.DOMdocument.3.0")
                        objXML.async = false
                        objXML.setProperty "ServerHTTPRequest", true
                        objXML.validateOnParse = false
                        objXML.load(url)
                set objLista = objXML.getElementsByTagName("*")
        end sub
        
        public sub carregarURL()
                usuario = "nome_do_seu_usuario"
                url = "http://gdata.youtube.com/feeds/api/users/"&usuario&"/favorites"
                call objetosXML()
                                
                for i = 16 to (objLista.length - 1)                     
                        select case (objLista.item(i).nodeName)
                                case "id"
                                        nome_objeto = objLista.item(i).text
                                        id = right(nome_objeto, len(nome_objeto) - instrRev(nome_objeto,"/"))
                                        
                                        tabela = tabela & "<table width=""494"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
                                        tabela = tabela & "<tr><td colspan=""2"">"
                                        tabela = tabela & "<object width=225 height=144><param name=movie value=http://www.youtube.com/v/"&id&"></param>"
                                        tabela = tabela & "<param name=allowFullScreen value=true></param>"
                                        tabela = tabela & "<param name=allowscriptaccess value=always></param>"
                                        tabela = tabela & "<embed src=http://www.youtube.com/v/"&id&" type=application/x-shockwave-flash allowscriptaccess=always allowfullscreen=true width=225 height=144></embed>"
                                        tabela = tabela & "</object>"
                                        tabela = tabela & "</td></tr>"
                                        
                                case "title"
                                        tabela = tabela & "<tr><td width=""92"" valign=""top"" style=""font: 11px Arial;""><strong>TÍTULO:</strong></td>"
                                        tabela = tabela & "<td width=""402"" valign=""top"" style=""font: 11px Arial;"">"&objLista.item(i).text&"</td></tr>"
                                        
                                case "content"
                                        tabela = tabela & "<tr><td valign=""top"" style=""text-align: justify; font: 11px Arial;""><strong>DESCRIÇÃO:</strong></td>"
                                        tabela = tabela & "<td valign=""top"" style=""font: 11px Arial;"">"&objLista.item(i).text&"</td></tr>"
                                        tabela = tabela & "</table><br><br>"
                        end select
                next
                
                response.write(tabela)
        end sub
end class
%>

O HTML
<%@ Language="VBScript" %>
<!--#include file="Default.class.asp"-->
<%
dim yt
set yt = new YouTube
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR...nsitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>
<body>
<%=yt.carregarURL()%>
</body>
</html>

Resultado:
Imagem postada


#283 Pegar Tamanho De Arquivos Em Outros Servidores

Postado por Patrique em 10 outubro 2010 - 03:09

<%
Function ArquivoRemoto(UrlArquivo)
    Dim monta,calculo(1),arquivo
    Set monta = CreateObject("MSXML2.XMLHTTP")
    monta.Open "GET",urlarquivo, False
    monta.setRequestHeader "Range","bytes=-1"
    monta.send
    arquivo = Split(monta.GetResponseHeader("Content-Range") & "/0","/")
    Set monta = Nothing
    calculo(0) = CLng(arquivo(1))
    calculo(1) = calculo(0) / 1024
    If calculo(1) > 1024 Then
        calculo(1) = Round(calculo(1) / 1024,2) & "MB"
    Else
        calculo(1) = Round(calculo(1),2) & "KB"
    End If
    ArquivoRemoto = calculo
End Function

Dim urlarquivo,calculotamanho
urlarquivo = "http://forum.imasters.uol.com.br/public/style_images/imasters2010/logo.png"
calculotamanho = ArquivoRemoto(UrlArquivo)
Response.Write "O tamanho deste arquivo é <strong>"& calculotamanho(1)&"</strong>"
%>

Com ele você conseguira pegar o tamanho de arquivos que estiverem em outros servidores.

[]'s


#218 Aspmail

Postado por Ted k' em 04 outubro 2010 - 17:26

<%

set aspMail = server.CreateObject("SMTPsvg.Mailer")

    ' Use o SMTP ou o MAIL da sua conta de Hospedagem.

    aspMail.RemoteHost = "smtp.dominio.com.br"

    ' Essa linha é opicional.

    aspMail.FromName = "Nome do Remetente"

    ' Remetente do E-Mail.

    aspMail.FromAddress = "remetente@dominio.com.br"

    ' Nome e Destinatário do E-Mail.

    aspMail.AddRecipient "Nome do Destinatário", "destinatario@dominio.com.br"

    ' Assunto do E-Mail.

    aspMail.Subject = "Assunto do E-Mail"

    ' Tipo de Texto que será enviado.

    aspMail.ContentType = "text/html"

    ' Texto em HTML ou Normal.

    aspMail.BodyText = "<b>Esse texto vai em negrito</b>"

    ' Linha que envia o E-Mail.

    aspMail.SendMail

set aspMail = nothing



response.write("E-Mail Enviado com Sucesso!")

%>




#219 Gerando Pdf Com Abcpdf

Postado por Ted k' em 04 outubro 2010 - 17:27

<%

set abc = server.createObject("ABCpdf6.DOC")

    ' Tamanho da Fonte

    abc.FontSize = "12"

    ' Estilo da Fonte

    abc.Font = abc.AddFont("Arial")

    ' Cor da Fonte

    abc.Color = "255 0 0"

    ' Coloque o Texto

    abc.AddText "Coloque seu Texto AQUI"

    abc.save server.mapPath("arquivo_gerado.pdf")

set abc = nothing

%>




#924 Inserindo Menu Dinâmico Em Php!

Postado por Elnatã Levi em 07 agosto 2012 - 11:12

Bom galera vou ensinar um menu dinâmico em php, digamos que você tenha em seu site 300 paginas, e queira adicionar apenas um menu a mais em seu site, então ficaria chato adicionar menu por menu em 300 paginas então para isso crie uma página chamada menu.php com o código abaixo:

menu.php

<?php

$menu_index = "<a href='index.php'>Index</a>";
$menu_exibe = "<a href='exibe.php'>Exibe</a>";
$menu_pesquisar = "<a href='pesquisar.php'>Pesquisar</a>";

$mostra_menus = "<div id='menu'><ul>
				
					<li>$menu_index</li>
					<li>$menu_exibe</li>
					


				</ul></div>";
				
				print $mostra_menus;

?>

Nas páginas em que você queira adicionar os menus você apenas insira o seguinte código:

<?php
include ("menu.php");
?>


Abaixo está o css do menu:

estilo.css

#menu ul {
    padding:0px;
    margin:0px;
    float:left;
    width: 100%;
    background-color:transparent;
    list-style:none;
    font:80% Tahoma;
}
#menu ul li { display: inline; } 
 
#menu ul li a {
    background-color:transparent;
    color: #333;
    text-decoration: none;
    
    padding: 2px 10px;
    float:left;
}
 
#menu ul li a:hover {
    background-color:transparent;
    color: #6D6D6D;
    border-bottom:3px solid #EA0000;
}


Então é isso pessoal espero que todos vocês tenham gostado é vocês possam estar editando o código do jeito que vocês quiserem!


#280 Personalizar Datas E Horas

Postado por Patrique em 10 outubro 2010 - 00:44

Fala ai galera, segue abaixo uma function que eu fiz para personalizar datas e horas.

<%
autor: Patrique André (O Gostosão)
perfil: http://forum.imasters.com.br/index.php?/user/31010-patrique/

Function DataLogica(data,modelo)

    data = data

    dia = Right("0" & DatePart("d", Data),2)
    mes = Right("0" & DatePart("m", Data),2)
    ano = Right("0" & DatePart("yyyy", Data),2)

    If modelo = 1 Then
        mes = mes
    Else
        If mes = 01 Then mes = "jan"
        ElseIf mes = 02 Then mes = "fev"
        ElseIf mes = 03 Then mes = "mar"
        ElseIf mes = 04 Then mes = "abr"
        ElseIf mes = 05 Then mes = "mai"
        ElseIf mes = 06 Then mes = "jun"
        ElseIf mes = 07 Then mes = "jul"
        ElseIf mes = 08 Then mes = "ago"
        ElseIf mes = 09 Then mes = "set"
        ElseIf mes = 10 Then mes = "out"
        ElseIf mes = 11 Then mes = "nov"
        ElseIf mes = 12 Then mes = "dez"
        End If
    End If
        
    DataLogica = dia & "/" & mes & "/" & ano

End Function

vData = "27/8/2010"

Response.Write DataLogica(vData,1)
Response.Write "<br />ou<br />"
Response.Write DataLogica(vData,2)

Response.Write "<br /><br />"

Function HoraLogica(hora,modelo)
    HoraLogica = Right("0" & Hour(hora),2) & ":" & Right("0" & Minute(hora),2) & modelo
End Function

vHora = "10:04:13"

Response.Write HoraLogica(vHora,"m")
Response.Write "<br />ou<br />"
Response.Write HoraLogica(vHora,"min")
%>



#130 Ordernar vetor

Postado por hargon em 02 outubro 2010 - 11:50

<script language=JScript runat=server>
	function SortVBArray(arrVBArray)
	{
		return arrVBArray.toArray().sort().join('\b');
	}
</script>

<%
Function SortArray(arrInput)
		SortArray = Split(SortVBArray(arrInput), Chr(8))
End Function


Dim ar, i, vtemp

ar=array("Urso","Macaco","Cachorro","Hipopotamo","Avestruz","Pato","Rato","Gato","Papagaio")
response.write "Antes da Ordenação:<BR>"

for i = 0 to ubound(ar)
	response.write ar(i) & "<BR>"
next

response.write "<p>"

response.write "Depois da Ordenação:<BR>"
for i = 0 to ubound(ar)
	vtemp = SortArray(ar)
next

for j = 0 to ubound (ar)
	Response.Write vtemp(j)&"<br>"
next

%>

Autor: Lucas_Dragon


#128 Exibir data no formato do Twitter

Postado por hargon em 02 outubro 2010 - 11:48

As funções abaixo tem outras aplicações além de possibilitar exibir a data no formato do Twitter.

Obs. O código foi encontrado na Web e possui as devidas referências.

funcoesDataFormatoTwitter.asp

Exemplo de uso:
<!--#include file='funcoesDataFormatoTwitter.asp'-->
<%
Dim curDate,relativeDate
curDate = to_unix_timestamp(Now())
relativeDate = relative_date(curDate,"%l, %F %j%o, %Y  %H:%i %A")
response.write relativeDate
%>
Saída para o exemplo acima:

1 minute ago



Fonte