Penulis: Qing Apple Computer Studio
Perhentian pertama dalam contoh ini adalah halaman ASP. Halaman ASP ini terhubung dengan database ADO dan Northwind. Untuk mempertahankan kebiasaan pengkodean yang baik, saya
Opsi eksplisit digunakan dan dengan jelas menyatakan semua variabel. Draf pertama halaman ASP ini menggunakan kode dalam.
< % @ Bahasa = vbscript %>
< %
'Contoh kode inline
opsi eksplisit
'Deklarasikan variabel
redup oconn
redup
redup connectionString
redup x
ConnectionString = dsn = Northwind;
Setel oconn = server.CreateObject (adodb.connection)
Oconn.Open Connectionstring
setRs = server.CreateObject (adodb.oldset)
'Atur variabel
Ondeconnection = oconn
C C C C
ond.open
%>
<Html>
<head>
<meta http-equiv = konten-tipe konten = teks/html;
<iteme> Halaman baru 1 </iteme>
</head>
<body>
<h1> Produk </h1>
<Table Cellspacing = 2 CellPadding = 5>
<trbgcolor =#ff6666>
<t th> Nama produk </th>
<t th> kuantitas per unitr </th>
<th> harga </t>
</tr>
< %
lakukan unil om.eof
Jika x = 1 maka
x = 0
%>
<trbgcolor =#ffcccc>
< % Else %>
<tr>
< %
x = 1
akhiri jika
%>
<td> < % = ors (ProductName) %> </td>
<td> < % = ors (quantityperunit) %> </td>
<td> < % = ors (unitprice) %> </td>
</tr>
< %
OnDenext
lingkaran
%>
</boable>
</body>
</html>
< %
'Hancurkan benda
setRs = tidak ada
atur oconn = tidak ada
%>