27
Feb/082
Feb/082
Facilitando sua vida: Part 02 : (Combo de todos os Países)
<select name="Combo_Paises"> <option value="África do Sul">África do Sul</option> <option value="Albânia">Albânia</option> <option value="Alemanha">Alemanha</option> <option value="Andorra">Andorra</option> <option value="Angola">Angola</option> <option value="Anguilla">Anguilla</option> <option value="Antigua">Antigua</option> <option value="Arábia Saudita">Arábia Saudita</option> <option value="Argentina">Argentina</option> <option value="Armênia">Armênia</option> <option value="Aruba">Aruba</option> <option value="Austrália">Austrália</option> <option value="Áustria">Áustria</option> <option value="Azerbaijão">Azerbaijão</option> <option value="Bahamas">Bahamas</option> <option value="Bahrein">Bahrein</option> <option value="Bangladesh">Bangladesh</option> <option value="Barbados">Barbados</option> <option value="Bélgica">Bélgica</option> <option value="Benin">Benin</option> <option value="Bermudas">Bermudas</option> <option value="Botsuana">Botsuana</option> <option value="Brasil">Brasil</option> <option value="Brunei">Brunei</option> <option value="Bulgária">Bulgária</option> <option value="Burkina Fasso">Burkina Fasso</option> <option value="botão">botão</option> <option value="Cabo Verde">Cabo Verde</option> <option value="Camarões">Camarões</option> <option value="Camboja">Camboja</option> <option value="Canadá">Canadá</option> <option value="Cazaquistão">Cazaquistão</option> <option value="Chade">Chade</option> <option value="Chile">Chile</option> <option value="China">China</option> <option value="Cidade do Vaticano">Cidade do Vaticano</option> <option value="Colômbia">Colômbia</option> <option value="Congo">Congo</option> <option value="Coréia do Sul">Coréia do Sul</option> <option value="Costa do Marfim">Costa do Marfim</option> <option value="Costa Rica">Costa Rica</option> <option value="Croácia">Croácia</option> <option value="Dinamarca">Dinamarca</option> <option value="Djibuti">Djibuti</option> <option value="Dominica">Dominica</option> <option value="EUA">EUA</option> <option value="Egito">Egito</option> <option value="El Salvador">El Salvador</option> <option value="Emirados Árabes">Emirados Árabes</option> <option value="Equador">Equador</option> <option value="Eritréia">Eritréia</option> <option value="Escócia">Escócia</option> <option value="Eslováquia">Eslováquia</option> <option value="Eslovênia">Eslovênia</option> <option value="Espanha">Espanha</option> <option value="Estônia">Estônia</option> <option value="Etiópia">Etiópia</option> <option value="Fiji">Fiji</option> <option value="Filipinas">Filipinas</option> <option value="Finlândia">Finlândia</option> <option value="França">França</option> <option value="Gabão">Gabão</option> <option value="Gâmbia">Gâmbia</option> <option value="Gana">Gana</option> <option value="Geórgia">Geórgia</option> <option value="Gibraltar">Gibraltar</option> <option value="Granada">Granada</option> <option value="Grécia">Grécia</option> <option value="Guadalupe">Guadalupe</option> <option value="Guam">Guam</option> <option value="Guatemala">Guatemala</option> <option value="Guiana">Guiana</option> <option value="Guiana Francesa">Guiana Francesa</option> <option value="Guiné-bissau">Guiné-bissau</option> <option value="Haiti">Haiti</option> <option value="Holanda">Holanda</option> <option value="Honduras">Honduras</option> <option value="Hong Kong">Hong Kong</option> <option value="Hungria">Hungria</option> <option value="Iêmen">Iêmen</option> <option value="Ilhas Cayman">Ilhas Cayman</option> <option value="Ilhas Cook">Ilhas Cook</option> <option value="Ilhas Curaçao">Ilhas Curaçao</option> <option value="Ilhas Marshall">Ilhas Marshall</option> <option value="Ilhas Turks & Caicos">Ilhas Turks & Caicos</option> <option value="Ilhas Virgens (brit.)">Ilhas Virgens (brit.)</option> <option value="Ilhas Virgens(amer.)">Ilhas Virgens(amer.)</option> <option value="Ilhas Wallis e Futuna">Ilhas Wallis e Futuna</option> <option value="Índia">Índia</option> <option value="Indonésia">Indonésia</option> <option value="Inglaterra">Inglaterra</option> <option value="Irlanda">Irlanda</option> <option value="Islândia">Islândia</option> <option value="Israel">Israel</option> <option value="Itália">Itália</option> <option value="Jamaica">Jamaica</option> <option value="Japão">Japão</option> <option value="Jordânia">Jordânia</option> <option value="Kuwait">Kuwait</option> <option value="Latvia">Latvia</option> <option value="Líbano">Líbano</option> <option value="Liechtenstein">Liechtenstein</option> <option value="Lituânia">Lituânia</option> <option value="Luxemburgo">Luxemburgo</option> <option value="Macau">Macau</option> <option value="Macedônia">Macedônia</option> <option value="Madagascar">Madagascar</option> <option value="Malásia">Malásia</option> <option value="Malaui">Malaui</option> <option value="Mali">Mali</option> <option value="Malta">Malta</option> <option value="Marrocos">Marrocos</option> <option value="Martinica">Martinica</option> <option value="Mauritânia">Mauritânia</option> <option value="Mauritius">Mauritius</option> <option value="México">México</option> <option value="Moldova">Moldova</option> <option value="Mônaco">Mônaco</option> <option value="Montserrat">Montserrat</option> <option value="Nepal">Nepal</option> <option value="Nicarágua">Nicarágua</option> <option value="Niger">Niger</option> <option value="Nigéria">Nigéria</option> <option value="Noruega">Noruega</option> <option value="Nova Caledônia">Nova Caledônia</option> <option value="Nova Zelândia">Nova Zelândia</option> <option value="Omã">Omã</option> <option value="Palau">Palau</option> <option value="Panamá">Panamá</option> <option value="Papua-nova Guiné">Papua-nova Guiné</option> <option value="Paquistão">Paquistão</option> <option value="Peru">Peru</option> <option value="Polinésia Francesa">Polinésia Francesa</option> <option value="Polônia">Polônia</option> <option value="Porto Rico">Porto Rico</option> <option value="Portugal">Portugal</option> <option value="Qatar">Qatar</option> <option value="Quênia">Quênia</option> <option value="Rep. Dominicana">Rep. Dominicana</option> <option value="Rep. Tcheca">Rep. Tcheca</option> <option value="Reunion">Reunion</option> <option value="Romênia">Romênia</option> <option value="Ruanda">Ruanda</option> <option value="Rússia">Rússia</option> <option value="Saipan">Saipan</option> <option value="Samoa Americana">Samoa Americana</option> <option value="Senegal">Senegal</option> <option value="Serra Leone">Serra Leone</option> <option value="Seychelles">Seychelles</option> <option value="Singapura">Singapura</option> <option value="Síria">Síria</option> <option value="Srilanka">Srilanka</option> <option value="St. Kitts & Nevis">St. Kitts & Nevis</option> <option value="St. Lúcia">St. Lúcia</option> <option value="St. Vincent">St. Vincent</option> <option value="Sudão">Sudão</option> <option value="Suécia">Suécia</option> <option value="Suiça">Suiça</option> <option value="Suriname">Suriname</option> <option value="Tailândia">Tailândia</option> <option value="Taiwan">Taiwan</option> <option value="Tanzânia">Tanzânia</option> <option value="Togo">Togo</option> <option value="Trinidad & Tobago">Trinidad & Tobago</option> <option value="Tunísia">Tunísia</option> <option value="Turquia">Turquia</option> <option value="Ucrânia">Ucrânia</option> <option value="Uganda">Uganda</option> <option value="Uruguai">Uruguai</option> <option value="Venezuela">Venezuela</option> <option value="Vietnã">Vietnã</option> <option value="Zaire">Zaire</option> <option value="Zâmbia">Zâmbia</option> <option value="Zimbábue">Zimbábue</option> </select>
Tem país demais, tá faltando algum?
diz ai que adiciono...
27
Feb/0819
Feb/0819
Facilitando sua vida: Part 01 : (Combo de Siglas de Estados Brasileiros)
Esse é uma das várias séries desse projeto. Quem não gosta de nada pronto?
Então segue um combo em HTML das siglas de todos os estados brasileiros, é usar e abusar!!!
<select name="Combo_Estados"> <option value="AC">AC</option> <option value="AL">AL</option> <option value="AM">AM</option> <option value="AP">AP</option> <option value="BA">BA</option> <option value="CE">CE</option> <option value="DF">DF</option> <option value="ES">ES</option> <option value="GO">GO</option> <option value="MA">MA</option> <option value="MG">MG</option> <option value="MS">MS</option> <option value="MT">MT</option> <option value="PA">PA</option> <option value="PB">PB</option> <option value="PE">PE</option> <option value="PI">PI</option> <option value="PR">PR</option> <option value="RJ">RJ</option> <option value="RN">RN</option> <option value="RO">RO</option> <option value="RR">RR</option> <option value="RS">RS</option> <option value="SC">SC</option> <option value="SE">SE</option> <option value="SP">SP</option> <option value="TO">TO</option> </select>
25
Feb/080
Feb/080
Imagens Aleatórias : Randomize
Mais um randomize de Imagens adaptado para as necessidade básicas
-
-
<%@ Language="VBScript" %>
-
<% Option Explicit %>
-
-
<%
-
Function RandomDeImagens(strPath,strDefault)
-
On Error Resume Next
-
Randomize Timer
-
-
Dim ObjDeFSO, objFolder, ObjDaPasta, ObjPasta02
-
Dim StrPastas, StrImagens, StrBase, StrPasta
-
Const strValid = ".gif.jpg.png"
-
-
If Right(strPath,1) <> Chr(47) Then strPath = strPath & Chr(47)
-
-
StrBase = Server.MapPath(strPath)
-
Set ObjDeFSO = Server.CreateObject("Scripting.FileSystemObject")
-
-
Set objFolder = ObjDeFSO.GetFolder(StrBase)
-
Set ObjDaPasta = objFolder.Files
-
-
For Each ObjPasta02 In ObjDaPasta
-
StrPasta = LCase(ObjPasta02.Name)If Instr(strValid,Right(StrPasta,4)) Then
-
StrPastas = StrPastas & StrPasta & VbTab
-
End If
-
Next
-
-
StrImagens = Split(StrPastas,VbTab)
-
-
If UBound(StrImagens) > 1 Then
-
RandomDeImagens = strPath & StrImagens(Int(Rnd(1)*UBound(StrImagens)))
-
Else
-
RandomDeImagens = strDefault
-
End If
-
-
End Function
-
%>
-
<p align="center"> </p>
-
-
<center>
-
<table border="1" bordercolor="#000000"><tbody>
-
<tr>
-
<td bgcolor="#ffffff">
-
<!-- a pasta developercenter é relacionanda a sua pasta principal -->
-
<img src="<%=RandomDeImagens%>" />
-
</td>
-
</tr>
-
</tbody></table>
-
</center>
23
Feb/082
Feb/082
Script: Paginação 1 2 3 [4] 5 6 : Funciona também no MySQL
Para o bem de todos segue a Paginação que funciona no MySQL, Testada e Aprovada
LEGENDAS:
TedkDados => RS
TedKBanco => Conn
TedkDados.Pagesize = 30 => Quantidade de linhas!
-
-
<%
-
TedkBanco.CursorLocation = 3
-
Set TedkDados = Server.CreateObject( "Adodb.RecordSet")
-
TedkDados.Pagesize = 30
-
TedkDados.Open "Select NomeNewsletterEMail, EMailNewsletterEMail From adminNewsletterEMail Order By NomeNewsletterEMail Asc",TedkBanco
-
-
If TedkDados.Eof Then
-
Response.Write("")
-
Else
-
-
PaginaAtual = CInt(Request.Querystring( "Pages"))
-
-
If PaginaAtual = 0 Then
-
PaginaAtual = 1
-
End If
-
-
TedkDados.AbsolutePage = PaginaAtual
-
Num = TedkDados.PageCount
-
-
While Not TedkDados.Eof And TedkDados.AbsolutePage = PaginaAtual
-
% >
-
-
<%
-
TedkDados.MoveNext : Wend
-
Anterior = PaginaAtual - 1
-
Proximo = PaginaAtual + 1
-
-
If Anterior <= 0 Then
-
Anterior = 1
-
End If
-
-
If Proximo > TedkDados.PageCount Then
-
Proximo = TedkDados.PageCount
-
End If
-
% >
-
-
<table border="0" cellpadding="0" cellspacing="2" width="100%"><tbody>
-
<tr>
-
<td class="classFonte01" bgcolor="#ebebeb" height="30" width="44%"><strong>Nome</strong></td>
-
<td class="classFonte01" bgcolor="#ebebeb" width="47%"><strong>E-Mail</strong></td>
-
</tr>
-
<tr>
-
<td class="classFonte01" bgcolor="#f7f7f7" height="22"><% Response.Write(TedkDados("NomeNewsletterEMail")) %></td>
-
<td class="classFonte01" bgcolor="#f7f7f7"><% Response.Write(TedkDados("EMailNewsletterEMail")) %></td>
-
</tr>
-
<tr>
-
<td colspan="2" class="classFonte01" align="right" bgcolor="#ebebeb" height="30"><strong>Paginas:</strong> <%
-
Jo = 1
-
While Jo <= TedkDados.PageCountIf PaginaAtual = Jo Then
-
Response.Write( "["&Jo&"] ")
-
Else
-
Response.Write( "<a default.asp?pages="&Jo&">"&Jo&"</a> ")
-
End IfJo = Jo + 1
-
Wend
-
End If
-
%></td>
-
</tr>
-
</tbody></table>
-
Aproveitem... 100% Testado no MySQL
23
Feb/082
Feb/082
Enviado E-Mail com JSP
Nesse caso vamos criar três arquivos básico para o envio do E-Mail, um em HTML, outro JSP e um das classes do JAVA!
Arquivo: formulario.html
<html>
<body>
<form name="FormEnvio" method="post" action="enviar.jsp">
<table border="0" align="center">
<tr>
<td width="82"><strong>Para:</strong></td>
<td width="197"><input type="text" name="para" size="30"></td>
</tr>
<tr>
<td><strong>De:</strong></td>
<td><input type="text" name="de" size="30"></td>
</tr>
<tr>
<td><strong>Assunnto:</strong></td>
<td><input type="text" name="assunto" size="30"></td>
</tr>
<tr>
<td colspan="2"><textarea name="mensagem" rows="6" cols="45"></textarea></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="Submit" name="Enviar" value="Enviar Email"></td>
</tr>
</table>
</form>
</body>
</html>
Arquivo: enviar.jsp
<html>
<body>
<%@ page import="jspenvioemail.Email" %>
<jsp:useBean id="email" scope="session" class="jspenvioemail.Email"/>
<%
try {
String mailServer = "mail.seumailserver.com.br"
String assunto = request.getParameter("assunto");
String para = request.getParameter("para");
String de = request.getParameter("de");
String mensagem = request.getParameter("mensagem");
email.sendSimpleMail(mailServer, assunto, para, de, mensagem);
%>
<p>Email enviado com Sucesso !!!</p>
<% }
catch (AdressException e) {
%>
<p>Endereço de Email inválido</p>
<% }
catch (MessagingException e) {
%>
<p>Impossível enviar o email.</p>
<%}%>
</body>
</html>
Arquivos: Email.java
package jspenvioemail;
import javax.mail.*;
import javax.mail.internet.*;
import.java.util.*;
public class Email {
public void sendSimpleMail (String mailServer, String subject,
String to,String from, String mensagem)
throws AddressException, MessageException {
Properties mailProps = new Properties();
// Difina o seu SMTP de envio
mailProps.put("mail.smtp.host", mailServer)
Session mailSession = Session.getDefaultInstance(mailProps, null);
// Colocando no formato de endereço
// Necessariamente e-mail válidos, pois os dados passados pelos parâmetros to e from.
InternetAdress destinatario = new InternetAdress (to);
InternetAdress remetente = new InternetAdress (from);
// Setamento de Atributos e Propriedas necessárias do objeto "message" para que o email seja enviado.
Message message = new MimeMessage (mailSession);
// Remetente do Envio
message.setFrom(remetente);
// Os possíveis tipos de destinatário: TO, CC, BCC
message.setRecipient( Message.RecipientType.TO, destinatário );
// Assunto do E-Mail
message.setSubject (subject);
// Conteúdo da Mensagem
message.setContent (mensagem.toString(), "text/plain");
// Enviado o E-Mail
Transport.send (message);
}
}


