(ASP.NET) ASP.NET (2007 год)

Машина состояний Web-приложения

Разумеется, все программирование - это смена состояний конечного автомата - программы, которе может быть позиционное - испольняемый номер строки программы или по состояниям, отмеченных особыми флагами состояния. В виндузовых приложениях - все проще - в зависимости от действий пользователя почти всегда выполняются РАЗНЫЕ участки программы, однако в ВЭБ-приложениях все самое интересное происходит всегда в одном и том же участке программы - Page_Load. И вся сложная логика сосредотачивается в этом месте, размер которого лишь в исключительно редких случаях бывает менее 1000 строк.

На этой страничке мы рассмотрим полный пример построения странички с достаточно сложной схемой смены состояний.


Проектирование такой странички начинается всегда с описания (желательно формализованного) всех входных параметров работы. Эти параметры надо тщательнейшим образом проанализировать на входе - и определить РЕЖИМ работы страницы, заданный входными параметрами.

00001: Imports System.Web
00002: Imports System.Web.UI
00003: Imports System.Data, System.Configuration
00004: Imports SALWeb.Courses.BusinessLogicLayer
00005: 
00006: Partial Class Courses_Default
00007:     Inherits System.Web.UI.Page
00008: 
00009:     ''' <summary>
00010:     ''' This is a input mode of calling this page
00011:     ''' </summary>
00012:     Private Enum InputMode
00013:         SemesterAndCourse = 1
00014:         SemesterAndCourseWithMainSub = 2
00015:         SemesterAndLector = 3
00016:         SemesterAndLectorWithMainSub = 4
00017:         Semester = 5
00018:         SemesterWithMainSub = 6
00019:         Sommerkurse = 7
00020:         SommerKurseWithMainSub = 8
00021:         Lector = 9
00022:         LectorWithMainSub = 10
00023:         Course = 11
00024:         CourseWithMainSub = 12
00025:         Samstags = 13
00026:         SamstagsWithMainSub = 14
00027:         SamstagsAndCourceWithMainSub = 14
00028:         SamstagsAndCource = 15
00029:         None = 16
00030:         MainSub = 17
00031:     End Enum
00032: 
00033:     ''' <summary>
00034:     ''' This is a main input parameters in this page state machine
00035:     ''' </summary>
00036:     Private Enum PageState
00037:         Prepare = 1
00038:         SemesterPostBack = 2
00039:         MainPostBack = 3
00040:         SubPostBack = 4
00041:         OrderPostBack = 5
00042:         Init = 6
00043:     End Enum
00044: 
00045:    ''' <summary>
00046:     ''' This Function ONLY determine input parm and return Mode of running this page
00047:     ''' </summary>
00048:     Private Function GetInputMode() As InputMode
00049:         Select Case Request.QueryString("ID")
00050:             Case "", 1
00051:                 If Request.QueryString("SID") <> "" Then
00052:                     'семестр задан 
00053:                     If Request.QueryString("CID") <> "" Then
00054:                         'задан семестр+номер курса
00055:                         If Request.QueryString("MainID") <> "" And Request.QueryString("SubID") <> "" Then
00056:                             'с уточненной фильтрацией
00057:                             Return InputMode.SemesterAndCourseWithMainSub
00058:                         Else
00059:                             Return InputMode.SemesterAndCourse
00060:                         End If
00061:                     Else
00062:                         If Request.QueryString("LecturerID") <> "" Then
00063:                             'задан семестр+лектор
00064:                             If Request.QueryString("MainID") <> "" And Request.QueryString("SubID") <> "" Then
00065:                                 'с уточненной фильтрацией
00066:                                 Return InputMode.SemesterAndLectorWithMainSub
00067:                             Else
00068:                                 Return InputMode.SemesterAndLector
00069:                             End If
00070:                         Else
00071:                             'задан только семестр
00072:                             If Request.QueryString("MainID") <> "" And Request.QueryString("SubID") <> "" Then
00073:                                 'с уточненной фильтрацией
00074:                                 Return InputMode.SemesterWithMainSub
00075:                             Else
00076:                                 Return InputMode.Semester
00077:                             End If
00078:                         End If
00079:                     End If
00080:                 Else
00081:                     'семестра нету 
00082:                     If Request.QueryString("LecturerID") <> "" Then
00083:                         'задан только лектор
00084:                         If Request.QueryString("MainID") <> "" And Request.QueryString("SubID") <> "" Then
00085:                             'с уточненной фильтрацией
00086:                             Return InputMode.LectorWithMainSub
00087:                         Else
00088:                             Return InputMode.Lector
00089:                         End If
00090:                     Else
00091:                         If Request.QueryString("CID") <> "" Then
00092:                             'задан номер курса
00093:                             If Request.QueryString("MainID") <> "" And Request.QueryString("SubID") <> "" Then
00094:                                 'с уточненной фильтрацией
00095:                                 Return InputMode.CourseWithMainSub
00096:                             Else
00097:                                 Return InputMode.Course
00098:                             End If
00099:                         Else
00100:                             If Request.QueryString("MainID") <> "" And Request.QueryString("SubID") <> "" Then
00101:                                 'с уточненной фильтрацией
00102:                                 Return InputMode.MainSub
00103:                             Else
00104:                                 'ничего не задано вообще 
00105:                                 Return InputMode.None
00106:                             End If
00107: 
00108:                         End If
00109:                     End If
00110:                 End If
00111:             Case 2
00112:                 'Samstags-Seminare
00113:                 If Request.QueryString("CID") = "" Then
00114:                     If Request.QueryString("MainID") <> "" And Request.QueryString("SubID") <> "" Then
00115:                         'с уточненной фильтрацией
00116:                         Return InputMode.SamstagsWithMainSub
00117:                     Else
00118:                         Return InputMode.Samstags
00119:                     End If
00120:                 Else
00121:                     If Request.QueryString("MainID") <> "" And Request.QueryString("SubID") <> "" Then
00122:                         'с уточненной фильтрацией
00123:                         Return InputMode.SamstagsAndCourceWithMainSub
00124:                     Else
00125:                         Return InputMode.SamstagsAndCource
00126:                     End If
00127:                 End If
00128:             Case 3
00129:                 'Sommerkurse
00130:                 If Request.QueryString("MainID") <> "" And Request.QueryString("SubID") <> "" Then
00131:                     'с уточненной фильтрацией
00132:                     Return InputMode.SommerKurseWithMainSub
00133:                 Else
00134:                     Return InputMode.Sommerkurse
00135:                 End If
00136:             Case Else
00137:                 Return InputMode.None
00138:         End Select
00139:     End Function
00140: 
00141:     ''' <summary>
00142:     ''' This sub reading Input parameters for page and set parameters for execurion BLL
00143:     ''' </summary>
00144:     Private Sub GetInputParm(ByVal InputState As InputMode)
00145:         Select Case InputState
00146:             Case InputMode.Semester
00147:                 Session("CourseListMode") = Course_Mode.FillBySemester
00148:                 Session("SemesterID") = Request.QueryString("SID")
00149:             Case InputMode.SemesterWithMainSub
00150:                 Session("CourseListMode") = Course_Mode.FillBySemesterAndMainSubCategry
00151:                 Session("SemesterID") = Request.QueryString("SID")
00152:                 Session("MainCategoryID") = Request.QueryString("MainID")
00153:                 Session("SubCategoryID") = Request.QueryString("SubID")
00154:             Case InputMode.SemesterAndCourse
00155:                 Session("CourseListMode") = Course_Mode.FillByNummerAndSemester
00156:                 Session("SemesterID") = Request.QueryString("SID")
00157:                 Session("CourseID") = Request.QueryString("CID")
00158:             Case InputMode.SemesterAndCourseWithMainSub
00159:                 Session("CourseListMode") = Course_Mode.FillBySemesterAndMainSubCategry
00160:                 Session("SemesterID") = Request.QueryString("SID")
00161:                 Session("CourseID") = Request.QueryString("CID")
00162:                 Session("MainCategoryID") = Request.QueryString("MainID")
00163:                 Session("SubCategoryID") = Request.QueryString("SubID")
00164:             Case InputMode.Course
00165:                 Session("CourseListMode") = Course_Mode.FillByNummer
00166:                 Session("CourseID") = Request.QueryString("CID")
00167:             Case InputMode.CourseWithMainSub
00168:                 Session("CourseListMode") = Course_Mode.FillBySemesterAndMainSubCategry
00169:                 Session("CourseID") = Request.QueryString("CID")
00170:                 Session("MainCategoryID") = Request.QueryString("MainID")
00171:                 Session("SubCategoryID") = Request.QueryString("SubID")
00172:             Case InputMode.SemesterAndLector
00173:                 Session("CourseListMode") = Course_Mode.FillBySemesterAndLector
00174:                 Session("SemesterID") = Request.QueryString("SID")
00175:                 Session("LectorID") = Request.QueryString("LecturerID")
00176:             Case InputMode.SemesterAndLectorWithMainSub
00177:                 Session("CourseListMode") = Course_Mode.FillBySemesterAndLectorAndMainSubCategory
00178:                 Session("SemesterID") = Request.QueryString("SID")
00179:                 Session("LectorID") = Request.QueryString("LecturerID")
00180:                 Session("MainCategoryID") = Request.QueryString("MainID")
00181:                 Session("SubCategoryID") = Request.QueryString("SubID")
00182:             Case InputMode.LectorWithMainSub
00183:                 Session("CourseListMode") = Course_Mode.FillBySemesterAndLectorAndMainSubCategory
00184:                 Session("LectorID") = Request.QueryString("LecturerID")
00185:                 Session("MainCategoryID") = Request.QueryString("MainID")
00186:                 Session("SubCategoryID") = Request.QueryString("SubID")
00187:                 'а Session("SemesterID") возьмется из комбешника или по умолчанию
00188:             Case InputMode.Lector
00189:                 Session("CourseListMode") = Course_Mode.FillByLector
00190:                 Session("LectorID") = Request.QueryString("LecturerID")
00191:             Case InputMode.Sommerkurse
00192:                 Session("CourseListMode") = Course_Mode.FillBySemester
00193:                 'а Session("SemesterID") возьмется из комбешника или по умолчанию
00194:             Case InputMode.SommerKurseWithMainSub
00195:                 Session("MainCategoryID") = Request.QueryString("MainID")
00196:                 Session("SubCategoryID") = Request.QueryString("SubID")
00197:                 'а Session("SemesterID") возьмется из комбешника или по умолчанию
00198:                 Session("CourseListMode") = Course_Mode.FillBySemesterAndMainSubCategry
00199:             Case InputMode.Samstags
00200:                 Session("CourseListMode") = Course_Mode.FillSamBySemester
00201:                 'а Session("SemesterID") возьмется из комбешника или по умолчанию
00202:             Case InputMode.SamstagsWithMainSub
00203:                 Session("CourseListMode") = Course_Mode.FillSamBySemesterAndMainSubCategory
00204:                 Session("MainCategoryID") = Request.QueryString("MainID")
00205:                 Session("SubCategoryID") = Request.QueryString("SubID")
00206:             Case InputMode.SamstagsAndCource, InputMode.SamstagsAndCourceWithMainSub
00207:                 Session("CourseListMode") = Course_Mode.FillSamBySemesterAndNummer
00208:                 Session("CourseID") = Request.QueryString("CID")
00209:             Case InputMode.MainSub
00210:                 Session("CourseListMode") = Course_Mode.FillBySemesterAndMainSubCategry
00211:                 Session("MainCategoryID") = Request.QueryString("MainID")
00212:                 Session("SubCategoryID") = Request.QueryString("SubID")
00213:                 'а Session("SemesterID") возьмется из комбешника или по умолчанию
00214:             Case InputMode.None
00215:                 Session("CourseListMode") = Course_Mode.FillBySemester
00216:         End Select
00217:     End Sub

