Central do Cliente Onda :: Suporte Online :: Configurações de Hospedagem

Central do Cliente / Suporte Online / Configurações de Hospedagem / Windows

Clique no título desejado e confira alguns exemplos de programação, que podem ser utilizados em servidores baseados em Windows.

Access

Abaixo segue o modelo para efetuar o acesso a arquivos MDB através de ASP.

## INÍCIO DO CÓDIGO
## INÍCIO DO CÓDIGO
<%
  Set Conn = Server.CreateObject("ADODB.Connection")
  DSNtest1="DRIVER={Microsoft Access Driver (*.mdb)}; "
  & "DBQ=" & Server.MapPath("/diretorio/arquivo.mdb")
  Conn.Open DSNtest1
%>
## TÉRMINO DO CÓDIGO

Aspmail

Abaixo segue o modelo para utilizar o AspEmail.

## INÍCIO DO CÓDIGO
<%
' Servidor de SMTP
strHost = "smtp.onda.com.br"

If Request("Send") <> "" Then

Set Mail = Server.CreateObject("Persits.MailSender")
' Servidor de SMTP
Mail.Host = strHost

Mail.From = Request("From") ' Campo FROM
Mail.FromName = Request("FromName") ' Nome de Envio - opcional
Mail.AddAddress Request("To") ' Campo PARA

' Assunto da Mensagem
Mail.Subject = Request("Subject")
' Corpo de Mensagem
Mail.Body = Request("Body")

strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
End If
%>

<HTML>
<HEAD>
<TITLE>AspEmail</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">

<H2>AspEmail</h2>

<% If strErr <> "" Then %>
<h3><FONT COLOR="#FF0000">Error occurred: 
<I><% = strErr %></I></FONT></h3>
<% End If %>

<% If bSuccess Then %>
<h3><FONT COLOR="#00A000">
Sucesso! Mensagem enviada para <% = Request("To") %>
</FONT></h3>
<% End If %>

<FORM METHOD="POST" ACTION="index.asp">
<TABLE CELLSPACING=0 CELLPADDING=2 BGCOLOR="#E0E0E0">
<TR>
<TD>Host:</TD>
<TD><B><% = strHost %></B></TD>
</TR>
<TR>
<TD>Destinatario:</TD>
<TD><INPUT TYPE="TEXT" NAME="From"></TD>
</TR>
<TR>
<TD>Nome Destinatario (opcional):</TD>
<TD><INPUT TYPE="TEXT" NAME="FromName"></TD>
</TR>
<TR>
<TD>Para:</TD>
<TD><INPUT TYPE="TEXT" NAME="To"></TD>
</TR>
<TR>
<TD>Assunto:</TD>
<TD><INPUT TYPE="TEXT" NAME="Subject"></TD>
</TR>
<TR>
<TD>Mensagem:</TD>
<TD><TEXTAREA NAME="Body"></TEXTAREA></TD>
</TR>
<TR>
<TD COLSPAN=2>
<INPUT TYPE="SUBMIT" NAME="Send" VALUE="Enviar Mensagem">
</TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>
## TÉRMINO DO CÓDIGO

Asp .NET

Em virtude da integração de algumas ferramentas de Desenvolvimento Asp.Net com o Internet Information Services (IIS) suas funcionalidades ficam restritas quando utilizadas em hospedagem compartilhada. Caso seja necessária a criação de diretório virtual, envie um e-mail para web@onda.com.br com a solicitação contendo o nome do diretório virtual e o nome do diretório físico referente ao mesmo.

Aspupload

Abaixo segue o modelo para utilizar o AspUpload.

## INÍCIO DO CÓDIGO - INDEX.ASP 
<HTML>
<BODY BGCOLOR="#FFFFFF">
<FORM METHOD="POST" ENCTYPE="multipart/form-data" 
ACTION="UploadScript1.asp">
<INPUT TYPE=FILE SIZE=60 NAME="FILE1"><BR>
<INPUT TYPE=FILE SIZE=60 NAME="FILE2"><BR>
<INPUT TYPE=FILE SIZE=60 NAME="FILE3"><BR>
<INPUT TYPE=SUBMIT VALUE="Upload!">
</FORM>
</BODY>
</HTML>
## TÉRMINO DO CÓDIGO - INDEX.ASP

