COMPUTER lNFORMATlON

NEAR

EAST

UNIVERSITY

FACULTY OF ECONOMICS AND

ADMIN-ISTRATlVE SCJENCES

DEPARTMENT OF

COMPUTER lNFORMATlON

SYSTEMS

2002-2003 FA~L T~RM

I

CIS

400

( Grodoatie>n

Project )

Submitted

to :

Dr. Yolcm A~c;all

Miss Nadire

Covus

Submitted By ~ Y. Emrch

Ozel (

9803 l3 }

Nicosia

2003-

\\1~[1~~1!~1'~~

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

CONTENTS

I. ACKNOWLEDGEMENT

II. ABSTRACT

Ill. INTRODUCTION

VI. EXPLANATION OF THE SYST~M

PAGE

2

3

4

- DATA FLOW pIAGRAMS

-DATABASE DESIGN

V. US~R MANUAL

5

12

15

I

VI.

usr

OF' SUBPROGRAMS

- Program Flow Chart

20

- Source Program

25

- Screen

Output

VII. Rl;FE~ENCES

7$

86

I

AC~NOWLEOGEMf,:NT

I

First of all I would like to thank to Miss Nadire Cavus who

was

supervisor of my

project , also

rrty

-chairman Dr. Y

alcm Akcah

and other teachers With

their

endless

knowledge I easly overcome ;nany difficulties arid learn a} lot of things about Database

Relational Web Sites ;tn~ server-side pregramming. Preparing this project is a nice experience

of my l~fe.

\

Also I would like to thank to all

my

family, my friends, my housemates, and all my

instructors because they never leave me alone and try to

help

me. Dtitinp

,nx

education

without their encouragements I would net be where I am now,

Finally I want

tq

thank

ntY

family, especially my parents. Without their endless

support and love for

me,

I

would

never achieve my current position.

I

I

I

I

I

I

I

I

I

I

2

I

I

I

I

I

I

I

I

I

I

I

I

I

ABSTRACT

This program will provide University an extensive control of student processes. Both

the department

aF1;d

teachers can easily do their duties with this computer based system.

From the structural look, the system is the component of a web server hosted on any

machine related to University LAN. This gives the ultimate access from any computer of the

University. If the System uploaded inte the University Weh Server, system can also be

I

functioning on worldwide. This means the students can see their grades from their hometowns

and the teachers can process their duties like grade entries, without going to University.

The System is an expert database related Web Site using technologies like ASP(A.c;t-ive

Server Pages) and Ms Access. So the clients will use the program , do not need any extra

client software except their browsers. They need

only.their

browsers like Netscape Navigator

or Internet Explorer. Just like surfing

cm

the Internet.

From the operational look, the system divided into 4- authority access 'levels. This is

needed for the safety purposes. The, levels are Administrator, Department, Teachers .and

Students. Every level makes up the different tasks. Administrator screen defines and controls

the department accesses. Department screeen defines and controls .teachers, lectures, students

and the -semesters. Teachers screen evaluates grades and other specific procedures related to

students and their lectures.

3

Introduction,

I

I

I

This system consists of four main parts. These are the sub-menus of program. These sub menus are Administrator, Department, Teacher and Student.

Administrator; to access this part we have to login as an administator. The system administrator constructs and controls the departments form this part. This part can add any new department or edit department information . We can also -see the departments currently stored in database.

Department; to access this part we have to login as a departmental authority. The departments can start

or

end semesters ; construct or edit lectures; define or ed\t teachers ; register a students details from this, part. The department can take two kinds of reports. One is related to students grades , other is related to lectures.

I

Teachers; to access this part we have

to

login as a teacher. The Teachers can customize their lectures by their preferences such

1

s

midterm numbers, quizes and percentages of these grade

assesment teols. Every teacher can struct their lectures by their own preferences. Every lecture can seperately customizable. Naturally we can enter grades, attandaace of stuqents for the lecture and we can edit or delete them. The teacher can find out every detailed report about their lectures and their students. One other role of teachers is to determine lectures in the begining

of

semester.

Stiidents; the students can not edit or delete any

part.

They do not need any authorization to reach system. When the semester ends, they can see their last grades anti they can see their old grades as in the form of -a transcript.

I

I

I

I

I

4

-

I

I

I

I

I

I

I

I

I

I

I

I

5

I

I

I

rl

-,,f- s:

I

I ~

I

t•~~

_{-~ o m}

~i~,~

_{m Sl.} 111

iff

0

m'ia._!i;~

E-m

i

&r3 am~

ii15'~g -""'365'.S"s-

l

~i~ ~ Jtfi~

C. '!!!. !ll. ii! ••• !!I. Ill iii

m er cs-

=-

fa

;s· a' ci: Ol:::,:::,O ~-::,.:> :::i

a - ;:;,

I

I

_IO

_'

~

_c:

_~

~

c:

i

_.:?

000 _{m m m}

0

ft O I j" j" jO j"

z

a

~

;;\lif i6

I

1

-1

m

i

2-

~

-a

8l

=i iii 3 ~ lit

><

en m

::o

i

~

c!

0

r/

)> ....,... o O o

I

Je

_>

~

i

~

,rn

Z

-o i o o. c, o o '-' - ,,.... !l!m@mmmm \11' o v, in 3

f

i" j" i" f'

1

Ii

~

uiur

m

~

s:

I

r . ~ ~

_,

o

a

I

r ~

3 5 . ~

-

lR

s;

I

i'

i .~

_o

~ i

I

J

i

f

ijf ~

I

a

rlt

I

lJ

I

6

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

,<i:i

a

I

I

7

en C m

,_

~ _o ~

~!!liif

~

_r-l

₀

i

_slaiil~

C -- 3

a.~i~

~

G\J

ii

lB C

1--·-

·iii' o

g

er :J . ?

I

I

I

I

I

I

I

I

I

i

i°

a

> 0 .;:

z

"Tl ~

!ii'

i°

e

8

I

I

verification r-

.,,~

j=-( 14-~~~~~~ mC ::0

"'

verificali9n . m ,- 0 rn 0

~ ;g

0 "'0- )> o·~gr--> :;{J C Z..-

g

,- s:

-i mm0 I'll ~ z -i ~ -c ~ (D 3i

(/) I I

1,;

,,~

i

i

;:, I

a

verification Delete All Files

student Information

I

if

i ...

g·

~

!!!ll!lllllllllllllllllllllllllllli

In

~o

Cm ::0 ,, m- _q,Z ..•.• @ i= m m All ~nts~s 0

i

)> ·= ::0

§

ra

_II) r I'!,

a

(i) ;o (/) )> -i cc mo mm

,,z

i= -i m

I

I

I

I

I

I

I

I

I

I

I

I

--

(/) -I C 0 m z ,, -I ;=(')

mi

Al m ~ 0 m

,,

z

:!! m ~c -r (I) m '-'O ' -4 rv C :::c m (/) i 0 m

,,

,,z

i=~

.m

r- ~ ~- .!.. -I C ::0 m (/) G) :::c (/) )> -I oC mO <I> m ,,z - -I ~ tn: 10

•111111111

I

I

I

I~

I

,~

~ ~

I

_J~

"T1

·5

:E

0

s

!

5

_..

c:.,

-

-I

m

I

,~

_.ffi

I

~

I

I"" ,<t> ~ 51_ 0 I"" ~

,_

0 r-· ,'& 6

I

I

I

11

I

