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


5
Jul/08
0


Enviando E-Mail com ASP.NET

Uma maneira simples e prática de enviar e-mail com ASP.NET usando o VB, o código está comentado, e bem detalhado para facilitar o entendimento, bom proveito!

Contato.aspx


<%@ Page Language="VB" AutoEventWireup="False" %>
<%@ Import NameSpace="System.Web.Mail" %>
<script src="Contato.vb" runat="server"></script>
<form runat="server">
Preencha o formul&aacute;rio abaixo e aguarde<br>por nossas super promo&ccedil;&otilde;es!
<br><br>
<asp:Label Id="LbMsg" Text="" runat="server" />
<br><br>
<strong>Nome: </strong><br>
<asp:TextBox Id="CmpNome" Columns="25" runat="server" />
<br>
<strong>Assunto: </strong><br>
<asp:TextBox Id="CmpAssunto" Columns="25" runat="server" />
<br>
<strong>Mensagem: </strong><br>
<asp:TextBox Id="CmpMensagem" TextMode="MultiLine" Columns="25" runat="server" />
<br>
<asp:Button Id="BtEnviar" OnClick="BtEnviarMailing" Text="Enviar" runat="server" />
</form>

 

Contato.vb


Sub BtEnviarMailing(Source As Object, E As EventArgs)
	Dim VarMsg, VarCmpNome, VarCmpAssunto, VarCmpMensagem As String
	Dim TedkEmail As New MailMessage

		' Recebendo valores do Formulário
		VarCmpNome = CmpNome.Text
		VarCmpAssunto = CmpAssunto.Text
		VarCmpMensagem = CmpMensagem.Text

	'Alimentando a variável da mensagem
	VarMsg += "<strong>Nome: </strong>"+VarCmpNome+"<br><strong>Assunto: </strong>"+VarCmpAssunto+"<br><strong>Mensagem: </strong>"+VarCmpMensagem+"<strong>"

	' Configurando e-mails de envio "DE" e "PARA" e o Assunto da Mensagem
	TedkEmail.To = "email@email.com"
	TedkEmail.From = "email@email.com"
	TedkEmail.Subject = "Assunto: "+VarCmpAssunto+""
	TedkEmail.Body = VarMsg
	TedkEmail.BodyFormat = MailFormat.Html 'Formato de Envio, no caso HTML

	' Configure o SMTP de Envio
	SmtpMail.SmtpServer = "smtp.servidor.com.br"
	SmtpMail.Send(TedkEmail)

		' Limpando os campos do Formulário
		CmpNome.Text = ""
		CmpEmail.Text = ""
		CmpEndereco.Text = ""
		CmpDia.Text = ""
		CmpMes.Text = ""

	' Mensagem que será postada na pagina inicial
	LbMsg.Text = "Mensagem Enviada com Sucesso!"
End Sub
30
Jun/08
0


Usando a Tag asp:xml ASP.NET

Nada como puxar um XML e configurar ele dentro de um XSL com uma linha só de comando, é possível com a tag
Simples é fácil de utilizar, ela você pode chamar um XML puro com o "DocumentSource" ou modelar no XSL com o "TransformSource"

OBS: Não irei dizer detalhes do XSL pois estou fazendo referências ao ASP.NET, mais de primeira mão, é super fácil.

Então segue abaixo as três páginas que você precisa para modelar tudo

Index.aspx


<%@ Page Language="VB" %>
<html>
<head>
  <title>Gerar XML</title>
</head>
<body>
	<form runat="server">
		<asp:Xml Id="XMLPage" DocumentSource="teste.xml" TransformSource="teste.xsl" runat="server" />
	</form>
</body>
</html>

 

teste.xml


<?xml version="1.0" ?>
<classe_01>
  <bancos>
    <bancos_nome>Access</bancos_nome>
    <bancos_tipo>Database</bancos_tipo>
    <bancos_nome_completo>Microsoft Access</bancos_nome_completo>
    <bancos_linguagens>ASP, ASP.NET</bancos_linguagens>
    <bancos_tamanho>0 MB</bancos_tamanho>
    <bancos_qualidade>5</bancos_qualidade>
  </bancos>
  <bancos>
    <bancos_nome>Oracle</bancos_nome>
    <bancos_tipo>Database</bancos_tipo>
    <bancos_nome_completo>Oracle Database</bancos_nome_completo>
    <bancos_linguagens>ASP, PHP, JSP</bancos_linguagens>
    <bancos_tamanho>200 MB</bancos_tamanho>
    <bancos_qualidade>10</bancos_qualidade>
  </bancos>
  <bancos>
    <bancos_nome>MySQL</bancos_nome>
    <bancos_tipo>Database</bancos_tipo>
    <bancos_nome_completo>MySQL Database</bancos_nome_completo>
    <bancos_linguagens>ASP, PHP, JSP, ASP.NET</bancos_linguagens>
    <bancos_tamanho>0 MB</bancos_tamanho>
    <bancos_qualidade>9</bancos_qualidade>
  </bancos>
  <bancos>
    <bancos_nome>SQL SERVER</bancos_nome>
    <bancos_tipo>Database</bancos_tipo>
    <bancos_nome_completo>Microsoft SQL SERVER 2005</bancos_nome_completo>
    <bancos_linguagens>ASP e ASP.NET</bancos_linguagens>
    <bancos_tamanho>500 MB</bancos_tamanho>
    <bancos_qualidade>10</bancos_qualidade>
  </bancos>