## INÍCIO DO CÓDIGO - UPLOADSCRIPT1.ASP
<HTML>
<BODY BGCOLOR="#FFFFFF">

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = Upload.Save(Server.MapPath("/aspupload"))
%>

<% = Count %> files uploaded.

</BODY>
</HTML>
## TÉRMINO DO CÓDIGO - UPLOADSCRIPT1.ASP

Smart Upload

Abaixo segue o modelo para utilizar o Smart Upload.

## INÍCIO DO CÓDIGO - INDEX.HTML
<HTML>
<BODY>
HEAD>
<TITLE>Fazendo Upload de arquivos</TITLE>
</HEAD>
<form method="POST" action="envia.asp" enctype="multipart/form-data">
<input type="file" name="Arquivo" size="20">
<input type="submit" value="Enviar" name="B1">
</form>
</BODY>
</HTML>

## INÍCIO DO CÓDIGO - UPLOAD.ASP
<HTML>
<HEAD>
<TITLE>Fazendo Upload de Arquivos</TITLE>
</HEAD>
<BODY>
<%
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.TotalMaxFileSize = 2000000
mySmartUpload.Upload
mySmartUpload.Save("/aspsmartupload")
%>
<strong>Arquivo enviado com sucesso !</strong>
</BODY>
</HTML>

Chart Director

Abaixo segue o modelo para utilizar o Chart Director.

## INÍCIO DO CÓDIGO - INDEX.HTML
<%@ language="vbscript" %>
<%
Set cd = CreateObject("ChartDirector.API")
'The data for the pie chart
data = Array(25, 18, 15, 12, 8, 30, 35)

'The labels for the pie chart
labels = Array("Labor", "Licenses", "Taxes", "Legal", "Insurance", _
"Facilities", "Production")

'Create a PieChart object of size 360 x 300 pixels
Set c = cd.PieChart(360, 300)

'Set the center of the pie at (180, 140) and the radius to 100 pixels
Call c.setPieSize(180, 140, 100)

'Set the pie data and the pie labels
Call c.setData(data, labels)

'output the chart
Response.ContentType = "image/png"
Response.BinaryWrite c.makeChart2(cd.PNG)
Response.End%>
## TÉRMINO DO CÓDIGO - INDEX.HTML

Cdonts

Abaixo segue o modelo para utilizar o Cdonts.

## INÍCIO DO CÓDIGO <%
if request("botao") = "enviar" then
Dim objNovoEmail
Set objNovoEmail = Server.CreateObject("CDONTS.NovoEmail")
objNovoEmail.From = "remetente@dominio.com.br"
objNovoEmail.To = request("para")
objNovoEmail.Subject = request("assunto")
objNovoEmail.Body = request("corpo")
e=objNovoEmail.Send

if e then
Response.Write "Mensagem não enviada"
else
Response.Write "Mensagem enviada com sucesso"
end if
response.end
end if


%>

<html>
<body>
<form method="POST" action="index.asp">
<table border="0" width="43%">
<tr>
<td width="13%"><strong>Para:</strong></td>
<td width="87%"><input type="text" name="para" size="32"></td>
</tr>
<tr>
<td width="13%"><strong>Assunto:</strong></td>
<td width="87%"><input type="text" name="assunto" size="32"></td>
</tr>
<tr>
<td width="13%"><strong>Mensagem:</strong></td>
<td width="87%">
<textarea rows="7" name="corpo" cols="43"></textarea>
</td>
</tr>
<tr>
<td width="13%"></td>
<td width="87%"><input type="submit" value="enviar" name="botao"></td>
</tr>
</table>
</form>
</body>
</html>
## TÉRMINO DO CÓDIGO

Dundas Upload

Abaixo segue o modelo para utilizar o Dundas Upload.

## INÍCIO DO CÓDIGO - INDEX.HTML
<HTML>
<HEAD>
<TITLE>Fazendo Upload de Arquivos</TITLE>
</HEAD>
<BODY>

<form enctype="multipart/form-data" method="post" action="upload.asp">
Anexo1: <input type="file" value="anexo" name="file">
Anexo2: <input type="file" value="anexo" name="file2">
Anexo3: <input type="file" value="anexo" name="file3">
<input type="submit" value="enviar" name="submit">
</form>

</BODY>
</HTML>
## TÉRMINO DO CÓDIGO - INDEX.HTML