[

I 6 ··· 1:111111111111111111111111111111

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

srup1ENT PR0CESS!NQ SYSTEM- PATA STRWC:!UR{: SHEIEJ

DATA STR-UCT~JRE

SH~ET

OF

$-TUQENT PROCESSl-NG

$YS,l~M

S,:t.JOENTJNFO

FIL~(TBLSTt> lltF)

OtSCRWTION ' \

·NAME

$TuoE~T"io \ 'I SID,

' '

?TIJ!bENT NA~i- I _{. $ !'JAM;!;;} ' , I

$'

_{TUDE;NT , ~R/'l}I.ME} I.

s

ls

_S~AME

$TuQ'e:Nt ADD.RES~ _I.

s

J/.DR

> STUDENT PHON~ ' ' s RHONE

DEl?AR!M.ENT,

tb

I

I

,OEP ·10 STUDENT R1;:01~RAT16N Of(T"E, ., S RDA1]::

G~uATIQN SiA;it,.,:s I . S, ~'TAi\JS

, GRAPyA:rlON

_,,

-0AiE _I S GRD0ATE

, S

E;3t_RTHDATE

(;31RTH D~TJCE

BIRTH f?LACE

-«

-?_GRDDAti

I STUT;>EN-fi G~t>E~ Fl '""E ( "fl;:ll...~TP =-GR

D )

E>isc~IP1ilON NA";I~

I'

' '

' . _i"

~TUDENT .10, >' $ IP

TERIJl1 (FALl...,SP-RING,$!-)'MMER) _11ER.~

YEAR YEA'RT

· L-ECUJR/s ·fD I LEC IDI

Liic.Tu,~

ro

I

a

· Ll:;c 102 . \ECTWRE ID

:3

' LE9 103 lEC'TUIR~1 1 D '4 ' ' ,t.1:c· t04 I . I LECTlJ,RE IQ 5, ' ,1...-EC 105 T I .L~c 1be L!::~TUR~ '106 '

LE,CTURE I D7 I · LE.C ID7

GRAIDE I , _J ·GRDI \ 'GRA.DE Z . '. GRt:>2 '' I I GRAt;>~ 3 ' GRD3 I GRA~E 4 _I . (3'RD4 I _'' .GRADE 5 _{' . I} GR!D9 I 9'RADE16 \, / r , G~D6, J GRf,.DE

7

GR07 -, ' " T 1 ,,L.EC IDl ' h!::C ID2 · L~c ID3 L!::CTURE ID

4

Le:&

tD4 1 t:rEC:TURE f,D Q 1,LECTU11E::J0 6_ LEG:TUR):: fD 7 J.:!,::C IDY

-12

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

--

~TUDEt)fI -PROCess1Nd S)'STEM- DAl'A STRUCrURE SHEET

~· ~-·· LECTURES ,flL,! (

~LLE~ )

DESCRIPTION_,_'~~ ' ---.

I

NAME;

!-EiC:TURE

IQ

_, LEG; 10, -·-

LE';CTURE NAME _{LEC NAME}

, L.a. I

'

'

q

DEPART-MENT I__:_ DEiP

rD

iEAOHER ID _{L.___ .a.'}

LEG ,t)t::sc

._,

·---· --

~ID'l"E;:RM NyMl!:jpi Mto Nt,JM

Jou1~~~.uM

ourz NuMse:R

T \

qu,z PERC

FINAL PERCEN-iAGE ' FlNAL .PERC

PARTICIPATION P-e:~<:;ENiAOE

DE:;F'=-~TATU~ L

r

DEFINEt) LEcit.JRE FILECS> I

l

(, ~Ul,.lil,rlt:,.;E"""' I ) ( TE;ll.t.LE~

I

1

LEC I.II> ] )

DESCRIPTION I ' "NAME ' {

STUti>ENT IQ _s'10

ATTANDANCE GRADE · GRD

,4.rr

\

'

- fv,11DiER¥ I GRAD~ ( O,PtlQNA\- ) ;GR~ MIQ I ' - - 7

MIDTERM _-

2

GRA,DE;; _{' '} c' 0PTIONAL) _GRD1M1o2 _I

QUIZ. I. GRADE ( Ofi"TIONAL} GRD. Qµ1zl l

' Quiz

12

GRADE (, OPT!DNAL ) . ORD Qy1,Z2

ouiz

3 ,GRADE ( 0PTIONAL ) _{GRp Qu1z3}

I ' ' I I

GRo Qui~4 '

Ot,JIZ 4 GRADE < ORTl?NJAL )

.QUIZ, l;YGRAOE ( OPTIONAL );

\

n'RD

Qurz51

Fi\..Jf'J., G~DE ,/, . ,GRO FII\IAL I

PA~TICIPATION GRADE I _{ORD 'PART} ( I

l.:AsT GRADE ORD' l.,AsT

I

O~FINtQ LEClURE ,FILE~$)

I

<. MULTI FIL~ - 2

>

c TetL~E92_c

1..:Ec_,q

1

>

I

DES<:;;Rl,Pfl()N' '

I

N1A.ME ' STUDENT ID

_{s ie}

I I 'AITA,NDAJ\>ICE: DATE I 1 1A'rT DATE ''

,ATTANDANCE EiTAT,U~ ( YES,

Nb )

.r A'TT STATUS

'

1-3

'

STUDENT PROC!tSSING SYSTEN-1 ..- DATA STRUCTURE SHeET

'

I

I ,

"fEA(;:HE'RS FIL,E C

TSLTEACH(RS

>

D.E!:;>CRIPTl<!>N

_~AN.iii

TEACHER tD Ti,cH ID

TEACHER NAM~

' TE_,A~H NA.ME

' ' '

TEACHER SURNAMEi: _{T,.EACH SN{\ME}

liEACHE'.R ADDRE$,S _{, T~cH Ao~}

TEACHE,f{ fPHljZ)NE . 1,EJ\Ct-j . PHONE,0•

TEAC!iER US'l;:RNAME _I · TEACH· USER

r°fEACHER PNSSWORJj _{'T~CH PASS}

_I

I

I

I

-,

D~PAR'J"M¢NT

,

flL,E

' (TBLDEP11

I _'

DESCRIPTION -, _ NAME

CTEPARMENT ID _{!PEP' ID}

I

08:PA~TME'.rh: NAflliE _{DE'P NAM~} I

E>EP,<},RTMENT AUTHORITY NAME _{DE;R ~NA"1E}

\ '

Oi;_p USER QEPARTMENT USERNAME

. DE!;"~RTMENT P~SWdRD _{, Di;P PAS$}

' '

I

I

I

DftSCRI PTION AOM!N FILE

1TBLA0Mlt,-J) .

_NAME -Kli::Y

ID

' _-KE;Yl,D

\

. LOGIN NAME _{Loo I NNA"1E}

PA~SWORb _{I .} p _~SSWpRB /. I I , '

I

I

I

I

I

I

I

I

14

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

!!!!!!!!I

USJR~UAL

PROGRAM-FEATU~~S

i

tti~ Student Processtnq System has several features inside- it. These are :

Companbte

vtith Internet Explorer-

5

or -hfger or Netscape Navigator browser chent programs.

Developed wrth Active Server Pages(ASP) te<;:hnolpQY· Develeloped With Hyper Text-Markup Lar,guag~(HTML) 4.

Improved

with Java'scr:ipt and VbScript.

Uses Ms'Actess Database , Ms JET SQL 4.0- Engin-e,

Bindfng data connections-With ActiveX DaKa 'Objects (ADO)i _I

SYSTEM

REQUIRMENTS

This procrarn is a cherrt/server proqram so it must tie considered for both client stde

a-rtl

I

server side. The needs for client and server user differs frorn ' ' -

each otner.

SYSTEM REQUtRMENTS FO,R S-ERVER USER

HARDWARE

C~ECOMMENOEb>

Pentium II

or higtJer

processor.

128 Mb RAM.

-.. 1 Gb free $pace.

Network Card arid others if it will serve on LAN or Internet.

$0FTWARE

Wi,rldows NTS/98/2600/Me/XP Operatlnq System,

Internet

Information

Server 4 or higher or

a

Web .server cempettbte with

ASP-.

MDAC

2.Q

or htgher.

Browser (Ms Internet Expldrer or Netscape ~avigator. Other browsers do not

tested.)

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

SYSTEM

RE~lJIREMENJS FOR CU~NT

us~~'

HARi;>WAR-E C-REC01'1!1M..ENDED>

HQVil'l~ Pentium or higher processor Persona! Computer

SOFTWARE_

Windows, NTS/98/2600/Me/XP Operating Syst~m.

Brows~r (Ms

tptemet

Explorer or

Netscape

'N,'avigatpr. Other browsers do not

I

tested.)

lNSTAL,~IN~AND,STARTING

THE PROGRAM

oh1y

server user needs to install the, program.

to

do thrs you have ;to rnstal] first Internet InformatLo-n Server, I' explained the steps here under Windows XP Professipnat. Clients can start

from

step 4.

' C

STEP - J

Open :

>Start> Control Panel > Add Remove Programs

.Cllck.on Adc;f/RerTfON'e Windows Components

>

Click

ns

>

Click Next :

Setup want fram you Windows CD. Insert Windows. $etup

GD

and contlnue :

lfJ]TfimtJ

·

.

,.·.·.·.·.·.· .

.

·.· .

.

·.

_

.

_

·.·.·.· .... , .

.I .... ···.··,_.·.·.· .• · .. · .. _.· .. _.·,_'_·.' .. ,,· •. ,_,_· •. ·.· •_. ···.· •• ·.''·"_··.·.···.·.·.·.·.·.

lf

1_·._.· . ·.·.· ... ·, .·.· .. . ··_· .. _·_· .. ·.·.·

!lli1

llll1l1•1~1,11111111

i1i0·-··--,

iiiil1ililat11ri1111i~iitil!}

If you wpnt to use program under Wiri<;lows 9S you can install PWS. You

qm

'find lt'und:e{ Windows 98 Cd Add-ons.

STtP -

2

Cop'y

ahd

pastedirectorv named "Spsys" in Ii\lstallatiolil-~isk

bf

Studen~ Processing System i~to

>

\'c:\" root directly.

STE:P -3

I

0

Open Control 1P~neL

>

Administrative Tools and cHck Internet Information 5iervers

I

Rii~B[.

[j",Jll$'tl

a,

~,~&"'

Services

ffi'fillft&i

D~~ 59wr~es {ODBC)

rt::;:;,.U:

JI

;';!,':t"'IY ''""

&,_

Services

~t);','::U:

~~<!:); . ,mew.L ~~jJ.i \ill'fll<l!tll;.lli . ~1::1s;:t~f .

d':£:: ...

I

I

I

17

I

I

I

I

I

I

I

I

I

I

I

I

I

I

Prioters

•

~·

Ent~r Alia$ "Sp's-vs'; , click Next :

. .[.. ... / ... c;-;11::,..

Click Next.all.

-·---~«

- We/come to the \.1111"u~1

£1iteet,ory Cr~ation Wiµrd

~=!e.wjll heb 'iOU create o r,ewVirl.,.J Diretloiy o~

Enter "C:\Spsys'' as

direetorv :

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

STE'P ,- 4

~~start your Windows end-ooen your br?wser. Enter URL http://[cornputer name]/spsysf"'

{Computer name] is the name of \h~ computer that you ir1Stjllleq

us.

If

vou

are. using on yqur computer you can write there Iocalhost,

\l'cleoinet>)Nefl'EastlWliff!ltyStudtfflProc~lngS)',t~; rm system C8f).be u~ u-aer tour ditlerert le¥eb, lf ydu Me the~ o1 i.Jrvv~rl!lr tkk: MM.

ft!,'01,Jor'ead~nl:euthel'fv\1c:1tDe~ert. II yo.. fR a teacher cld(T~ ff yru arao shAciertthed re~&dtoddtooase clcl(SI~ Every 'S\.11:l eanl)et_lM1t,/tr~ end1hey t:61'1 dothei' eMle!.

( .

USING THE

_. /

PROGRAM

Yo4 can use the program just like ~ploring on any other We6 $ites. The men,u on tsp level· is the menu you can evervtirne can reach. When you click on link, tn9t rink wi11 reopen other link.

$,=cu~1TY ON PROGRAM

When you r1ight click the progrqm ypu can see that some codes are aplbeprihg. 13ut

I

with the help of ASP. The codes.arecempned in Server and

cqnverted

into HTML. So

server

side prpgrqml\rfed of the code is in safei

I

I

I

I

I

I

-

20

STUDENT PROCCESSING SYSTEM

USER FLOWCHARTS -

PO

Start

I

I

I

I

Open Internet Browser

Write Web URL Adress. http:l,'{host computef1/spsys 1. Admln 2. Department 3. Teachers 4. Students 5. About

c~~

No C~3 No Yes Choice 4 No----,,_ Yes ~ ,Yes _ChOICeS Abilut Page help.asp Yes About Page help.asp Enter Student 10 Display

Transcipt Display About

---·---

STUDENT PR0CCESS1NG SY$T~M

USER FLOWCHARTS - f>1

admln.asp Loginadmin username password

I

Nq

I

f True·.""---~ Yes Yes / Oi~play Departments Seup l)epartments

I

I

22

I

I

I

STU.DENr PRoqCESSING SYSTEM

USER FLOWCHARTS ,. P2

2

I

1. Teachers 2. Lectures 3. Semester 4. Student Regi~ration S. Graduate Student 6. Report

I

Choice 1.

I

Yes Display Teachers Yes Setup Teachers Department.a~p Login as Department. No Choice?.l No

Yes Choice 3>----No

Display Lectures Yes Choices No Yes Set\.lp Semester Choice6 Yes

Setup Lectures ~egister\ Studeht

Yes .Graduate Student '

I

Display Report

I

No~

23

STUDEN-T PROCCESSING SYSTEM

USER'FLOWCHARTS • P3

Teachers.asp 1. Exams 2. Attandance 3. Reports

I

Choice 1

I

Yes Display Exams Yes ,Calculate Exatn Grades Displf!Y Lectures Login as.a Teacher _No y~ No Choice2 No Yes Choice3'>- Displ~ Attandance Yes Display Report Calculate Attandances N~

24

I

I

I

I

I

I

.J

@@Mm@@

@@@)[§

@

I~ ... : ~

[?[M@@

o' ··~·~

\

I

I

I

I

I

I

I

I

I

25

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

-

Adm in.asp <%@LANGUAGE="VBSCRIPT" COQEiPAGE="1252"%> <!,.-#include file= "include/iri~_d1Jc;:011n.asp" --> <%

if Request.Qu~ryString('1Login"J = "Check" then

LqginName = trim(Request.Form("6QgiAName"}) Password = Trim(Reque$t.Form("Password")) dim RsAdminLog

Set RsAcfminLog ::;: Server.Creat~Object("Adodb.Recordset")

RsAdminLog.Open "SELECi

*

FROM tblAdmin WHERE LoginName ="' &

LoginName & "' AND Password = "' & Password & ""',<;;n,1,1 , if rsAdmihLQg.Record<I:9unt = O then

ErrorString ;::: ''<br><font color =green>Your username either password is invalid. <br>Please check them and try it c;igain._</font>"

Sessio'n("AdminCheck")=False else

Session("A1minCheck")=True RsAdminLog.Close

Set RsAdr:;ninLog = Nothing Response.Redirect: "admln.asp"

End If

RsAdminLog.Close

Set RsAdminLog = Nothing Ehd If

%> <head>

<title>STUDENT PROCESSING SYSTEM</title>

<meta http-equiv~"Content-Type" content="text/html; charset=iso-8859-1"> <link href="css/mystyle.css" rel=J'stylesheet"

tvpe='fext/css">

</head>

<bo,dy bgcolor="#AABDD9">

<table width="760" border::;:"0" align="center" cellpadd1ng="l" cellspacing=''O''>

\

<tr>

<td bgcolor="#OOODOO"><table width="100%" bor'der=''O" allgn="center" cellpadding="Q" cellspacing="O">

<tr>

<td

align*''center" bgcolor="#708E6D''><spar1 class="htext"><irng src=Tmaqes/Ioqo.pnq" width="219" height;:::"7b"><font color="#FFFFFF" size;:::-"2"><br>

NEAR EAST UNIVERSITY<br>

COMPUTER INFQR~ATION SYSTEMS - GRADUA1ION PROJECT</font></spqr'l></td>

</tr> <tr>

<td align="center" bgcolor="#708EBD"><span class="htext"><img src=",im9ges/spacer.gif" wjdth="

i"

height="l" > </span></td >

</tr> <tr?

<td align="center" nackground=1'images/nav_bg.gif" bgcolor="#AABDD9"><il'ng src="images/nav~adm.png" width="381" hergtrt="21"

borderv'D"

usemap="#Map"></td> </tr> <tr> <td align="center" bgcolor="#.FFFFFF">

26

-

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I ,

I

I

I

I

I

<0/6 ---·---· -r-· ---

Select Case Session("AdminCheck")

'-~·--- ;---~-

,_ ~

·~---

'~---~---~---r---.---~-- ~---

-

Case false

--

~

-

---~---~ ---

O/o> <p align="right" claSs=="text">&nb$p;

<table w1dth="SO'%!' border=s"D" align="Center" ce11padding="O"> <tr bgc;:olor='(WjFFFFFF"> J

<td width="500" alfgn="center"><p ~ligr'l="c:enter'I class="text"><strong><font size=''+l">ADMlNISTRATOR

LOGIN SCREEN </font>< br>

</strong><%= ErrorString 0/d></p>

<Form name="formLo9ir,-" id="formLdgin" action="admin.asp?Logi111=Check" method=" pos,t'' >

<table wldthr="~OO" border:::;_"-0" cellspacing=1'0" cetlpaelding="0"> <tr>

<td wjdth~nl" rowspan="3" bgcol~r=''#333333"><img src=Tmaqes/spacer.qlf" width="'l" height="l"></td>

<td bgcblor="#333333"><img srcS"images/~ppcer:.g_if" width="l'' helght==" 1" > </td >

<td vyidth="l" rowspan="3" bgcolor="#3~3333"><img src~"images/spacer.gif" Width="l" lleight="i">-</td>

</tr> <tr>

<ttl><table width="100%" border="O" aligM="center" cellpaddihg="2" cellspacirg="S" >

<tr valigrr="tniddle"

>

<td c6tspan="2" bgcolor="#CCCCCC" class="text"><strongi><img src=rimaqes/spacer.qif" width="l" height="l">LOGIN

HERE t</strong></td>

<ztr>

<tr>

<td width::;"41 %" class="text">Username :

<Ztd>

<td width:i=",599/1>"><input name="LogihName" type:;="text" ctass=t'textbox" -Jd="LoginName"></td>

<z'tr>

<tr>

<td ctass='itext'' >Password : </td>

<td> <input name="passworo" type="password" class=J'textbox'' id="password" ></tel>

</tr>

<tr align="right">

<td ao'lspan/=".2" pgcolor="#CCCq:C"><font co~or="#FFPFFF"?> <input Mame="Logir1;Admin" tvpe=t'submtt"

class=vbuttcn"

id="LoginAdmin" vah4e="Sign In">

r

</font> </td > </tr>

</table></td> </tr>

<tr>

<td bgcotor="#333333")><iriig src¢="images/spacer.gif'' width="1" height="l"></td>

</tr> </table>

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

</form> <ftd>,

<Ztr>

s::/taBle> <%

'*****************'***********************************************~****'*

*****'

'********************************************"*********************"'***

*****

'**********************************************************************

*****

'---i---~---'--~--- \---~---

Case True

'~~---,---~---

,

_

Select -case Request.QueryString("Task") _,J case "logout" .sessron .Abandonf) Response.Redirect("admin.asp") I I Case "add" Ofo> <br>

<form na(lie="FermSave" (d="-FormSav.e" a~tion="admin.asp?Task=savef' metbod=rpost">

<table border="l" align="cen~er" cellpaddinq="?" 'Cellspacing="l"

' \

t>ordercolor:r='l#6699,CC" class="text" > <tr>

<td colspan="2" bgcolor="#6699CC"><font co'lor="#FFFFFF"><strong>ADD NEW DJ:PARTM ENT</ strong> </font> </td >

</tr>

<tr bordercolor=" #-FFFFFF" >

<td width="18S">Deparrment Narne-c/td>

<td wiqth~"206"><input name="Dep_Name" type="text" id="Dep_Name";:;/</td>

</tr>

<tr bordercolor=" #FFr='FFF'1 >

<td >Authority

Na

rrie-c/td >

<tdo-cinput ncime="Dep-',A.na'me" type::r"text" id="Dep_Anar'ne"><ltd> <f,tr>

<tr bordercolore" # FFFFFF" >

<td co~span="2" bgcolor'=''#6699CC"><font color=1'#FFFFFF";><strong>Sign

I I I

- In Information

<Zstronq>

</font> </td > <;/tr>

<tr botdercolor="#FFFRFF"> <tdc-User Name : </tel>

<td><input name="Dep_User" type="text" id="Dep_U$er"></td>

<ztr>

<tr bordercotor=" #FFFFFf" > <t-d>Login Password : <Ztd>

<tdc-ctriput name="Dep_Pass" type::;:'1password" id="Dep_Pass"></td>

</tr>

\ '

<tr align="center" bordercolor="'#FFFFFF">

<td colspan="2"><input name="Sul;>,mit" typ~="subrnit" classe'buttonz" value="Save" > </td >

</tr>

</ta,ble></form> <0/o Case "save"

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

pep_Name = Trim(Request.Form("Dep_Name")} Dep_AName = Trim(Request.Form("Dep_aName"))

Dep_User = Trim1Request,Form(''D

7

p_user"}) Dep_Pass = Trim(Request.Form("Dep_pass"))

dim RsSave ·

Set RsS,ave = Server.CreatepbjectC'Adodb.Recordset") RsSave\Open "SELECT* FROM tblD,ept",cn,i,3 r~Save.Addnew RsSave("Dep_Name")

=

Dep_Name RsSave("'De11._aName") = Dep_aName RsSave("Dep_user") '= Dep_user RsSave("Dep_pass"} = bep~pft!ss rsSave.Update RsSave.Close

Set RsSave = Nothing

Response.Writ~(,"<br><p class=texts-Record Added Successfully</p>") Case "del1' %>

<l:;>r>

<table width="75%" bcrder= ";" align="center" cellpadding="2" cellspacing="O"> <tr>

<td

boq:ferc0lor="#FFFFFF" bgcolor="#6699CC" class="text"><strong><font color="# FFFFFF" >Confi

rrnatron

Dia log </font> </strong> </td'> </tr>

<tr>

<td align="center'' bordercolor="#6699CC"><:span cl~'ss="text">Confirm to delete This Department ?</span> <p><span class="text"> <a href="admin.asp?Task=del&ID=<%= Request.QueryString("ID")

%>&confirm=OK"><irr,g sr,c:;±"images/yes.gif' width="35" height="l 7" border="O"></a>

&nbsp; &nbsp; <a href=''admin.asp"><img src="images/n,q.gif" width="35" height="l 7" bor,der="O" ></a></span >&nbsp; </td>

</tr> </table>

<br>

<0/0

if Request("aonfirm")= "OK" then

SQL = "DliLETE FROM tblDept WHERE Dep_lD= 1'

& Request.Query?tfing("ID") en.Execute (SQL) I Respdnse.Redirect("admin.asp") -End If Case "edit" dim ,sEdit

Set Rs Ed it == Server. CreateOl;>ject(" Adodb, Recordset") RsEdit.Open "SELECT

*

FROM tblDept WHERE Dep 10= " &,

T

Request.Query$tring("ID") ,en, 1, 1

Dep_Name = -RsEdit("Dep_Name"), Qep_aNarne

=

RsEdit("Dep_aName") Dep_user = RsEdit("Dep1user") Dep_pass = RsEdit("Dep_pass") RsEdit.Close

Set Rs~dit = Nothing

-O/o>

<br>

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

<forrrt name::;::"formEdlt" id="FormEdit"

action="admin.asp?Task=update&l0=<%= Request.QueryStrirtg{"IP") 0/ie>"

methode " post">

<table border=" 1" align="center" t:ellpadding="2" cellspaclnqe" l" bord~rcolor='.'#6699CC" class=vtext''>

<tr>

<td colspa'n="~" bgc61or="#6699CC"><font color="#FFFFFF"><strong>EDIT

DEPARTMENT <Zstronq> <zfont> </td

>

</tr>

<tr borderc61or="#FFFfFF">

<td width="l85"z:>Department Narne-c/td >

<td width="206''><input name="Dep_Nanie"

tvpe=vtext''

id="D~p-_Nam~" value="<%::::::;Dep_Name0/o>"></td>

</tr>

<tr bordercolor="-#FFFFFF''> <td>Authority Name</td>

<td><input name="Dep_Aname" tyRe="text11 id="Dep_Aname"

value="<%=Dep_Aname%>"></tcl> </tr>

<tr hordercotore" # FFFPFF" >

<td colsp~ n::;:: "2" bgtolor=" #o699CC" ~ <font color="# FFFFFF"

>

<strono :>Sign - I

h

I nformatipn</St'rong ></font> </td >

</tr>

-ctr bordercolor» "#.FFFFPF"

>

<td>User Name :</td>

<td><i,nput name="Dep_User" type="text" id="Dep_Usen" value="<%=Dep_User%>"></td>

<ztr>

<tr t;>ordercolor::::;."#FFFFFF">

<tde-Loqin

Password :</td>

<tdc-xinput name="Dep_Pass" type="password" id="Dep-'Pass" value;:::"<%=0ep_Pass%>"><ftd>

<ztr> I

<tr align="center" bordercolor="#FFFFFF">

<td colspan="2"><input name="Subrnit" type='1'submit" ctasse=buttonz"

value':;,:"tJpdate" > </td > </tr> _I </table> <zform> <%Case "update" Dep_Name .:: Trirn(Request.Form("Dep_Name")) Oep_AName = Trirn{,Request.Form("l;)ep_aName")) Dep_User = Trim(Request.Form("Dep_user")) Dep_Pass = Trim(Request.Forrn("Dep_pass"}) dim Rsupdate

Set RsUpdate = Server.CreateObject("Adodb.Recordset"}

'

'

RsUpdate,Open "SELECT

*

FROM tblDept WHERE Dep~ID== " ~ Rectuest.QueryString("ID"),tnil,3 RsUpdat~("Dep_l\jame") = Dep_Narne RstJpdate("Dep_aName") = Dep_aName RsUpdate("Dep_user") = dep_user RsUpdat~("Dep_pass'') = Dep_pass rsUpdate.Updat'e RsUpdate.Close

Set RsUpdate = ~othirig

Response.Write("<br><p class=texts-Record Updated Successfully<-/p.>") %>

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

<% Case Else

%>

<br> <0/o dim RsDe'pShow

Set RsDep~how = Server .createobjectt" Adodb. Record set") RsDepShow.Open "SELECT* FROM tblOept",cn,l,1 if RsDer()Show.R~cordCount ::;: 0 then

Response.Write("<p classe-textc-Department Table is Empty</p>")

Else %>

<table width="90%" border="'!" ceilpaddinq=I'O" cellspacing="Ol' bordercolore " #6699CC" class="text'1 >

<tr bor?erc(?IOr= "# FFFF;f F" class ="text">

<th ?)Ilg n ="center" b9co1or= "# 6699CC" >&n bsp: </th> <th bgcolor="#6699CC">Dep. Narne-c/th> <th bgcdror= "#6699CC" >Authority</th > <th bgcolor="#66~~CC">UserName</t,h> <th bgcolQr:;;=" #6699CC" > Password </th> <th align="center" bgcolor:;::"#6699CC">&nbsp;</th> </tr>

<% Do While Not RsDepShow.,EOF %> <tr bordercetcr=" # FFFFFF" >

<td align="center"><a href="admin.asp?Task=edit&l0=<0/o=

rsDepShow("Dep_ID") %>"><img src="imag,es/edit.gif" width="35'' height="l 7" border="O"></a>~)'td>

<td align="center"><%== RsDepShow("Dep_Name") %></td> <tq align="ce'nter"><o/o:;:: RsDep~how("Dep_AName") %></td> <tel align="center"><%= RsDepShow("Dep_User") %--::::,</td>

<td align="center"><%= RsDep~how("Dep_Pass"} %></td> <td afrgn="c;enter":><a href="admin.asp?Task=del&ID=<%:::;:

rsDepShow("Dep_ID") %>"><i1mg src=vimaqes/del.qtf" width="35" height="l 7"

border=''O" ></a></td> </tr> <% RsDepShow.MoveN,ext _\ Loop 0/o> </table>

<br>

<% End If RsDepShow ,Close

Set RsDepShow :;:: Nott, i ng %>

<p align="qmter'' class="text"><~ href="admin.asp?Task=add">AddNew Oepartmerit</a></p>

<br>

<% End select %> <br>

<tabte

widthr=:"100%" border="O" cellpadding="O" cellspac:ing="O" bgcolor,="#6699~C"

class="text';> I

<tr>

<th w'idth="20%"><div align="right"><font color="#FFFFJ=F"> <a href="admin.asp" class="slinks">[Admin

Main]</a>~nbsp; <a href="admin.asp?,Task=logout" class="slinks">[ Log Out

31

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

--

]</a><;img src="images/spacer.gif" width="10" height="8" border=t'O" > ~/font'> </div> </th>

</tr> «/table>

<

0/o

)**********************'*''t=***f>iF*********'!'*'!i:*****************************

***'!'*

'**********'f****************~****************"'*********'*"***************

*****

'************l,i:*******************·*********i*****'lj***********************

*****

---· ---,---.---- ,---.--·---~---

End Select '--. --- \ 'I"' ";" __ .---~--''---·-,'--- %>

<f--#include ,file ± "incl,ude/inc_b<:,~om.~sp''

-->

Default.asp

<'0/o~~NGUAGE="VBSCRIRT" COOEPAGE="1252"P/o> <html>

<head>

<title>STUDENt PROCES§ING SYS1"EM~/title>

<meta http-equiv="Content-,Type" content="t~xt/html; chars,et=iso/-8859-1">. <link href="css/mystyte.css" rel="sty~sheet" type=';text/Css">

</head>

<body bgcolor="#AABDD9">

<table widt'1=;="760" berder='D" align="cente'r" celtpadotnc="t" cettspacing="P''> <tr>

<td

bgcotor="#pOOOOO"><tabt~ v..:idth·="100%" oord_er~"d" atign="center" cettpaddi,ng'="O" ce1tspacing="O" >

<tr>

<td atign="center" bgColor=t!_#708BBD"l><span class="htext"><img

L I .

src=1'i1mages/logo.png" vyidthr="219" height="70"><font color="#FFFFFF"

size="2''><br>

-NEAR ~AST UNIVERSITY<br>

COMPUTER I-NFORMATION SYSTEMS - 'GRADUATION PR,OJ ECT </fant></ span> </td '>

</tr> <tr>

<td align:::"center" bgcol6r="#708EBD"><span clli;l~s=''htext"><img srt:::::i11images/spacet.~if' wic;tth="l" heig'ht="l"><f'span></td,>

<ytr >

<tr>

<td align="center" oackground="images/nav_bg.gif" bo~olor,:;:"#AABQD9"><img src="images/nav--'djf.png" widt~="381" l\eight="2J" b0Jder=110"

us~map:::;.-"#Map1'>< td>

</tr> <tr>

<td aljgn="center" bgcolor::;:','#FFFFFF":::- <p align;::"cehter" class="text"><br> Welcome to Near East University Student Proc~~sl'ng svstern ; <br>

I

This system can be used 1,m'clet four differept level~.

<R align£"~enter" class="text":;>lf y'ou are the admii'l of University click Admin.<br>

If you. are a department authority click D1enat;tment.<br>

' I

t .

I \

If yo.u cV-e a teacher c;;~:ick eacHer. < br>

If you

are

a

student

that register~

to

database alick. stydents. <p align="c~nter" class:!:::"text">,f::very sub can-get different reports

and they can do their duties.

<br>

<br>

I

~/td_>

</tr>

</table></td>

<Ztr>

</tabJe>

<p

align="center" class=t'text'c-Copvrtqht 2002 &topy; Y, Emrah &01.,1ml;:z;et.-AII Ri9-nts Raserved.xbr>

<br>

<a href=" . ./MyBann'er/terms.asp">[Tertns of Service]<1a> &nbsp; <a

_{' \ ./ I} h ref =" .. /MyBa nner/.pnvacy .asp" > _{. !}

I .

[Privacy Polity]</a><br> <br> '

</p>

<map n-ame="Map"

>

<area

sha'pe="rect" coords="77,,10,146,19" href,="department.asp">-- <area s~ap.e="~ct" ~oords=-"156,~,~18/21" href'=vteachers •. asp"> <are1a shapee'rect" coords=1'6,7,7t-,20'.1 hrEt='";ac;lmin.asp">

<area sha,pe="rec.t" Ci'.oords="23Q,B,29&,19" hrM-="st1,.1dents.asp"> <area shape="rect" toorr1s="301 . ' ~ I

1

'J 374 20" href~"help.asp"> (

<zrnap> </body> </html>

Departmerit.a$p

<%@LAN('.;UAGE=;:'(VBS<i::RIPT" cpd~AGE="1252"%>

<!--#incl-i.1de file = "tnetude/Inc

ubcohn.asp''

--> <%

if Request.QueryStringfLogin")

= "Check" then

LoginName

=

Trim(Request.~orm("toginName")) Password

=

Trim(R~quest.Form("Pc;1ssword"}) dim RsDepLog

Set RsDe-pL.Og = ServeLCreate()bje~t{l'Ad0db.Recordset:'J

RsDeplog.Qpen "SE~ECT

*

FROM tblQept WHE,R; Oep_User' ="' & L.oginName & '" AND Dep

Pass

;= ''' & Password ,& "i",cn,1,1

ifRsDepLog.1Rec:9rdCount = 0 then

ErrorStrihg = "<br:t><1iont color =qreenc-Your username either password is tnvaltd. <br>Please Check them an'cl try it again ... </font>"

S'essibn ( ;, OepCheck" )= False else

s~~SlOn(",OepGl)eck")

=

True

Session("D~p_ID") = RsDe~Log("Dep_ID")

SessionCDep_Name") = RsQeplog("l;:>,ep_. __ .Narne") Sessipn("D~p_Anam~") = RsDeplog("Dep_aName") RsDepLog .Close

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

Set Rsbeptog = N'Othing

Response. Redirect "department.asp" End If

RsDepL.og.Close

Set RsDepLog = Nothing End If%> '

<html> <head>

<title>STUDENT PROCESSING SYSTEM</title>

<meta http-equiv=Xontent-Tvpe"

content=rtext/htrnl:

charset=iso-8859-i"> <link href="tss/mystyle.css" rel="St'ylesheet" ty,pe="text/cSs'l>

</head>

<body bgcolor= "# AABDD9" >

<table width="760" border="O" -alignbr~enter" cellp9dding="l" cellspacing="b"::> <tr>

<td bgtolor:;="#000000'1><ta,ble wicJth="lOOO/cl" border='tO" align="center'' tell,padding="O" ceHsp~ci,ng:;:;"01

'>

<tr>

<td align="center" bgcdlor="#708EBD'1><sp~n class="htext"><img

src="images/logo.png'' ~idth="219" height="70"><font color="#FFFFFF" si-te="2"><br>

NEAR EAST UNIVERSITY<br>

~coMPUTER INFORMf.TION SY~TEMS - GRADUATION PROJECT </font></ span> </td >

</tr> I

<tr>

«tc

align="center" bgtolor="#708EBD"><span class:;::"htext"><img src:::;"images/spac;er.gif" width="1" hei~ht="l"></~pan></td>

</tr> '

<fr>

<to aligrr="-eent~r" ~ackground="imaQ~s/nav_l;>g.gif' bgcoJor="#AABD09"><img s'rc="itnaQ,e$/nav_Dep.png" wioth="381" height="2f' bqrder="O"

usemap="#Map"></td> </tr>

<tr>

<td align:::;"center" bgcolor="#FFFFFF">

< 0/Q '--- \-, --- ·--- .---- . --- I --- , -

Select Case Session("Depqheck")-

'---:-~---~-~---~----

· ,~----

---

--~---

'----~----· ---r -'-.---~---· ,--~---

Case False

'---~---.

%> <p align="right" class='Ltext">&nbslr,

<table wic;lth="50%" border="€)" align="cent~r" cellpaddi,ng="O"> <tr bgcolor="#FFFFFf">

<td width="SOO" align=··centeF"><p align="cE;!nter" dass1="text"><,Strong><font size="+l">DEPARTMENT

LOGrN SCREEN</font><br>

</strong><%=- ErrorString %></p> <Form r:iame="formLogin" id="fo,rmlogin" action="departmE;!nt.asp?Login=Check" methode-post''>

<table

yJidth='"300" border="O" cellspa6nq="0" cellpadd,ing="O"> <tr>

<td width="l" rowspan="9" bgcdlor="#333333"><img src= "i mages/space-r .g if" width= 1'

1" height=" 1" > <Ztd > 34

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

<td bgcolor="#333333"><img src:;:"imc!ges/spac;:er.gif" width="l" helqht=" 1 "></td>

<td widt-h:::;"1" rowsp,an="3" bgcolor="#333333"><img src="images/spacer.gif" wi<;lth=''1" h~ight="l"></td>

</tr> <tr>

<td><table width="100%" bprder="O" aUgn="center" cellpadc;ling="2" cellspacing="S" >

<tr vali.gn="middle">

<td colspan="2" bgcolor=''#CCCCCC" class="text"><strong><ihig

\ ; '

src="ima,ges/spacer.gif' \h(idth='T' height=" l":>,LQGIN RERE ! </strong></td>

</tr> <tr>

<td width=''419/o" class="text">Username : </t'c:t>

<td '<Vidth="59%"><iriput name="Logir,Name" typ,e="text"

classw'fextbox''

ip=-"LogiriName"></td>

<Ztr>

<tr>

<td class="text">Password- :</td>

<td> <input name="password" ty.pe="pa~sword" class="textbox" id""'"password"></td>

<ztr>

<tr align=''right">

<td C!:olsp

9

n="2" bgcolor="#CCCCqC"><font color="#FFFFFF"> <input name="Log}nAdmin" tvpe=r'subrntt"

crass='fiutton"

id="LoginAdmin" value="Sig11 In">

--</font> </td > </tr>

<Ztable> </td > </tr>

<tr>

<td bgco.lor±:"#333333":><img src="image~/spac;er.gif" ~idth="~" height;t: "1" > </td > </tr> </tablf!> </form> </td> </tr> <ztabte> <%

'**************************************~*******************************

*****

'********1************************-************************~1***********

*****

'***~************************************************~*********~*******

*****

' - - - -,- - ,- -- - - - -- - - - ••• - - - .., - - - - _ ..J _ - - - -- - - -- - - - -- - Case True

'.---'r---\ ---

Select Case Reque}t.Qt,JeryStrinQ("Task") Case "logout" Session.Abandon () Response.~edir~ct("depattm,ent.a,sp") '--- TEACHER MEN·U· --- ·---. --- . --- case "teacher"

35

I

I

I

I

I

I

Sele:ct Case Requ~st.QueryStrinQ("•astion"}

'-,._,.---4---ADD NEW TEACHER ---"---'---

Case "add" %:> <br>

<form bame="FormSave" id="FormSave"

acticn = "depa rtment.asp?Tas-k=teacher&actiqn =?Save'1

rnethoq

="post">

<table bbrder="l" align="centeri• cellp~c:fdir'1~="2" sellspacinq=";" bordercotor>" # 6699CC" class= "text">

<tr> <td colspan=''.,2" bgcolor="#669~CC"><font color="#FFFFFF"><strong>ADD NEW TEACHER</strong></font></td> </tr> <tr bordercolor="#FFFFFF"> <td width="t85''>Teacher N~me«/td> "

<td width=·"206''><input name="Teach_Name" type="text'; id="Teach_Name"></td>

</tr> (

<tr bordercolor="#FFFFFF"> .,::td>Teqc;h

surname-c/te>

<td><(npµ~ name="T~ach_Sname" tvpe=t'text" ict=""feac~Sname"></td> </tr>

<tr borderc-0lor::::,"#ffFFFF" > <td->

Phone-c/td

>

<td

>

< lnput name=TeachPhone" t:ype="text" id =''Teach_Phone" ></td > </tr>

<tr bordercol9r~"#FFFFfF"> <td >.Address</td >

, <tdc-xtextarea

n~me::;:"Teach~1dr" i<;l=''Tea~h_Adr"></textareq></td> </tr> <tr pordercolor="#~FFFF"> ₁ <td colspan="2" trgcolor="#q69~CC"><font color="#FFFFFF"><strong>Sign

., In tntormatron-c/strcnoo c/tontc-c/td>

</tr> <tr bordercotor="#FFFFFF"> <td>User Name : </td>

<td><input name="Teach_User" type="text" id="Teach_User"></td>

<Ztr>

<tr bordercolor=" # FFFFfF" >

<to >~~gin Password : </td > , , . , \

<td > < rn put name,:

"Teach _

Pass" type= "password" ld +"Tf:!ach_Pass" > </td >

</tr> _{I I ( ,}

<tr angn="center" bordercoLQr="#FFfrFF">

<td cotspan'r'"2">"<input n~mE\!=''Supmft'i tvpe=r'subrnit" class="button2" value::;:"Save"></td>

</tr> </table> </form> <% Case "save"

Teact{_N_ame ::;: irim'(Request.Forni('1~each~Name"))

Teach_SName _1::;: Trim(Request.Form{"Tea¢h_sName")) Teaq,_A~r ::;: Trim(Request.Form("Teactr~Adr"))

TeachPhone ~ Trim(Request.Form("Teach_Pt10n,,e")) 'reach-'-User- = Trim( Reel uest, Form("Teach_,user")) Teach_Pass = Trim(Request.Form("Teach_pass")) dim RsSave

I

Set RsSave ~ Server.CreateObject("A9odb.Recordset") RsSave.Open "SELECT* FRQM tblTeachers",cl'l,1,3 rsSave.Addnew RsSave{"Teach_Name") = Teach~Name RsSav-e(l'Teach_sName") :=± Tea:ch_sName RsSave("te,ach~Adr") = Teach_Adr RsSave("Teach_Phone") = Teach_Phone <. RsSave("T-each_user") = Teach_user RsS~vef'Teach_pass") = Tea'ch_pass rsSave.Update RsSave.Cl.ose

Set RsSave = Nothing

Response.Write("<br><p class=text>Record Added Successfully-c/p>")

'--- O,_EL,ETE TEACHER -- . --- --- --- · ---" Case

"del"

%>

<br>

<table width="75%" bordere "t" aligh="center" cellpadding=''2'1 cell~pacing="O">

<tr>

<td borctercolor=" # FFFFFF" bgc;olor=" #6699CC" class= "text"> <strong

»<font

color=" #FFFFFf" >Confirmation

Dialog</font></strong></td;> </tr>

<tr>

<td c1lign="c~.riter.,,_ bordereolo'r=="#6699CC"><span elass=vtext'c-Conrtrm to d.el~te This.Teacher ?</span> <pc-xspan class=t'text"> <a

href="departr,ent.asp?Tasl{=teac;:her&acUon=del&lJ:?=<%= Request.QueryString("ID") %>~~onfirm=OK'' ><img src,="images/yes.gif" width="35" height=" 17"

border=+O" ></a>

&hbsp; &~bsp; <a href:;:"departmel")t.asp?TaS:k=teacher"><img

src=="images/no,gif" w~dth="35·" height=" 17" border="O;,>,</a></span >&nbsp-.; </td > </tr>

</table>

<br>

<%

if Request("confirm")= "01(" then

~Ql = "D:ELETE FROM tblTeachers WHERE Teach_ID= I',& Request.QuerySthng1("ID") en.Execute ($Qt.) R~spons~.Redirect("dep~rtment.c(sp?Task=teacher'') !:nd If '--- .•. ---,-'--- EDIT TEACHER ---'----,--- Case "edit"

Set RsEd~t = Server.Create0bject("Adodb.Recorc,1set'')

RsEdit.bpen '~ELECT* FROM tblIeachers WH6RE Teach_ID=" & Requ·est.QueryStringC,'._ID"),cn,

1,t

Teath_Name = Rst:;dit("'feach_Name") Teach_-sName

'*

RsEdit("Teach_SNamet)

f

each.Phone = RsEdit(1'Teach_Phone") Teach_Adr == RsEdit(''Te~tj,_Adr") Teach~user = RsEdrt('~each_user") Teacbpass = RsEdit("Teach-_pass") RsEdit.Close

Set RsEdit = -Nothing %> <br>

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

J7

I

I

I

I

I

I

I

I

I

I

I

I

I

--

<form name="Forrnsave" id="FormSave"

9-ction='.'departm~_nt.asp?Task=teacher&actic;m=ul;)dat~&ID=<%= Request.QµeryStnng("ID") %>" method="pqst">-

<table border="1" align=''center" cellpadding='';2" celtspactnq=";"

i M '

bordercolor= "#66~9'--C" daS$= "text"> <tr>

<td c01sp'an="2" bgcolor="#6699CC"><ront color="# FFFFFF" ><strong> EDIT

A TEACHER</strong></for\t></td> </tr>

<tr bordercolor>"

# FFFFFF" >

<td width="l85">T.eacher Name-c/td>

<td width="20&"><in~ut namev'Teach Narne" type="text" i,d="T'each_Name" value="<%=Teath_Name%>"></td>

</tr>

<tr botdercolor="·#FFFFFF''> <td>Teach Surnarne-c/td>

<tdc-cinput name="Teach_Sname" type="te:>et" id="Teach_Sname" value:,;::"<Ofc>=r=Teach_Sname%>"></td>-

</tr>

'<tr ~ordercolqr::;:"#FFFFFF'·'> <td> Phene-c/td> ·

1 <td><input name="Teach_Phon·e" type=="text" id="Teach_Phone"

value=" <%=Teach_Phe,ne0/0>" ></td >

</tr>

<tr border1color=="#FFFFFF"> <td >Address </td >

" . <tdc-xtextarea narnev'Teach Adr"

id="Teaeh_Adr"><%=Teach_Adr%></textarea></td> </tr>

<tr bordercotor« "# FFFFFF" >

<td colspan::;::"2" bgcolor="#6699CC"><font c;:olor="#FFFFFF"><s,trong>Sign

- In Informatiof </strong> </font> </td > </tr>

<tr bor,cler<J:olor="#FFFFFF"> <td>User Name :</td>

<td><input name="Teach:_User" type=vtext" id="Teach_Us~r" Value="<%::;:Teach_.User%>"></td>

<Ztr>

-

<tr bor,dercolor="#fFFFFF"> <tdc-Loqin Password : </td>

<td><input name="Te'ach_Pa$s" tvpe=t'passwcrd" id=''.Jeach_Pass1'

value="<%:,;:Teach_Pass0/o>"></td>

-c/tr

>

<tr

a

H!ll n ="center" bordercotcre" # FFFFFF" >

<td colspan::;::"2"><input name="S4bmit''' type="submit" class="button2" value_="Update"></td> I <ztr> </table> </form> <div align="center"> QI ,-lei. I

< Vo ---\--- Tc:A HER UPOATE ---~---'--- Case "update"

Teach,-Name ::;: Trim(Request.Form("Teach_Name")) Te~ch_~Nan,e "'.' Trjm(Request.Form("Teach_sN~m~")) Teach Adr = Tnm(Request.Forrn("Teach_Adr"))

~8

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

-

Teach Phone = Trim(R~uest.Fqrm("Teach_P.hone'")) Teac;:·h_User = Trim(Reciuest.For,m("'Teacm_user")) Teach Pass = "Frim{Requesrf?rm("T~acr_pass"))

Set RsUpdate

=

Se~~r.Crt;!clfte9bject("Adodb.R~cordset")

Rs~pdate.Open "SELECT

*

FROM tblTe~r~hers WHli:RE Teath_ID= " &, Request.Query5tri ng("ID")-,cn, 1

,3

RsUpdate('Tea~h_Name") = Teach_N~me RsUpda~e("Te~ch~sNanie") = Teac;:h_sName Rs'Update("Teach_Adr")

=

Teac~_Adr

RslJpdate("Teach_Phone") = Teach Phone R~Update("T~at,h_,user''Y

=

Teachuser

Rsupdatet'Teacbpass")

= Teacbpass

rslJpdate.Update

RsUpdate.Clos~

Set

RsUpdclte = Nothing

Response,,Write("<br><p class=texts-Record Updated Succes~fully</p>") Case Erse%>

<br>

<span class="htext" > TEACHERS</span > <;,% dim RsTS.how

Set 'RsTShO)N = Server.Create0bje'Ct("Adodb. Recordset") RsTShow.Open "SaECT

*

RR(?iM tblTeachers",cn,l,1 if Rs TShow :Record Count = O then

Response. Write("

<p

class= text> Teachers Table is Empt:y</p>")

Else %> </div>' ·

~9

ble width=''.,90%" border="!" tellpadc;!ing="O" cells~,acing;:::"0" bordercolore" #9999CC" cla$s=·''te~t" > <tr bordercolor="#FFFffF" class="text''> <th align~"center" bgcolor="#6699CC">,&ngsJ!);</th> <th bgcolor="#,6699CC''>Tea'ch. Nar'ne</th> <th bgcolor=''#6699CC''i>Tea.ch SurName</tt\> <th ~gcolor="#66$QCC">Phone</th> <th bgc'olor="#66?9<;:C">Usern~m~</th> , <th align="center" bgcolor=t:"#6699<;:C">&n'b,sp; </th> </tr>

<% Do WhiJe Not RsTShow.J:OF %> <tr bordercolor:='="#FFFFFF"> <td altgn="cent~r"><a

href=="department.asp?Task=teactler&action=e~it&~D=<%:;:: RsTShow("TE;ach~ID") %>"><fmg src="images/edit.g.if" width::;j"35" height="17" border="O"></a></td,>

<td aliqn="cente.r"><%= RsTShow("Teach_N,=ime") %></td> <td aliQnd'centef''><%= ~sTShd>\i\(("Teach_SName'') %></tP? <td align="denter"><%= RsTShow("Teach_Phone") %J><:/t9> <td ai.ign="ce,nter"><%= RsTShow{"Trach+Us~r") %>;</td;::, <td aligr't=i"~enter"><a h,ref="depa~ment.asp?Tasf<=teacher~action==del&ID:;:<%= RsTStiow("Teach_ID") ' %>"><img src:;:;:"imaQeS/idel.gif" width="35" h~ight="17" border="O"><::/a;></td>

</tr>

<%

RsTShow. Move Next

t.dop

%> <Ztable>

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

<br> <% End If RsTShow.Close

Set RsTShow = Nothing %>

<p align="center" l='la!jis=''offer"><a

h ref=" depa rtment .. asp ?Task=rteacher&;action =add,', clc1ss=;, offer" > [ Add New teacher J</a></p>

<br>

<% '--- END Of TEACHER~ _\ ---.""---"'---~---"'--- End Select

'---'LECTURES BEGIN ING ---"'---:~-~--- Case "lecture" _'

\

Select

Case

Requ~1st.QueryString("action")

Case "add" %> <br>

<form naml:!="FormSave" id="FormSave"

action= "department.asp ?Tct$k= teetu re&action=?ave" method»:' post"

>

<table bordere" 1" affgn="center" cellpaddtng="2" cellspacing="l" bbrdercolor="#6699CC" class="text">

<tr>

<td cols pan= •,2," bgcolor= "#6699CC'' > i<-font color='\# FFfFFF" ><;strong> ADD

NEW LECTlJRE</strong></font></td> </tr>

<tr bord'ercolqr="#FFFFFF">

<td width="185">Le-cture Name</td>

:,.. <td width="206"><input name="Lec_Name" type="t'ex~" id="tec_Name"></td> </tr> <tr bordercolor» "# FFFFFF" > <td>

Teaeher-c/td>'

<td>

<% Set rsTeachS \ =Server.CreateObject("Adodb.R,ecordset")

rsT-eachS.10pen "$ELECT

I ,

T,eacH_lD,Teach_Name,Teq_ch_Sname FR9M TblTeachers",cn,1,1 %> <select name="Teach_ID" id="Teach__ID\'> <% Do Whife Not RsTeachS.EOF %::> \

<optidnvalue="<%= rsTeachS("Teacn_ID")%>"><%= r1sTeachS("Teach:_Na me") % >&nbsp; <%= rsTeachS("Teach_sName'') % ></option>

<% rsTeachS.MoveNext Loop%>

<Zselect>

<% rsTeachS.Close Set RsTeachS

=

Nothing oio'></t9>

</tr>

<tr bqrdercolor=" # FFFFFF">

<tac-Lecture

Description<r/td>

<tdc-ctextarea name="Lec_Desc" id="Lec'-Desc"></textareai>-</td> </tr>

<tr align="center" bordercolor="#FFFFFF">

<td colspan="2''><input name="Submit" type="submit" class="button2" v<1lue="Save"></td>

</tr>