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
FTP
MySQL (Conexão sem DSN)
AspUpload
DSN
Senha em página ASP
AspEmail
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.kinghost.net"
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.kinghost.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>kinghost - 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.
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.kinghost.net;uid=usuario;pwd=senha;database=banco_de_dados"
cnnDB.Open
%>
A kinghost não criará DSN para banco Mysql, todas as conexões terão que ser feitas via ODBC*
* Exceto registro de DSN para coldfusion.
O AspUpload é um objeto da linguagem ASP que permite o envio de arquivos, para sua conta, através da interface Web.
A kinghost 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".
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.
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@kinghost.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).
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") = "kinghost" 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") = "kinghost" then, se define o usuário e senha. O usuário é "teste" e senha
"kinghost"
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.
Segue abaixo um exemplo de código AspE-mail:
<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp-web.kinghost.net" ' 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
