Autor: Qing Apple Computer Studio
A primeira parada neste exemplo é a página ASP. Esta página ASP está conectada com o banco de dados ADO e Northwind. Para manter um bom hábito de codificação, eu
A opção explicit foi usada e claramente declarou todas as variáveis. O primeiro rascunho desta página ASP usa o código interno.
< % @ Idioma = vbscript %>
< %
'Exemplo de código embutido
opção explícita
'Declare variáveis
Dim OConn
Dim Ors
Dim ConnectionsTring
dim x
ConnectionString = DSN = Northwind;
set oconn = server.createObject (adodb.connection)
OCONN.OPEN Connectionstring
setrs = server.createObject (adodb.oldset)
'Defina variáveis
ONDECONNEÇÃO = OCONN
C C C C
ond.open
%>
<html>
<head>
<meta http-equiv = conteúdo content = text/html;
<Title> Nova página 1 </ititure>
</head>
<Body>
<H1> Produtos </h1>
<Table CellSpacing = 2 CellPadding = 5>
<trbgcolor =#ff6666>
<th> Nome do produto </th>
<h> quantidade por unitr </th>
<th> preço </th>
</tr>
< %
Faça Unil Om.eof
Se x = 1 então
x = 0
%>
<trbgcolor =#ffcccc>
< % Mais %>
<tr>
< %
x = 1
final se
%>
<Td> < % = ors (productName) %> </td>
<Td> < % = ors (quantityperunidade) %> </td>
<Td> < % = ors (UnitPrice) %> </td>
</tr>
< %
ONDENEXT
laço
%>
< /tabela>
< /body>
</html>
< %
'Destruir objetos
setrs = nada
Definir oconn = nada
%>