| Hospedagem
- Ajuda - Manual de Conta Asp
Active Server
Pages (ASP) é um ambiente de programação que fornece
a habilidade de combinar HTML, scripting e componentes
para criar aplicações Internet que rodam em seu
servidor. Você pode criar interfaces HTML para
suas aplicações adicionando comandos de scripts
em suas páginas e pode encapsular sua lógica em
códigos reutilizáveis (O usuário não pode ver
o código fonte do script original). Você pode
também utilizar componentes instalados em nossos
servidores em seus scripts.
Aspmail
Asp e MC Access
MySQL (Conexão sem DSN)
AspUpload
DSN
Senha em página ASP
AspEmail
AspMail
O ASPMail é um componete que
possibilita enviar e-mails por páginas Web. Esse
objeto é normalmente utilizado para desenvolvimento
de formulários. O Aspmail só está disponível para
contas ASP.
Disponibilizamos um exemplo do
AspMail para envio de e-mail por páginas Web.
Em <--Início ASP--> estão os códigos ASP
para envio do e-mail e em <--Início HTML-->
está a parte responsável por chamar os códigos
ASP para o envio do e-mail.
Copie os códigos do exemplo abaixo
e crie uma página ASP com o nome de aspmail.asp.
Este arquivo deve conter as partes <--Início
ASP--> e <--Início HTML--> juntas, uma
abaixo da outra. Faça o upload do arquivo aspmail.asp
no diretório de sua preferência (dentro da pasta
www).
Para o funcionamento correto
do script, em <--Início ASP-->, altere apenas
os campos abaixo:
Em Mailer.FromName = "Seu_Nome",
substitua a parte "Seu_Nome" pelo nome
do Remetente do E-mail (seu nome).
Na linha Mailer.FromAddress = "seu_nome@seudominio.com.br"
substitua o endereço de e-mail "seu_nome@seudominio.com.br"
pelo endereço de e-mail remetente (seu e-mail).
Na linha Mailer.RemoteHost = "smtp-web.beno.com.br"
Copie os códigos aqui :
<--Início ASP-->
<%
if request("botao")
= "enviar" then
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Seu_Nome"
Mailer.FromAddress= "seu_nome@seudominio.com.br"
Mailer.RemoteHost = "smtp-web.beno.net"
Mailer.AddRecipient "teste",
request.form("para")
Mailer.Subject = request.form("assunto")
Mailer.BodyText = request.form("mensagem")
if Mailer.SendMail then
Response.Write "E-MAIL ENVIADO COM
SUCESSO!"
else
Response.Write mailer.response
end if
response.end
end if
%> |
<--Fim ASP-->
<--Início HTML-->
<html>
<head>
<title>BENO - Exemplo de AspMail</title>
<head>
<body>
<form method="POST" action="aspmail.asp">
<p>AspMail - Envio de E-mail através
de página Web</p>
<table border="0" width="100%">
<tr>
<td width="14%">Para :</td>
<td width="86%"><input
type="text" name="para"
size="20"></td>
</tr>
<tr>
<td width="14%">Assunto
:</td>
<td width="86%"><input
type="text" name="assunto"
size="20"></td>
</tr>
<tr>
<td width="14%">Mensagem
:</td>
<td width="86%"><textarea
rows="2" name="mensagem"
cols="20"></textarea></td>
</tr>
<tr>
<td width="14%"></td>
<td width="86%"><input
type="submit" value="enviar"
name="botao"></td>
</tr>
</table>
</form>
</body>
</html>
|
<--Fim HTML-->
* Por se tratar de programação
ASP, não ofereceremos suporte se os códigos do
exemplo forem alterados para inclusões de campos
adicionais ou demais alterações.
Asp
e MC Access
Utilizando o MsAcces, é possível
compartilhar informações com recursos para criação
e publicação de páginas interativas na Web com
links ativos para o seu banco de dados.
Esse recurso permite que os usuários
estendam os aplicativos do banco de dados para
a internet, criando páginas de HTML vinculadas
a dados para consulta, atualização de páginas,
etc...
Disponibilizamos um exemplo de
integração de um banco de dados MsAccess 97 utilizando
ASP (Active Server Pages).
1 - Criar o Banco de Dados
Seguindo nosso exemplo, você
deverá criar um banco de dados com o nome de contatos.mdb.
Este banco deve conter uma tabela com o nome de
"contatos" e campos "nome"
e "email". Adicione alguns registros
nesse banco de dados, eles serão apresentados
em na página .asp que criaremos.
2 - Criar uma página .asp para
apresentação dos dados do banco.
Copie o código abaixo e crie
uma página .asp com o nome de contatos.asp.
Nos códigos, criamos duas tabelas;
uma em html normal, e outra com os códigos ASP
responsáveis por receber as informações do banco
de dados e apresenta-las na página.
Copie os códigos aqui :
<--Início-->
<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Set Infobanco= Server.CreateObject("ADODB.RecordSet")
Conexao.Open "DBQ=D:\web\localuser\seu_login\banco\nome_do_banco.mdb;Driver={Microsoft
Access Driver (*.mdb)}"
Infobanco.Open "contatos",Conexao
%>
|
<html>
<body>
<table border="1" width="322">
<% While Not Infobanco.EOF %>
<tr>
<td><%= Infobanco("nome")
%></td>
<td><%= Infobanco("email")
%></td>
<tr>
<%
Infobanco.MoveNext
Wend
%>
</table>
<p>Código html sem ASP</p>
<table border="1" width="322">
<td width="92">Silva</td>
<td width="214">silva@dominio.com.br</td>
</tr>
<tr>
<td width="92">Ana</td>
<td width="214">anana@provedor.com.br</td>
</td>
</tr>
</table>
</body>
</html>
|
<%
Infobanco.Close
Conexao.Close
Set Infobanco = Nothing
Set Conexao = Nothing
%>
|
<--Fim-->
3 - Configurar o arquivo contatos.asp
para sua conta
A única alteração para o funcionamento
do exemplo é na linha:
d:\web\localuser\seu_login\banco\nome_do_banco.mdb
Esse é o caminho físico para
acesso ao banco de dados. Em "seulogin"
altere pelo login de FTP de sua conta e em nome_do_banco.mdb,
pelo nome do banco, no exemplo contatos.mdb
Entenda o código:
Vamos dividir o código do exemplo
em algumas partes e explicar o funcionamento de
cada uma:
Os códigos abaixo define o caminho
de acesso ao banco abre a conexão com o banco
em sua conta.
<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Set Infobanco= Server.CreateObject("ADODB.RecordSet")
Conexao.Open "DBQ=D:\web\localuser\seu_login\banco\nome_do_banco.mdb;Driver={Microsoft
Access Driver (*.mdb)}"
Infobanco.Open "contatos",Conexao
%>
|
<--Fim ASP-->
- A parte que se inicia o HTML,
configura uma tabela para receber os dados do
banco. Note que a tabela ASP que receberá os dados
do banco é diferente da tabela HTML. Compare os
códigos:
ASP
<html>
<body>
<table border="1" width="322">
<% While Not Infobanco.EOF %>
<tr>
<td><%= Infobanco("nome")
%></td>
<td><%= Infobanco("email")
%></td>
<tr>
HTML
</table>
<p>Código html sem ASP</p>
<table border="1" width="322">
<td width="92">Silva</td>
<td width="214">silva@dominio.com.br</td>
</tr>
<tr>
<td width="92">Ana</td>
<td width="214">anana@provedor.com.br</td>
</td>
</tr>
</table>
</body>
</html>
|
- Estes comandos são responsáveis
por efetuar o looping no banco para apresentar
todos os dados.
<%
Infobanco.MoveNext
Wend
%>
|
- Para finalizar, deve-se fechar
a conexão com o banco de dados com os códigos
abaixo:
<%
Infobanco.Close
Conexao.Close
Set Infobanco = Nothing
Set Conexao = Nothing
%>
|
NOTA: Se os
campos ou nome da tabela no banco de dados "contatos.mdb
" ou campos do arquivo exemplo "contatos.asp"
forem alterados, poderão não funcionar corretamente
por se tratar de programação ASP.
Não ofereceremos suporte se os
códigos do exemplo forem alterados para inclusões
de campos adicionais ou demais alterações.
Publicar os arquivos no FTP e
realizar o teste de acesso via Web
Você pode publicar seus arquivos
utilizando um programa de FTP. O arquivo "contatos.mdb"
deve ser publicado no diretório "banco"
de seu FTP. Ele contém as permissões necessárias
para acesso a bancos de dados.
O arquivo contatos.asp deve ser
publicado no diretório "www" que é o
diretório raiz de sua conta, onde deverão ficar
suas páginas, imagens, etc...
Mais detalhes sobre publicação
FTP , Clique Aqui
Conectando
bancos de dados MySQL no ASP
O servidor de banco de dados
MySQL não é mais uma exclusividade dos servidores
Linux, nem da linguagem PHP. Com o MyODBC, um
driver ODBC para acessar servidores MySQL, diversos
programas e outras linguagens também podem usar
essa poderosa ferramenta. Dentre eles, o Visual
Basic, o Delphi, o Excel, o Cold Fusion e o ASP.
São Muitas vantagens.
O MySQL é mais eficiente que o Access, portanto,
o seu site pode ficar muito mais rápido sem que
seja feita nenhuma alteração na programação. Além
disso, se você desenvolve sites em diversas linguagens,
não precisa criar bancos de dados duplicados (um
no SQL Server, outro no MySQL, e outros) pois
tudo pode ficar num só local, economizando tempo
no desenvolvimento do site.
Conexão sem DSN:
A principal diferença entre uma
conexão com DSN e outra sem é quem neste segundo
método as informações que você configurou no ODBC
são digitadas diretamente no código ASP, sem nenhuma
interfase do Windows.
A opção diver define o tipo de
banco de dados, a server informa o endereço do
servidor, a uid e a pwd os dados do seu usuário
e a database seleciona o banco de dados.
<%
Set cnnDB = Server.CreateObject("ADODB.Connection")
cnnDB.ConnectionString = "driver=MySQL;server=mysql.beno.net;uid=usuario;pwd=senha;database=banco_de_dados"
cnnDB.Open
%>
|
A BENO não criará DSN para banco
Mysql, todas as conexões terão que ser feitas
via ODBC*
* Exceto registro de DSN para coldfusion.
AspUpload
O AspUpload é um objeto da linguagem
ASP que permite o envio de arquivos, para sua
conta, através da interface Web.
A BENO disponibiliza um modelo
de AspUpload para seu site.
AspUpload
Para utilizar o AspUpload, é
necessário criar dois arquivos. O primeiro arquivo
é responsável por selecionar os arquivos para
upload e "chamar" o código ASP que irá
executar o upload. O segundo receberá as informações
dos arquivos selecionados para envia-los ao servidor.
O AspUpload já está ativo em
todas as contas ASP, para utilizá-lo, siga os
passos abaixo :
1. Copie abaixo os códigos <--Início
seleciona.asp--> e salve com o nome "seleciona.asp".
Esse será o primeiro arquivo.
2. Copie os códigos <--Início
aspupload.asp--> e salve com o nome "aspupload.asp".
Esse será o segundo arquivo.
Para o funcionamendo correto
do script, em <--Início aspupload.asp-->,
altere apenas os campos abaixo:
Em Set Upload = Server.CreateObject("Persits.Upload")
Count = Upload.Save("d:\web\seu_login\www")
altere a parte "seu_login" pelo nome
do seu login utilizado para FTP. O caminho "d:\web\seu_login\www"
se refere ao caminho de sua conta. Neste exemplo,
os arquivos serão enviados para o diretório "www".
Para o funcionamento correto
do script, você deve criar um diretório chamado
upload e solicitar a "permissão de gravação"
nesse diretório através do nosso e-mail suporte@beno.com.br.
Se você desejar outro nome para
o diretório, apenas altere na linha "d:\web\seu_login\www\upload"
a parte "upload", pelo nome do diretório
desejado e solicite a setagem com o nome do diretório
criado.
3. Faça o upload dos arquivos
no diretório "upload" ou no diretório
escolhido (dentro do www).
Copie os códigos aqui :
<--Início seleciona.asp-->
<HTML>
<BODY BGCOLOR="white">
<H1>AspSmartUpload : Selecione os
Arquivos</H1>
<HR>
<FORM METHOD="POST" ACTION="aspupload.asp"
ENCTYPE="multipart/form-data">
<INPUT TYPE="FILE" NAME="FILE1"
SIZE="50"><BR>
<INPUT TYPE="FILE" NAME="FILE2"
SIZE="50"><BR>
<INPUT TYPE="FILE" NAME="FILE3"
SIZE="50"><BR>
<INPUT TYPE="FILE" NAME="FILE4"
SIZE="50"><BR>
<INPUT TYPE="SUBMIT" VALUE="Upload">
</FORM>
</BODY>
</HTML> |
<--Fim seleciona.asp-->
<--Inicio aspupload.asp-->
<HTML>
<BODY>
<%
Set Upload = Server.CreateObject("Persits.Upload")
Count = Upload.Save("d:\web\localuser\login\www")
Response.Write Count & " Arquivo(s)
enviados com sucesso"
%>
</BODY>
</HTML>
|
<--Fim aspupload.asp-->
Por se tratar de programação
ASP, não ofereceremos suporte se os códigos do
exemplo forem alterados para inclusões de campos
adicionais ou demais alterações.
DSN
- Data Source Name
Em sua conta ASP, você também
poderá trabalhar com DSN (Data Source Name), em
suas aplicações ASP.
A criação do DSN sempre será
realizada por nossa equipe de suporte técnico.
Para isso, basta entrar em contato conosco através
de do e-mail de suporte suporte@beno.com.br, nos
informando o nome do seu banco de dados e a localização
dele.
Aconselhamos que seus bancos
de dados sejam armazenados dentro de sua pasta
dados, pois esta já tem todas as permissões necessárias
para o correto funcionamento de seu banco de dados,
e ela está em um nível mais seguro de sua conta,
onde esta pasta nunca conseguirá ser acessada
via http.
Exemplo
Veja o exemplo de uma conexão
ao banco de dados, com dsn com login e senha:
<%
set Conn = server.createobject("adodb.connection")
Conn.open "DSN=dsn"
%>
|
Onde "dsn" será o nome
do DSN solicitada (seu login).
Senha
em página ASP
Utilizando o exemplo abaixo,
você poderá restringir o acesso a uma página ASP,
definindo login e senha para acesso.
Exemplo: O código é dividido em 3 partes. A primeira
parte se define o usuário e senha, a segunda parte
são os códigos da página protegida e a terceira
parte é o formulário que receberá os dados de
usuário e senha. O código é único, ou seja, não
deve ser criado arquivos separados.
Para utilizar o exemplo, basta
alterar o nome do usuário e senha, e incluir os
códigos de sua página na parte de página protegida.
Para testar o modelo, copie o código abaixo e
crie um arquivo chamado senha.asp.
<--Início senha.asp-->
<%
if request("botao")
= "enviar" then
if request("usuario") = "teste"
and request("senha") = "beno01"
then
%>
<p align="center"><font
face="Verdana" size="6">
Essa é a página Secreta !!!</font></p>
<%
response.end
end if
end if
%>
<form method="POST"
action="senha.asp">
Login: <input type="text"
name="usuario" size="20"><br>
Senha: <input type="password"
name="senha" size="20"><br>
<input type="submit" value="enviar"
name="botao">
</form>
</html>
|
<--Fim senha.asp-->
Descrições
Na linha if request("usuario")
= "teste" and request("senha")
= "beno01" then, se define o usuário
e senha. O usuário é "teste" e senha
"beno01"
Na Linha <p align="center"><font
face="Verdana" size="6">,
Essa é a página Secreta !!!</font></p>,
se inicia o código da página protegida.
Na linha <form method="POST" action="senha.asp">,
se inicia o código do formulário que receberá
os dados de usuário e senha.
AspEmail
Segue abaixo um exemplo de código
AspE-mail:
<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp-web.beno.com.br"
' Specify a valid SMTP server
Mail.From = "sales@veryhotcakes.com"
' Specify sender's address
Mail.FromName = "VeryHotCakes Sales"
' Specify sender's name
Mail.AddAddress "andy@andrewscompany.net",
"Andrew Johnson, Jr."
Mail.AddAddress "paul@paulscompany.com"
' Name is optional
Mail.AddReplyTo "info@veryhotcakes.com"
Mail.AddAttachment "d:\web\localuser\login\dados\cakes.gif"
Mail.Subject = "Thanks for ordering
our hot cakes!"
Mail.Body = "Dear Sir:" &
Chr(13) & Chr(10) & _
"Thank you for your business."
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered:
" & Err.Description
End If
%>
|
Voltar
|