</classe_01>

 

teste.xsl


<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="/">
	<table id="Transform" border="1" cellpadding="3" cellspacing="0" style="font:12px Arial;">
		<tr style="font-weight: bold;">
		  <td>NOME</td>
		  <td>TIPOS</td>
		  <td>COMPLETO</td>
		  <td>LINGUAGENS</td>
		  <td>TAMANHO</td>
		  <td>QUALIDADE</td>
		</tr>
	<xsl:apply-templates select="classe_01/bancos"/>
</table>
</xsl:template>

<xsl:template match="bancos">
    <tr>
      <td><xsl:value-of select="bancos_nome"/></td>
      <td><xsl:value-of select="bancos_tipo"/></td>
      <td><xsl:value-of select="bancos_nome_completo"/></td>
      <td><xsl:value-of select="bancos_linguagens"/></td>
      <td align="center"><xsl:apply-templates select="bancos_tamanho"/></td>
      <td align="center"><xsl:value-of select="bancos_qualidade"/></td>
    </tr>
</xsl:template>
</xsl:stylesheet>
28
Jun/08
3


Pegando o nome da Imagem em campo “file”

De tanto a os usuários lá do iMasters perguntarem sobre como pegar o nome da imagem de um campo "input file" decidir criar esse "micro" script para facilitar e deixar aqui no blog para compartilhar, é simples, nada que umas condições não possam fazer, então vamos lá.

Vamos supor que a variável que criei chamada "Caminho_Foto" está recebendo o valor de um Request.Form() e que esse .Form está chamando o resultado de um "input file" lá do formulário de HTML; então vamos.


   Caminho_Foto = "c:\\teste\imagem.gif"
   Response.Write(Right(Caminho_Foto, Len(Caminho_Foto) - InstrRev(Caminho_Foto,"\")))

É só isso mesmo, simples, simples!!!

Dúvidas? postem!

Acesse também: Webly

27
May/08
2


Gerando Números aleatórios, Randomize

Gerar números randômicos é bem fácil.
Fica mais fácil criar uma função para receber os valores, assim tornando a função "livre" para ser usada em todo o projeto!

<%
Function GerarRandomize(Valores)
	Dim Numeros : Numeros = "0123456789"
	Randomize
	For I = 1 To Valores
		Dim Num : Num = Mid(Numeros, Int(35 * Rnd) + 1, 1)
		Dim Chave : Chave = Chave + Num
	Next
	GerarRandomize = Chave
End Function

Response.Write(GerarRandomize(10)) 'o número 10 significa quandos números serão gerados
%>

Significado das funções:
MID(): Serve para tirar uma string entre dois valores
Sintaxe: MID(String, CaracterInicio, TamanhoSeleção)

RND(): Devolve um numero aleatório.
Antes de se usar esta função, use Randomize, para ele se basear no relógio do sistema e desta maneira não repetir valores.

Qualquer dúvida é só postar:
Acesse também: Webly

21
May/08
0


Resgatando o Menor valor

Variáveis Var_NUMBER_01, Var_NUMBER_02, Var_NUMBER_03, Var_NUMBER_04 iram receber os valores, tratamento com a função Split
O Laço FOR indetifica dentro da variável Valor_DADOS o menor número em comparação ao valor da variável Menor_ para achar o menor valor

Script simples para ser vem adaptado

<%
Var_NUMBER_01 = "433"
Var_NUMBER_02 = "11245"
Var_NUMBER_03 = "712"
Var_NUMBER_04 = "20455"

Valor_DADOS = ""&Var_NUMBER_01&", "&Var_NUMBER_02&", "&Var_NUMBER_03&", "&Var_NUMBER_04&""
Valor_DADOS = Split(Valor_DADOS, ", ")

Menor_ = 1000000

For i = LBound(Valor_DADOS) To UBound(Valor_DADOS)
 If Int(Valor_DADOS(i)) < Int(Menor_) Then
  Menor_ = Valor_DADOS(i)
 End If
Next

Response.Write "Menor Número: " & Menor_
%>

O resultado é: 433

Dicas ou dúvidas relacionadas ao código postado, deixe seu comentário!

Dicas: Webly


Página 3 de 6«123456»



Portfólio Ted k'

Atualize seu Navegador