server-asp-illust.gif (2981 bytes)server-asp-subhead.gif (2416 bytes) asp-lessons-logoGIF.gif (2742 bytes)

 

Данная страница демонстрирует пример создания выпадающего меню и программы для использования этого меню в выборке данных из базы.

Файл DropMenu.asp, выводит список клиентов в виде выпадающего меню

<%Set Connection=Server.CreateObject("ADODB.Connection")
Connection.Open "DSN=MyODBCdatabaseonServer"
'Хотим получить только Id (идентификатор клиента) и его имя
SQL="SELECT id,name FROM Client ORDER BY name"
Set rs = Connection.Execute (SQL)%>
'Строим форму, полученную из поля name базы данных
<FORM ACTION="/test/getfrombase.asp" METHOD = "POST">
Клиент:
<select name="client" size="1">
<option value="none" selected>Ничего не выбрано...
<%Do Until rs.eof %>
<option value="<%=rs("id")%>"><%=rs("name")%></option>
<% rs.MoveNext
Loop
rs.Close%>
</select>

Файл GetFromBase.asp, выводит данные выбранного клиента

<%Set Connection=Server.CreateObject("ADODB.Connection")
Connection.Open "DSN=MyODBCdatabaseonServer"
'Хотим получить все данные по клиенту, выбранному в выпадающем меню клиенту
SQL="SELECT * FROM Client WHERE id=" & request("client")
Set rs = Connection.Execute (SQL)%>
'Выводим карточку данных этого клиента
Имя: <%=rs("name")<br>
Фамилия: <%=rs("lastname")%><br>
Адрес: <%=rs("address")%><br>
.........
<%rs.Close%>