ASP.NET. Учебный курс (Г.Бучек.)

Второй элемент Label предназначен для отображения описания дома, которое будет составлено из отдельных значений:

<asp:Label

id-"lblHomeInfoBlob" Font-Size-"10pt" Font-Name-"Comic Sans MS" runat-"server"

/>

Для вывода на экран изображений применяется элемент управления DataList:

<asp:DataList id-"dlPics" runat-"server" Repea tColumn s-"4"> <ItemTemplate>

<%# "<IMG SRC-""" & _

DataBinder.Eval(Container.Dataltem, "ImagePath")_ & """ ALT-""" ? DataBinder

Eval(Container.Dataltem, "ImageAlt") & """>" %> </ItemTemplate> </a sp:DataLlst>

Изображения выводятся по четыре в ряд:RepeatColumns-"4">

Используется единственный шаблон:<ItemTemplate>

В этом шаблоне имя файла изображения помещается в HTML-тег Image:

<%# "<IMG SRC-""" « _

DataBinder.Eval(Container.Dataltem, "ImagePath")_ 6 """ ALT-""" & DataBinder._

Eval(Container.Dataltem, "ImageAlt") & """>" %> </ItemTemplate>

Код страницы выполняется при ее открытии.

i

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) If Len(Page.Request.QueryString("HLCN")) - 0 Then

Response.Redirect("./index.aspx") End If

Dim DBConn as OleDbConnection Dim DBCommand As OleDbDataAdapter Dim DSHomeData ac New DataSet

DBConn - New oleDbConnection("Provider-sqloledb;" 6 "server-localhost?" _ « "Initial Catalog-INETCll;" ^ & "User Id-sa;" _ & "Password-yourpassword;") DBCommand - New OleDbDataAdapter _

("Select * from Listings Where HLCN - •" ? Page.Request.QueryString("HLCN") & "•",DBConn) DBCommand. Fi 11 (DSHomeData, __

"Listing") ' .,

If DSHomeData.Tables("Listing*).Rows.Count - 0 Then

lblHomelnfoBlob.Text - "Введенный код не найден. " & "Возможно, дом продан или снят с продажи.<BR>" & "<А HREF-""./index.aspx"">Возврат на стартовую страницу</А>"

Else