Как видите, у этой странички - 17 различных режимов работы, заданных входными параметрами. Но сложность тут в том, что на страничке существует еще четыре комбешника которые ИНОГДА меняют режим работы странички, переводя ее например из режима отбора только курсов в разрезе семестров, в разрез просмотра курсов по подкатегориям.

Кроме того, страничка имеет больше десятка меток, некоторое из которых показываются в одних состояних, некотороые в других. Грубо говоря, эта страничка имеет 10 вот таких фрагментов (из которых показаны только три):

00220:     ''' <summary>
00221:     ''' This Sub ONLY show lblCourseCount
00222:     ''' </summary>
00223:     Private Sub ShowLabelCount(ByVal InputState As InputMode)
00224:         If Session("CourseListCount") Is Nothing Then
00225:             lblCourseCount.Visible = False
00226:         Else
00227:             lblCourseCount.Visible = True
00228:             Select Case InputState
00229:                 Case InputMode.Samstags, InputMode.SamstagsWithMainSub
00230:                     If Session("CourseListCount") = 1 Then
00231:                         lblCourseCount.Text = "Es wurde <b>1</b> Samstags-Seminar gefunden."
00232:                     ElseIf Session("CourseListCount") = 0 Then
00233:                         lblCourseCount.Text = "Es wurde kein Samstags-Seminar gefunden."
00234:                     Else
00235:                         lblCourseCount.Text = "Es wurden <b>" & Session("CourseListCount") & "</b> Samstags-Seminare gefunden."
00236:                     End If
00237:                 Case InputMode.Sommerkurse, InputMode.SommerKurseWithMainSub
00238:                     If Session("CourseListCount") = 1 Then
00239:                         lblCourseCount.Text = "Es wurde <b>1</b> Sommerkurse gefunden."
00240:                     ElseIf Session("CourseListCount") = 0 Then
00241:                         lblCourseCount.Text = "Es wurde kein Sommerkurse gefunden."
00242:                     Else
00243:                         lblCourseCount.Text = "Es wurden <b>" & Session("CourseListCount") & "</b> Sommerkurse gefunden."
00244:                     End If
00245:                 Case InputMode.SemesterAndCourse, InputMode.SemesterAndLector, InputMode.Semester, InputMode.Course, InputMode.Lector, InputMode.CourseWithMainSub, InputMode.LectorWithMainSub, InputMode.SemesterAndCourseWithMainSub, InputMode.SemesterWithMainSub, InputMode.SemesterAndLectorWithMainSub, InputMode.MainSub, InputMode.None
00246:                     If Session("CourseListCount") = 1 Then
00247:                         lblCourseCount.Text = "Es wurde <b>1</b> Kurs gefunden."
00248:                     ElseIf Session("CourseListCount") = 0 Then
00249:                         lblCourseCount.Text = "Es wurde kein Kurs gefunden."
00250:                     Else
00251:                         lblCourseCount.Text = "Es wurden <b>" & Session("CourseListCount") & "</b> Kurse gefunden."
00252:                     End If
00253:             End Select
00254:         End If
00255:     End Sub
00256: 
00257:     ''' <summary>
00258:     ''' This sub ONLY show lblChoice
00259:     ''' </summary>
00260:     Private Sub ShowlblChoice(ByVal PageStep As PageState, ByVal InputState As InputMode)
00261:         lblChoice.Visible = True
00262:         'Напрямую из комбешников значения взять не получается. Они еще не привязаны и не загружены.
00263:         Dim OneMainRow As DataRowView
00264:         For Each OneMainRow In courseMainObj.Select
00265:             If OneMainRow(0).ToString = Session("MainCategoryID") Then Exit For
00266:         Next
00267:         Dim OneSubRow As DataRowView
00268:         For Each OneSubRow In courseSubObj.Select
00269:             If OneSubRow(0).ToString = Session("SubCategoryID") Then Exit For
00270:         Next
00271:         '
00272:         Select Case InputState
00273:             Case InputMode.SemesterAndLector, InputMode.Lector, InputMode.LectorWithMainSub, InputMode.SemesterAndLectorWithMainSub
00274:                 lblChoice.Text = Request.QueryString("Firstname") & " " & Request.QueryString("Name") & " Kurse an der SAL:"
00275:                 'Select Case Session("CourseListCount")
00276:                 '    Case 0 : lblChoice.Text &= "has no cources an der SAL"
00277:                 '    Case 1 : lblChoice.Text &= "has one cources an der SAL"
00278:                 '    Case Else : lblChoice.Text &= "unterrichtet folgende Kurse an der SAL"
00279:                 'End Select
00280:             Case InputMode.Sommerkurse, InputMode.Semester, InputMode.SemesterAndCourse, InputMode.Course, InputMode.CourseWithMainSub, InputMode.SamstagsWithMainSub, InputMode.SemesterAndCourseWithMainSub, InputMode.SemesterWithMainSub, InputMode.MainSub
00281:                 Select Case PageStep
00282:                     Case PageState.MainPostBack
00283:                         If Session("ddlMainIndex") <> 0 Then
00284:                             lblChoice.Text = "Sie haben <b>" & OneMainRow(1) & "</b> gewдhlt."
00285:                         Else
00286:                             lblChoice.Text = ""
00287:                         End If
00288:                     Case PageState.SubPostBack
00289:                         If Session("ddlSubIndex") <> 0 Then
00290:                             lblChoice.Text = "Sie haben <b>" & OneMainRow(1) & "</b> <img src=""images/layout/arrow_intro.gif"" border=""0"" with=""14"" height=""14""> <b> " + OneSubRow(1) & "</b> gewдhlt."
00291:                         Else
00292:                             lblChoice.Text = "Sie haben <b>" & OneMainRow(1) & "</b> gewдhlt."
00293:                         End If
00294:                 End Select
00295:             Case InputMode.Samstags, InputMode.SamstagsWithMainSub, InputMode.SamstagsAndCource, InputMode.SamstagsAndCourceWithMainSub
00296:                 If Session("CourseListCount") = 1 Then
00297:                     lblChoice.Text = "Es werden <b>alle Kurse</b> angezeigt."
00298:                 ElseIf Session("CourseListCount") = 2 Then
00299:                     lblChoice.Text = "Es werden <b>alle Samstags-Seminare</b> angezeigt."
00300:                 End If
00301:         End Select
00302:     End Sub
00303: 
00304:     ''' <summary>
00305:     ''' This Sub ONLY show main Title on the page
00306:     ''' </summary>
00307:     Private Sub ShowMainTitle(ByVal InputState As InputMode)
00308:         Dim dvSemester As DataView = SemesterObj.Select
00309:         Dim dtSemester As New DataTable
00310:         dtSemester = dvSemester.ToTable
00311:         Dim dvwSemester As DataView = dtSemester.DefaultView
00312:         dvwSemester.RowFilter = "SemesterID = '" & Session("SemesterID") & "'"
00313:         Dim i As Integer = dvwSemester.Count
00314:         Dim mySemesterBeginn As DateTime = Nothing
00315:         Dim mySemesterEnde As DateTime = Nothing
00316:         If i < 1 Then
00317:             lblKursverzeichnisTitel.Text = "Achtung: Kurs ist nicht mehr aktuell."
00318:             Exit Sub
00319:         End If
00320:         Dim mySemesterTitle As String = CType(dvwSemester(0)("Semester_lang"), String)
00321:         If Not IsDBNull(dvwSemester(0)("Beginn")) Then mySemesterBeginn = dvwSemester(0)("Beginn")
00322:         If Not IsDBNull(dvwSemester(0)("Ende")) Then mySemesterEnde = dvwSemester(0)("Ende")
00323:         '
00324:         lblTimespan.Text = Format(mySemesterBeginn, "dd.MM.yy") & " - " & Format(mySemesterEnde, "dd.MM.yy")
00325:         '
00326:         Select Case InputState
00327:             Case InputMode.SemesterAndCourse, InputMode.SemesterAndLector, InputMode.Semester, InputMode.Course, InputMode.Lector, InputMode.CourseWithMainSub, InputMode.LectorWithMainSub, InputMode.SemesterAndCourseWithMainSub, InputMode.SemesterAndLectorWithMainSub, InputMode.SemesterWithMainSub, InputMode.None, InputMode.MainSub
00328:                 lblKursverzeichnisTitel.Text = "Kursverzeichnis " & mySemesterTitle
00329:             Case InputMode.Samstags, InputMode.SamstagsWithMainSub, InputMode.SamstagsAndCource, InputMode.SamstagsAndCourceWithMainSub
00330:                 lblKursverzeichnisTitel.Text = "Samstags-Seminars"
00331:                 'lblTimespan.Text = "Die Sommerkure fьr den kommenden Sommer sind noch nicht publiziert."
00332:             Case InputMode.Sommerkurse, InputMode.SommerKurseWithMainSub
00333:                 lblKursverzeichnisTitel.Text = "Sommerkurse"
00334:                 'lblTimespan.Text = "Die Sommerkure fьr den kommenden Sommer sind noch nicht publiziert."
00335:         End Select
00336:     End Sub

Вот такая машина состояний - это настоящая игра ума для программиста! Как же решать такие задачи?


Для начала надо определится, КАК именно постбеки от комбешников будут менять входные параметры. Это ключ ко всей этой проблематике. Решите эту задачу - все остальное пойдет как по маслу. В данной страничке я решил этот вопрос так:


И если это ключевой момент вам удасться решить правильно, то дальше все пойдет как по маслу и Page_Load у вас должен начаться примерно так:

00700:    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
00701:        Dim InputState As InputMode
00702:        Dim PageStep As PageState
00703:        If Session("PageStep") Is Nothing Then Session("PageStep") = PageState.Prepare
00704:        If IsPostBack Then
00705:            'от комбешников - ничего не делаем - пролетаем сквозняком на SelectedIndexChanged
00706:        Else
00707:            'состояния комбешников и ViewState потерялось

И далее, следует собственно основной код Page_Load (который конечно вряд-ли уложится в одну-две тысячи строк в такой страничке), но выглядеть он будет вполне удобоваримо и однообразно.

00720:                Case PageState.SubPostBack : RestoreComboState() : GetInputParm(InputState)
00721:                    Select Case InputState
00722:                        Case InputMode.None : Session("CourseListMode") = Course_Mode.FillBySemesterAndMainSubCategry
00723:                        Case InputMode.Course : Session("CourseListMode") = Course_Mode.FillBySemesterAndMainSubCategry
00724:                        Case InputMode.Lector : Session("CourseListMode") = Course_Mode.FillBySemesterAndLectorAndMainSubCategory
00724:                        Case InputMode.Samstags : Session("CourseListMode") = Course_Mode.FillSamBySemesterAndMainSubCategory
00726:                        Case InputMode.Sommerkurse : Session("CourseListMode") = Course_Mode.FillBySemesterAndMainSubCategry
00727:                        Case InputMode.Semester : Session("CourseListMode") = Course_Mode.FillBySemesterAndMainSubCategry
00728:                    End Select
00729:                    ShowCourseList(InputState)
00730:                    ShowSemesterddl()
00731:                    ShowSubCategoryddl(InputState, PageStep)
00732:                    ShowlblChoice(PageStep, InputState)
00733:                    If Session("ddlSubIndex") <> 0 Then
00734:                        ShowOrderByddl()
00735:                    Else
00736:                        ddlCourseOrderBy.Visible = False
00737:                        lblCourseOrderBy.Visible = False
00738:                        lblCourseCount.Visible = False
00739:                        repCourses.Visible = False
00740:                    End If
00741:                    ShowLabelCount(InputState)
00742:                    Session("PageStep") = PageState.Init

На мой взгляд только такая структура странички позволяет вообще как-то понять ее работу и реально вносить в нее изменения. Только так можно удовлетворять в приемлимые сроки требования заказчиков на модификации машины состояний странички.

Заметьте, что в соответствии со своей классификацией машин состояний - это распределенная машина состояний. Меня посещала мысль сделать на этой страничке централлизованную машину состояний - она еще легче и быстрее потом модицифирума при появлении изменений. И еще лучше было бы хранить ее в SQL и сделать админку к этой машине состояний - но в этом проекте были слишком сжатые сроки и я просто не успел это сделать. В таком случае все-все-все вот эти флажки для отображения меток и переходов из режима в режим можно было бы хранить в базе. Тогда заказчик сам бы по ходу дела мог бы определять, например, при переходе в режим лектора (отображения курсов по заданному лектору) - шелчки по комбешникам основых/дополнительных курсов - переводят ли странику в режим отбора курсов просто по категориям, или же она остается в режиме лектора и отображает курсы только для заданного лектора с уточнением читаемых им курсов по категориям.



Комментарии к этой страничке ( )
ссылка на эту страничку: http://www.vb-net.ru/asp2/26/index.htm
<Назад>  <Назад>  <Назад>  <Назад>  <Назад>  <На главную>  <В раздел ASP>  <В раздел NET>  <В раздел SQL>  <В раздел Разное>  <Написать автору>  < Поблагодарить>
Московская хельсинская группа   Радио Свобода  Новая газета   The New Times (Новое время)