ASP

Origem: Wikipedia, a enciclopedia livre.

Nota: Para outros significados, veja ASP (desambiguacao).

Esta pagina cita fontes, mas que nao cobrem todo o conteudo. Ajude a inserir referencias (Encontre fontes: Google (N * L * A * I * WP refs) * ABW * CAPES). (outubro de 2010)

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.

Exemplos de codigo ASP

[editar | editar codigo]

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 2 3 dbfullteste1.asp 4 5 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 border="1"> 15 16 valign="top">--- 17 <% 'Preenche a primeira linha com o nome dos campos 18 for i=0 to qtde_campos %> 19 <%=rstemp(i).name %> 20 <% next %> 21 22 <% ' Preenche a tabela com os registros do banco 23 do while not rstemp.eof %> 24 25 valign="top"> HREF="dbfullteste2.asp?str_ID=<%=rstemp("AU_ID")%>">Editar 26 <% for i = 0 to qtde_campos%> 27 valign="top"><% = rstemp.fields(i).value %> 28 <% next %> 29 30 <% rstemp.movenext 31 loop 32 conntemp.close%> 33 34 35

Exemplo 2 (2a. parte):

1 2 3 dbfullteste2.asp 4 5 6 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 name="meu_autor" action="dbfullteste3.asp" method="GET"> 22 ID: type="TEXT" name="id" value="<%=atual_id%>"> 23 Nome do autor: type="TEXT" name="nome" value="<%=atual_nome%>"> 24 Ano de Nascimento: type="TEXT" name="ano" value="<%=atual_ano_nasc%>"> 25 type="SUBMIT"> 26 27

Exemplo 3 (parte):

1 2 dbfullteste3.asp 3 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:" & "" 22 response.write "Numero=" & err.number & " " 23 response.write "Descricao=" & err.description & " " 24 response.write "Help Context=" & err.helpcontext & " " 25 response.write "Help Path=" & err.helppath & " " 26 response.write "Native Error=" & err.nativeerror & " " 27 response.write "Source=" & err.source & " " 28 response.write "SQLState=" & err.sqlstate & " " 29 else 30 response.write "Nenhum problema aconteceu!" & " " 31 end if 32 IF conn.errors.count> 0 then 33 response.write "Ocorreram erros com o banco de dados" & " " 34 response.write SQLstmt & " " 35 for counter= 0 to conn.errors.count 36 response.write "Numero do erro:" & conn.errors(counter).number & " " 37 response.write "Descricao --> " & conn.errors(counter).description & " " 38 next 39 else 40 response.write "Parece que tudo esta ok. O Autor foi atualizado!" & "

" 41 end if 42 Conn.Close 43 %> 44 45