Neste artigo iremos fazer um banner rotativo em precisar recarregar a página, para isso iremos usa AJAX, ou seja (acrônimo em língua inglesa de Asynchronous Javascript and XML, em português “Javascript e XML Assíncronos”) é o uso metodológico de tecnologias como Javascript e XML, providas por navegadores, para tornar páginas Web mais interativas com o usuário, utilizando-se de solicitações assíncronas de informações. Foi inicialmente desenvolvida pelo estudioso Jessé James Garret e mais tarde por diversas associações, não é um novo modelo para desenvolvimento web. Os navegadores implementam essa tecnologia desde o ano 2000(no mínimo). Porém sua popularização nos últimos anos tem também trazido consigo muitas outras melhorias para a Web. Tem estimulado a construção de aplicações Web mais dinâmicas e criativas. AJAX não é uma tecnologia, mas um conjunto de tecnologias conhecidas trabalhando juntas, cada uma fazendo sua parte, oferecendo novas funcionalidades. AJAX incorpora em seu modelo:
•    Exposição e interação dinâmica usando o DOM;
•    Intercâmbio e manipulação de dados usando XML e XSLT;
•    Recuperação assíncrona de dados usando o objeto XMLHttpRequest e XMLHttpResponse;
•    JavaScript fazendo a junção entre os elementos.
O modelo clássico de aplicação web trabalha assim: a maioria das ações do usuário na interface dispara uma solicitação HTTP para o servidor web. O servidor processa algo, recuperando dados, realizando cálculos, conversando com vários sistemas legados, e então retorna uma página HTML para o cliente. É um modelo adaptado do uso original da Web como um agente de hipertexto, porém o que faz a web boa para hipertexto não necessariamente a faz boa para aplicações de software.
Com a popularização de sistemas que funcionam inteiramente na Web e também com o aumento da velocidade das conexões banda larga, o problema da espera pelo envio e retorno da página inteira se tornou muito mais evidente para o usuário. Obviamente, se nós estivéssemos projetando a Web a partir do zero para aplicações, não faríamos com que os usuários esperassem em vão. Uma vez que a interface está carregada, por que a interação do usuário deveria parar a cada vez que a aplicação precisasse de algo do servidor? Na realidade, por que o usuário deveria ver a aplicação ir ao servidor toda vez?
As principais vantagens das aplicações que utilizam AJAX para determinadas requisições é que os dados trafegados pela rede são reduzidos e o usuário não precisa aguardar a página ser recarregada a cada interação com o servidor.
A popularização das tecnologias que o AJAX reúne foi muito importante para a criação do conceito Web 2.0, que até hoje gera grandes divisões entre os maiores pensadores da Web.
Apesar de não possuir nada inovador em sua essência, o uso de AJAX revolucionou a Web inteira, trazendo à tona muitos conceitos importantes para o desenvolvimento web.
Com um pouco de imaginação, pode ser útil para escrever uma grande variedade de aplicações úteis para a administração diária de um site

Neste artigo vamos olhar para a exibição de um circuito temporizador de rotação de banner, usando ASP como línguas scripting laterais do usuário para acessar o banner AJAX.

Em essência, vamos mostrar um banner na tela, e depois de 10 segundos, ele irá mostrar o outro, sem a necessidade de atualizar a página e acessar um banco de dados gerenciado lado do servidor!

O script ASP

Focamos a nossa atenção sobre a interação entre AJAX e ASP / PHP, em vez de gastar tempo inútil para acessar um banco de dados real (Access ou MySQL), que certamente não para baixo.

Então vamos ver um script simples ASP que contém uma série de banners e exibe na tela uma ao acaso:

<%@LANGUAGE = JScript%>
<%
Response.Buffer = true;
Response.Expires = 0;

var imagem = new Array();
var conexao = new Array();
var acaso;

imagem[0] = “mxstudio.gif”;
conexao[0] = “http://www.mxstudio.com.br/”;

imagem[1] = “forum.gif”;
conexao[1] = ” http://www.mxstudio.com.br/forum/”;

imagem[2] = “tools.gif”;
conexao[2] = ” http://www.mxstudio.com.br/”;

var acaso = Math.floor(Math.random() * imagem.length);
%>
<a href=”<%=conexao[acaso]%>”><img src=”<%=imagem[acaso]%>” border=”0″></a>

Salve o arquivo como banner.asp.

O script AJAX

Vejamos agora o roteiro de AJAX JavaScript que chama o arquivo via XMLHTTP ASP para exibir o banner.

Começamos com a parte do código principal:

var XMLHTTP;

function Pedido()
{
XMLHTTP = RicavaBrowser(CambioStato);
XMLHTTP.open(“GET”, “banner.ext”, true);
XMLHTTP.send(null);
}

Para completar, vemos o resto do código com as funções de JavaScript em apoio do pedido AJAX:

function CambioStato()
{
if (XMLHTTP.readyState == 4)
{
var R = document.getElementById(“resultado”);
R.innerHTML = XMLHTTP.responseText;
}
}

function RicavaBrowser(QualBrowser)
{
if (navigator.userAgent.indexOf(“MSIE”) != (-1))
{
var Classe = “Msxml2.XMLHTTP”;
if (navigator.appVersion.indexOf(“MSIE 5.5″) != (-1));
{
Classe = “Microsoft.XMLHTTP”;
}
try
{
OggettoXMLHTTP = new ActiveXObject(Classe);
OggettoXMLHTTP.onreadystatechange = QualBrowser;
return OggettoXMLHTTP;
}
catch(e)
{
alert(“Error: o ActiveX não foi executado!”);
}
}
else if (navigator.userAgent.indexOf(“Mozilla”) != (-1))
{
OggettoXMLHTTP = new XMLHttpRequest();
OggettoXMLHTTP.onload = QualBrowser;
OggettoXMLHTTP.onerror = QualBrowser;
return OggettoXMLHTTP;
}
else
{
alert(“O exemplo não funciona com outros navegadores!”);
}
}

Salve todo o código Javascript como banner.js.

código HTML

Nós apenas temos que ver o banner na tela de qualquer arquivo HTML (ASP) do nosso site.

Primeiro incluir o arquivo JavaScript:

<script type=”text/javascript” src=”banner.js”></script>
Então, chamamos a função AJAX no carregamento da página e, em seguida, com um temporizador a cada 10 segundos:

<script type=”text/javascript”>
window.onload = function()
{
Pedido();
}
function RecarregarBanner()
{
Pedido();
}
window.setInterval(“RecarregarBanner()”, 10000); // 10 secondi
</script>

Exibimos o banner na tela criando uma camada de texto com uma identificação específica, útil para acesso via AJAX:

<div id=”resultado”></div>

Para testar o exemplo, eu sugiro para diminuir o tempo de espera, reduzindo de 10 segundos para 3 segundos:

window.setInterval(“RecarregarBanner()”, 3000); // 3 segundos

<!–#include file=”clsTreeView.asp”–>
<%
‘declarar seu objeto treeview
Dim objTV

‘criar uma instância de seu treeview
Set objTV = New TreeView

‘adicionar 2 nós para o seu treeview
objTV.AddNode(“Node1″)
objTV.AddNode(“Node2″)

‘adicionar 2 folhas ao seu primeiro nó
objTV.Nodes(0).Add(objTV.CreateNode(“Node 1:1″,”page1.htm”,”Tool                  tip text”))
objTV.Nodes(0).Add(objTV.CreateNode(“Node 1:2″,”page2.htm”,”Tool                  tip text”))

‘adicionar um nó childNode para o seu segundo nó
objTV.Nodes(1).Add(objTV.CreateSimpleNode(“Node 2:1″))

