Visual Basic 6. Руководство разработчика


         

Страница - часть 3


Программа 22.9. Файл PRODCAT.ASP

<HTML>

<%

ReqCategory=Request. QueryString ("CategoryID")

ReqName=Request. QueryString ("CategoryName")

Set DBObj = Server.CreateObject ("ADODB.Connection")

DBObj.Open "NWindDB"

SQLQuery = "SELECT ProductName, UnitPrice, UnitsInStock FROM Products

WHERE CategoryID = " & ReqCategory S " ORDER BY ProductName"

Set RSProducts = DBObj.Execute(SQLQuery)

%>

<CENTER>

<H1>Query Results</H1>

<H3>List of products in category <% = ReqName %></H3>

</CENTER>

<TABLE>

<% Do While Not RSProducts.EOF %>

<TR>

<TD> <FONT FACE="Verdana" SIZE=2>

<% = RSProducts ("ProductName") & " (" &

RSProducts ("UnitPrice") & ")" %>

</FONT></TD>

<TD><FONT FACE="Verdana" SIZE=2>

<% = RSProducts ("UnitsInStock") %>

</FONT></TD>

  </TR>

<%

RSProducts.MoveNext

Loop

%>

</TABLE>

</HTML>

Этот пример достаточно прост. Если некоторые его фрагменты выглядят непонятно, то отделите выражения, вычисляющиеся на сервере, от HTML-кода. При этом можно использовать символические имена - ProductName и UnitPrice. Убедившись, что код работает, замените их действительными переменными серверного сценария.




Содержание  Назад  Вперед