O
ASP
(de
Active Server Pages
), tambem conhecido como ASP Classico hoje em dia, e uma estrutura de bibliotecas basicas (e nao uma linguagem) para processamento de
linguagens de script
no lado servidor para geracao de conteudo dinamico na
Web
. Exemplos de linguagens aceitas sao:
VBScript
,
JScript
,
PerlScript
,
Tcl
ou
Python
sendo que apenas as duas primeiras sao suportadas por padrao.
[
1
]
A mais comumente difundida foi
VBScript
, sendo encontrada varias referencias a ASP VBScript em artigos.
ASP foi substituido pelo
ASP.NET
, mas ate hoje e suportada por versoes atuais do IIS.
Ele roda/corre nativamente em
Windows
, atraves do servico chamado de
IIS
(
Internet Information Service
) - o
servidor web
da
Microsoft
, ou do
PWS
(Personal Web Server) em ambientes com o
Windows 98
. Alem disso ele pode rodar em outras plataformas, como
Linux
no servidor
Apache
quando usando um
modulo
de um programa como o
Tomcat
.
O script e interpretado no lado do servidor e o que e enviado ao lado do usuario/utilizador (
navegador
, por exemplo) e apenas a saida que normalmente e uma
linguagem de marcacao
como
HTML
,
XHTML
ou
XML
.
Por se tratar de uma linguagem que roda do lado do servidor, e possivel estabelecer o que vai ser enviado para o usuario (e o caso de sites que possuem diferentes perfis de acesso) e tambem fazer consultas a
bancos de dados
.
Um exemplo de uma pagina ASP conforme os
padroes web
pode ser representado pelo seguinte codigo:
O exemplo 1 mostra uma tabela com links que aparecerao nas colunas iniciais. Clicando em um dos links o exemplo 2 sera chamado e recebera um ID como parametro. No exemplo 2 sera permitido alterar as informacoes e apos clicar no botao Submit, o exemplo 3 sera chamado para processar as informacoes e atualiza-las no banco de dados em
SQL
.
Exemplo 1 (1a parte):
1
<html>
2
<head>
3
<title>
dbfullteste1.asp
</title>
4
</head>
5
<body
bgcolor=
"#FFFFFF"
>
6
<%
7
' Conexao com o banco
8
set
conntemp
=
server
.
createobject
(
"adodb.connection"
)
9
conntemp
.
open
"Estudante"
,
"Estudante"
,
"magic"
10
11
set
rstemp
=
conntemp
.
execute
(
"select * from autores where AU_ID<100"
)
12
qtde_campos
=
rstemp
.
fields
.
count
-
1
13
%>
14
<table
border=
"1"
>
15
<tr>
16
<td
valign=
"top"
>
---
</td>
17
<%
'Preenche a primeira linha com o nome dos campos
18
for
i
=
0
to
qtde_campos
%>
19
<td><b><%=
rstemp
(
i
).
name
%></b></td>
20
<%
next
%>
21
</tr>
22
<%
' Preenche a tabela com os registros do banco
23
do
while
not
rstemp
.
eof
%>
24
<tr>
25
<td
valign=
"top"
><a
HREF=
"dbfullteste2.asp?str_ID=
<%=
rstemp
(
"AU_ID"
)
%>
">Editar
</a></td>
26
<%
for
i
=
0
to
qtde_campos
%>
27
<td
valign=
"top"
><%
=
rstemp
.
fields
(
i
).
value
%></td>
28
<%
next
%>
29
</tr>
30
<%
rstemp
.
movenext
31
loop
32
conntemp
.
close
%>
33
</table>
34
</body>
35
</html>
Exemplo 2 (2a. parte):
1
<html>
2
<head>
3
<title>
dbfullteste2.asp
</title>
4
</head>
5
6
<body
bgcolor=
"#FFFFFF"
>
7
8
<%
9
' Conecta com o banco e pega o valor do str_ID permitindo a edicao do registro
10
set
conntemp
=
server
.
createobject
(
"adodb.connection"
)
11
conntemp
.
open
"Estudante"
,
"Estudante"
,
"magic"
12
13
ID
=
request
.
querystring
(
"str_ID"
)
14
sqltemp
=
"select * from autores where AU_ID="
&
ID
15
set
rstemp
=
conntemp
.
execute
(
sqltemp
)
16
atual_ID
=
rstemp
(
"AU_ID"
)
17
atual_nome
=
rstemp
(
"autor"
)
18
atual_ano_nasc
=
rstemp
(
"ano_nasc"
)
19
%>
20
21
<form
name=
"meu_autor"
action=
"dbfullteste3.asp"
method=
"GET"
>
22
<p>
ID:
<input
type=
"TEXT"
name=
"id"
value=
"
<%=
atual_id
%>
">
</p>
23
<p>
Nome
do
autor:
<input
type=
"TEXT"
name=
"nome"
value=
"
<%=
atual_nome
%>
">
</p>
24
<p>
Ano
de
Nascimento:
<input
type=
"TEXT"
name=
"ano"
value=
"
<%=
atual_ano_nasc
%>
">
</p>
25
<p>
<input
type=
"SUBMIT"
>
</p>
26
</form>
27
</body>
Exemplo 3 (parte):
1
<html>
2
<head><title>
dbfullteste3.asp
</title></head>
3
<body
bgcolor=
"#FFFFFF"
>
4
<%
5
on
error
resume
next
6
au_nome
=
request
.
querystring
(
"nome"
)
7
' Corrige os apostrofos
8
au_nome
=
Replace
(
au_nome
,
"'"
,
"''"
)
9
10
au_ano
=
request
.
querystring
(
"ano"
)
11
au_ID
=
request
.
querystring
(
"ID"
)
12
Set
Conn
=
Server
.
CreateObject
(
"ADODB.Connection"
)
13
conn
.
open
"Estudante"
,
"Estudante"
,
"magic"
14
15
SQLstmt
=
"UPDATE autores "
16
SQLStmt
=
SQLstmt
&
"SET autor='"
&
au_nome
&
"',"
17
SQLstmt
=
SQLstmt
&
"ano_nasc="
&
au_ano
18
SQLStmt
=
SQLStmt
&
" WHERE AU_ID="
&
au_ID
19
Set
RS
=
Conn
.
Execute
(
SQLStmt
)
20
If
err
.
number
>
0
then
21
response
.
write
"Ocorreram erros no script:"
&
"<P>"
22
response
.
write
"Numero="
&
err
.
number
&
"<P>"
23
response
.
write
"Descricao="
&
err
.
description
&
"<P>"
24
response
.
write
"Help Context="
&
err
.
helpcontext
&
"<P>"
25
response
.
write
"Help Path="
&
err
.
helppath
&
"<P>"
26
response
.
write
"Native Error="
&
err
.
nativeerror
&
"<P>"
27
response
.
write
"Source="
&
err
.
source
&
"<P>"
28
response
.
write
"SQLState="
&
err
.
sqlstate
&
"<P>"
29
else
30
response
.
write
"Nenhum problema aconteceu!"
&
"<P>"
31
end
if
32
IF
conn
.
errors
.
count
>
0
then
33
response
.
write
"Ocorreram erros com o banco de dados"
&
"<P>"
34
response
.
write
SQLstmt
&
"<P>"
35
for
counter
=
0
to
conn
.
errors
.
count
36
response
.
write
"Numero do erro:"
&
conn
.
errors
(
counter
).
number
&
"<P>"
37
response
.
write
"Descricao --> "
&
conn
.
errors
(
counter
).
description
&
"<P>"
38
next
39
else
40
response
.
write
"Parece que tudo esta ok. O Autor foi atualizado!"
&
"<P>"
41
end
if
42
Conn
.
Close
43
%>
44
</body>
45
</html>
Exemplo 4: Exemplo em ASP.Net de uma rotina de falha no ISS.
<location
path=
"http://www.exemplo.com.br"
>
<system.webServer>
<tracing>
<traceFailedRequests>
<add
path=
"*"
>
<traceAreas>
<add
provider=
"WWW Server"
areas=
"Security"
verbosity=
"Verbose"
/>
</traceAreas>
<failureDefinitions
statusCodes=
"404.2"
/>
</add>
</traceFailedRequests>
</tracing>
</system.webServer>
</location>
- ↑
≪ASP≫
(em catalao).
GEC
. Consultado em 7 de agosto de 2020