asp頁面
作者: 青蘋果電腦工作室本文點擊次數：351
這個例子中的第一站是asp頁。這個asp頁用ado與northwind 數據庫連接。為了保持良好的編碼習慣，我
使用了option explicit 並明確地聲明了所有變量。這個asp頁的第一個草稿使用了內聯代碼。
< % @ language=vbscript % >
< %
'example of inline code
option explicit
'declare variables
dim oconn
dim ors
dim connectionstring
dim x
connectionstring = dsn=northwind;
set oconn = server.createobject(adodb.connection)
oconn.open connectionstring
set ors = server.createobject(adodb.recordset)
'set variables
ors.activeconnection = oconn
ors.source = select * from products
ors.open
% >
< html >
< head >
< meta http-equiv=content-type content=text/html; charset=windows-1252 >
< title >new page 1< /title >
< /head >
< body >
< h1 >products< /h1 >
< table cellspacing=2 cellpadding=5 >
< tr bgcolor=#ff6666 >
< th >product name< /th >
< th >quantity per unitr< /th >
< th >price< /th >
< /tr >
< %
do until ors.eof
if x = 1 then
x = 0
% >
< tr bgcolor=#ffcccc >
< % else % >
< tr >
< %
x = 1
end if
% >
< td >< %=ors(productname)% >< /td >
< td >< %=ors(quantityperunit)% >< /td >
< td >< %=ors(unitprice)% >< /td >
< /tr >
< %
ors.movenext
loop
% >
< /table >
< /body >
< /html >
< %
'destroy objects
set ors = nothing
set oconn = nothing
% >