ASP页面

作 者 : 青苹果电脑工作室

这个例子中的第一站是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

% >