Знакомство с ASP.NET

Что еще нужно знать об ASP.NET

Взаимодействие с клиентом

Создание интерактивных приложений для intranet-сетей

Расширение функциональных возможностей intarnet

Создание спортивного Web-узла

Управление содержимым Web-узла

Отслеживание действий посетителейa

Виртуальный университет

 Использование специализированных приложений на узлах компаний

Виртуальная риэлтерская контора

Персонализация узла для посетителей

Интерактивные возможности узла

Увеличение посещаемости узла

Создание интерактивного магазина

Создание интерактивного аукциона

Web-службы

Справочник по языку ASP.NET/VB.

Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET". Москва: BHV, 2002.

Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов


Проект Библиотека
Проект Отчет о происшествии

Код страницы содержит две процедуры. Первая процедура активизируется при первой загрузке страницы. На этом этапе страница заполняется данными отчета о происшествии, который она должна отображать.

    Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    If Len(Request.QueryString("IRID")) - 0 Then
    Response.Redirect("./index.aspx")
    End If
    If Not IsPostBack Then
    Dim DBConn as OleDbConnection
    Dim DBCommand As OleDbDataAdapter
    Dim DSPageData as New DataSet
    DBConn = New OleDbConnection("Provider=sqloledb;" _
    & "server=localhost;" _
    & "Initial Catalog=INETCS;" _
    & "User Id=sa;" _
    & "Password=yourpassword;")
    DBCommand = New OleDbDataAdapter _
    ("Select Location, Description, Impact, " _
    & "Prevention, Status From IRs " _
    & "Where IRID = "
    & Request.QueryString("IRID"), DBConn)
    DBCommand.Fill(DSPageData, _
    "IR")
    IblMessage.Text = "Подразделение:<BR>" _
    & DSPageData.Tables("IR").
    Rows(O).Item("Location") & "<BR><BR>" _
    & "Описание:<BR>" _
    & DSPageData.Tables("IR"). _
    Rows (0) .Item("Description") & "<BR><BR>"
    & "Последствия:<BR>" _
    & DSPageData.Tables("IR").
    Rows (0) .Item("Impact") & "<BR><BR>"
    & "Меры предотвращения:<BR>" _
    & DSPageData.Tables("IR").
    Rows(O) .ItemC'Prevention") & "<BR><BR>"
    ddlStatus.Selectedltem.Text = _
    DSPageData.Tables("IR"),Rows<0).Item("Status")
    End If
    End Sub

Страница должна открываться только в том случае, если ей был передан идентификатор IRID:

    If Len(Request.QueryString("IRID")) = 0 Then

Если это не было сделано, руководитель попадает на страницу Отчет о происшествии:

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

Сначала из базы извлекается отчет о происшествии, соответствующий идентификатору, переданному странице:

    DBCommand - New OleDbDataAdapter _
    ("Select Location, Description, Impact, " _
    & "Prevention, Status From IRs " _
    & "Where IRID = " _
    & Request.QueryString("IRID"), DBConn)
    DBCommand.Fill(DSPageData, _
    "IR")

Данные этой записи вместе с HTML-тегами помещаются в элемент Label:

    IblMessage.Text - "Подразделение:<BR>" _
    & DSPageData.Tables("IR").
    Rows(O).ItemC'Location") & "<BR><BR>" _
    & "Описание:<BR>" _
    & DSPageData.Tables("IR"). _
    Rows(O).Item("Description") & <BR><BR>" _
    & " Последствия:<BR>" _
    & DSPageData.Tables("IR").
    Rows(O) .Item("Impact") & "<BR><BR>"
    & "Меры предотвращения:<BR>" _
    & DSPageData.Tables("IR"). _
    Rows(0).Item("Prevention") & "<BR><BR>"

После этого определение статуса происшествия передается в элемент DropDownList:

    ddlStatus.Selectedltem.Text = _
    DSPageData.Tables("IR").Rows(O).Item("Status")

Вторая процедура выполняется, когда руководитель щелкает на кнопке Добавить.

    Sub Add_Click(Sender As Object, E As EventArgs)
    Dini DBConn as OleDbConnection
    Dim DBUpdate As New OleDbCommand
    DBConn = New OleDbConnection("Provider=sqloledb;" _
    & "server«localhost;" _
    & "Initial Catalog=INETC5;" _
    & "User Id=sa;"
    & "Password=yourpassword;")
    DBUpdate.CommandText = "Update IRs Set " _
    & "Status = '" & ddlStatus.Selectedltem.Text & "', " _
    & "Comments = '" _
    & Replace(txtComments.Text, "'", '"'") & "' Where " _
    & "IRID = " s Request.QueryString("IRID")
    'DBUpdate.Connection = DBConn
    DBUpdate.Connection.Open
    DBUpdate.ExecuteNonQueryO
    End Sub

Данная процедура обновляет запись отчета о происшествии, добавляя в запись замечания и статус происшествия, введенные руководителем. Обновление соответствующей записи выполняется следующим образом:

    DBUpdate.CommandText = "Update IRs Set " _
    & "Status = '" & ddlStatus.Selectedltem.Text & '", " _
    & "Comments """_.'
    & Replace (txtComments. Text, ""', """) & '"'where " _
    & "IRID = " & Request.QueryString("IRID")
    DBUpdate.Connection =DBConn
    DBUpdate.Connection.Open
    DBUpdate.ExecuteNonQuery ()

Изменение кода для Access

Если данную программу необходимо использовать с базой данных Access вместо базы SQL-сервера, достаточно лишь заменить строку связи

    DBCorm = New OleDbConnection("Provider=sqloledb;" _
    & "server=localhost;" _
    & "Initial Catalog-INETCS;" _
    & "User Id=sa;" _
    & "Password=yourpassword; ")

строкой

    DBConn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
    & "DATA SOURCE=" _
    & Server.MapPath("/INetBook/C5/IR/" _
    & "Access/CSLibrary.mdb;"))

Hosted by uCoz