## INÍCIO DO CÓDIGO - UPLOAD.ASP <HTML>
<HEAD>
<TITLE>Fazendo Upload de Arquivos</TITLE>
</HEAD>
<BODY>

<%
On Error Resume Next

Dim objUpload
Set objUpload = Server.CreateObject("Dundas.Upload.2")
objUpload.UseVirtualDir = True
objUpload.UseUniqueNames = False
objUpload.Save "/upload"
Set objUpload = Nothing

If Err <> 0 Then
Response.Write "Houve um erro e o upload dos arquivos não foi efetuado."
& "Descrição do erro: "
" & Err.Description & "Número do erro: " & Err.Number
Else
Response.Write "O upload dos arquivos foi efetuado com sucesso!"

End If

%>

</BODY>
</HTML>

## TÉRMINO DO CÓDIGO - UPLOAD.ASP

Jmail

Abaixo segue o modelo para utilizar o componente JMail.

## INÍCIO DO CÓDIGO

<html>
<body>
<%
' Cria Objeto JMAIL
set msg = Server.CreateOBject( "JMail.Message" )

' Email do Remetente, é necessário ser um endereço valido
msg.From = "remetente@dominio.com.br"
msg.FromName = "Nome Remetenet"
' Email e nome do Destinatario. Pode ser especificado mais de um Email.
msg.AddRecipient "destinatario@dominio.com.br", "Destinatario"

' Assunto da Mensagem
msg.Subject = "Teste J-Mail"

' Corpo da Mensagem.
msg.Body = "Teste de E-mail"

if not msg.Send("smtp.onda.com.br" ) then
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "Mensagem enviada com sucesso !"
end if
%>
</body>
</html>
## TÉRMINO DO CÓDIGO

Loja Visanet

Efetue o download do arquivo em http://www.visanet.onda.com.br/lojavbv-cliente.zip.
Depois de descompactado é necessário editar os seguintes arquivos:

	- lojavbv-cliente/pagina05.asp
Alterar, se for o caso, o nome do diretório padrão (lojavbv-cliente) nas
linhas 94, 95 e 99
Alterar, se for o caso, o nome do arquivo de configuração na linha 132

	- lojavbv-cliente/pagina06.asp
Alterar, se for o caso, o nome do diretório padrão (lojavbv-cliente) na
linha 42

	- lojavbv-cliente/componentes_vbv/cfglojavisa.ini
Alterar todas as ocorrências do parâmetro "SEUDOMINIO" (linhas 07, 08,
09, 10, 11, 12, 17, 23, 35 e 49) pelo domínio que terá a loja VisaNet.
Alterar todas as ocorrências do parâmetro "LOGIN" (linhas 35 e 49) pelo
login responsável pelo domínio que terá a loja VisaNet.
Alterar o valor "SUACHAVE" (linha 35) pelo valor da chave fornecido
pela VisaNet.

	- lojavbv-cliente/componentes_vbv/keys
Enviar a chave fornecida pelo VisaNet ao
diretório "lojavbv-cliente/componentes_vbv/keys/"

Após efetuar os procedimentos acima é necessário solicitar a criação do "diretório virtual" que irá funcionar a loja, através do e-mail web@onda.com.br.

SQL Server

Abaixo segue o modelo para acessar o Banco de Dados MS SQL através de ASP.

## INÍCIO DO CÓDIGO
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSNtest="DRIVER={SQL Server};SERVER=guaraquecaba.onda.com.br;
UID=usuario;PWD=senha;DATABASE=nome_banco"
Conn.open DSNtest
%>
## TÉRMINO DO CÓDIGO

Os campos a serem alterados são:
_ usuario Alterar para o login do banco de dados
_ senha Alterar para a senha do banco de dados
_ nome_banco Informar nome do banco de dados

Visual FoxPro

Abaixo segue o modelo para efetuar o acesso a arquivos do Visual Fox Pro através de ASP.

## INÍCIO DO CÓDIGO
<%
  Set Conn = Server.CreateObject("ADODB.Connection")
  DSNtest1="DRIVER={Microsoft Visual FoxPro Driver};
  SourceType=DBC;SourceDB=" & Server.MapPath("/diretorio/arquivo.dbc")
  Conn.Open DSNtest1
%>
## TÉRMINO DO CÓDIGO