Интранет-портал

Кіріспе ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...3

2. Негізгі бөлім ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..5
2.1 Есептің қойылымы ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..5
2.2 Интранет.портал дерекқор құрылымын өңдеу ... ... ... ... ... ... ... ... ... ... .8
2.3 Интранет.портал программалық қамтамасыздандыруын өңдеу ... ... ... .11
2.3.1 Интранет.порталға кіруге рұқсатты шектейтін жүйені және
қолданушыны анықтау қызметін өңдеу ... ... ... ... ... ... ... ... ... 13
2.3.2 Мұғалім қызметін қамтамасыз ететін жүйені өңдеу ... ... ... ... ... 15
2.3.3 Студенттің құжатты қабылдау және жіберу жүйесін өңдеу ... ... ..22

Қорытынды ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 24

Қолданылған әдебиеттер ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .25

Қосымша A ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 26
Қосымша B ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 29
Қосымша C ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 40
Қосымша D ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 46
Қазіргі уақытта дүние жүзінде компьютерді қоғамның ажырамас қажетті құралы ретінде қарастыруға болады. Әлемнің бір бөлшегі Қазақстан да ғылыми-техникалық заман ағымына сай дамып келе жатқанының дәлелі: қай жерге барсаңыз да, алдыңызда компьютерді кездестіретініңіз анық. Қазақстанда компьютер қолданыс аймағының ұлғайғайып, технология тез қарқында дамып келе жатыр. Интернет жүйелерінде Web-қызмет өңдеу біз үшін жас сала деп айтсам қателеспейтін шығармын. Ол бізде жоқ деп те айта алмаймын, қайта Web-қызмет өңдеу күннен-күнге үдемелі даму үстінде. Интернет бүкіл әлем бойынша адамдардың компьютер арқылы бір-бірімен қарым-қатынаста болуын қамтамасыз етіп отырған дүниежүзілік тор. Жердің кез-келген нүктесінен интернет желісіне қосылған үйіңіздегі компьютермен байланыса аласыз. Интернет және WWW технологияны интернет желісінен шектеп ішкі корпаративтік желіде қолданылуы – интранет технологиясы деп аталады. Интранет желісі ішкі корпаративтік Web-серверге қосылған компьтерлер жиынынан тұрады.
Интранет-портал – интернет-технологиясы негізінде құрылған, ақпарат пен құжаттарды пайдалануға рұқсат беруді, шектеуді ұйымдастырумен және ақпаратпен жұмыс істеуге, оны басқаруға арналған корпаративтік ішкі ақпараттық жүйе.
Қазіргі замандағы батыс компанияларының жұмысшы уақыты мен күшін үнемдеуге арналған заман ағымына сай шешімдердің бірі – интранет-портал өңдеу. Интранет ол – жеке компанияның ішінде өңделген виртуалдық ақпараттық кеңістік. Компанияға қатысты бар ақпаратты тақырыбы және түрі бойынша реттеп, ал құжат реквизиттері бойынша дереу ізденісті ұйымдастыруға болады. Ақпаратпен, құжатпен жұмыс істегенде интранет-портал байланыс каналының беріктігін, құжат алмасу кезінде оның бұрмаланбауын, жадыда сенімді сақталуын және құжатқа рұқсатты шектеудің қолайлығын қамтамасыз етеді. Қағаз құжаттар, хат, жарнама тақтасы, корпаративті газеттер – бұның бәрі ақпаратты сақтаудың және құжат алмасудың дәстүрлі технологиясын құрайды. Интранет технологиясы қағаз құжатты Web-бет пен электронды файлға; жарнама тақтасын Web-серверге; қағаз хатты электронды хатқа, газет және басқа жаңалықтарды сервердің ағымдағы хабаламасына айналдырады. Интранет корпаративтік коммуникацияның сенімділігін, құжат алмасу жылдамдығын және интенсивтілігін арттырады, тағы сол сияқты ақпарат көзіне жетуді жеңілдетіп, жылдамдығын арттырады. Сонымен қатар интранет технологиясы дәстүрлі қағаз-телефон комуникациясын шекке қолданыстан шығармайды. Керісінше, комуникацияның әр түрлісін пайдалану өте жақсы нәтижеге жетуге көмегін тигізеді. Сондықтан интранет-портал адамдар араласуын және қарым-қатынасын жоғары дәрежеге көтеретін қосымша коммуникация каналы ретінде қарастырылады.
1. Мэтью Макдональд. ASP.NET, наиболее полное руководство. «БХВ-
Петербург» баспасының ағылшын тілінен аудармасы, Санкт-Петербург: 2003 ж.

2. И. Харитонова, В. Михеева. Microsoft Access 2000: разработка приложений.
«БХВ-Петербург» баспасы, Санкт-Петербург: 2000 ж.

3. Крис Пейн. Освой самостоятельно ASP.NET за 21 день. «Вильямс» баспасының ағылшын тілінен аудармасы, Москва: 2002 ж.

4. Андрей Гарнаев, «Самоучитель Visual Studio.NET 2003» Санкт-Петербург:
2003 г.

ДЕРЕКТЕР ЖӘНЕ ЭЛЕКТРОНДЫ АҚПАРАТ КӨЗДЕРІ

5. Надирбаева Г.М. INTRANET - портал университета. Әл-Фараби атындағы Казақ Ұлттық Университетінің Оќыту есептеуіш орталыѓының 40 жылдығына арналған Халықаралық конферанция бағдарламасы мен материалдары (11-12 қыркүйек, 2003 ж.) - Алматы: Қазақ университетi, б. 114-118.
        
        МАЗМҰНЫ
Кіріспе……………………………………………………………………………….3
2. ... ... ... ... ... ... ... программалық ... ... ... ... шектейтін жүйені және
қолданушыны анықтау қызметін өңдеу …..……………....……......13
2.3.2 Мұғалім қызметін қамтамасыз ететін ... ... ... ... қабылдау және жіберу жүйесін өңдеу
.……...22
Қорытынды...................................................................
.............................................24
Қолданылған ... ... ... ... ... уақытта дүние жүзінде компьютерді қоғамның ... ... ... ... болады. Әлемнің бір бөлшегі Қазақстан да ғылыми-
техникалық ... ... сай ... келе ... ... қай ... да, ... компьютерді кездестіретініңіз анық. Қазақстанда
компьютер қолданыс аймағының ұлғайғайып, технология тез қарқында дамып келе
жатыр. ... ... ... ... біз үшін жас сала деп ... ... Ол бізде жоқ деп те айта алмаймын, қайта Web-қызмет
өңдеу күннен-күнге үдемелі даму ... ... ... әлем ... компьютер арқылы бір-бірімен қарым-қатынаста болуын қамтамасыз
етіп отырған дүниежүзілік тор. ... ... ... интернет
желісіне қосылған үйіңіздегі компьютермен байланыса аласыз. Интернет және
WWW технологияны интернет желісінен ... ішкі ... ...... ... деп аталады. Интранет желісі ... ... ... ... ... ... – интернет-технологиясы негізінде құрылған, ақпарат пен
құжаттарды пайдалануға рұқсат беруді, шектеуді ... ... ... ... оны ... ... корпаративтік ішкі
ақпараттық жүйе.
Қазіргі замандағы ... ... ... ... мен ... ... ... ағымына сай шешімдердің бірі – ... ... ол – жеке ... ішінде өңделген виртуалдық ақпараттық
кеңістік. Компанияға қатысты бар ақпаратты тақырыбы және түрі ... ал ... ... ... дереу ізденісті ұйымдастыруға болады.
Ақпаратпен, құжатпен жұмыс істегенде интранет-портал байланыс ... ... ... ... оның ... ... сенімді
сақталуын және құжатқа рұқсатты шектеудің қолайлығын қамтамасыз етеді.
Қағаз құжаттар, хат, ... ... ... ...... бәрі
ақпаратты сақтаудың және құжат алмасудың дәстүрлі ... ... ... ... ... Web-бет пен электронды файлға; жарнама
тақтасын Web-серверге; қағаз хатты электронды хатқа, газет және ... ... ... ... ... ... ... сенімділігін, құжат алмасу жылдамдығын және
интенсивтілігін арттырады, тағы сол сияқты ... ... ... жылдамдығын арттырады. Сонымен қатар ... ... ... комуникациясын шекке қолданыстан шығармайды.
Керісінше, ... әр ... ... өте ... нәтижеге жетуге
көмегін тигізеді. Сондықтан интранет-портал адамдар араласуын және қарым-
қатынасын жоғары дәрежеге ... ... ... ... ... орай мен өзімнің бітіру жұмысымның тақырыбын жайдан таңдаған
жоқпын. Диплом жұмысының мақсаты студенттер мен ... ... ... ... программасын өңдеу. Яғни портал университет
шеңберіндегі интранет жүйесінің бір ... деп ... ... ... портал мұғалімдер мен студенттер арасында ғана құжат алмасуды
қамтамасыз етсе, жалпы ... ... ... ... ... тізімі үлкен деп айтуға болады.
Интранет-портал өңдеу құралы ретінде “Visual Studio.NET 2003” және
Microsoft Access 2002 SP1 ... ... ... ... ... ... мен ... бітіру жұмысының
негізгі бөлімінде көрсетіледі. ... ... ... 2003 ... ... ... ... (қосымша D)
сай техникалық P_IV 2.4GHz/512MB RAM/80GB/SVGA және операциялық Windows
XP_SP1 көрсеткіштеріне ие ... ... ... жұмысын бастамас
бұрын мен интранет-порталға және таңдаған программалық аспаптарға қатысты
ақпаратты ізденістірдім. Солардың ішіне ... ... ... ... ... ... интранет-портал маңыздылығы туралы
жазылған. www.aspnetmania.com ... ... ... ... ... ... көмек болды. Сонымен қатар,
программалық өңдеу үшін орта және ... ... ... ... ... – Крис ... «Освой самостоятельно ASP.NET за 21 день» кітабы.
Бұл ... ASP.NET ... ... ... ... ... және ... мысалдарды қолдану арқылы түсінікті жазылған. Және де, басқа ... ... ... ... ASP.NET ... ... анық ... «Самоучитель Visual Studio.NET 2003» ... ... ... ... 300 ден ... ... мен мәліметер
қосылған әдебиет те бітіру жұмысымды жазуға үлкен көмек болды.
НЕГІЗГІ БӨЛІМ
2.1 ... ... ... мақсаты құжат алмасуды қамтамасыз ету,
сондықтан интранет-портал ... ... ... ... ... ... мен ... Ал енді, студенттер мен мұғалімдер
арасында қандай ... ... ... ... Ол – ... ... қатысты кез-келген ақпарат, негізінен атап айтсақ студентке
берілетін тапсырма және ... ... ... ... ... ... ... қатар, құжаттар файл түрінде болуы тиіс деп
ойлаймын. Өйткені тапсырмаларды дерекқор ... ... ... онда бұл
дерекқор файлы көлемі тез өсіп, интранет портал ... ... ... ... ... ... ... ету үшін алдымен
қолданушылардың артықшылықтарын ұйымдастыру ... яғни ... ... интранет порталмен қолданбауы керек және керісінше. Тек қана осыдан
кейін құжат түрі, мақсаты ... ... ... ұйымдастыруға кірісуге
болады. Осыған байланысты интранет-портал қызметі әр қолданушыға ... ... ... ... ... туындайды:
1. Интранет-портал жұмысына қажетті дерекқор құрылымын ұйымдастыру,
яғни интранет-портал қызметіне қажетті мәліметтерді қамтамасыз ету.
2. Интранет-порталының ... ... ... ... ... интранет-портал қызметі де анықталады.
Сонымен қатар, ... ... ... ... ... ... ... файлдарының және дерекқордың қауіпсіздігін қамтамасыз ету.
4. Құжат файлдарының текстік түрде болуын ұйымдастыру.
5. Мұғалімге арналған интранет-портал ... ... ... ... ... ... Мұғалімнің тапсырма беруіне керекті мәліметтермен (студенттің
факультеті, мамандығы, бөлімі т. б.) қамтамасыз ету.
2) Тапсырма ... ... ... ... ... ... шешімі файлын көрсетуді
ұйымдастыру.
4) Әр мұғалімге қатысты берген тапсырма тізімін Web-бетте ... ... ... ... ... ... ету.
6. Студентке арналған интранет-портал қызметін құру. Студентке келесі
мүмкіндіктер мен мәліметтер берілуі тиіс:
1) Студенті тапсырма тізімімен ... ... ... ... ... ... Шешімін серверге жіберу қызметін ұйымдастыру.
Жоғарыдағы міндеттерді орындау үшін мен келесідей ASP.NET Web-беттерін
ұсынамын:
1. Қолданушы ... ... ... ... ... қызмет көрсету Web-беті teach.aspx
3. Студентке арналған Web-бет – stud.aspx
4. Студенттің тапсырмаға жауап қосатын Web-бет – otvet.aspx
5. Студент ... ... ... ... ... тән ... өңдеу қажеттілігі, Web-беттер
қолданушысы, мақсаттары мен ... әр қилы ... ... ... әр ... ... ... жазған дұрыс деп ұйғардым.
Төмендегі көрсетілген алгоритмдерден Web-беттер ... ... ... анықталады.
identi.aspx:
1. Қолданушы түрін таңдап, өзінің логинін және паролін ... Егер ... ... онда ... ... дерекқор кестесінен
мұғалім логині мен паролі тексерілуі ... Егер ... ... онда ... ... қате ... бареді.
2. Егер тексеруден өтсе, логинына байланысты тексеруден өтті деген
session (сеанс) ашылады да teach.aspx Web-бетіне бағытталады.
3. Егер студентті ... онда ... ... ... ... және ... ... өтеді.
1. Егер тексеруден өтпесе, онда енгізген мәліметтеріңіз қате деген
хабарлама бареді.
2. Егер тексеруден өтсе, логинына байланысты тексеруден өтті ... ... ... ... ... Егер ... ... рет ашылып жатса,
1. identi.aspx Web-бетін өткені туралы тексеру жүргізіледі.
1.1.1 Тексеруден өтпесе, ... ... ... ... дерекқормен байланысады.
3. Байланыс орнамаса, дерекқорға байланыс жоқ ... ... ... ... ... тапсырма бергендігі тексеріледі. Тапсырма болса, онда
қайдай факультетке, ... қай ... ... ... ... ... ... (тізім) Web-серверлік басқару элементіне (СБЭ)
дерекқордан ... ... ... ... Факультет таңдау нәтижесіне байланысты сол факультетке қатысты
мамандықтар тізімі DropDownList2 СБЭ-не ... ... ... ... таңдауына қатысты DropDownList3 СБЭ-не
студенттер бөлімі енгізіледі.
5. ... ... ... нәтижесіне байлынысты пән
атаулары DropDownList4 СБЭ-не енгізіледі.
3. Таңдалған ... ... ... ... ... ... пернелері арқылы тапсырма бере алады .
1. Тапсырма берсе, ол дереу тапсырма тізіміне қосылады.
4. “Тарсырманы қарау” сілтемесін ... ... жаңа ... ... сілтемесін басса, otvet_prosmatr.aspx Web-бетіне
бағытталады.
6. “Тапсырманы өшіру” сілтемесіне басса,
1. ... ... ... шешімі бар болса, ол да өшіріледі.
7. “Шығу” пернесін басса, ... ... ... Егер ... алғашқы рет ашылып жатса,
1.1 identi.aspx Web-бетін ... ... ... ... ... ... ... Тексеруден өтсе, дерекқормен байланысады.
1.3 Байланыс орнамаса, Дерекқорға байланыс жоқ деген
хабарлама береді.
2. Байланыс орнаса, студентке қатысты ... ... ... ... ... ... басса, тапсырма жаңа Web-бетте
ашылады.
4. “Жауап беру” сілтемесін басса, otvet.aspx Web-бетіне бағытталады.
5. ... ... ... identi.aspx Web- бетіне бағытталады.
otvet.aspx:
1. Егер Web-бет алғашқы рет ашылып ... ... ... ... ... ... ... identi.aspx Web-бетіне
бағытталады.
2. “Шолу” пернесін ... ... ... ... компьдердегі
сақталған жолын таңдауды ұсынады.
2. “Тапсырма шешімін қосу” пернесін басса, серверде шешім файлы
сақталады.
otvet_prosmatr.aspx:
1. Егер Web-бет алғашқы рет ... ... ... Web-бетін өткені ... ... ... identi.aspx Web-бетіне бағытталады.
2. “Тарсырма шешімін қарау” сілтемесіне басса, тапсырма шешімі жаңа ... ... ... дерекқор құрылымын өңдеу
Дерекқор құрылымын құру үшін мен дерекқорлармен ... ... ... Access 2002_SP2 ... ... ... ... өңдемес бұрын қандай мәліметтер дерекқорда сақталатынын анықтап
алайық. Олар студенттер мен мұғалімдер мәліметтері ... ... және ... файлдарына байланысты деректер.
Қолданушыны анықтау Web-бетіне керекті ... ... ... ... ... ... ... және мұғалім фамилиясы,
логині, паролі. Бұл деректерді екі ... ... ол ... ... ... ... ... және мұғалім ... 4 ... ... 3 ... ... (“Логин преподавателя”,
“Пароль преподавателя”, “ФИО преподавателя”) 1 сандық ... для ... ... ... ... ... басқа Web-беттеріне керекті деректер
берілген тапсырмалар ... ... және ... ... кестесі,
университет факультеттері “fac” кестесі, факультет мамандықтары ... ... ... “group” кестесі, пәндер кестесі “subspec”. Енді
әр кестенің сипатталуы мен ... ... ... ... кестесінде берілген тапсырма файлының атауы, тапсырма ... ... ... ... студенттер мәліметтрі орналасқан.
“otvet” кестесі 4 бағаннан тұрады ... 3 ... ... және 1
счетчиктен тұрады (2-сурет). “aftorofotvet” ... ... ... ... ... ... тапсырма шешімі файлы атауы
енгізіледі. ... ... ... ... ... ... нәтижесін жіберген студент пен оны орындамаған студентерді
ажырату үшін қолданылады. Жоғарыда ... екі ... ... ... ... ... бұл кестелер құжатқа байланысты мәліметтерді
сақтайды. Портал жұмысы ... ... ... ... ... ... сақтағанда, жаңартқанда, өшіргенде.
“otvet” кестесінің құрылымы
2-сурет.
“FAC” кестесі 3 бағанадан тұрады олар ... ... ... ... ... аты ... “R_FAC” факультеттің қысқа атауы
жазылады (3-сурет). Бұл мәліметтер мұғалімге тапсырма беру үшін, студентті
іздеу жұмысын және файлды ... ... ... үшін ... ... Web-бетке университет және мамандық туралы деректерді динамикалық
енгізу және ... ... үшін ДҚБЖ ... ... Ол ... орналасады және келесі түрде болады:
"Select * from SPEC, FAC where ... and ... ... & ... кестесінің құрылымы
3-сурет
“spec” кестесі де факультет кестесінің құрылымындай ұйымдастырылған
мамандық идентификаторы, мамандық ... аты, ... ... ... ... ... сай ... тізімін анықтау үшін факультет
идентификаторы қосылған.
“group” ... ... ... ... қай ... ... және ... сақталатын кесте (4-сурет).
“group” кестесінің мәліметтері мен құрылымы.
4-сурет
“subspec” кестесінде әрбір факультетке және мамандыққа ... ... ... ... ... ... ... бірігіп, интранет-портал жұмысын
мәліметтермен қамтамасыз етеді. Мысалы, мұғалімнің ... ... ... ол ... ... ... қамтамасыз етуіміз керек. Қорта келгенде
жұмыстың бұл бөлімінде дерекқор интранет-портал ажырамас бөлігі екеніне ... ... ... ... ... ... ... өңдеу аспабы ретінде
ASP.NET (Active Server Page – ... ... Бет) ... Оған ... интранет-портал жүйесінің негізгі ерекшелігі – ол,
орталықтандырылған басқару жүйесін ... ASP.NET ... ... көрсетілген толық міндеттер мен мүмкіндіктерді орындауға
мүмкіндік береді. ASP.NET ...... Visual ... ... ... ... Ал ... Visual Studio.NET
Windows қосымшаларын, консольдік қосымшаларды, класстар ... ... мен ... ... ... ... ... және серверлік компонентерді өңдеуге арналған
программалық құрал. Сонымен қатар, ADO.NET (Active Data Objects – ... ... ... тек ... Access қана ... сонымен
қатар SQL, Oracle сияқты дерекқорлармен басқару жүйелерімен жұмыс ... ... ... мен ... Access-те құрған дерекқорды SQL
сұраулары ... да ... ... Microsoft Visual Studio.NET
архитектурасының интранет портал программасын өңдеудегі ең ... ол ... ... ... ... негізінде қосымшалар
мен программалық жүйелерді құру үшін арналған инструментальды қабықшасының
бар болуы.
Интранет-порталда құжат алмасуды программалық қамтамасыздандырмас ... ... ... (1 ... ... ... ашқанда
бірден Қолданушыны анықтау Web-бетіне түсесіз. Одан мұғалім немесе студент
ретінде ... ... ... болсаңыз мұғалімдік қызметіңізге кірісіп
тапсырма бересіз, тапсырма шешімін тексересіз. Студент ... ... ... ... тізімі шығады және тапсырманы орындап, ... ... ... ... ... сай ... мен ... құжат алмасу интранет-порталының программасын өңдеуді келесі
бөлімдерге бөліп, жүзеге ... ... ... ... ... ... және ... қызметін өңдеу.
2. Мұғалім қызметін қамтамасыз ететін жүйені өңдеу.
3. Студенттің құжатты қабылдау және жіберу жүйесін ... ... ... ... ... ... ... тапсырма берген болса
Тапсырманы
қарау
Шешімдер тізімі
Тапсырма шешімін қосу
Студент тапсырма шешімін қосса
Тапсырма
шешімі
1-схема
2.3.1 Интранет-порталға ... ... ... ... және
қолданушыны анықтау қызметін өңдеу
Интранет-порталында құжат алмасатын адамдардың құжаттарын дұрыс бағытта
сақтап, құжат арналған адамға жететініне кепіл беруіміз керек. Ол үшін ... ... ... ... мазмұнының өзгеруінен,
өшірілуінен сақтауымыз керек. Сонымен қатар ... ... ... ... ... Бұл жерде ескеріп кететін жайт – ол қауіпсіздік
дейгейін анықтау, себебі кіруге рұқсатты ... ... ... ... ... өз ойында сақтайтын мәліметтер көп ... Ал ... кері ... ... Осындай мәселені ескере отырып, мен
рұқсатты ... және ... ... Web-қызметінің дәрежесін келесі
түрде анықтадым.
Рұқсатты шектеу және ... ... ... өңдегенде мен
келесідей әдістерін қарастырдым:
1. ISM (Internet Services Manager – ... ... ... Программалық деңгейде.
1. ISM деңгейінде біз дерекқорларға және құжат файлдарына Web ... ... ... ... ... болады, сонда ISM артық
сілтемелерді және үндеулерді ... ... ... ... санкцияланбаған енуден қорғайды (5-сурет).
Жүйені ISM деңгейінде қорғау
5-сурет
2. Программалық деңгейде. Программалық деңгейдегі қорғауды мен ... ... ... арқылы ұйымдастырдым. Сонымен қатар қолданушыны анықтау
да программалық түрде жүзеге асады. Интранет-портал ... ... ... беті ... ... беті
6-сурет
Қолданушы түрін таңдауға байланысты дерекқордан пароль және логин
тексерілетін және ... ... ... кетпейтін программалық қодты
Session объектісі негізінде құрастырдым. Session объектісі ... ... ... ақпаратты серверде сақтай алатын объект. Біріншіден
мен идентификация бетін өткенін ... үшін ... ... ... ... мен ... тексерілгеннен кейін студент немесе
мұғалім session ... Ол .vb ... ... жазылады:
session-дарды тазалау:
If (Not Page.IsPostBack) Then Session.Clear()
Логин, парол ... ... = ... ... = ... атты ... ... немесе "prepodavatel" мәндерін
меншіктеймін. Яғни "checkedin" сеансының мәні осы мәндер облысында болады.
Ал келесі бетке өткенде, қай ... ... ... ... ... ... ... да, Session("checkedin") мәні әр Web-бетіне сай
тексеріледі. ... ... ... ... ... ... ... тиіс, сол сияқты студенттікі өзіне сай болғанын талап
етеді. VB кодта жүзеге асырылуы келесідей:
If Not (Session("checkedin") = ... ... ... Not (Session("checkedin") = "prepodavatel") Then
Response.Redirect("identi.aspx")
Логин және пароль тексерілуін A-қосымшасынан ... ... ... жүйенің және қолданушыны анықтау ... ... ... Мұғалім қызметін қамтамасыз ететін жүйені өңдеу
Есептің қойылымында айтылғандай құжатты бағыттау үшін ... ... ... қамтамасыз етуіміз керек және құжат файлының ... ... ... ... керек. Біріншіден Web-бетте
дерекқормен жұмыс істеу үшін араларында ... ... ... пен ... ... ... орнату
7-сурет
Мәліметтерді сатылап, мұғалім таңдауына байланысты динамикалық өзгертіп
енгізіп отырамыз. Ол үшін DropDownList1 Web-серверлік басқару элементіне
университет факультеттері тізімін ... код ... ... ... As OleDbDataReader
objReader = myclassbaze.SelectSQL("Select * from FAC")
If (Not objReader Is Nothing) Then
While (objReader.Read)
DropDownList1.Items.Add(objReader.GetString(1))
End While
Else Label7.Text = ... ... при ... к ... ... ... енді мамандық тізімі факультет таңдауы бойынша динамикалық өзгеруі
тиіс, яғни факультетке қатысты мамандықтар ғана ... ... ... ... ... ... ... жүйелер,
информатика, математика, механика ... ... ... Біз ... мәні өзгеруіне байланысты SQL сұраулары арқылы мамандық тізімін
анықтаймыз да ... ... Оны ... ... ... ... таңдалған мән өзгерісі процедурасы.
Private Sub DropDownList1_SelectedIndexChanged(ByVal sender ... ByVal e As ... ... ... =
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\inetpub\wwwroot\diploma\Allbase.mdb"
Dim objReader As OleDbDataReader
objReader = myclassbaze.SelectSQL("Select * from SPEC, FAC where
SPEC.C_FAC=FAC.C_FAC and FAC.N_FAC='" & DropDownList1.SelectedItem.ToString
& "'")
If (Not objReader Is Nothing) ... ... ... = ... ... при ... к Базе ... If objReader.Close()
End Sub
Дәл осы жолмен пән аттарына дейін енгіземіз. Жоғарыдағы кодтан таңдау
жолы сатылап ... ... ... ... ... толық өтіп, қайтадан
мамандықты өзгертсе, онда бөлім мен пән ... ... ... ... ... сақтауды папкалар ағашы ретінде ұйымдастырдым, яғни ... ... ... ... ... сақтамас бұрын,
біз қайтадан дерекқорға байланысамыз, бірақ енді дерекқорды оқу үшін ғана
емес, сонымен қатар файлдың ... ... ... ... ... ... жіберіп жатқаны жайлы мәліметтерді енгізу үшін. Файлды ... ... ... ... ... коды ... түрде болады:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ... fname As ... = ... ... на ... ... ... расширении
‘ не относящимся .doc и .rtf
If (fname.Substring(1 + fname.LastIndexOf(".")) = "doc") Or
(fname.Substring(1 + fname.LastIndexOf(".")) = "rtf") Then
fname = ... + ... = ... fname.LastIndexOf(".")) & "_" &
Session("login") & fname.Substring(fname.LastIndexOf("."))
fname = ... ... & "\" ... & "\" &
DropDownList3.SelectedItem.ToString & "\" &
DropDownList4.SelectedItem.ToString & "\" & fname
‘ файл сохраняется под начальным именем с ... ... ... в базу ... о файле
Dim insertCmd As String
insertCmd = "INSERT INTO zadanye (login, faculty, spec, gruppa,
subject, nameoffile) VALUES (@login, @faculty, @spec, @gruppa, ... ... As ... = New ... OleDb.OleDbParameter("@login",
OleDb.OleDbType.Char, 2004))
MyCommand.Parameters("@login").Value = CStr(Session("login"))
MyCommand.Parameters.Add(New OleDb.OleDbParameter("@faculty",
OleDb.OleDbType.Char, 2004))
MyCommand.Parameters("@faculty").Value =
DropDownList1.SelectedItem.ToString
MyCommand.Parameters.Add(New OleDb.OleDbParameter("@spec",
OleDb.OleDbType.Char, 2004))
MyCommand.Parameters("@spec").Value =
DropDownList2.SelectedItem.ToString
MyCommand.Parameters.Add(New OleDb.OleDbParameter("@gruppa",
OleDb.OleDbType.Char, 2004))
MyCommand.Parameters("@gruppa").Value =
DropDownList3.SelectedItem.ToString
MyCommand.Parameters.Add(New OleDb.OleDbParameter("@subject",
OleDb.OleDbType.Char, 2004))
MyCommand.Parameters("@subject").Value =
DropDownList4.SelectedItem.ToString
MyCommand.Parameters.Add(New OleDb.OleDbParameter("@nameoffile",
OleDb.OleDbType.Char, 2004))
MyCommand.Parameters("@nameoffile").Value = ... ex As ... = ... = ... & ... = "Вы не ... ... студента!"
End Try
MyCommand.Connection.Close()
Else : Label7.Text = "Только для текстовых файлов"
End If
zagruzka()
End Sub






Жоғарыда келтірілген код сақталатын файл типі ... ... ... ... Файл типі міндетті түрде “.doc” немесе “.rtf” ... ... ... ... ... ... файл ... шарты туралы
қателік хабарламасын көресіз.
Мұғалім Web-бетінің тағы бір бөлімі ол – DataGrid ... ... DataGrid ... ... ... ... ... толтырып және құжат файлдарын басқару мүмкіндігімен
қамтамасыз ететін басқару элементі. DataGrid элементі 6 бағанадан ... ... Label ... ... ... Группа, Дисциплина), қалған
үшеуі сілтеуіш типті (Просмотр ... ... ... ... ... ... басқару элементі HTML сипатталуы келесідей түрде
болады:














просмотр задания



результаты


... ... ... ... үшін ... ... Sub zagruzka()
myclassbaze.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\inetpub\wwwroot\diploma\Allbase.mdb"
Dim objReader As OleDbDataReader
objReader = myclassbaze.SelectSQL("Select * from zadanye where
login='" & Session("login") & "'")
If (Not objReader Is Nothing) ... = ... = ... ошибка при обращений к Базе данных"
End If objReader.Close()
End Sub
Мұғалім тапсырма жауабын тексеру үшін өзі берген тапсырманы ... ... ... Ол үшін ... ашу ... басса, тапсырма
жаңа Web-бетте ашылады. Осылай біз мұғалімді қосымша қызметпен қамтамасыз
етеміз. “Шешімдер ... ... ... ... ... ... Web-
бетіне өту үшін пайдаланады (9-сурет). Тізімнен студент жұмысын таңдап,
тексере ... Бұл ... мен ... ... ... ... ... болып саналады.
Тапсырма шешімдері тізімі Web-беті
9-сурет
Тапсырма мен шешімін өшіру сілтеуіші сервердегі тапсырма файлы мен ... ... ... ... ... ... ... файлдар туралы
мәліметтер де жойылады. Дерекқордан мәліметтерді ... коды ... Sub ... source As Object, ByVal e As
System.Web.UI.WebControls.DataGridCommandEventArgs) Handles
DataGrid1.DeleteCommand
Dim objReader As ... = ... * from zadanye ... & ... & ... i As Integer = 0
Dim s As String
While (objReader.Read)
If (i = e.Item.ItemIndex) ... ... As FileInfo = ... = ... ... FROM zadanye WHERE
login='" & Session("login") & "' and nameoffile='" & e.CommandArgument & "'
and gruppa='" & ... & ... ... ... While
objReader = myclassbaze.SelectSQL("Select * from otvet where
zadanyeid='" & s & "'")
While (objReader.Read)
Dim infooffile As FileInfo = New
FileInfo(objReader.GetString(3))
infooffile.Delete()
End ... ... FROM otvet WHERE ... &
s & ... ... ... ... HTML және VB кодымен танысқыңыз келсе B
қосымшаcынан табасыз.
3. Студенттің құжатты қабылдау және ... ... ... ... ... қызметін қамтамасыз ететін жүйені программалық өңдеу
құрылымына ұқсас болып келеді. Бірақ өзіне тән ... бар – ... ... құжат файлдарымен басқару қызметінің жоқтығы,
тапсырма жауабын ... ... ... ... ... ... түзіледі де, сол арқылы студентке қатысты тапсырмалар
бар-жоқтығы тексеріліп, DataGrid ... ... ... ... пән ... ... өрнектеледі. Сонымен қатар, құжат
файлын өзіне көшіріп ... ... DataGrid ... ... ... “просмотреть” сілтемесі арқылы жүзеге асады (10-
сурет).
Студент ... беру ... ... ... ... жіберу Web-беті ашылады (11-
сурет). Тапсырма шешімі серверге жіберілсе, ... ... ... ... ... орналасады.
Тапсырма шешімін қосу Web-беті
11-сурет
Осындай студенттердің әрекеттерінен ғана мұғалімдер мен студенттер
арасында интранет-порталда құжат ... ... ... бітіру жұмысымның міндеті: студенттер мен мұғалімдер
арасында ... ... ... ... ... ... ... архитектурасының көптеген мүмкіндіктерін және құрамдас бөлімдері
ASP.NET, ADO.NET, ... ... ... ... ... ... қатар, дерекқор құрылымы мен оның ерекшеліктерімен
таныстым. Microsoft Access ... ... ... ... ... ... құрдым. Қолданушыны анықтау сатысында ақпарат қауіпсіздігін
ұйымдастырудың ... ... оның ... мен ... ... басқару элементтері арқылы интранет-порталға программалық
деңгейде және ISM деңгейінде қауіпсіздікті қамтамасыз еттім. Сонымен қатар,
ASP.NET серверлік ... ... ... ... ... және оны басқарудың әдістерін қарастырдым. Оқиғалық ... ... ... ... ... ... ... интранет-портал алғашқы қажеттілікті ғана ... ... ... ... ... ... айясын ұлғайтып, жетілдіруге
болады. Сондықтан ... ... ... ... интранет-портал функцияналы да өседі.
Сонымен, интранет жүйелерінің болашағы зор деп ... айта ... ... ... ... жұмыстың қосымшалары ретінде
ұсынылады.
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР
1. Мэтью Макдональд. ASP.NET, наиболее полное руководство. ... ... ... ... ... Санкт-Петербург: 2003 ж.
2. И. Харитонова, В. ... ... Access 2000: ... ... ... 2000 ж.
3. Крис Пейн. Освой самостоятельно ASP.NET за 21 ... ... ... ... ... ... 2002 ж.
4. Андрей Гарнаев, «Самоучитель Visual Studio.NET 2003» Санкт-Петербург:
2003 г.
ДЕРЕКТЕР ЖӘНЕ ... ... ... ... Г.М. INTRANET - ... ... Әл-Фараби атындағы Казақ
Ұлттық Университетінің Оќыту есептеуіш орталыѓының 40 жылдығына арналған
Халықаралық конферанция ... мен ... (11-12 ... ... - ... Қазақ университетi, б. 114-118.
6. http://www.citforum.ru/internet/intranet_app/interintr_01.shtml#113
7. www.aspnetmania.com
8. ... ... ... ... ... ... ... және қолданушыны
анықтау қызметінің HTML-коды




Вход в учебный портал







Получить доступ ... ... ... ... ... ... анықтау қызметінің VB.NET-коды
Imports System.Data.OleDb
Public Class WebForm1
Inherits System.Web.UI.Page
Dim baza As New ConnClass
# Region " Web Form Designer ... Code ... Sub ... sender As ... ByVal e ... Handles MyBase.Load
If (Not Page.IsPostBack) Then Session.Clear()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e ... Handles ... ... = ... ... = ... objReader As OleDbDataReader
Dim k, dostup As Integer
dostup = 2
k = 0
objReader = baza.SelectSQL("Select * from slogin")
If (Not objReader Is Nothing) ... ... ... = ... ... = TextBox2.Text) Then
k = 1
dostup = objReader.GetInt32(2)
Session.Add("faculty", objReader.GetString(4))
Session.Add("spec", objReader.GetString(5))
Session.Add("fio", objReader.GetString(3))
Session.Add("gruppa", ... ... ... (k = 1) And (dostup = 1) ... ... = ... = "Проверьте правильность ввода"
End If
Else : Label1.Text = "Отсутствует связь с Базой данных!"
End If
objreader.Close()
End If
If ... = ... ... = ... ... As ... k, dostup As Integer
dostup = 2
k = 0
objReader = baza.SelectSQL("Select * from tlogin")
If (Not objReader Is Nothing) Then
While (objReader.Read)
If ... = ... ... = ... ... = 1
dostup = objReader.GetInt32(2)
End If
End While
If (k = 1) And (dostup = 1) Then
Session.Add("login", TextBox1.Text)
Session("checkedin") = ... = ... ... ввода"
End If
Else : Label1.Text = "Отсутствует связь с Базой ... ... ... ... ... B
Мұғалім қызметін қамтамасыз ететін жүйенің HTML-коды




Добро пожаловать вы вошли с правами
преподавателя!





function opendoc(s)
{wink=window.open (s,"Mywin","")
}





 
Факультет

Наименование дисциплиныГруппаСпециальность






Добро ... вы ... ... ... ... задание

Введите директорию задания



Мұғалім қызметін қамтамасыз ететін жүйенің VB.NET-коды
Imports System.Data.OleDb
Imports System.Diagnostics
Imports System.IO
Public Class teach
Inherits ... n As ... ... ... ... ... Button2 As ... WithEvents Label5 As System.Web.UI.WebControls.Label
Dim myclassbaze As New ConnClass
#Region " Web Form Designer Generated Code "
Private Sub ... sender As ... ByVal e ... Handles ... Not (Session("checkedin") = "prepod") Then
Response.Redirect("identi.aspx")
If Not Page.IsPostBack Then
Session.Add("chiso_okon", "0")
myclassbaze.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\inetpub\wwwroot\diploma\Allbase.mdb"
Dim objReader As OleDbDataReader
objReader = ... * from ... (Not ... Is Nothing) ... ... ... = "Произошла ошибка при обращений к Базе
данных"
End ... ... ... Sub DropDownList1_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
DropDownList1.SelectedIndexChanged
Session.Add("fac", DropDownList1.SelectedItem.ToString)
DropDownList2.Items.Clear()
DropDownList3.Items.Clear()
DropDownList4.Items.Clear()
DropDownList2.Items.Add("")
myclassbaze.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\inetpub\wwwroot\diploma\Allbase.mdb"
Dim objReader As OleDbDataReader
objReader = ... * from SPEC, FAC ... and ... & ... "'")
If (Not objReader Is Nothing) Then
While (objReader.Read)
DropDownList2.Items.Add(objReader.GetString(1))
End While
Else
Label7.Text = "Произошла ошибка при обращений к Базе данных"
End If
objReader.Close()
End Sub
Private Sub ... sender ... ByVal e As ... ... ... ... objReader As OleDbDataReader
objReader = myclassbaze.SelectSQL("Select * from group2 WHERE
faculty='" & DropDownList1.SelectedItem.ToString & "' and spec='" ... & ... (Not ... Is Nothing) ... ... ... = ... ошибка при обращений к Базе данных"
End If
objReader.Close()
End Sub
Private Sub DropDownList3_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
DropDownList3.SelectedIndexChanged
DropDownList4.Items.Clear()
DropDownList4.Items.Add("")
myclassbaze.ConnectionString ... ... As ... = ... * from subspec2 WHERE
faculty='" & DropDownList1.SelectedItem.ToString & "' and C_SPEC='" ... & ... (Not ... Is Nothing) ... ... ... = ... ошибка при обращений к Базе данных"
End If
objReader.Close()
End Sub
Private Sub Button1_Click(ByVal sender As ... ByVal e ... Handles ... fname As String
fname = fileBrowser.PostedFile.FileName()
If (fname.Substring(1 + fname.LastIndexOf(".")) = "doc") Or
(fname.Substring(1 + fname.LastIndexOf(".")) = "rtf") Then
fname = fname.Substring(1 + ... = ... ... & "_" ... & ... = ... ... & "\" &
DropDownList2.SelectedItem.ToString & "\" &
DropDownList3.SelectedItem.ToString & "\" &
DropDownList4.SelectedItem.ToString & "\" & fname
fileBrowser.PostedFile.SaveAs(fname)
Dim insertCmd As String
insertCmd = "INSERT INTO zadanye (login, faculty, spec, ... ... VALUES (@login, ... @spec, @gruppa, ... ... As OleDbCommand = New
OleDb.OleDbCommand(insertCmd, OleDbConnection1)
MyCommand.Parameters.Add(New OleDb.OleDbParameter("@login",
OleDb.OleDbType.Char, 2004))
MyCommand.Parameters("@login").Value = ... ... ... ... OleDb.OleDbParameter("@spec",
OleDb.OleDbType.Char, 2004))
MyCommand.Parameters("@spec").Value =
DropDownList2.SelectedItem.ToString
MyCommand.Parameters.Add(New OleDb.OleDbParameter("@gruppa",
OleDb.OleDbType.Char, 2004))
MyCommand.Parameters("@gruppa").Value =
DropDownList3.SelectedItem.ToString
MyCommand.Parameters.Add(New OleDb.OleDbParameter("@subject",
OleDb.OleDbType.Char, 2004))
MyCommand.Parameters("@subject").Value =
DropDownList4.SelectedItem.ToString
MyCommand.Parameters.Add(New
OleDb.OleDbParameter("@nameoffile", OleDb.OleDbType.Char, ... = ... ex As ... = ... = Label7.Text & ex.Message
Label7.Text = "Вы не выбрали группу студента!"
End ... : ... = ... для ... ... ... Sub
Private Sub zagruzka()
myclassbaze.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\inetpub\wwwroot\diploma\Allbase.mdb"
Dim objReader As OleDbDataReader
objReader = ... * from zadanye ... & ... & "'")
If (Not objReader Is Nothing) Then
DataGrid1.DataSource = objReader
DataGrid1.DataBind()
Else
Label7.Text = "Произошла ошибка при обращений к Базе данных"
End If
objReader.Close()
End Sub
Private Sub ... source As Object, ByVal e ... ... ... ... As ... = ... * from zadanye where
login='" & Session("login") & "'")
Dim i As Integer = 0
While (objReader.Read)
If (i = e.Item.ItemIndex) Then
Session("chiso_okon") = CStr(CInt(Session("chiso_okon")) ... ... & ... ... ... & "/" & ... & "/" ... & "/" & objReader.GetString(4) & "/" &
objReader.GetString(5).Substring(objReader.GetString(5).LastIndexOf("\") +
1) & "','Mywin" & Session("chiso_okon") & "','scrollbars=yes,
resizable=yes, toolbar=no, ... ... ... ... ... If
End While
objReader.Close()
End Sub
Private Sub DataGrid1_DeleteCommand(ByVal source As Object, ByVal e As
System.Web.UI.WebControls.DataGridCommandEventArgs) Handles
DataGrid1.DeleteCommand
Dim objReader As OleDbDataReader
objReader = myclassbaze.SelectSQL("Select * from zadanye ... & ... & ... i As Integer = 0
Dim s As String
While (objReader.Read)
If (i = e.Item.ItemIndex) Then
Dim ... As FileInfo = ... = ... =
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\inetpub\wwwroot\diploma\Allbase.mdb"
myclassbaze.ExecuteNonQuery("DELETE FROM zadanye WHERE
login='" & Session("login") & "' and nameoffile='" & e.CommandArgument & ... ... & ... & ... ... ... While
objReader = myclassbaze.SelectSQL("Select * from otvet where
zadanyeid='" & s & ... ... ... As FileInfo = New
FileInfo(objReader.GetString(3))
infooffile.Delete()
End While
myclassbaze.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\inetpub\wwwroot\diploma\Allbase.mdb"
myclassbaze.ExecuteNonQuery("DELETE FROM otvet WHERE zadanyeid='" &
s & ... ... Sub ... source As Object, ByVal e ... ... ... As ... = myclassbaze.SelectSQL("Select * from zadanye where
login='" & Session("login") & ... i As Integer = ... ... ... = ... ... objReader.GetString(1))
Session.Add("otvetspec", objReader.GetString(2))
Session.Add("otvetgruppa", objReader.GetString(3))
Session.Add("otvetsubject", objReader.GetString(4))
End If
End While
objReader.Close()
Session.Add("prosmotrid", CStr(e.CommandArgument))
Response.Write("winkontems" &
Session("chiso_okon") & "=window.open ... ... & ... resizable=yes, toolbar=no,
status=no, menubar=yes, location=no, directories=no, Width=800px,
Height=600px')")
End Sub
Private Sub Button2_Click(ByVal sender As ... ByVal e ... Handles ... ... ... тізімі бетінің HTML-коды




Решение заданий





















Посмотреть
ответ




Решение заданий



Шешімдер тізімі бетінің VB.NET-коды
Imports System.Data.OleDb
Public Class otvet_posmotr
Inherits System.Web.UI.Page
Dim ... As New ... " Web Form Designer ... Code "
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
If Not (Session("checkedin") = "prepod") Then
Response.Redirect("identi.aspx")
zagruzka()
End Sub
Private Sub ... ... ... As ... = myclassbaze.SelectSQL("Select * from otvet where
zadanyeid='" & Session("prosmotrid") & "'")
DataGrid1.DataSource = ... ... Sub ... source As Object, ByVal e As
System.Web.UI.WebControls.DataGridCommandEventArgs) Handles
DataGrid1.EditCommand
myclassbaze.ConnectionString ... ... As ... = ... + ... = ... * from otvet where
zadanyeid='" & CStr(Session("prosmotrid")) & "'")
While (objReader.Read)
If (objReader.GetInt32(2) = CInt(e.CommandArgument)) ... ... ... & "/" & ... & "/" ... & "/" & ... & "/" ... +
1) & "','supermywin','scrollbars=yes, resizable=yes, toolbar=no, status=no,
menubar=yes, location=no, directories=no, Width=800px,
Height=600px')")
End If
End While
objReader.Close()
End Sub
End Class
ҚОСЫМША ... ... ... және ... ... жүйесінің HTML-
коды




Добро пожаловать!





















Просмотреть





Ответить



 
Добро пожаловать!




Студенттің құжатты ... және ... ... жүйесінің
VB.NET-коды
Imports System.Data.OleDb
Public Class stud
Inherits System.Web.UI.Page
Dim myclassbaze As New ... " Web Form Designer ... Code ... Sub ... sender As ... ByVal e ... Handles ... Not (Session("checkedin") = "student") Then
Response.Redirect("identi.aspx")
zagruzka()
If Not Page.IsPostBack Then ... ... ... Sub ... ... ... As OleDbDataReader
objreader = myclassbaze.SelectSQL("Select * from zadanye where
faculty='" & Session("faculty") & "' and spec='" & Session("spec") & "' ... & ... & ... = ... ... Sub ... source As Object, ByVal e ... Handles
DataGrid1.UpdateCommand
myclassbaze.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\inetpub\wwwroot\diploma\Allbase.mdb"
Dim objReader As OleDbDataReader
Session("chiso_okon") = CStr(CInt(Session("chiso_okon")) + 1)
objReader = myclassbaze.SelectSQL("Select * from zadanye where
faculty='" & Session("faculty") & "' and spec='" & ... & "' ... & ... & "'")
Dim i As Integer = 0
While (objReader.Read)
If (objReader.GetInt32(6) = CInt(e.CommandArgument)) Then
Session.Add("subject", objReader.GetString(4))
Session.Add("zadanyeid", CStr(e.CommandArgument))
Response.Write("winkontems" &
Session("chiso_okon") & "=window.open ('otvet.aspx','Mywin" &
Session("chiso_okon") & ... ... ... ... ... ... ... If
End While
objReader.Close()
End Sub
Private Sub DataGrid1_EditCommand(ByVal source As Object, ByVal e As
System.Web.UI.WebControls.DataGridCommandEventArgs) Handles
DataGrid1.EditCommand
myclassbaze.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\inetpub\wwwroot\diploma\Allbase.mdb"
Dim objReader As OleDbDataReader
Session("chiso_okon") = ... + ... = ... * from zadanye ... & ... & "' and spec='" & ... & "' and
gruppa='" & Session("gruppa") & "'")
While ... ... = ... ... ... & ... ... &
objReader.GetString(1) & "/" & objReader.GetString(2) & "/" &
objReader.GetString(3) & "/" & ... & "/" ... +
1) & ... & ... & "','scrollbars=yes,
resizable=yes, toolbar=no, status=no, menubar=yes, location=no,
directories=no, Width=800px, Height=600px')")
End If
End While
objReader.Close()
End Sub
Private Sub ... sender As ... ByVal e ... Handles ... ... Class
Тапсырма шешімін қосу бетінің HTML-коды




Добавьте решение задания









Добавьте решение
задания


Тапсырма шешімін қосу бетінің VB.NET-коды
Imports System.Data.OleDb
Public Class ... ... " Web Form Designer ... Code "
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
If Not ... = ... ... ... Sub ... sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim fname As ... = ... ... + fname.LastIndexOf(".")) = "doc") Or
(fname.Substring(1 + fname.LastIndexOf(".")) = "rtf") Then
fname = fname.Substring(1 + fname.LastIndexOf("\"))
fname = ... ... & "_" ... & fname.Substring(fname.LastIndexOf("."))
fname = "c:\inetpub\wwwroot\diploma\files\resultati\" &
Session("faculty") & "\" & ... & "\" & ... & ... ... & "\" & ... insertCmd As String
insertCmd = "INSERT INTO otvet (avtorofotvet, zadanyeid,
otvetfile) VALUES (@avtorofotvet, @zadanyeid, ... ... As ... = ... ... ... ... = Session("fio")
MyCommand.Parameters.Add(New OleDb.OleDbParameter("@zadanyeid",
OleDb.OleDbType.Char, 2004))
MyCommand.Parameters("@zadanyeid").Value =
CInt(Session("zadanyeid"))
MyCommand.Parameters.Add(New OleDb.OleDbParameter("@otvetfile",
OleDb.OleDbType.Char, 2004))
MyCommand.Parameters("@otvetfile").Value = ... = "Ваш ... ... добавлен!"
MyCommand.Connection.Open()
Try
MyCommand.ExecuteNonQuery()
Response.Clear()
Catch ex As OleDb.OleDbException
Label1.Text = "Ошибка"
End Try
MyCommand.Connection.Close()
Else : Label1.Text = "Только для ... ... ... ... ... қоры мен мәліметтер алмасуды жүзеге асыру класы
Imports System.Data.OleDb
Public Class ConnClass
Public ConnectionString As String
Private objconn As OleDbConnection
Private objCmd As OleDbCommand
Public k As ... Function ... ... As String) As ... = New OleDbConnection(ConnectionString)
objCmd = New OleDbCommand(strSelect, objconn)
objCmd.Connection.Open()
Return objCmd.ExecuteReader
objCmd.Connection.Close()
Catch ex As ... ... ... ... Function ... strQuery As String) As String
Try
objconn = New OleDbConnection(ConnectionString)
objCmd = New OleDbCommand(strQuery, ... ... ex As ... ... Try End Function End ... D
|Visual Studio .NET 2003 (All Editions) компьютер жүйесіне талаптары ... |450 ... (MHz) Pentium II-class ... |
| |600 MHz Pentium ... ... ... ... |Visual Studio .NET 2003 can be ... on any of the ... ... systems: |
| ... Windows Server 2003 |
| |Windows XP ... |
| |Windows XP Home Edition |
| |Windows 2000 ... (Service Pack 3 or later ... |
| |Windows 2000 Server (Service Pack 3 or later ... |
| ... can be deployed to the following systems: |
| ... Windows Server 2003 |
| |Windows XP ... |
| |Windows XP Home Edition |
| |Windows 2000 (Service Pack 3 or later ... |
| |Windows ... Edition (Windows Me) |
| |Windows 98 |
| ... Windows NT 4.0 (Service Pack 6a ... ... |Visual Studio .NET 2003 minimum RAM ... |
| ... Windows Server 2003 — 160 ... (MB) |
| |Windows XP ... — 160 MB |
| |Windows XP Home Edition — 96 MB |
| |Windows 2000 ... — 96 MB |
| |Windows 2000 Server — 192 MB ... Disk |Visual Studio .NET 2003 disk space ... |
| |900 MB of ... space required on system drive, 3.3 |
| ... (GB) of ... space required on ... |
| |drive |
| ... 1.9 GB of ... space required for optional |
| |MSDN Library ... ... |CD-ROM or DVD-ROM drive is required for CD ... |
| |DVD-ROM drive is required for DVD ... ... |Super VGA (1024x768) or higher resolution display with 256 |
| |colors ... ... mouse or ... pointing device |

Пән: Информатика
Жұмыс түрі: Дипломдық жұмыс
Көлемі: 36 бет
Бұл жұмыстың бағасы: 1 300 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
Intranet дегеніміз не?6 бет
Intranet –қосымшалары60 бет
Алматы қаласы студенттері мен жастары үшін акпараттық Web-порталын құру46 бет
Әл-Фараби және Ақжан Машани (Қасым Аманжолов порталынан)14 бет
Органдар биохимиясы7 бет
Қазақстан Республикасының электрондық үкіметі8 бет
Microsoft access жүйесі20 бет
Windows NT ОЖ клиент-серверлі құрылымы. Жады серверлері және торап сервері оқып үйрену17 бет
Іnternet туралы20 бет
Іnternet әлемі22 бет


Исходниктер
Пәндер
Көмек / Помощь
Арайлым
Біз міндетті түрде жауап береміз!
Мы обязательно ответим!
Жіберу / Отправить


Зарабатывайте вместе с нами

Рахмет!
Хабарлама жіберілді. / Сообщение отправлено.

Сіз үшін аптасына 5 күн жұмыс істейміз.
Жұмыс уақыты 09:00 - 18:00

Мы работаем для Вас 5 дней в неделю.
Время работы 09:00 - 18:00

Email: info@stud.kz

Phone: 777 614 50 20
Жабу / Закрыть

Көмек / Помощь