성적관리 ASP프로그램

소개글

성적관리 ASP프로그램에 대한 보고서 자료입니다.

목차

1. 로그인

2. 검색

3. 성적입력

4. 성적수정

5. 성적열람

본문내용

로그인 소스입니다.

학사행정 정보시스템

 

<%
shin_gubun = Request("shin_gubun")

if shin_gubun="" then
Response.write "신분구분을 체크하십시오!

"
Response.write "로그인 폼으로 이동"
Response.end

elseif shin_gubun = "1" then

Dim number, password
stu_number = Request("m_id")
stu_password = Request("m_pw")

Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("./mydb.mdb")
sql = "select * from studentinformation where stu_number ='" & stu_number & "'"
Set rs = db.Execute(sql)

if rs.eof then
Response.write "존재하지 않는 ID입니다.

"
Response.write "다시 로그인하기"
Response.End

elseif trim(rs("stu_password")) <> trim(stu_password) then
Response.write "암호가 일치하지 않습니다.

"
Response.write "다시 로그인하기"
Response.End

else
Session("stu_number") = stu_number
Response.write "로그인하였습니다.

"
Response.write"

금번학기 성적조회

"
Response.write"

친구찾기

"
Response.write"

나의 정보보기

"
Response.write "

로그아웃하기"
Response.End

end if

else shin_gubun = "0"

Dim pro_number, pro_password
pro_number = Request("m_id")
pro_password = Request("m_pw")

Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("./mydb.mdb")
sql = "select * from ProfessorInformation where pro_number='" & pro_number & "'"
Set rs = db.Execute(sql)

if rs.eof then
.... 등으로 구성 되었습니다.

다른 소스도 모두 있습니다.

키워드

ASP,   성적관리,   웹프로그램,   웹프로그래밍