‘adicionar folhas para o seu primeiro filho segundo nó
With objTV.Nodes(1).ChildNodes(0)
.Add(objTV.CreateNode(“Msn Brasil “,”http://br.msn.com”,”Msn Brasil(2:1:1)”))
.Add(objTV.CreateNode(“Burzum “,”http://Burzum.com”,”Burzum(2:1:2)”))

‘adicionar uma imagem diferente para o link Msn Brasil
.ChildNodes(0).ImageUrl=”http://www.msn.com/favicon.ico”
End With

‘mostrar o seu treeview
objTV.Display

‘limpa a memória
Set objTV = Nothing

%>

Usando Múltiplas TreeViews
Se você quiser usar mais de uma treeview na mesma página, adicione um valor de identificação para cada árvore como segue:

‘declarar objetos
Dim objTV1, objTV2

‘criar instâncias de sua treeviews
Set objTV1 = New TreeView
Set objTV2 = New TreeView

‘ID do set treeview
objTV1.ID = “TV1″
objTV2.ID = “TV2″

Carregamento de um banco de dados
Se você quiser carregar o treeview de uma tabela de banco de dados, verifique se você tem uma tabela em seu banco de dados com a seguinte estrutura:

Onde o campo ParentID é o primeiro ancestral do nó de árvore.O ParentID de zero indica um nó raiz na árvore. Os campos URL e ToolTip pode ser deixado vazio para nós não-folha. Você pode então carregar o treeview, chamando o método LoadFromDB da seguinte forma:

TreeView.LoadFromDB (Connection String, Nome da tabela Menu)

O código de exemplo abaixo mostra como carregar o treeview de uma tabela de banco de dados chamado de menu:

<!–#include file=”clsTreeView.asp”–>
<%

‘declare objetos
Dim objTV, strConn

‘definir a sua seqüência de conexão
strConn = “DRIVER={Microsoft Access Driver (*.mdb)};” _
& “DBQ=” & Server.MapPath(“site.mdb”)

‘criar instâncias de seu treeview
Set objTV = New TreeView

‘carregar a treeview da tabela de banco ‘Menu’
Call objTV.LoadFromDB(strConn,”Menu”)

‘exibie o treeview
objTV.Display

‘limpar a memória
Set objTV = Nothing

%>

Você sempre pode modificar o banco de dados e da Classe TreeView (arquivo clsTreeView.asp) para atender às suas necessidades como a adição de um campo ImageURL ou mesmo otimizar o procedimento LoadFromDB.

Exibindo um diretório windows / pasta

Se você quiser exibir o conteúdo de uma pasta como o Windows Explorer, tudo que você tem a fazer é chamar o DisplayFolderContents com o caminho da pasta como mostrado abaixo:

<!–#include file=”clsTreeView.asp”–>
<%

‘declarar os objetos
Dim objTV

‘criar uma instância de seu treeview
Set objTV = New TreeView
Call objTV.DisplayFolderContents(“C:\InetPub\wwwroot”)

‘limpar memória
Set objTV = Nothing

%>

Todos os registros são bastante auto-explicativo com exceção do campo ID. Vamos usá-lo para apresentar o evento desejado.
Uma vez que o banco de dados é feita, você precisa para criar suas páginas ASP. Neste exemplo, vamos usar quatro páginas; calendar.asp, display_event.asp, add_event.asp e edit_event.asp. Você poderia provavelmente começar afastado com apenas duas páginas, mas para a facilidade de uso, vamos criar quatro.
Vamos começar com a página calendar.asp.

<–#include file=”adovbs.inc”–>

Dim DB_CONNECTIONSTRING

Dim objRecordset

DB_CONNECTIONSTRING = “DRIVER={Microsoft Access Driver (*.mdb)};DBQ=” & _

Server.Mappath(“users.mdb”) & “;”

Set objRecordset = Server.CreateObject(“ADODB.Recordset”)

objRecordset.Open “calendar”, DB_CONNECTIONSTRING, adOpenStatic, adLockPessimistic, adCmdTable

Essa parte do código que escreve os dias do calendário e inserir os assuntos de nosso banco de dados com um link para a página display_event.asp. Isso dará a usuários a clicar em algo para veiw todo o evento.

If Not objRecordset.BOF Then

‘– Mover para o primeiro registro

objRecordset.MoveFirst

Do Until objRecordset.EOF

If objRecordset.Fields(“Year”) = Year(dDate) Then

If objRecordset.Fields(“Month”) = Month(dDate) Then

If objRecordset.Fields(“Day”) = iCurrent Then

‘– Se tudo coincide com o dia atual, em seguida, exibir
‘o sujeito com o ID coresponding –

Response.Write(“<br><font size=2><a href=” & _

Chr(34) & “display_event.asp?ID=” & _

objRecordset.Fields(“ID”) & Chr(34) & “>” & _

objRecordset.Fields(“Subject”) & _

“</a></font><br>”)

End If

End If

End If

‘– Se nada corresponde, passar para o próximo registro e
‘começar tudo de novo –

objRecordset.MoveNext

Loop

End If

Temos agora apresentado o tema do evento correto com o ID de evento anexado na URL como uma seqüência de consulta (ex. display_event.asp? ID = 10). Quando o usuário clica sobre o tema do evento, passamos o ID de evento para a página display_event.asp.
Que nos leva à página do evento. Você precisa primeiro se conectar ao banco de dados (o mesmo que acima). Então você precisa para obter o ID de eventos a partir da seqüência de consulta e percorrer o banco de dados até encontrarmos o evento:

EventToShow = CInt(Request.QueryString(“ID”))

If Not objRecordset.EOF Then

objRecordset.MoveFirst

Do Until objRecordset.Fields(“ID”) = EventToShow

objRecordset.MoveNext

Loop

End If

Em seguida, deseja correlacionar o evento exibido com uma variável de sessão para editar e exibir o evento::

Session(“EventToEdit”) = EventToShow

Date:

<%

Response.Write objRecordset.Fields(“Month”) & “/” & _

objRecordset.Fields(“Day”) & “/” & _

objRecordset.Fields(“Year”)

%>

Subject:

<%

Response.Write objRecordset.Fields(“Subject”)

%>

Message: <%= objRecordset.Fields(“Message”) %>

Added By:

<%

Response.Write objRecordset.Fields(“AddedBy”) & _

” on ” & objRecordset.Fields(“DateAdded”)

%>

Não se esqueça de limpar a sua conexão com o banco:

objRecordset.Close
Set objRecordset = Nothing

As próximas duas páginas (edit_event.asp & add_event.asp) são muito semelhantes. A única exceção é que com o evento de edição, queremos mostrar o evento existente dentro do formulário. Como mencionei anteriormente, você poderia provavelmente começar com a combinação destas duas páginas. A única coisa que você precisa manter em mente é com a manipulação do recorset. Na página de atualização, precisamos usar objRecordset.Update, enquanto na página add_event.asp, você vai querer usar objRecordset.AddNew.
Em ambos os casos, precisamos conectar ao banco de dados de entrada e os dados do formulário para os campos, semelhante ao abaixo:

objRecordset.Fields(“Subject”) = Request.Form(“txtSubject”)
objRecordset.Fields(“Message”) = Request.Form(“Message”)
objRecordset.Fields(“Day”) = Request.Form(“txtDay”)
objRecordset.Fields(“Month”) = Request.Form(“txtMonth”)
objRecordset.Fields(“Year”) = Request.Form(“txtYear”)
objRecordset.Fields(“AddedBy”) = Request.Form(“txtAddedBy”)
objRecordset.Fields(“DateAdded”) = Now()

Há obviamente muito mais que você pode fazer com este exemplo, mas isso vai lhe proporcionar um bom ponto de partida. Você pode querer só permitem aos usuários editar / excluir eventos que eles postaram (este é onde o campo AddedBy vem no lugar). Você também pode querer inserir um tempo para o evento. Você poderia código de evento de cor os dias que têm eventos postados.Abaixo todos os códigos das págins.

add_event.asp

<%@ LANGUAGE=VBSCRIPT %>

<%Option Explicit%>

<%

Dim DB_CONNECTIONSTRING

Dim objRecordset

Dim Added

%>

<!–#include file=”adovbs.inc”–>

<%

DB_CONNECTIONSTRING = “DRIVER={Microsoft Access Driver (*.mdb)};DBQ=” & Server.Mappath(“users.mdb”) & “;”

Set objRecordset = Server.CreateObject(“ADODB.Recordset”)

objRecordset.Open “calendar”, DB_CONNECTIONSTRING, adOpenStatic, adLockPessimistic, adCmdTable

If Request.Form(“btnAdd”) = “Add Event” Then

objRecordset.AddNew

‘– Adiciona records no database do form –

objRecordset.Fields(“Subject”) = Request.Form(“txtSubject”)

objRecordset.Fields(“Message”) = Request.Form(“Message”)

objRecordset.Fields(“Day”) = Request.Form(“selDay”)

objRecordset.Fields(“Month”) = Request.Form(“selMonth”)

objRecordset.Fields(“Year”) = Request.Form(“selYear”)

objRecordset.Fields(“AddedBy”) = Request.Form(“txtAddedBy”)

objRecordset.Fields(“DateAdded”) = Now()

objRecordset.Update

Added = “True”

End If

objRecordset.Close

Set objRecordset = Nothing

If Added = “True” Then

Response.Redirect(“calendar.asp”)

End If

%>

<html>

<center>

<form method=”post” action=”add_event.asp”>

<table border=”0″ cellpadding=”0″ cellspacing=”0″>

<tr>

<td>Dia:

<select name=”selDay”>

<option value=”1″>1</option>

<option value=”2″>2</option>

<option value=”3″>3</option>

<option value=”4″>4</option>

<option value=”5″>5</option>

<option value=”6″>6</option>

<option value=”7″>7</option>

<option value=”8″>8</option>

<option value=”9″>9</option>

<option value=”10″>10</option>

<option value=”11″>11</option>

<option value=”12″>12</option>

<option value=”13″>13</option>

<option value=”14″>14</option>

<option value=”15″>15</option>

<option value=”16″>16</option>

<option value=”17″>17</option>

<option value=”18″>18</option>

<option value=”19″>19</option>

<option value=”20″>20</option>

<option value=”21″>21</option>

<option value=”22″>22</option>

<option value=”23″>23</option>

<option value=”24″>24</option>

<option value=”25″>25</option>

<option value=”26″>26</option>

<option value=”27″>27</option>

<option value=”28″>28</option>

<option value=”29″>29</option>

<option value=”30″>30</option>

<option value=”31″>31</option>

</select></td>

<td>Mês:

<select name=”selMonth”>

<OPTION VALUE=”1″>Janeiro</option>

<OPTION VALUE=”2″>Fevereiro</option>

<OPTION VALUE=”3″>Março</option>

<OPTION VALUE=”4″>Abril</option>

<OPTION VALUE=”5″>Maio</option>

<OPTION VALUE=”6″>Junho</option>

<OPTION VALUE=”7″>Julho</option>

<OPTION VALUE=”8″>Agosto</option>

<OPTION VALUE=”9″>Setembro</option>

<OPTION VALUE=”10″>Outubro</option>

<OPTION VALUE=”11″>Novembro</option>

<OPTION VALUE=”12″>Dezembro</option>

</select></td>

<td>Ano:

<select name=”selYear”>

<option value=”1999″>1999</option>

<option value=”2000″>2000</option>

<option value=”2001″>2001</option>

<option value=”2002″>2002</option>

<option value=”2003″>2003</option>

<option value=”2004″>2004</option>

</select></td>

</tr>

<tr>

<td colspan=”3″>&nbsp;</td>

</tr>

<tr>

<td colspan=”3″ align=”center”>Assunto:

<input type=”text” name=”txtSubject” size=”35″></td>

</tr>

<tr>

<td colspan=”3″>&nbsp;</td>

</tr>

<tr>

<td colspan=”3″ align=”center”><textarea name=”Message” cols=”40″ rows=”10″></textarea></td>

</tr>

<tr>

<td colspan=”3″>&nbsp;</td>

</tr>

<tr>

<td colspan=”3″ align=”center”>Adicionado por:

<input type=”text” name=”txtAddedBy” size=”35″ value=”<%= Session(“FirstName”) & ” ” & Session(“LastName”)%>”></td>

</tr>

</table>

<p>

<input type=”submit” name=”btnAdd” value=”Adiciona”>&nbsp;&nbsp;<input type=”Reset” name=”btnReset” value=”Limpar”>

</form>

</center>

</body>

</html>

Aqui a página calendar.asp

<%@ LANGUAGE=VBSCRIPT %>

<%Option Explicit%>

<!–#include file=”adovbs.inc”–>

<%

If Request.Form(“AddEvent”) = “Add Event” Then

Response.Redirect(“add_event.asp”)

End If

If Request.Form(“EditEvent”) = “Edit Event” Then

Response.Redirect(“edit_event.asp”)

End If

Dim DB_CONNECTIONSTRING

Dim objRecordset

DB_CONNECTIONSTRING = “DRIVER={Microsoft Access Driver (*.mdb)};DBQ=” & Server.Mappath(“users.mdb”) & “;”

Set objRecordset = Server.CreateObject(“ADODB.Recordset”)

objRecordset.Open “calendar”, DB_CONNECTIONSTRING, adOpenStatic, adLockPessimistic, adCmdTable

%>

<%

Function GetDaysInMonth(iMonth, iYear)

Select Case iMonth

Case 1, 3, 5, 7, 8, 10, 12

GetDaysInMonth = 31

Case 4, 6, 9, 11

GetDaysInMonth = 30

Case 2

If IsDate(“February 29, ” & iYear) Then

GetDaysInMonth = 29

Else

GetDaysInMonth = 28

End If

End Select

End Function

Function GetWeekdayMonthStartsOn(iMonth, iYear)

GetWeekdayMonthStartsOn = WeekDay(CDate(iMonth & “/1/” & iYear))

End Function

Function SubtractOneMonth(dDate)

Dim iDay, iMonth, iYear

iDay = Day(dDate)

iMonth = Month(dDate)

iYear = Year(dDate)

If iMonth = 1 Then

iMonth = 12

iYear = iYear – 1

Else

iMonth = iMonth – 1

End If

If iDay > GetDaysInMonth(iMonth, iYear) Then iDay = GetDaysInMonth(iMonth, iYear)

SubtractOneMonth = CDate(iMonth & “-” & iDay & “-” & iYear)

End Function

Function AddOneMonth(dDate)

Dim iDay, iMonth, iYear

iDay = Day(dDate)

iMonth = Month(dDate)

iYear = Year(dDate)

If iMonth = 12 Then

iMonth = 1

iYear = iYear + 1

Else

iMonth = iMonth + 1

End If

If iDay > GetDaysInMonth(iMonth, iYear) Then iDay = GetDaysInMonth(iMonth, iYear)

AddOneMonth = CDate(iMonth & “-” & iDay & “-” & iYear)

End Function

Dim dDate     ‘ Data estamos exibindo calendário para

Dim iDIM      ‘ Dias no mês

Dim iDOW      ‘ Dia da semana que começa no mês

Dim iCurrent  ‘ Variável que usamos para segurar dia atual do mês como nós escrevemos tabela

Dim iPosition ‘ Variável que usamos para manter a posição atual na tabela

If IsDate(Request.QueryString(“date”)) Then

dDate = CDate(Request.QueryString(“date”))

Else

If IsDate(Request.QueryString(“month”) & “-” & Request.QueryString(“day”) & “-” & Request.QueryString(“year”)) Then

dDate = CDate(Request.QueryString(“month”) & “-” & Request.QueryString(“day”) & “-” & Request.QueryString(“year”))

Else

dDate = Date()

If Request.QueryString.Count <> 0 Then

Response.Write “a data que você escolheu não era uma data válida. O calendário foi definido para a data de hoje.<BR><BR>”

End If

End If

End If

iDIM = GetDaysInMonth(Month(dDate), Year(dDate))

iDOW = GetWeekdayMonthStartsOn(Month(dDate), Year(dDate))

%>

<html>

<center>

<table border=”1″ cellspacing=”0″ cellpadding=”1″>

<tr>

<td bgcolor=”blue” align=”center” colspan=”7″>

<table width=”100%” border=”0″ cellspacing=”0″ cellpadding=”0″>

<tr>

<td align=”right”><b><A HREF=”calendar.asp?date=<%= SubtractOneMonth(dDate) %>” style=”color: #FFFFFF”>&lt;–</A></b></TD>

<td align=”center”><font color=”#FFFFFF”><B><%= MonthName(Month(dDate)) & “  ” & Year(dDate) %></B></font></TD>

<td align=”left”><b><A HREF=”calendar.asp?date=<%= AddOneMonth(dDate) %>” style=”color: #FFFFFF”>–&gt;</A></b></TD>

<td align=”right” valign=”top”><a href=”http://www.4guysfromrolla.com”><img src=”close.gif” border=”0″></a></td>

</tr>

</TABLE>

</td>

</tr>

<tr bgcolor=”blue”>

<td ALIGN=”center” width=”80″><B><font color=”#FFFFFF”>Dom</font></B></TD>

<td ALIGN=”center” width=”80″><B><font color=”#FFFFFF”>Seg</font></B></TD>

<td ALIGN=”center” width=”80″><B><font color=”#FFFFFF”>Ter</font></B></TD>

<td ALIGN=”center” width=”80″><B><font color=”#FFFFFF”>Qua</font></B></TD>

<td ALIGN=”center” width=”80″><B><font color=”#FFFFFF”>Qui</font></B></TD>

<td ALIGN=”center” width=”80″><B><font color=”#FFFFFF”>Sex</font></B></TD>

<td ALIGN=”center” width=”80″><B><font color=”#FFFFFF”>Sab</font></B></TD>

</tr>

<%

If iDOW <> 1 Then

Response.Write(vbTab & “<tr>” & vbCrLf)

iPosition = 1

Do While iPosition < iDOW

Response.Write(vbTab & vbTab & “<td>&nbsp;</td>” & vbCrLf)

iPosition = iPosition + 1

Loop

End If

‘– Escreva dia do mês em slots bom dia –

iCurrent = 1

iPosition = iDOW

Do While iCurrent <= iDIM

‘– opeabre a tabela –

If iPosition = 1 Then

Response.Write(vbTab & “<tr>” & vbCrLf)

End If

‘– Write na data e assun –to

Response.Write(vbTab & vbTab & “<td align=left valign=top height=60><b>” & iCurrent & “</b>”)

If Not objRecordset.BOF Then

objRecordset.MoveFirst

Do Until objRecordset.EOF

If objRecordset.Fields(“Year”) = Year(dDate) Then

If objRecordset.Fields(“Month”) = Month(dDate) Then

If objRecordset.Fields(“Day”) = iCurrent Then

Response.Write(“<br><font size=2><a href=” & Chr(34) & “display_event.asp?ID=” & objRecordset.Fields(“ID”) & Chr(34) & “>” & objRecordset.Fields(“Subject”) & “</a></font><br>”)

End If

End If

End If

objRecordset.MoveNext

Loop

End If

Response.Write(“</td>” & vbCrLf)

‘– Fecha a tabela –

If iPosition = 7 Then

Response.Write vbTab & “</tr>” & vbCrLf

iPosition = 0

End If

‘– Incrementa as  variaveis –

iCurrent = iCurrent + 1

iPosition = iPosition + 1

Loop

If iPosition <> 1 Then

Do While iPosition <= 7

Response.Write(vbTab & vbTab & “<td>&nbsp;</td>” & vbCrLf)

iPosition = iPosition + 1

Loop

Response.Write vbTab & “</TR>” & vbCrLf

End If

%>

</table>

<%

objRecordset.Close

Set objRecordset = Nothing

%>

<%

Response.Write(“<form action=” & Chr(34) & “calendar.asp” & Chr(34) & ” method=” & Chr(34) & “post” & Chr(34) & “>” & Chr(10))

Response.Write(“<input type=” & Chr(34) & “submit” & Chr(34) & ” name=” & Chr(34) & “AddEvent” & Chr(34) & ” value=” & Chr(34) & “Add Event” & Chr(34) & “>” & “&nbsp;&nbsp;”)

Response.Write(“</form>”)

%>

</center>

</body>

</html>

Display_event.asp

<%@ LANGUAGE=VBSCRIPT %>

<%Option Explicit%>

<%

Dim MyName

Dim DB_CONNECTIONSTRING

Dim objRecordset

Dim EventToShow

%>

<!–#include file=”adovbs.inc”–>

<%

MyName = Session(“Firstname”) & ” ” & Session(“LastName”)

DB_CONNECTIONSTRING = “DRIVER={Microsoft Access Driver (*.mdb)};DBQ=” & Server.Mappath(“users.mdb”) & “;”

Set objRecordset = Server.CreateObject(“ADODB.Recordset”)

objRecordset.Open “calendar”, DB_CONNECTIONSTRING, adOpenStatic, adLockPessimistic, adCmdTable

EventToShow = CInt(Request.QueryString(“ID”))

If Not objRecordset.EOF Then

objRecordset.MoveFirst

Do Until objRecordset.Fields(“ID”) = EventToShow

objRecordset.MoveNext

Loop

End If

Session(“EventToEdit”) = EventToShow

%>

<html>

Data:</b> <%= objRecordset.Fields(“Month”) & “/” & objRecordset.Fields(“Day”) & “/” & objRecordset.Fields(“Year”) %><p>

<b>Assunto:</b> <%= objRecordset.Fields(“Subject”) %><p>

<b>Mensagem:</b> <%= objRecordset.Fields(“Message”) %><p>

<b>Adicionado por:</b> <%= objRecordset.Fields(“AddedBy”) & ” on ” & objRecordset.Fields(“DateAdded”)%>

<p>&nbsp;</p>

<form method=”post” action=”edit_event.asp”>

<input type=”submit” name=”btnEditEvent” value=”Edita/Exclui Evento”>

</form>

</body>

</html>

<%

objRecordset.Close

Set objRecordset = Nothing

%>

Edit_event.asp

<%@ LANGUAGE=VBSCRIPT %>

<%Option Explicit%>

<%

Dim DB_CONNECTIONSTRING

Dim objRecordset

Dim Updated

%>

<!–#include file=”adovbs.inc”–>

<%

If Request.Form(“btnCalendar”) = “Back To Calendar” Then

Response.Redirect(“calendar.asp”)

End If

DB_CONNECTIONSTRING = “DRIVER={Microsoft Access Driver (*.mdb)};DBQ=” & Server.Mappath(“users.mdb”) & “;”

Set objRecordset = Server.CreateObject(“ADODB.Recordset”)

objRecordset.Open “calendar”, DB_CONNECTIONSTRING, adOpenStatic, adLockPessimistic, adCmdTable

If Session(“EventToEdit”) <> 0 Then

If Not objRecordset.EOF Then

objRecordset.MoveFirst

Do Until objRecordset.Fields(“ID”) = Session(“EventToEdit”)

objRecordset.MoveNext

Loop

End If

End If

If Request.Form(“btnEdit”) = “Update” Then

‘– Adiciona records no database do form –

objRecordset.Fields(“Subject”) = Request.Form(“txtSubject”)

objRecordset.Fields(“Message”) = Request.Form(“Message”)

objRecordset.Fields(“Day”) = Request.Form(“txtDay”)

objRecordset.Fields(“Month”) = Request.Form(“txtMonth”)

objRecordset.Fields(“Year”) = Request.Form(“txtYear”)

objRecordset.Fields(“AddedBy”) = Request.Form(“txtAddedBy”)

objRecordset.Fields(“DateAdded”) = Now()

objRecordset.Update

Updated = “True”

End If

If Request.Form(“btnDelete”) = “Delete” Then

‘–Delete o evento no database –

objRecordset.Delete adAffectCurrent

Response.Redirect(“calendar.asp”)

End If

%>

<html>

<center>

<%

If Updated = “True” Then

Response.Write(“<font size=4><b><font color=” & Chr(34) & “red” & Chr(34) & “>” & objRecordset.Fields(“Subject”) & “</font> has been updated</b></font><p>”)

End If

%>

<form method=”post” action=”edit_event.asp”>

<table border=”0″ cellpadding=”0″ cellspacing=”0″>

<tr>

<td>Dia:

<input type=”text” name=”txtDay” size=”4″ value=”<%= objRecordset.Fields(“Day”)%>”></td>

<td>Mês:

<input type=”text” name=”txtMonth” size=”10″ value=”<%= objRecordset.Fields(“Month”)%>”></td>

<td>Ano:

<input type=”text” name=”txtYear” size=”5″ value=”<%= objRecordset.Fields(“Year”)%>”></td>

</tr>

<tr>

<td colspan=”3″>&nbsp;</td>

</tr>

<tr>

<td colspan=”3″ align=”center”>Assunto:

<input type=”text” name=”txtSubject” size=”35″ value=”<%= objRecordset.Fields(“Subject”)%>”></td>

</tr>

<tr>

<td colspan=”3″>&nbsp;</td>

</tr>

<tr>

<td colspan=”3″ align=”center”><textarea name=”Message” cols=”40″ rows=”10″><%= objRecordset.Fields(“Message”)%></textarea></td>

</tr>

<tr>

<td colspan=”3″>&nbsp;</td>

</tr>

<tr>

<td colspan=”3″ align=”center”>Adicionado por:

<input type=”text” name=”txtAddedBy” size=”35″ value=”<%= objRecordset.Fields(“AddedBy”)%>”></td>

</tr>

</table>

<p>

<input type=”submit” name=”btnEdit” value=”Atualizar”>&nbsp;&nbsp;

<input type=”submit” name=”btnDelete” value=”Excluir”>&nbsp;&nbsp;

<input type=”Reset” name=”btnReset” value=”Limpar”>&nbsp;&nbsp;

<input type=”submit” name=”btnCalendar” value=”Voltar Calendario”>

</form>

</center>

</body>

</html>

<%

objRecordset.Close

Set objRecordset = Nothing

%>

Primeiro vou apresentar um gráfico de barras estáticas, com pontos de dados a serem plotado, podemos recuperar as informações de um banco de dados para preencher dinamicamente o gráfico de barras.

Vamos iniciar um exemplo mais simples de duas:

<%@ %>
<% Option Explicit %>

Usando o Option Explicit, para otimizar o código, essa instrução força a declaração (com Dim, Private, Public ou ReDim) de todas as variáveis usadas no script, antes de serem utilizadas.
Deve ser colocado no script antes de qualquer outra instrução. Qualquer tentativa de usar uma variável não declarada ocasionará um erro. A declaração de variáveis antes de usá-las faz com que o script seja executado mais rapidamente.

Agora, queremos definir algumas constantes que irá afetar a forma como o gráfico é exibido. Essas constantes são a altura do gráfico em pixels, a largura do gráfico em pixels, e o nome da imagem que será as barras do gráfico. Neste exemplo, foi uma criado uma imagem de 20 pixels de largura e 5 pixels de altura, chamada bluebar.gif, voê pode criar uma barra de dimensão semelhante, com a cor  que desejar.

<%
‘Quantos pixels de altura / largura queremos que o nosso gráfico de barras
Const graphHeight = 300
Const graphWidth = 450

‘caminho da imagem bar
Const barImage = "/images/bluebar.gif"

Agora estamos prontos para escrever a nossa sub-rotina que irá exibir o gráfico de barras. A sub-rotina é chamada BarChart e leva quatro parâmetros:

-  data: um array de dimensão de todos os pontos de dados (começa em 0)
-  labels: um array de dimensão de todas as etiquetas para as barras (começa em 0, deve ser do mesmo tamanho que a matriz de dados)
-  title: uma string; o título que deseja na barra do gráfico
-  axislabel – uma string; o título que você deseja para suas etiquetas

Basicamente, estamos indo para exibir uma tabela que tem n +1 colunas, onde n é igual array. Em cada coluna, exceto para a primeira, vamos fazer uma <IMG SRC…> com uma altura proporcional ao valor do datapoint atual no array.

sub BarChart(data, labels, title, axislabel)

‘Exibe título(heading)

Response.Write(“<TABLE CELLSPACING=0 CELLPADDING=1 BORDER=0″)

Response.Write(” WIDTH=” & graphWidth & “>” & chr(13))

Response.Write(“<TR><TH COLSPAN=” & UBound(data) – LBound(data) + 2)

Response.Write(“>”)

Response.Write(“<FONT SIZE=+2>” & title & “</FONT></TH></TR>”

Response.Write(“<TR><TD VALIGN=TOP ALIGN=RIGHT>” & chr(13))

‘Encontrar o maior valor

Dim hi, low

hi = data(LBound(data))

Dim i

for i = LBound(data) to UBound(data)

if data(i) > hi then hi = data(i)

next

‘Exibe o maior valor no topo do gráfico

Response.Write(hi & “</TD>”)

Dim widthpercent

widthpercent = CInt((1 / (UBound(data) – LBound(data) + 1)) * 100)

For i = LBound(data) to UBound(data)

Response.Write(” <TD VALIGN=BOTTOM ROWSPAN=2 WIDTH=”

Response.Write(widthpercent & “% >” & chr(13))

Response.Write(“   <IMG SRC=”"” & barImage & “”" WIDTH=100% “)

Response.Write(“HEIGHT=” & CInt(data(i)/hi * graphHeight) & “>”)

Response.Write(chr(13))

Response.Write(” </TD>” & chr(13))

Next

Response.Write(“</TR>”)

Response.Write(“<TR><TD VALIGN=BOTTOM ALIGN=RIGH>>0</TD></TR>”)

‘rodapé /labels

Response.Write(“<TR><TD ALIGN=RIGHT VALIGN=BOTTOM>”)

Response.Write(axislabel & “</TD>” & chr(13))

for i = LBound(labels) to UBound(labels)

Response.Write(“<TD VALIGN=BOTTOM ALIGN=CENTER>” & labels(i))

Response.Write(“</TD>” & chr(13))

next

Response.Write(“</TR>” & chr(13))

Response.Write(“</TABLE>”)

end sub

%>

Antes de podermos chamar a subrotina, precisamos criar e inicializar os dados do array. Aqui estão alguns valores aleatórios em ambos os arrays:

Dim dataArray(10)
dataArray(0) = 8
dataArray(1) = 10
dataArray(2) = 8
dataArray(3) = 14
dataArray(4) = 6
dataArray(5) = 13
dataArray(6) = 7
dataArray(7) = 11
dataArray(8) = 8
dataArray(9) = 9
 
Dim labelArray(10)
labelArray(0) = "3/2"
labelArray(1) = "3/3"
labelArray(2) = "3/4"
labelArray(3) = "3/5"
labelArray(4) = "3/6"
labelArray(5) = "3/7"
labelArray(6) = "3/8"
labelArray(7) = "3/9"
labelArray(8) = "3/10"
labelArray(9) = "3/11"
 
%>

Agora, para mostrar o gráfico, dentro das tags HTML, só precisamos chamar a função BarChart passar os dados do arrays rótulo, bem como o título do gráfico de barras e os rótulos dos eixos.

Aqui está um exemplo:

<HTML>
<BODY>
<% BarChar dataArray, labelArray, “Vendas Telefone”, “Data”%>
</ BODY>
</ HTML>

Podemos por exemplo, mudar uma URL assim:

http://exemplo.com.br/teste/index.asp?titulo= titulo_pagina

Para:

http:// exemplo.com.br/ teste / titulo_pagina

Um Fórum pode ter uma URL que codifica as datas de cada entrada:

http://www.site.com.br/Forum/Posts.asp?Dia=11&Mes=04&Ano=2011
Ela pode ser alterada como esta:

http://www. site.com.br/Forum /11/04/2011/

que também permite ao usuário alterar a URL para ver todos os lançamentos disponíveis em abril, basta remover a codificação de texto no dia ’11 ‘, como se a navegação fosse “para cima” de um diretório:

http://www. site.com.br/Forum/04/2011/

Podemos também utilizar para proteção de hotlink, no seu arquivo httpd.ini adicione essas linhas:

# proteção hotlink
RewriteCond Host: (.+)
RewriteCond Referer: (?!http://1.*).*
RewriteRule .*.(?:gif|jpg|png) /block.gif [I,O]

Para esta expressão protegemos todos os formatos de arquivos com extensão gif, jpg e png. Você pode proteger outros formatos adicionando-os na última linha do código.

Instalando

Para a instalação necessitamos ter controle total de um servidor local ou próprio se a instalação for em um servidor compartilhado, utilize o painel de controle, geralmente por um botão de comando ativar/desativar, ou então por uma solicitação no helpdesk.

Criando regras para as urls amigáveis.

Vamos criar regras básicas, para facilitar o entendimento e absorção do material e neste caso, vamos criar uma regra para cada arquivo.
O site que vamos utilizar como exemplo para implementar as URL’s amigáveis tem as seguintes páginas:  home.asp, empresa.asp, produtos.asp, contato.asp

A pagina de home é uma pagina dinâmica, que recebe até 3 parâmetros: id do produto, categoria e quantidade (em caso de paginação). Ou seja, a pagina de noticias é acessada da seguinte maneira:

HTTP://www.site.com.br/home.asp?categoria=15&idproduto=23&quantidade=3

Logo, a regra deverá ser:

Esta é regra a conversão do link acima, que retornará o seguinte endereço:

HTTP://www.site.com.br/home/informatica/mouse-otico-15,23,3.html

Para as demais paginas, que não recebem parâmetros as regras ficarão mais simples, veja:

Modificando os links internos

Depois que as regras foram mapeadas e concluídas, e todas paginas já estão funcionando com a utilização do ISAPI REWRITE, chega a hora então e apontar os links internos do site para a novo formato do link. Vamos efetuar uma busca no site por todas as ocorrências da tag “<a>…</a>”. Localize e abra todos os arquivos que contenha a sintax “<a href=”.

Com os links já localizados, faça a modificação do código tomado como exemplo. Troque:

Por:

Para que o site permaneça funcionando, basta criar uma função que retorne o mesmo valor. Assim também é possível manter o site funcionando caso ocorre algum problema com o servidor ou com a própria aplicação.

Função para converter url amigável

Precisaremos então de uma função que converta os links atuais, para os novos formatos de links. Na sua biblioteca de funções cria as seguinte funções:

Abaixo alguns metacaracteres, com o seu significado entre parêntesis a seguir:

• . (qualquer caractere)
• * (zero ou mais precedentes)
• + (uma ou mais precedentes)
• {} (mínimo ao máximo quantificador)
• ? (modificador ungreedy)
• ! (no início da string significa “padrão negativo “)
• ^ (início da seqüência de caracteres, ou “negativo” se no início de uma série)
• $ (final da string)
• [] (corresponde a nenhum conteúdo)
• - (intervalo se usado entre colchetes)
• () (grupo, de volta referenciado)
• | (alternativa, ou)
• \ (o próprio caractere de escape)

Usando expressões regulares, é possível pesquisar por todos os tipos de padrões de URLs e reescrevê-los quando eles coincidem. Hora para um outro exemplo – que queríamos antes de ser capaz de identificar essa URL e reescrevê-lo:

http://www.site.com.br/ araras/brasil-azul/

Vamos fazer o servidor interpretar isso como o seguinte, mas para todos os produtos:

http://www. site.com.br /produto_por_nome.asp?produto_nome= brasil-azul

E podemos fazer isso de forma relativamente simples, com a seguinte regra:

RewriteRule ^ araras/([A-Za-z0-9-]+)/?$      produto_por_nome.asp?produto_nome =$1                  [NC,L]               # Processo araras

Com essa regra, qualquer URL que começa com ” araras “, seguido por uma barra (araras /), então um ou mais (+) em qualquer combinação de letras, números e hífens ([A-Za-z0-9]) ( Observe o hífen no final da seleção de caracteres entre colchetes – que deve ser adicionado lá para ser tratado, literalmente, ao invés de como um separador de intervalo),nome do produto de referência entre parênteses, com $1 na substituição.

Podemos fazer ainda mais genérica, se queremos, de modo que não importa o diretório de um produto, assim:

RewriteRule ^ [A-Za-z-]+/([ produto_por_nome.asp A-Za-z0-9-]+)/?$           ? produto_nome = $ 1               [NC, L]                 # Processa todos os produtos

Como você pode ver, temos substituído ” araras” com um padrão que combina letras e hífens. Essa regra será para diretório araras ou qualquer outro diretório cujo nome é composto de pelo menos uma ou mais letras e hífens.

Flags

Flags são adicionados ao final de uma regra como interpretar e lidar com a regra. Elas podem ser usadas para tratar a regra como case-sensitive, para parar regras de processamento, e os one matches atual, ou uma variedade de outras opções. Eles são separados por vírgula, e entre colchetes. Aqui está uma lista das Flags, com seus significados (esta informação é incluído no cheat sheet).

• C (acorrentado com a regra seguinte)
• CO=cookie (set cookie especificado)
• E=var:value (var conjunto variável de ambiente para o valor)
• F (forbidden [proibido] – envia um cabeçalho de 403 para o usuário)
• G (gone [se foi] – não existe mais)
• H=handler (conjunto manipulador)
• L (last – deixar de regras de processamento)
• N (next – continua regras de processamento)
• NC (case insensitive)
• NE (n ão escapar caracteres especiais na URL de saída)
• NS (ignorar esta regra se o pedido é um SUBPEDIDO)
• P (proxy – ou seja, o Apache deve pegar o conteúdo remoto especificado na seção de substituição e devolvê-lo)
• PT (passar – use quando URLs com os manipuladores de processamento adicional, por exemplo, mod_alias)
• R (temporária redirecionar para nova URL)
• R=301 (redirecionamento permanente para nova URL)
• QSA (query string de pedido de URL substituído)
• S=x (ignorar as regras ao lado x)
• T=mime-type (força especificada tipo mime)

Exceções e casos especiais

As condições podem ser testadas em algumas maneiras diferentes ,elas não precisam ser tratadas como padrões de expressões regulares, embora esta seja a maneira mais comum de serem usadas. Aqui estão as várias maneiras reescrever conditons pode ser processado:

•Pattern (seqüência de teste é maior do padrão)
• =Pattern (seqüência de teste é igual ao padrão)
• -d (seqüência de teste é um diretório válido)
• -f (seqüência de teste é um arquivo válido)
• -s (seqüência de teste é um arquivo válido com tamanho maior que zer)
• -l (eqüência de teste é um link simbólico)
• -F (seqüência de teste é um arquivo válido e acessível (via SUBPEDIDO))
• -U (seqüência de teste é uma URL válida, e acessíveis (via SUBPEDIDO))

Variáveis de Servidor

Variáveis do servidor são uma seleção de itens que você pode testar quando estiver a escrever reescrever condições. Isto permite-lhe aplicar as regras com base em todos os tipos de parâmetros da requisição, incluindo os identificadores navegador, URL de referência ou uma infinidade de outras seqüências. As variáveis são do seguinte formato:
% {variable_name}

• HTTP Headers
o HTTP_USER_AGENT
o HTTP_REFERER
o HTTP_COOKIE
o HTTP_FORWARDED
o HTTP_HOST
o HTTP_PROXY_CONNECTION
o HTTP_ACCEPT
• Variáveis Connection
o REMOTE_ADDR
o REMOTE_HOST
o REMOTE_USER
o REMOTE_IDENT
o REQUEST_METHOD
o SCRIPT_FILENAME
o PATH_INFO
o QUERY_STRING
o AUTH_TYPE
• Server Variables
o DOCUMENT_ROOT
o SERVER_ADMIN
o SERVER_NAME
o SERVER_ADDR
o SERVER_PORT
o SERVER_PROTOCOL
o SERVER_SOFTWARE
• Data e Hora
o TIME_YEAR
o TIME_MON
o TIME_DAY
o TIME_HOUR
o TIME_MIN
o TIME_SEC
o TIME_WDAY
o TIME
• Itens Especiais
o API_VERSION
o THE_REQUEST
o REQUEST_URI
o REQUEST_FILENAME
o IS_SUBREQ

Exemplo de regras

Para redirecionar um domínio antigo para um novo domínio:

RewriteCond %{HTTP_HOST} velho_dominio\.com [NC] RewriteRule ^(.*)$ http://www.novo_dominio.com /$1 [L,R=301]

Para redirecionar todas as solicitações faltando “www” (sim www):

RewriteCond %{HTTP_HOST} ^dominio\.com [NC] RewriteRule ^(.*)$ http://www.dominio.com/$1 [L,R=301]

Para redirecionar todas as solicitações com “www” (sem www):

RewriteCond %{HTTP_HOST} ^www\.dominio\.com [NC] RewriteRule ^(.*)$ http:// dominio.com/$1 [L,R=301]

Redirecionar página antiga para a nova página:

RewriteRule ^old-url\.htm$ http://www.dominio.com/nova-url.htm [NC,R=301,L]

[size="1"][font="Garamond"]
Fonte: vários sites e URL´s citadas no próprio post.[/font][/size]Abaixo alguns metacaracteres, com o seu significado entre parêntesis a seguir:

• . (qualquer caractere)
• * (zero ou mais precedentes)
• + (uma ou mais precedentes)
• {} (mínimo ao máximo quantificador)
• ? (modificador ungreedy)
• ! (no início da string significa “padrão negativo “)
• ^ (início da seqüência de caracteres, ou “negativo” se no início de uma série)
• $ (final da string)
• [] (corresponde a nenhum conteúdo)
• - (intervalo se usado entre colchetes)
• () (grupo, de volta referenciado)
• | (alternativa, ou)
• \ (o próprio caractere de escape)

Usando expressões regulares, é possível pesquisar por todos os tipos de padrões de URLs e reescrevê-los quando eles coincidem. Hora para um outro exemplo – que queríamos antes de ser capaz de identificar essa URL e reescrevê-lo:

http://www.site.com.br/ araras/brasil-azul/

Vamos fazer o servidor interpretar isso como o seguinte, mas para todos os produtos:

http://www. site.com.br /produto_por_nome.asp?produto_nome= brasil-azul

E podemos fazer isso de forma relativamente simples, com a seguinte regra:

RewriteRule ^ araras/([A-Za-z0-9-]+)/?$
produto_por_nome.asp?produto_nome =$1 [NC,L] # Processo araras

Com essa regra, qualquer URL que começa com ” araras “, seguido por uma barra (araras /), então um ou mais (+) em qualquer combinação de letras, números e hífens ([A-Za-z0-9]) ( Observe o hífen no final da seleção de caracteres entre colchetes – que deve ser adicionado lá para ser tratado, literalmente, ao invés de como um separador de intervalo),nome do produto de referência entre parênteses, com $1 na substituição.

Ppodemos fazer ainda mais genérica, se queremos, de modo que não importa o diretório de um produto, assim:

RewriteRule ^ [A-Za-z-]+/([ produto_por_nome.asp A-Za-z0-9-]+)/?$? produto_nome = $ 1 [NC, L] # Processa todos os produtos

Como você pode ver, temos substituído ” araras” com um padrão que combina letras e hífens. Essa regra será para diretório araras ou qualquer outro diretório cujo nome é composto de pelo menos uma ou mais letras e hífens.

Flags

Flags são adicionados ao final de uma regra como interpretar e lidar com a regra. Elas podem ser usadas para tratar a regra como case-sensitive, para parar regras de processamento, e os one matches atual, ou uma variedade de outras opções. Eles são separados por vírgula, e entre colchetes. Aqui está uma lista das Flags, com seus significados (esta informação é incluído no cheat sheet).

• C (acorrentado com a regra seguinte)
• CO=cookie (set cookie especificado)
• E=var:value (var conjunto variável de ambiente para o valor)
• F (forbidden [proibido] – envia um cabeçalho de 403 para o usuário)
• G (gone [se foi] – não existe mais)
• H=handler (conjunto manipulador)
• L (last – deixar de regras de processamento)
• N (next – continua regras de processamento)
• NC (case insensitive)
• NE (n ão escapar caracteres especiais na URL de saída)
• NS (ignorar esta regra se o pedido é um SUBPEDIDO)
• P (proxy – ou seja, o Apache deve pegar o conteúdo remoto especificado na seção de substituição e devolvê-lo)
• PT (passar – use quando URLs com os manipuladores de processamento adicional, por exemplo, mod_alias)
• R (temporária redirecionar para nova URL)
• R=301 (redirecionamento permanente para nova URL)
• QSA (query string de pedido de URL substituído)
• S=x (ignorar as regras ao lado x)
• T=mime-type (força especificada tipo mime)

Exceções e casos especiais

As condições podem ser testadas em algumas maneiras diferentes ,elas não precisam ser tratadas como padrões de expressões regulares, embora esta seja a maneira mais comum de serem usadas. Aqui estão as várias maneiras reescrever conditons pode ser processado:

•
Pattern (seqüência de teste é maior do padrão)
• =Pattern (seqüência de teste é igual ao padrão)
• -d (seqüência de teste é um diretório válido)
• -f (seqüência de teste é um arquivo válido)
• -s (seqüência de teste é um arquivo válido com tamanho maior que zer)
• -l (eqüência de teste é um link simbólico)
• -F (seqüência de teste é um arquivo válido e acessível (via SUBPEDIDO))
• -U (seqüência de teste é uma URL válida, e acessíveis (via SUBPEDIDO))

Variáveis de Servidor

Variáveis do servidor são uma seleção de itens que você pode testar quando estiver a escrever reescrever condições. Isto permite-lhe aplicar as regras com base em todos os tipos de parâmetros da requisição, incluindo os identificadores navegador, URL de referência ou uma infinidade de outras seqüências. As variáveis são do seguinte formato:
% {variable_name}

• HTTP Headers
o HTTP_USER_AGENT
o HTTP_REFERER
o HTTP_COOKIE
o HTTP_FORWARDED
o HTTP_HOST
o HTTP_PROXY_CONNECTION
o HTTP_ACCEPT
• Variáveis Connection
o REMOTE_ADDR
o REMOTE_HOST
o REMOTE_USER
o REMOTE_IDENT
o REQUEST_METHOD
o SCRIPT_FILENAME
o PATH_INFO
o QUERY_STRING
o AUTH_TYPE
• Server Variables
o DOCUMENT_ROOT
o SERVER_ADMIN
o SERVER_NAME
o SERVER_ADDR
o SERVER_PORT
o SERVER_PROTOCOL
o SERVER_SOFTWARE
• Data e Hora
o TIME_YEAR
o TIME_MON
o TIME_DAY
o TIME_HOUR
o TIME_MIN
o TIME_SEC
o TIME_WDAY
o TIME
• Itens Especiais
o API_VERSION
o THE_REQUEST
o REQUEST_URI
o REQUEST_FILENAME
o IS_SUBREQ

Exemplo de regras

Para redirecionar um domínio antigo para um novo domínio:

RewriteCond %{HTTP_HOST} velho_dominio\.com [NC] RewriteRule ^(.*)$ http://www.novo_dominio.com /$1 [L,R=301]

Para redirecionar todas as solicitações faltando “www” (sim www):

RewriteCond %{HTTP_HOST} ^dominio\.com [NC] RewriteRule ^(.*)$ http://www.dominio.com/$1 [L,R=301]

Para redirecionar todas as solicitações com “www” (sem www):

RewriteCond %{HTTP_HOST} ^www\.dominio\.com [NC] RewriteRule ^(.*)$ http:// dominio.com/$1 [L,R=301]

Redirecionar página antiga para a nova página:

RewriteRule ^old-url\.htm$ http://www.dominio.com/nova-url.htm [NC,R=301,L]

Para ter os usuários do site assim www.meusite.com.br/usuario, sem o default.asp?usr=NOME, só pelo /usuário:

RewriteEngine on
# Internamente adicionar extensões ao pedido
RewriteCond %{REQUEST_FILENAME}.asp -f
RewriteRule (.*) $1.asp

Fonte: vários sites e URL´s citadas no próprio post.

Agora, quando o usuário clica no campo CódigoDoPedido para o cliente Xan, a página DETAIL.ASP irá mostrar todos os registros relacionados.Conforme Figura 2.

Se o usuário clica em qualquer botão intitulado como A-Z, Z-A, esta ação irá classificar nesse campo específico. Por exemplo, se o usuário quer ver todos os pedidos (orders) com base nas datas em ordem decrescente, ele ou ela vai clicar no botão Z-A no campo data do pedido (Order Date). Isso vai resolver todos os pedidos em ordem decrescente com base em ordem de data e o usuário será capaz de ver as últimas encomendas. O usuário poderá pesquisar o nome embarcador, que deve ser auto-explicativo.

Usando uma estrutura de dados, com duas tabelas, mostrada abaixo:

Tabela1

Tabela2

Vamos iniciar com o arquivo Master.Asp. Vamos dividir o código em três partes. Na parte 1 vamos declarar todas as variáveis, fazer uma conexão para o arquivo Northwind.mdb usando o DSN Northwind criado anteriormente, você pode mudar o tipo da conexão, usando OLEDB diretamente.

master.asp

Northwind Orders

Por favor, clique em OrderID para obter mais detalhes ou Ordem.
Pesquisar no nome do remetente.

‘–Declara todas as variaveis
Dim cn, rsOrders, rsEmployees
Dim strConnect, strSQL, intCounter
Dim strFieldValue, strFieldName
Dim strHREF, strEmpFName, strEmpLastName
Dim intEmpID
Dim SearchText

‘–Entrada para pesquisar o nome
SearchText = Request.Form(“txtSearchText”)

‘–Criar objetos
Set cn = Server.CreateObject(“ADODB.Connection”)

‘–nome da fonte que você criou para o banco de dados
strConnect = “DSN=Northwind”

Call cn.Open(strConnect)

‘–Criar Recordsets
Set rsOrders = Server.CreateObject(“ADODB.Recordset”)

strSQL = “SELECT OrderID, CustomerID, OrderDate, ShipName FROM orders ORDER BY orderDate DESC;”

‘– Ordenar SQL Data
If Request.Form(“btnsortdate”) = “A-Z” Then
strSQL = “SELECT OrderID, CustomerID, OrderDate, ShipName FROM orders ORDER BY OrderDate ASC;”
end if
If Request.Form(“btnsortdate”) = “Z-A” Then
strSQL = “SELECT OrderID, CustomerID, OrderDate, ShipName FROM orders ORDER BY OrderDate DESC;”
end if

‘– Ordenar OrderID SQL
If Request.Form(“btnsortOID”) = “A-Z” Then
strSQL = “SELECT OrderID, CustomerID, OrderDate, ShipName FROM orders ORDER BY OrderID ASC;”
end if
If Request.Form(“btnsortdate”) = “Z-A” Then
strSQL = “SELECT OrderID, CustomerID, OrderDate, ShipName FROM orders ORDER BY OrderID DESC;”
end if

‘– Ordenar CustomerID SQL
If Request.Form(“btnsortUID”) = “A-Z” Then
strSQL = “SELECT OrderID, CustomerID, OrderDate, ShipName FROM orders ORDER BY CustomerID ASC;”
end if
If Request.Form(“btnsortUID”) = “Z-A” Then
strSQL = “SELECT OrderID, CustomerID, OrderDate, ShipName FROM orders ORDER BY CustomerID DESC;”
end if

‘– Ordenar ShipName SQL
If Request.Form(“btnsortFN”) = “A-Z” Then
strSQL = “SELECT OrderID, CustomerID, OrderDate, ShipName FROM orders ORDER BY ShipName ASC;”
end if
If Request.Form(“btnsortFN”) = “Z-A” Then
strSQL = “SELECT OrderID, CustomerID, OrderDate, ShipName FROM orders ORDER BY ShipName DESC;”
end if

‘– Search SQL
If Request.Form(“btnSearch”) = “Search” Then
strSQL = “SELECT OrderID, CustomerID, OrderDate, ShipName FROM [Orders]” & _
“WHERE ShipName LIKE ‘%” & SearchText & “%’;”

End If

‘–Abre Orders recordset
Call rsOrders.Open(strSQL, cn, 0, 1)

‘–Escreva os dados em tabelas através da apresentação dos formulários
Call Response.Write(”

“)
Set rsOrders = Nothing
Set cn = Nothing
Call Response.Write(”

“)

detail.asp

Northwind Order Details

Por favor, pressione o botão Voltar do navegador para voltar ao Award Express Pedidos

‘–Declara todas as variaveis
Dim cn, rs, drs
Dim strConnect, strSQL, intCounter, strSQL2
Dim intOrderID

intOrderID = CInt(Request.QueryString(“strID”))

Set cn = Server.CreateObject(“ADODB.Connection”)
strConnect = “DSN=Northwind”

Call cn.Open(strConnect)

‘–Criar vários conjuntos de registros
Set rs = Server.CreateObject(“ADODB.Recordset”)
set rs2 = Server.CreateObject(“ADODB.Recordset”)

‘– SQL
strSQL = ” SELECT * FROM [Orders] O WHERE O.OrderID=” & intOrderID
strSQL2 = “SELECT * FROM [Order Details] D WHERE D.OrderID =” & intOrderID
Call rs.Open(strSQL, strConnect, 0, 1)
Call rs2.Open(strSQL2, strConnect, 0, 1)

DO WHILE NOT rs.EOF

Call Response.Write(“”)
Call Response.Write(“”)
Call Response.Write(”

“)

‘–títulos personalizados
Call Response.Write(”

“)
Call Response.Write(“”)
Call Response.Write(“”)
Call Response.Write(“”)
Call Response.Write(“”)
Call Response.Write(“”)
Call Response.Write(“”)
Call Response.Write(“”)
Call Response.Write(“”)
Call Response.Write(“”)
Call Response.Write(“”)
Call Response.Write(“”)

Call Response.Write(”

“)

‘–Escreva os dados nos campos
Call Response.Write(”

“)
Call Response.Write(“”)
Call Response.Write(”

“)
Call Response.Write(”

“)
Call Response.Write(”

“)
Call Response.Write(”

“)
Call Response.Write(”

“)
Call Response.Write(”

“)
Call Response.Write(”

“)
Call Response.Write(”

“)
Call Response.Write(”

“)
Call Response.Write(”

“)
Call Response.Write(”

“)
Call Response.Write(”

“)
Call Response.Write(”

“)

rs.Movenext
Loop

Response.Write “ ”
Response.Write “ ”
‘–Set drs = rs(“Order_Details”).value
Call Response.Write(“”)
Call Response.Write(“”)
Call Response.Write(”

“)

‘–títulos personalizados
Call Response.Write(”

“)
Call Response.Write(“”)
Call Response.Write(“”)
Call Response.Write(“”)
Call Response.Write(“”)

While(rs2.EOF=False)
‘–Escreva todos os dados disponíveis
Call Response.Write(”

“)
Call Response.Write(“”)
Call Response.Write(”

“)
Call Response.Write(”

“)
Call Response.Write(”

“)
Call Response.Write(”

“)

rs2.MoveNext

WEND
Call Response.Write(”

“)

Set rs2 = Nothing
Set rs = Nothing
Set cn = Nothing

Autenticação de Usuário
Este método pode ser usado para autenticar usuários, permitindo-lhes escrevendo seu endereço de e-mail e senha. Este método usa algoritmo MD5 para enviar a senha criptografada.
Muitos sites usam a autenticação básica com os arquivos. htaccess ou formulários web simples, combinadas com cookies para autenticar seus usuários. Apenas alguns deles usam um servidor HTTPS para enviar os dados.Um usuário mal intensionado pode dar um sniffing de pacotes na rede, e facilmente capturar as senhas, e usá-lo para obter acesso às contas. Vamos criar um “hash” da senha antes de enviá-lo.
Um seed é incluído na página onde o usuário está sendo solicitado para sua senha. Uma cópia seed é armazenada no objeto de sessão no lado do servidor. Quando o usuário envia a página, um javascript calcula o hash MD5 da seed e a senha:
hash = MD5 (senha de sementes)
O endereço de e-mail e o hash são enviados para o servidor. Quando o servidor recebe esses dados, ele lê a senha para o e-mail digitado no banco de dados, e calcula o hash utilizando a seed que é armazenado no objeto Session.Ambos os hashes são comparados, e se eles são iguais, o usuário está sendo concedido o acesso ao site.
login.asp
<%
If Session(“autent”) = “true” ThenResponse.Redirect “seguro.asp”Response.EndEnd If
Randomize Timer
Dim sLeft : Dim sRightsLeft = CStr(Int(Rnd * 99999)) : If Len(sLeft) < 5 Then sLeft = String(5 – Len(sLeft), “0″) & sLeftsRight = CStr(Int(Rnd * 99999)) : If Len(sRight)c
<FORM METHOD=”POST” ACTION=”validar.asp” Id=”formLogin” onSubmit=”md5auth(”);”>
Email:  senha:   logoff.asp
Log out
Você está logado agora.Cliquehere para fazer login.
md5.asp
<%
Private Const BITS_TO_A_BYTE = 8Private Const BYTES_TO_A_WORD = 4Private Const BITS_TO_A_WORD = 32
Private m_lOnBits(30)Private m_l2Power(30)
m_lOnBits(0) = CLng(1)m_lOnBits(1) = CLng(3)m_lOnBits(2) = CLng(7)m_lOnBits(3) = CLng(15)m_lOnBits(4) = CLng(31)m_lOnBits(5) = CLng(63)m_lOnBits(6) = CLng(127)m_lOnBits(7) = CLng(255)m_lOnBits(8) = CLng(511)m_lOnBits(9) = CLng(1023)m_lOnBits(10) = CLng(2047)m_lOnBits(11) = CLng(4095)m_lOnBits(12) = CLng(8191)m_lOnBits(13) = CLng(16383)m_lOnBits(14) = CLng(32767)m_lOnBits(15) = CLng(65535)m_lOnBits(16) = CLng(131071)m_lOnBits(17) = CLng(262143)m_lOnBits(18) = CLng(524287)m_lOnBits(19) = CLng(1048575)m_lOnBits(20) = CLng(2097151)m_lOnBits(21) = CLng(4194303)m_lOnBits(22) = CLng(8388607)m_lOnBits(23) = CLng(16777215)m_lOnBits(24) = CLng(33554431)m_lOnBits(25) = CLng(67108863)m_lOnBits(26) = CLng(134217727)m_lOnBits(27) = CLng(268435455)m_lOnBits(28) = CLng(536870911)m_lOnBits(29) = CLng(1073741823)m_lOnBits(30) = CLng(2147483647)
m_l2Power(0) = CLng(1)m_l2Power(1) = CLng(2)m_l2Power(2) = CLng(4)m_l2Power(3) = CLng(8)m_l2Power(4) = CLng(16)m_l2Power(5) = CLng(32)m_l2Power(6) = CLng(64)m_l2Power(7) = CLng(128)m_l2Power(8) = CLng(256)m_l2Power(9) = CLng(512)m_l2Power(10) = CLng(1024)m_l2Power(11) = CLng(2048)m_l2Power(12) = CLng(4096)m_l2Power(13) = CLng(8192)m_l2Power(14) = CLng(16384)m_l2Power(15) = CLng(32768)m_l2Power(16) = CLng(65536)m_l2Power(17) = CLng(131072)m_l2Power(18) = CLng(262144)m_l2Power(19) = CLng(524288)m_l2Power(20) = CLng(1048576)m_l2Power(21) = CLng(2097152)m_l2Power(22) = CLng(4194304)m_l2Power(23) = CLng(8388608)m_l2Power(24) = CLng(16777216)m_l2Power(25) = CLng(33554432)m_l2Power(26) = CLng(67108864)m_l2Power(27) = CLng(134217728)m_l2Power(28) = CLng(268435456)m_l2Power(29) = CLng(536870912)m_l2Power(30) = CLng(1073741824)
Private Function LShift(lValue, iShiftBits)If iShiftBits = 0 ThenLShift = lValueExit FunctionElseIf iShiftBits = 31 ThenIf lValue And 1 ThenLShift = &H80000000ElseLShift = 0End IfExit FunctionElseIf iShiftBits 31 ThenErr.Raise 6End If
If (lValue And m_l2Power(31 – iShiftBits)) ThenLShift = ((lValue And m_lOnBits(31 – (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000ElseLShift = ((lValue And m_lOnBits(31 – iShiftBits)) * m_l2Power(iShiftBits))End IfEnd Function
Private Function RShift(lValue, iShiftBits)If iShiftBits = 0 ThenRShift = lValueExit FunctionElseIf iShiftBits = 31 ThenIf lValue And &H80000000 ThenRShift = 1ElseRShift = 0End IfExit FunctionElseIf iShiftBits 31 ThenErr.Raise 6End If
RShift = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits)
If (lValue And &H80000000) ThenRShift = (RShift Or (&H40000000 \ m_l2Power(iShiftBits – 1)))End IfEnd Function
Private Function RotateLeft(lValue, iShiftBits)RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 – iShiftBits))End Function
Private Function AddUnsigned(lX, lY)Dim lX4Dim lY4Dim lX8Dim lY8Dim lResult
lX8 = lX And &H80000000lY8 = lY And &H80000000lX4 = lX And &H40000000lY4 = lY And &H40000000
lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)
If lX4 And lY4 ThenlResult = lResult Xor &H80000000 Xor lX8 Xor lY8ElseIf lX4 Or lY4 ThenIf lResult And &H40000000 ThenlResult = lResult Xor &HC0000000 Xor lX8 Xor lY8ElselResult = lResult Xor &H40000000 Xor lX8 Xor lY8End IfElselResult = lResult Xor lX8 Xor lY8End If
AddUnsigned = lResultEnd Function
Private Function F(x, y, z)F = (x And y) Or ((Not x) And z)End Function
Private Function G(x, y, z)G = (x And z) Or (y And (Not z))End Function
Private Function H(x, y, z)H = (x Xor y Xor z)End Function
Private Function I(x, y, z)I = (y Xor (x Or (Not z)))End Function
Private Sub FF(a, b, c, d, x, s, ac)a = AddUnsigned(a, AddUnsigned(AddUnsigned(F(b, c, d), x), ac))a = RotateLeft(a, s)a = AddUnsigned(a, b)End Sub
Private Sub GG(a, b, c, d, x, s, ac)a = AddUnsigned(a, AddUnsigned(AddUnsigned(G(b, c, d), x), ac))a = RotateLeft(a, s)a = AddUnsigned(a, b)End Sub
Private Sub HH(a, b, c, d, x, s, ac)a = AddUnsigned(a, AddUnsigned(AddUnsigned(H(b, c, d), x), ac))a = RotateLeft(a, s)a = AddUnsigned(a, b)End Sub
Private Sub II(a, b, c, d, x, s, ac)a = AddUnsigned(a, AddUnsigned(AddUnsigned(I(b, c, d), x), ac))a = RotateLeft(a, s)a = AddUnsigned(a, b)End Sub
Private Function ConvertToWordArray(sMessage)Dim lMessageLengthDim lNumberOfWordsDim lWordArray()Dim lBytePositionDim lByteCountDim lWordCount
Const MODULUS_BITS = 512Const CONGRUENT_BITS = 448
lMessageLength = Len(sMessage)
lNumberOfWords = (((lMessageLength + ((MODULUS_BITS – CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \ BITS_TO_A_WORD)ReDim lWordArray(lNumberOfWords – 1)
lBytePosition = 0lByteCount = 0Do Until lByteCount >= lMessageLengthlWordCount = lByteCount \ BYTES_TO_A_WORDlBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTElWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition)lByteCount = lByteCount + 1Loop
lWordCount = lByteCount \ BYTES_TO_A_WORDlBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE
lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition)
lWordArray(lNumberOfWords – 2) = LShift(lMessageLength, 3)lWordArray(lNumberOfWords – 1) = RShift(lMessageLength, 29)
ConvertToWordArray = lWordArrayEnd Function
Private Function WordToHex(lValue)Dim lByteDim lCount
For lCount = 0 To 3lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE – 1)WordToHex = WordToHex & Right(“0″ & Hex(lByte), 2)NextEnd Function
Public Function MD5(sMessage)Dim xDim kDim AADim BBDim CCDim DDDim aDim bDim cDim d
Const S11 = 7Const S12 = 12Const S13 = 17Const S14 = 22Const S21 = 5Const S22 = 9Const S23 = 14Const S24 = 20Const S31 = 4Const S32 = 11Const S33 = 16Const S34 = 23Const S41 = 6Const S42 = 10Const S43 = 15Const S44 = 21
x = ConvertToWordArray(sMessage)
a = &H67452301b = &HEFCDAB89c = &H98BADCFEd = &H10325476
For k = 0 To UBound(x) Step 16AA = aBB = bCC = cDD = d
FF a, b, c, d, x(k + 0), S11, &HD76AA478FF d, a, b, c, x(k + 1), S12, &HE8C7B756FF c, d, a, b, x(k + 2), S13, &H242070DBFF b, c, d, a, x(k + 3), S14, &HC1BDCEEEFF a, b, c, d, x(k + 4), S11, &HF57C0FAFFF d, a, b, c, x(k + 5), S12, &H4787C62AFF c, d, a, b, x(k + 6), S13, &HA8304613FF b, c, d, a, x(k + 7), S14, &HFD469501FF a, b, c, d, x(k + 8), S11, &H698098D8FF d, a, b, c, x(k + 9), S12, &H8B44F7AFFF c, d, a, b, x(k + 10), S13, &HFFFF5BB1FF b, c, d, a, x(k + 11), S14, &H895CD7BEFF a, b, c, d, x(k + 12), S11, &H6B901122FF d, a, b, c, x(k + 13), S12, &HFD987193FF c, d, a, b, x(k + 14), S13, &HA679438EFF b, c, d, a, x(k + 15), S14, &H49B40821
GG a, b, c, d, x(k + 1), S21, &HF61E2562GG d, a, b, c, x(k + 6), S22, &HC040B340GG c, d, a, b, x(k + 11), S23, &H265E5A51GG b, c, d, a, x(k + 0), S24, &HE9B6C7AAGG a, b, c, d, x(k + 5), S21, &HD62F105DGG d, a, b, c, x(k + 10), S22, &H2441453GG c, d, a, b, x(k + 15), S23, &HD8A1E681GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8GG a, b, c, d, x(k + 9), S21, &H21E1CDE6GG d, a, b, c, x(k + 14), S22, &HC33707D6GG c, d, a, b, x(k + 3), S23, &HF4D50D87GG b, c, d, a, x(k + 8), S24, &H455A14EDGG a, b, c, d, x(k + 13), S21, &HA9E3E905GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8GG c, d, a, b, x(k + 7), S23, &H676F02D9GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A
HH a, b, c, d, x(k + 5), S31, &HFFFA3942HH d, a, b, c, x(k + 8), S32, &H8771F681HH c, d, a, b, x(k + 11), S33, &H6D9D6122HH b, c, d, a, x(k + 14), S34, &HFDE5380CHH a, b, c, d, x(k + 1), S31, &HA4BEEA44HH d, a, b, c, x(k + 4), S32, &H4BDECFA9HH c, d, a, b, x(k + 7), S33, &HF6BB4B60HH b, c, d, a, x(k + 10), S34, &HBEBFBC70HH a, b, c, d, x(k + 13), S31, &H289B7EC6HH d, a, b, c, x(k + 0), S32, &HEAA127FAHH c, d, a, b, x(k + 3), S33, &HD4EF3085HH b, c, d, a, x(k + 6), S34, &H4881D05HH a, b, c, d, x(k + 9), S31, &HD9D4D039HH d, a, b, c, x(k + 12), S32, &HE6DB99E5HH c, d, a, b, x(k + 15), S33, &H1FA27CF8HH b, c, d, a, x(k + 2), S34, &HC4AC5665
II a, b, c, d, x(k + 0), S41, &HF4292244II d, a, b, c, x(k + 7), S42, &H432AFF97II c, d, a, b, x(k + 14), S43, &HAB9423A7II b, c, d, a, x(k + 5), S44, &HFC93A039II a, b, c, d, x(k + 12), S41, &H655B59C3II d, a, b, c, x(k + 3), S42, &H8F0CCC92II c, d, a, b, x(k + 10), S43, &HFFEFF47DII b, c, d, a, x(k + 1), S44, &H85845DD1II a, b, c, d, x(k + 8), S41, &H6FA87E4FII d, a, b, c, x(k + 15), S42, &HFE2CE6E0II c, d, a, b, x(k + 6), S43, &HA3014314II b, c, d, a, x(k + 13), S44, &H4E0811A1II a, b, c, d, x(k + 4), S41, &HF7537E82II d, a, b, c, x(k + 11), S42, &HBD3AF235II c, d, a, b, x(k + 2), S43, &H2AD7D2BBII b, c, d, a, x(k + 9), S44, &HEB86D391
a = AddUnsigned(a, AA)b = AddUnsigned(b, BB)c = AddUnsigned(c, CC)d = AddUnsigned(d, DD)Next
MD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d))End Function%>
seguro.asp
Você está autenticado com o endereço de e-mail:Click aqui para logout.
validar.asp
Secure Login
<%If sSeed = “” ThenResponse.Write “Sua sessão expirou. Você tem esperado por muito tempo, ou seu navegador não suporta cookies.”ElseIf sEmailAddress = “” ThenResponse.Write “Você não introduzir um endereço de e-mail.”ElseIf LCase(sEmailAddress) LCase(sValidEmailAddress) ThenResponse.Write “Você digitou um endereço de e-mail não registrado.”ElseIf sHash = “” And sPassword “” Then
If sPassword sValidPassword ThenResponse.Write “A senha digitada no incorreta. (Inseguro)”ElseResponse.Write “Login feito com sucesso!Click aqui para continuar.Click aqui para logout.”‘ Store credentials in the Session objectSession(“autent”) = “true”Session(“auth_emailaddress”) = sEmailAddressEnd IfElseIf sHash “” ThenIf sHash sValidHash ThenResponse.Write “A senha digitada esta incorreta.”ElseResponse.Write “Login feito com sucesso!Click aqui para continuar.Click aqui para logout.”
Session(“autent”) = “true”Session(“auth_emailaddress”) = sEmailAddressEnd IfElseResponse.Write “Ocorreu um erro.”End If
%>
Voltar
md5.js
function array(n) {for(i=0;i=0) {a=a%0×80000000;a>>=b;a+=0×40000000>>(b-1);} elsea>>=b;return a;}
function shl1(a) {a=a%0×80000000;if (a&0×40000000==0×40000000){a-=0×40000000;a*=2;a+=0×80000000;} elsea*=2;return a;}
function shl(a,b) {a=integer(a);b=integer(b);for (var i=0;i=0)if (t2>=0)return ((t1&t2)+0×80000000);elsereturn (t1&b);elseif (t2>=0)return (a&t2);elsereturn (a&b);}
function or(a,b) {a=integer(a);b=integer(b);var t1=(a-0×80000000);var t2=(b-0×80000000);if (t1>=0)if (t2>=0)return ((t1|t2)+0×80000000);elsereturn ((t1|b)+0×80000000);elseif (t2>=0)return ((a|t2)+0×80000000);elsereturn (a|b);}
function xor(a,b) {a=integer(a);b=integer(b);var t1=(a-0×80000000);var t2=(b-0×80000000);if (t1>=0)if (t2>=0)return (t1^t2);elsereturn ((t1^b)+0×80000000);elseif (t2>=0)return ((a^t2)+0×80000000);elsereturn (a^b);}
function not(a) {a=integer(a);return (0xffffffff-a);}
/* Here begin the real algorithm */
var state = new array(4);var count = new array(2);count[0] = 0;count[1] = 0;var buffer = new array(64);var transformBuffer = new array(16);var digestBits = new array(16);
var S11 = 7;var S12 = 12;var S13 = 17;var S14 = 22;var S21 = 5;var S22 = 9;var S23 = 14;var S24 = 20;var S31 = 4;var S32 = 11;var S33 = 16;var S34 = 23;var S41 = 6;var S42 = 10;var S43 = 15;var S44 = 21;
function F(x,y,z) {return or(and(x,y),and(not(x),z));}
function G(x,y,z) {return or(and(x,z),and(y,not(z)));}
function H(x,y,z) {return xor(xor(x,y),z);}
function I(x,y,z) {return xor(y ,or(x , not(z)));}
function rotateLeft(a,n) {return or(shl(a, n),(shr(a,(32 – n))));}
function FF(a,b,c,d,x,s,ac) {a = a+F(b, c, d) + x + ac;a = rotateLeft(a, s);a = a+b;return a;}
function GG(a,b,c,d,x,s,ac) {a = a+G(b, c, d) +x + ac;a = rotateLeft(a, s);a = a+b;return a;}
function HH(a,b,c,d,x,s,ac) {a = a+H(b, c, d) + x + ac;a = rotateLeft(a, s);a = a+b;return a;}
function II(a,b,c,d,x,s,ac) {a = a+I(b, c, d) + x + ac;a = rotateLeft(a, s);a = a+b;return a;}
function transform(buf,offset) {var a=0, b=0, c=0, d=0;var x = transformBuffer;
a = state[0];b = state[1];c = state[2];d = state[3];
for (i = 0; i < 16; i++) {x[i] = and(buf[i*4+offset],0xff);for (j = 1; j < 4; j++) {x[i]+=shl(and(buf[i*4+j+offset] ,0xff), j * 8);}}
/* Round 1 */a = FF ( a, b, c, d, x[ 0], S11, 0xd76aa478); /* 1 */d = FF ( d, a, b, c, x[ 1], S12, 0xe8c7b756); /* 2 */c = FF ( c, d, a, b, x[ 2], S13, 0x242070db); /* 3 */b = FF ( b, c, d, a, x[ 3], S14, 0xc1bdceee); /* 4 */a = FF ( a, b, c, d, x[ 4], S11, 0xf57c0faf); /* 5 */d = FF ( d, a, b, c, x[ 5], S12, 0x4787c62a); /* 6 */c = FF ( c, d, a, b, x[ 6], S13, 0xa8304613); /* 7 */b = FF ( b, c, d, a, x[ 7], S14, 0xfd469501); /* 8 */a = FF ( a, b, c, d, x[ 8], S11, 0x698098d8); /* 9 */d = FF ( d, a, b, c, x[ 9], S12, 0x8b44f7af); /* 10 */c = FF ( c, d, a, b, x[10], S13, 0xffff5bb1); /* 11 */b = FF ( b, c, d, a, x[11], S14, 0x895cd7be); /* 12 */a = FF ( a, b, c, d, x[12], S11, 0x6b901122); /* 13 */d = FF ( d, a, b, c, x[13], S12, 0xfd987193); /* 14 */c = FF ( c, d, a, b, x[14], S13, 0xa679438e); /* 15 */b = FF ( b, c, d, a, x[15], S14, 0x49b40821); /* 16 */
/* Round 2 */a = GG ( a, b, c, d, x[ 1], S21, 0xf61e2562); /* 17 */d = GG ( d, a, b, c, x[ 6], S22, 0xc040b340); /* 18 */c = GG ( c, d, a, b, x[11], S23, 0x265e5a51); /* 19 */b = GG ( b, c, d, a, x[ 0], S24, 0xe9b6c7aa); /* 20 */a = GG ( a, b, c, d, x[ 5], S21, 0xd62f105d); /* 21 */d = GG ( d, a, b, c, x[10], S22, 0×2441453); /* 22 */c = GG ( c, d, a, b, x[15], S23, 0xd8a1e681); /* 23 */b = GG ( b, c, d, a, x[ 4], S24, 0xe7d3fbc8); /* 24 */a = GG ( a, b, c, d, x[ 9], S21, 0x21e1cde6); /* 25 */d = GG ( d, a, b, c, x[14], S22, 0xc33707d6); /* 26 */c = GG ( c, d, a, b, x[ 3], S23, 0xf4d50d87); /* 27 */b = GG ( b, c, d, a, x[ 8], S24, 0x455a14ed); /* 28 */a = GG ( a, b, c, d, x[13], S21, 0xa9e3e905); /* 29 */d = GG ( d, a, b, c, x[ 2], S22, 0xfcefa3f8); /* 30 */c = GG ( c, d, a, b, x[ 7], S23, 0x676f02d9); /* 31 */b = GG ( b, c, d, a, x[12], S24, 0x8d2a4c8a); /* 32 */
/* Round 3 */a = HH ( a, b, c, d, x[ 5], S31, 0xfffa3942); /* 33 */d = HH ( d, a, b, c, x[ 8], S32, 0x8771f681); /* 34 */c = HH ( c, d, a, b, x[11], S33, 0x6d9d6122); /* 35 */b = HH ( b, c, d, a, x[14], S34, 0xfde5380c); /* 36 */a = HH ( a, b, c, d, x[ 1], S31, 0xa4beea44); /* 37 */d = HH ( d, a, b, c, x[ 4], S32, 0x4bdecfa9); /* 38 */c = HH ( c, d, a, b, x[ 7], S33, 0xf6bb4b60); /* 39 */b = HH ( b, c, d, a, x[10], S34, 0xbebfbc70); /* 40 */a = HH ( a, b, c, d, x[13], S31, 0x289b7ec6); /* 41 */d = HH ( d, a, b, c, x[ 0], S32, 0xeaa127fa); /* 42 */c = HH ( c, d, a, b, x[ 3], S33, 0xd4ef3085); /* 43 */b = HH ( b, c, d, a, x[ 6], S34, 0x4881d05); /* 44 */a = HH ( a, b, c, d, x[ 9], S31, 0xd9d4d039); /* 45 */d = HH ( d, a, b, c, x[12], S32, 0xe6db99e5); /* 46 */c = HH ( c, d, a, b, x[15], S33, 0x1fa27cf8); /* 47 */b = HH ( b, c, d, a, x[ 2], S34, 0xc4ac5665); /* 48 */
/* Round 4 */a = II ( a, b, c, d, x[ 0], S41, 0xf4292244); /* 49 */d = II ( d, a, b, c, x[ 7], S42, 0x432aff97); /* 50 */c = II ( c, d, a, b, x[14], S43, 0xab9423a7); /* 51 */b = II ( b, c, d, a, x[ 5], S44, 0xfc93a039); /* 52 */a = II ( a, b, c, d, x[12], S41, 0x655b59c3); /* 53 */d = II ( d, a, b, c, x[ 3], S42, 0x8f0ccc92); /* 54 */c = II ( c, d, a, b, x[10], S43, 0xffeff47d); /* 55 */b = II ( b, c, d, a, x[ 1], S44, 0x85845dd1); /* 56 */a = II ( a, b, c, d, x[ 8], S41, 0x6fa87e4f); /* 57 */d = II ( d, a, b, c, x[15], S42, 0xfe2ce6e0); /* 58 */c = II ( c, d, a, b, x[ 6], S43, 0xa3014314); /* 59 */b = II ( b, c, d, a, x[13], S44, 0x4e0811a1); /* 60 */a = II ( a, b, c, d, x[ 4], S41, 0xf7537e82); /* 61 */d = II ( d, a, b, c, x[11], S42, 0xbd3af235); /* 62 */c = II ( c, d, a, b, x[ 2], S43, 0x2ad7d2bb); /* 63 */b = II ( b, c, d, a, x[ 9], S44, 0xeb86d391); /* 64 */
state[0] +=a;state[1] +=b;state[2] +=c;state[3] +=d;
}
function init() {count[0]=count[1] = 0;state[0] = 0×67452301;state[1] = 0xefcdab89;state[2] = 0x98badcfe;state[3] = 0×10325476;for (i = 0; i < digestBits.length; i++)digestBits[i] = 0;}
function update(b) {var index,i;
index = and(shr(count[0],3) , 0x3f);if (count[0]= 63) {transform(buffer, 0);}}
function finish() {var bits = new array(8);var padding;var i=0, index=0, padLen=0;
for (i = 0; i < 4; i++) {bits[i] = and(shr(count[0],(i * 8)), 0xff);}for (i = 0; i < 4; i++) {bits[i+4]=and(shr(count[1],(i * 8)), 0xff);}index = and(shr(count[0], 3) ,0x3f);padLen = (index < 56) ? (56 – index) : (120 – index);padding = new array(64);padding[0] = 0×80;for (i=0;i<padLen;i++)update(padding[i]);for (i=0;i<8;i++)update(bits[i]);
for (i = 0; i < 4; i++) {for (j = 0; j < 4; j++) {digestBits[i*4+j] = and(shr(state[i], (j * 8)) , 0xff);}}}
/* End of the MD5 algorithm */
function hexa(n) {var hexa_h = “0123456789abcdef”;var hexa_c=”";var hexa_m=n;for (hexa_i=0;hexa_i<8;hexa_i++) {hexa_c=hexa_h.charAt(Math.abs(hexa_m)%16)+hexa_c;hexa_m=Math.floor(hexa_m/16);}return hexa_c;}
var ascii=”01234567890123456789012345678901″ +” !\”#$%&’()*+,-./0123456789:;?@ABCDEFGHIJKLMNOPQRSTUVWXYZ”+”[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~”;
function MD5(entree){var l,s,k,ka,kb,kc,kd;
init();for (k=0;k<entree.length;k++) {l=entree.charAt(k);update(ascii.lastIndexOf(l));}finish();ka=kb=kc=kd=0;for (i=0;i<4;i++) ka+=shl(digestBits[15-i], (i*8));for (i=4;i<8;i++) kb+=shl(digestBits[15-i], ((i-4)*8));for (i=8;i<12;i++) kc+=shl(digestBits[15-i], ((i-8)*8));for (i=12;i<16;i++) kd+=shl(digestBits[15-i], ((i-12)*8));s=hexa(kd)+hexa(kc)+hexa(kb)+hexa(ka);return s;}

A sintaxe a utilizar getSize é a seguinte:

someBoolean = pegatamanho(URL, width, height, depth, flType)
‘URL, largura, altura, profundidade, flType

• someBoolean será definido com base verdadeiro ou falso se o script foi capaz de determinar os atributos de imagens
• URL é uma entrada informando a URL da imagem, tais como http://www.sintchospir.com/images/sua_imagem.jpg
• largura será definida para a largura da imagem, ou -1 para script failed
• A altura será definido para a altura da imagem, ou -1 para script failed
•Profundidade será definido como a profundidade da imagem, ou -1 para script failed
• FlType será definido o tipo de arquivo de imagem foi, GIF ou JPG

Utilizando as funções de string binária como midb e lenb. Uma vez que todas as imagens são arquivos binários, essas funções são necessárias.

0 then 'começar em bytes não no início
strbuff = midb(objHTTP.responseBody, offset, bytes)
end if
if bytes = -1 then ' Get All!
GetBytes = objHTTP.responseBody 'ReadAll
else
GetBytes = midb(objHTTP.responseBody, 1, bytes)
end if
end function

set obj = Nothing
end function
%>

Antes de utilizar um array devemos declara-lo de maneira obrigatória, para isso utilizamos a palavra chave DIM, deste modo.

dim Array(50)

Despois da palavra DIM devemos indicar o nome do array e a seguir, entre parênteses, coloca-se o número de posição máxima do array, neste caso 50.

Os arrays começam desde a posição 0, ou seja, o primeiro elemento de um array está na posição 0. Portanto, se o array foi definido com 50 campos, como no exemplo, terá 51 elementos, primeira posição será a 0 e a última posição seria a 50.

Para atribuir um valor a um array se realiza igual que uma variável, porém acessando com o índice da posição que queremos escrever.

Array(0) = 128

Para utilizar o conteúdo de um array devemos faze-lo indicando o índice ao que se deseja acessar. Por exemplo, se quiséssemos imprimir na página a primeira posição de nosso Array o faríamos desta maneira.

document.write(Array(0))

Agora vamos ver um exemplo sobre como utilizar os arrays, onde vamos realizar dois percorridos, um para escrever nele e o outro para ler a informação e escreve-la na página.
dim matriz (10)
for i=0 to 10
matriz(i)=100 * i
next
for i=0 to 10
document.writeln(“Posicao ” & i & “: ” & matriz(i) & “
“)
next

Este exemplo escreveria na página as posições do array, que contém variáveis numéricas que correspondem de multiplicar seu índice por 100.
Bom agora, que vimos como funciona os arrays iremos partir para Arrays dinâmicos.

Aplicação de Objetos com Arrays Dinâmicos

Dentro de qualquer aplicação que eventualmente é necessário o uso de matrizes de dados. Nós precisamos encontrar os dados para o objetos, a fim de simplificar a lógica que vai ser de execução, bem como para tornar o código mais flexível e escalável. Usando uma classe que engloba uma série de objetos, que se mantém e matriz de objetos, descobrimos que a classe superior nos permite adquirir uma forma simplificada de classificar, filtrar e controlar os itens de dados, bem como os valores desses itens de dados.

Essas classes simplificada permitirá que alcance rapidamente e aprender a usar um array dinâmico que mantém uma matriz dinâmica de objetos (ambas as matrizes dinâmicas objetos que estão sendo eles mesmos).

A camada mais profunda da nossa estrutura é uma classe simples de todos os atributos que você pode precisar de realizar.

‘*********** class ***************
‘Classe valor do item
Class item_value_class
Private c_item_value
‘ handle value (let/get)
public property let value(byval data)
c_item_value = data
end property
public property get value()
value = c_item_value
end property
end class
‘******************************************

Observe que esta classe tem um atributo com duas propriedades para permitir a escrita e leitura para o atributo. Isto é normal e não é nada especial. Passamos agora para a próxima camada, onde encontramos a nossa primeira matriz dinâmica.

‘********* classe média ***********************
Class item_class
Private c_item
Private c_values() ‘ Matriz de todos os valores para o item
Private c_size ‘ max determina os valores possíveis para o item

‘ handle item (let/get)
public property let item(byval data)
c_item = data
end property
public property get item()
item = c_item
end property

‘*************************************************
‘************* metodos ***************************
‘*************************************************

‘*********** Event Handlers *************
Private Sub Class_Initialize()
Redim c_values(0)
Set c_values(0) = New item_value_class
c_size=0
End Sub
‘ matar todos os objetos em Adata e livrar memória
Private Sub Class_Terminate()
Dim x
for x=0 to ubound(c_values)
Set c_values(0) = nothing
next
c_size=0
erase c_values
End Sub
‘****************************************
Public Function getValue(iPos)
getValue = c_values(iPos).value
End Function

Public Function putValue(iPos,data)
if iPos>c_size then
Redim preserve c_values(iPos)
for x = c_size+1 to ubound(c_values)
set c_values(x)= New item_value_class
next
c_size=iPos
end if
c_values(iPos).value=cstr(data)

End Function

Public Property get numbervalues()
numbervalues=c_size
end property

Public property get allvalues()
allvalues=c_values
end property

Public property let allvalues(ByRef temp)
Dim x
Dim sizetochange
sizetochange=ubound(temp)
if sizetochange < c_size then
for x=sizetochange+1 to ubound(c_values)
set c_values(x)=nothing
next
Redim preserve c_values(sizetochange)
else
Redim preserve c_values(sizetochange)
for x = c_size+1 to ubound(c_values)
set c_values(x)= New item_value_class
next
end if
c_size=sizetochange
for x=0 to sizetochange
c_values(x).value = temp(x).value
next
end property
end class
'******************************************

Vemos a instanciação de uma matriz de objetos de valor a nossa classe. Observe sempre que adicionar um valor com o método putValue nossa matriz é automaticamente aumentado e instanciado. Há uma propriedade especial chamada de "allvalues" que cria um ponto de referência para a matriz que esta classe possui. Para todos os valores do GET propriedade retorna a referência para a matriz, enquanto o imóvel locado nos permite definir um outro array de objetos da nossa classe de valor igual a outro. As propriedades allvalues tornam-se importantes em nossa camada superior chamada de Dynamic_Object_Array_Class ".

'******** classe superior *********************
Class Dynamic_Object_Array_Class
'************** Properties **************
Private aData()
Private c_size
'****************************************

'*********** Event Handlers *************
Private Sub Class_Initialize()
Redim aData(0)
Set aData(0) = New item_class
c_size=0
c_numberlinks=1
End Sub
' matar todos os objetos em Adata e livrar memória
Private Sub Class_Terminate()
Dim x
for x=0 to ubound(aData)
Set aData(0) = nothing
next
c_size=0
erase aData
End Sub
'****************************************
Public Property Get allitems()
allitems = aData
end property

Public Property Get getsize()
getsize = c_size
end property

Public Function push()
c_size = c_size+1
Redim preserve aData(c_size)
set aData(c_size)= New item_class
push=c_size
End Function

Public Function pop(ipos)
Dim tempcount
pop=aData(ipos).item
if ipos < c_size then
for tempcount=ipos to (c_size – 1)
aData(tempcount).item = aData(tempcount+1).item
aData(tempcount).allvalues = aData(tempcount+1).allvalues
next
end if
set aData(c_size)= nothing
c_size = c_size-1
Redim preserve aData(c_size)
End Function’
End Class
'********** classe superior final ***************

A classe superior implementa um push-pop e um método para aumentar automaticamente ou diminuir o array de objetos da nossa classe de item que a classe superior detém. Observe que o método de classe anteriores allvalues é implementada no método pop na nossa class = mais alto. Agora que temos a nossa matriz dinâmica, devemos colocá-lo para uso. A maneira mais fácil de ver como ele funciona é a de armazenar alguns dados na matriz e em seguida, exibi-la novamente.

'******** Exemplo de código usando Array Dinâmico *****

<%
for y=0 to my_array.getsize
Response.Write "

”
for x=0 to my_array.allitems()(y).numbervalues
if my_array.allitems()(y).getValue(x)”" then
Response.Write “

”
end if
next
next
%>

‘********************************************

Depois de executar o nosso código de exemplo, devemos ver o seguinte em nosso navegador da Web:

‘******* Exemplo de Output *********************

Item: Olá
Item: TRUE FALSE
Value: yes
Value: no
Item: Seu Nome
Item: Outro Item
Item: Lugar em Concurso
Value: Terceiro
Value: segundo
Value: Primeiro
Item: Escolha o Hotel
Value: Nacional Inn
Value: Ibis

‘********* end example output ****************

Resumo

Arrays dinâmicos de objetos que contêm matrizes dinâmicas dos objetos nos permitem criar a estrutura que precisamos de uma forma simplificada e reutilizáveis. Nossas matrizes também serão auxiliadas na classificação, filtragem e manipulação de dados. Apesar de eu não ter incluído o código de exemplo para a classificação e filtragem, uma vez que você entender como funcionam as classes, gerando a classificação e os métodos de filtragem é bastante fácil.
Podemos ainda, Redimensionar arrays
Este tipo de arrays redimensionais se chama array dinâmico. Para criar este tipo de arrays podemos utilizar a sentença dim (como criávamos os anteriores) ou a sentença redim, com a particularidade que não lhe colocamos nenhum valor entre parênteses onde antes indicávamos o número de campos do array.

dim meu_array()
redim meu_outro_array()

Quando usamos arrays dinâmicos podemos utilizar a sentença redim para indicar o número de dimensões e a quantidade de campos de cada dimensão.

Com esta sentença estamos indicando que meu_array deve ter o tamanho 10. Campos desde 0 até a 10.

redim meu_array(10)

Se indicamos a chave “preserve” estamos garantindo que o conteúdo dos campos que havia previamente no array se mantém.

redim preserve meu_array(20)

Por último, se em qualquer momento reduzimos o número de campos perderemos o que possa ter sido salvo nos campos que se eliminaram.

No seguinte exemplo criamos um array dinâmico e o redimensionamos inicialmente a tamanho 3. Preenchemos e mostramos seus distintos valores. Posteriormente o redimensionamos outra vez para que chegue até a posição 7, salvando os valores antigos. Para acabar preenchendo os campos que criamos novos e mostramos todos os valores do array.

dim frutas()
redim frutas(3)

frutas(0) = “Pêra”
frutas(1) = “Uva”
frutas(2) = “Maçã”
frutas(3) = “Melão”

for each fruta in frutas
document.write fruta & “
”
next

redim preserve frutas(7)

frutas(4) = “Melancia”
frutas(5) = “Laranja”
frutas(6) = “Banana”
frutas(7) = “Tangerina”

for each fruta in frutas
document.write fruta & “
”
next

Para saber o número de campos de um array

Um dos dados típicos que necessitamos extrair de um array é seu número de posições, útil, por exemplo, para fazer um percorrido a um array, desde a primeira até o último campo. Para isso, utilizamos a função uBound() de VBScript. A função UBound permite descobrir o que o membro da matriz superior é definida. Isto torna mais fácil o loop para percorrer um array do início ao fim.

Digamos que você usa a função split para analisar uma string em um array. Então você:
Dim ListaArray

SentStr = ” Oitenta e sete anos atrás nossos pais trouxeram ”
ListaArray = split(SentStr, ” “)

Agora você tem uma matriz listarray que pretende percorrer, mas você não sabe até onde ir. Como saber quando você tiver chegado ao final do array ?

A resposta é a função UBound. ubound dá-lhe o membro superior matriz de uma matriz. Neste caso, a matriz tem 10 palavras na mesma. O arrays começam sempre a numeração em zero, significa que essa matriz pontos de 0 a 9 são tomadas. Se você fizer
ubound(ListArray)

O resultado é 9.

Você pode então fazer um loop através dos membros, que operam em cada um .

for loopctr = 0 to ubound(ListaArray)
response.write ListaArray(loopctr)
next

Outro Exemplo:

dim paises (4)
response.write ubound (paises)
Escreveria na página o número do campo mais alto do array paises, neste caso 4.
Ademais, se por acaso algum dia necessitamos, também temos a nossa disposição a função lBound(), que devolve o número da posição com índice menor do array.
response.write lbound (paises)

A última linha sobre nosso array de paises definido anteriormente escreveria um 0 na página web, visto que o array começa na posição zero.

Arrays multidimensionais

Podem-se construir matrizes multidimensionais, ou seja, que nos permitam criar matrizes de várias coordenadas. Para trabalhar com eles utiliza-se uma vírgula que separa os dois índices. Por exemplo, podemos definir uma matriz de 10×10 desta maneira.

dim Array2Dimensoes (9,9)

Como o array é de 10 campos, utilizamos um 9 e suas posições serão as 10 que vão desde o 0 ao 9. Para escrever e ler do Array podemos utilizar a vírgula de maneira similar a como se declara. Por exemplo, para colocar dados na posição 0,4 faríamos o seguinte:

Array2Dimensoes (0,4) = “texto posicao 0,4″

Abaixo, temo um exemplo de como armazenar o conteúdo do vetor em uma session, muito usada pelo pessoal de e-commerce para carrinhos de compras.

<%
"A função abaixo é generica e pode ser utilizada como um arquivo include
Function VetorMonta(Acao,Valor)
"Usamos o case para manipular a ação da função
Select Case Trim(Acao)
"Inclui nova posicao ao vetor
Case "Incluir"
"Guarda na variavel Vetor o conteudo da Session
Vetor = Session("GuardaVetor")
"Verifica se a Variavel Vetor é um Array, caso nao for entao definimos ela um Array
If Not IsArray(Vetor) Then Vetor = Array() End if
"Verifica se o Valor que esta sendo inserido já esta no Vetor se estiver entao nao inseri para nao haver duplicidades do vetor
If InStr(Join(Vetor), Valor) = 0 Then
"Este comando ira preservar o vetor e adciona + 1 valor
ReDim preserve Vetor(UBound(Vetor)+1)
"Este é o valor que estamos adicionando no vetor
Vetor(Ubound(Vetor )) = Valor
"Coloca o conteudo da variavel vetor dentro da Session
Session("GuardaVetor") = Vetor
End if
"Apaga uma determinada posicao do vetor
Case "Excluir"
"Inicia a varivel vetor como vazia
Vetor = Array()
"Criamos uma nova variavel Auxiliar e guardamos o valor da Session
AuxVetor = Session("GuardaVetor")
"Definine a Session como um Array vazio
Session("GuardaVetor") = Array()
"Faz um laço em todas as posições do vetor
For i = 0 To Ubound(AuxVetor)
"Verifica se o valor passado para excluir do vetor é diferente do valor que esta dentro da variavel Auxiliar
If AuxVetor(i) (Valor) Then
“Este comando ira preservar o vetor e adciona + 1 valor
ReDim preserve Vetor (UBound(Vetor)+1)
“Este é o valor que estamos adicionando no vetor
Vetor (Ubound(Vetor)) = AuxVetor(i)
“Coloca o conteudo da variavel vetor dentro da Session
Session(“GuardaVetor”) = Vetor
End If
Next
“Fim do Case
End Select
End Function
Function Incluir_Vetor
“Executa a função que ira criar uma posição do vetor, basta passar a acao e o valor
Call VetorMonta(“Incluir”,Replace(Request(“Valor_Vetor”),”"”,”"))
End Function
Function Excluir_Vetor(Valor_Vetor)
“Executa a função que ira deletar uma posição do vetor, basra passar a acao e o valor
Call VetorMonta(“Excluir”,Valor_Vetor)
End Function
Function VisualizaValoresVetor
“Veriofica se a Session é um array, caso nao for então atribuimos a Session como um Array
IF Not IsArray(session(“GuardaVetor”)) Then session(“GuardaVetor”) = Array() End if
“Faremos um laço entre todos os vetores criados
For x = 0 To ubound(session(“GuardaVetor”)) “ira fazer um laço mostrando todos os vetores criados
“Mostra os valores armazenados na Session e adiciona um link para apagar a posição do vetor caso queira
Response.Write session(“GuardaVetor”)(x) & “(Apagar)” & “
”
Next
“Verifica se a Session tem alguma posição, se tiver mostra a opção de apagar todos os vetores
If ubound(session(“GuardaVetor”)) >= 0 Then
Response.Write “
” &”Apagar Tudo” & “
” “Imprime o Vetor na tela
End if
End Function
Function LimpaVetor
“Limpa todas as posiçoes do vetor, apagando a Session
session(“GuardaVetor”) = Empty
End Function
“USAMOS CASES PARA MANUPULARAS CHAMADAS DAS FUNÇÕES
useraction=request(“action”)
select case useraction
Case “Incluir_Vetor”
“Chama a function que ira incluir um valor para o vetor
Call Incluir_Vetor
Case “Excluir_Vetor”
“Chama a function que ira excluir um valor para o vetor
Call Excluir_Vetor(Request(“Valor_Vetor”))
Case “LimpaVetor”
“Chama a function que apagar todas as posições do vetor
Call LimpaVetor
End Select
%>

Ainda dentro do diretório /fckeditor/, apague todos os arquivos de outra linguagem de programação, (PHP, CFM, LASSO, PL, PY) mantenha apenas os XML, HTML , JS e ASP.

Os arquivos principais que utilizaremos serão fckconfig.js e fckeditor.asp.
fckconfig.js

FCKConfig.ToolbarSets["Default"] = [
['Source','DocProps','-','Save','NewPage','Preview','-','Templates'],
['Cut','Copy','Paste','PasteText','PasteWord','-','Print','SpellCheck'],
['Undo','Redo','-','Find','Replace','-','SelectAll','RemoveFormat'],
['Form','Checkbox','Radio','TextField','Textarea','Select','Button','ImageButton','HiddenField'],
‘/’,
['Bold','Italic','Underline','StrikeThrough','-','Subscript','Superscript'],
['OrderedList','UnorderedList','-','Outdent','Indent','Blockquote','CreateDiv'],
['JustifyLeft','JustifyCenter','JustifyRight','JustifyFull'],
['Link','Unlink','Anchor'],
['Image','Flash','Table','Rule','Smiley','SpecialChar','PageBreak'],
‘/’,
['Style','FontFormat','FontName','FontSize'],
['TextColor','BGColor'],
['FitWindow','ShowBlocks','-','About'] // No comma for the last row.
] ;

FCKConfig.ToolbarSets["Basic"] = [
['Bold','Italic','-','OrderedList','UnorderedList','-','Link','Unlink','-','About']
] ;

ckeditor.asp

Definimos o trecho abaixo de código com estes novos dados. Aqui é definido o diretório base, tamanho da área do editor e também o tipo de barra formada, podendo variar entre Default ou Basic mostrado anteriormente no arquivo fckconfig.js.

Private Sub Class_Initialize()
sBasePath = “/fckeditor/”
sWidth = “100%” ‘Aqui é a largura, aconselho a manter 1005
sHeight = “400″ ‘Aqui é altura
sToolbarSet = “Default”
sValue

Na segunda alteração do arquivo fckeditor.asp iremos mudar para o caminho fckeditor/editor/
Public Function CreateHtml( instanceName )
dim html

If IsCompatible() Then

Dim sFile, sLink
If Request.QueryString( “fcksource” ) = “true” Then
sFile = “fckeditor.original.html”
Else
sFile = “fckeditor.html”
End If

sLink = sBasePath & “fckeditor/editor/” & sFile & “?InstanceName=” + instanceName

If (sToolbarSet & “”) “” Then
sLink = sLink + “&Toolbar=” & sToolbarSet
End If

Iremos agora fazer a chamada deste arquivo fckeditor.asp em uma página asp com formulário simples.

Na página onde você quer que apareça o editor, exatamente no local, coloque o seguinte código, iremos utilizar um include chamando o arquivo fckeditor.asp. Esta página também precisa estar dentro do diretório /fckeditor/

Os caracteres especiais, palavras acentuadas e outros use a metatag:

A acentuação, pode ser resolvida, apenas mudando no inicio das páginas de alteração e inserção de dados no banco de dados, faça as seguintes mudanças:

altera para:

Recuperando os dados dentro do editor. iremos utilizar um include chamando o arquivo fckeditor.asp.

Vamos mudar o FCK Editor 2.6.4 , que vem habilitado para PHP por padrão, para nossa linguagem ASP, entre no arquivo fckconfig.js, dentro do diretório /fckeditor/ e altere as linhas:
var _FileBrowserLanguage = ‘asp’; // asp | aspx | cfm | lasso | perl | php | py
var _QuickUploadLanguage = ‘asp’; // asp | aspx | cfm | lasso | perl | php | py

Você pode mudar o visual (skin) do editor, iremos usar a do office 2003, para isso iremos alterar no arquivo fckconfig.js, dentro do diretório /fckeditor/ a seguinte linha:
FCKConfig.SkinPath = FCKConfig.BasePath + ‘skins/office2003/’;

você indica o caminho da skin que você quer que apareça, é só copiar e subistituir, é só escolher um dos tres:

FCKConfig.SkinPath = FCKConfig.BasePath + ‘skins/default/’ ;
FCKConfig.SkinPath = FCKConfig.BasePath + ‘skins/office2003/’ ;
FCKConfig.SkinPath = FCKConfig.BasePath + ‘skins/silver/’ ;

você pode baixar mais skins acessando aqui: http://www.midiaville.com.br/docs/arquivos/skins/index.php
Você também pode mudar o visual do meu editor, alterando os ícones da barra. Apenas no arquivo fckconfig.js, onde citamos acima. Mudando o parâmetro ToolbarSets

Para fazer upload de fotos, banner flash, arquivos para links e etc.

Navegue até o diretório: /fckeditor/editor/ filemanager/ connectors/
Apague tudo que tiver lá dentro, deixe só o diretório /asp/ dentro dele, edite o arquivo config.asp

Na linha

ConfigIsEnabled = False ‘mude de False para true, isso habilita o upload
ConfigUserFilesPath = “/userfiles/”

Coloque no lugar de userfiles o nome do seu diretório onde será feito o upload a barra no inicio quer dizer que este diretório está na raiz do site. Caso o diretório que você listou aqui não exista o fckeditor vai cria-lo.
Algumas soluções para alguns erros apresentados pelo Editor.
Dentro do diretório FCKeditor/_samples/asp/ existem vários exemplos, iremos utilizar o sample04.asp.

Deste arquivo copie:

e cole no início de sua página de inserção e alteração de dados, no local onde está seu textarea, cole a outra parte do código

<%
Dim sBasePath
sBasePath = Request.ServerVariables(“PATH_INFO”)
sBasePath = Left( sBasePath, InStrRev( sBasePath, “/_samples” ) )
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = sBasePath
If Request.QueryString(“Skin”) “” Then
oFCKeditor.Config(“SkinPath”) = sBasePath + “editor/skins/” & Server.HTMLEncode( Request.QueryString(“Skin”) ) + “/”
End If
oFCKeditor.Value = ” ”
oFCKeditor.Create “FCKeditor1″
%>

Note-se que apaguei todos os comentários.
Atenção! – A página de inserção e alteração de dados deve estar na pasta raiz do FCKeditor, no meu caso eu uso o diretório config.

Localizar os arquivos no servidor

Agora é a vez de localizarmos os arquivos no servidor, para não dar erros, localize:
FCKeditor/editor/filemanager/browser/default/connectors/asp/config.asp
Faça as mudanças, altere o trecho abaixo:

Dim ConfigIsEnabled
ConfigIsEnabled = true ‘aqui estará false, muda para true

Para:

Dim ConfigUserFilesPath
ConfigUserFilesPath = “/fotos/” ‘aqui coloca em qual diretório ele deve buscar os arquivos

Fazer o upload dos arquivos

Para fazer o upload dos arquivos, evite os erros, ache o arquivo:

FCKeditor/editor/filemanager/upload/asp/config.asp

Faça as seguintes mudanças:

Dim ConfigIsEnabled
ConfigIsEnabled = true] ‘aqui estava false, você muda para true

Nesse trecho:

Dim ConfigUserFilesPath
ConfigUserFilesPath = “/fotos/” ‘aqui você mostra o diretório onde serão upados os arquivos

Estamos usando o diretório fotos, verifique sempre se o diretório que você está setando em seus arquivos config. está criado, preferencialmente que seja um diretório no diretório raiz do site. Não esqueça das permissões de escrita no diretório indicado.

Sempre que for mudar o diretório, use a / no final, exemplo /fotos/, /banco/, não esqueça a barra no final pois ela será necessária na função de FSO do FCKeditor para ciriar subdiretórios,como é o caso de imagens, flash e outros, pois para cada extensão de arquivo, o fckeditor usa um subdiretório.

O parent path conhecido como “..”, não está disponível, isso se deve por resolução da Microsoft que o desabilitou por padrão na versão 6 do IIS. Então não use ../../../fotos/
O Server.MapPath sempre aponta para a raiz de seu site, ou seja, se estiver na pasta “/includes/libs/” e quiser apontar para o arquivo “/db/meu.mdb”, use Server.MapPath (“/db/meu.mdb”);
Alterando a Largura e Altura do Textarea

Agora vamos para o arquivo FCKeditor/ FCKeditor.asp

Encontre o trecho:

Private Sub Class_Initialize()
sBasePath = “/config/”
sWidth = “465″
sHeight = “450″
sToolbarSet = “Default”
sValue = “”

Nas linhas

sWidth = “465″
sHeight = “450″

Vvocê pode mudar para a largura ou altura que quiser, se for em pixels, não é necessário usar o px, use apenas os números.

Diretório base

Na linha do arquivo /FCKeditor.asp:
sBasePath = “/config/”
Altere para config, o seu pode estar como /FCKeditor/, aqui é necessário você mudar para o nome do diretório onde estão os arquivos, para não acontecer os erros de xlm que geralmente acontecem.
Alterar os dados do bd com o FCKeditor
Para alterar os dados do banco de dados com o FCKeditor , você pode recuperar os dados do campo dentro do textarea, proceda da seguinte forma:

Na página altere os dados:

Para: