Ted k’ É assim que tem que ser! Programando em ASP, ASP.NET, PHP, CSS, dentre outras…


27
Feb/08
2


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/08
19


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/08
0


Imagens Aleatórias : Randomize

Mais um randomize de Imagens adaptado para as necessidade básicas

  1.  
  2. <%@ Language="VBScript" %>
  3. <% Option Explicit %>
  4.  
  5. <%
  6. Function RandomDeImagens(strPath,strDefault)
  7. On Error Resume Next
  8. Randomize Timer
  9.  
  10. Dim ObjDeFSO, objFolder, ObjDaPasta, ObjPasta02
  11. Dim StrPastas, StrImagens, StrBase, StrPasta
  12. Const strValid = ".gif.jpg.png"
  13.  
  14. If Right(strPath,1) <> Chr(47) Then strPath = strPath & Chr(47)
  15.  
  16. StrBase = Server.MapPath(strPath)
  17. Set ObjDeFSO = Server.CreateObject("Scripting.FileSystemObject")
  18.  
  19. Set objFolder = ObjDeFSO.GetFolder(StrBase)
  20. Set ObjDaPasta = objFolder.Files
  21.  
  22. For Each ObjPasta02 In ObjDaPasta
  23. StrPasta = LCase(ObjPasta02.Name)If Instr(strValid,Right(StrPasta,4)) Then
  24. StrPastas = StrPastas & StrPasta & VbTab
  25. End If
  26. Next
  27.  
  28. StrImagens = Split(StrPastas,VbTab)
  29.  
  30. If UBound(StrImagens) > 1 Then
  31. RandomDeImagens = strPath & StrImagens(Int(Rnd(1)*UBound(StrImagens)))
  32. Else
  33. RandomDeImagens = strDefault
  34. End If
  35.  
  36. End Function
  37. %>
  38. <p align="center"> </p>
  39.  
  40. <center>
  41. <table border="1" bordercolor="#000000"><tbody>
  42. <tr>
  43. <td bgcolor="#ffffff">
  44. <!-- a pasta developercenter é relacionanda a sua pasta principal -->
  45. <img src="<%=RandomDeImagens%>" />
  46. </td>
  47. </tr>
  48. </tbody></table>
  49. </center>
23
Feb/08
2


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!

  1.  
  2. <%
  3. TedkBanco.CursorLocation = 3
  4. Set TedkDados = Server.CreateObject( "Adodb.RecordSet")
  5. TedkDados.Pagesize = 30
  6. TedkDados.Open "Select NomeNewsletterEMail, EMailNewsletterEMail From adminNewsletterEMail Order By NomeNewsletterEMail Asc",TedkBanco
  7.  
  8. If TedkDados.Eof Then
  9. Response.Write("")
  10. Else
  11.  
  12. PaginaAtual = CInt(Request.Querystring( "Pages"))
  13.  
  14. If PaginaAtual = 0 Then
  15. PaginaAtual = 1
  16. End If
  17.  
  18. TedkDados.AbsolutePage = PaginaAtual
  19. Num = TedkDados.PageCount
  20.  
  21. While Not TedkDados.Eof And TedkDados.AbsolutePage = PaginaAtual
  22. % >
  23.  
  24. <%
  25. TedkDados.MoveNext : Wend
  26. Anterior = PaginaAtual - 1
  27. Proximo = PaginaAtual + 1
  28.  
  29. If Anterior <= 0 Then
  30. Anterior = 1
  31. End If
  32.  
  33. If Proximo > TedkDados.PageCount Then
  34. Proximo = TedkDados.PageCount
  35. End If
  36. % >
  37.  
  38. <table border="0" cellpadding="0" cellspacing="2" width="100%"><tbody>
  39. <tr>
  40. <td class="classFonte01" bgcolor="#ebebeb" height="30" width="44%"><strong>Nome</strong></td>
  41. <td class="classFonte01" bgcolor="#ebebeb" width="47%"><strong>E-Mail</strong></td>
  42. </tr>
  43. <tr>
  44. <td class="classFonte01" bgcolor="#f7f7f7" height="22"><% Response.Write(TedkDados("NomeNewsletterEMail")) %></td>
  45. <td class="classFonte01" bgcolor="#f7f7f7"><% Response.Write(TedkDados("EMailNewsletterEMail")) %></td>
  46. </tr>
  47. <tr>
  48. <td colspan="2" class="classFonte01" align="right" bgcolor="#ebebeb" height="30"><strong>Paginas:</strong> <%
  49. Jo = 1
  50. While Jo <= TedkDados.PageCountIf PaginaAtual = Jo Then
  51. Response.Write( "["&Jo&"]  ")
  52. Else
  53. Response.Write( "<a default.asp?pages="&Jo&">"&Jo&"</a>  ")
  54. End IfJo = Jo + 1
  55. Wend
  56. End If
  57. %></td>
  58. </tr>
  59. </tbody></table>
  60.  

Aproveitem... 100% Testado no MySQL

Filed under: ASP
23
Feb/08
2


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);
}
}

Página 21 de 22« Início...«13141516171819202122»



Portfólio Ted k'

Atualize seu Navegador