File Manager

<%
  username = Request.Form("txtusername")
  password = Request.Form("txtpassword")
  type_login=request.form("type_login")
  txtyear=request.form("txtyear")
  semeter=request.form("semeter")
response.write username
response.write type_login
Select Case type_login
	case 1
  sql = "select * from lecturer where username = '" & username & "' and password= '" & password & "'"
response.write "lecturer"

case 2
  sql = "select * from student where username_stu = '" & username & "' and password_stu = '" & password & "'"
response.write "stu"

end select
  Set ors = Server.CreateObject("ADODB.Recordset")
    ors.Open sql, Conn, 1, 3
'response.write sql

if not ors.eof then
    'result = ors(0)
 ' end if

'  if result > 0 then
    Session("id_lecturer1") = username
    Session("id_stu1") = username
    
	
	session("username")=username '�������Է���
session("type_login")=type_login
session("semeter")=semeter
session("txtyear")=txtyear
'response.write sql&"bbb"
'response.write session("id_lecturer1")
'response.write ors("surname")
	 select case type_login
			case 1
    Response.redirect "index_lec.asp"

case 2
    Response.redirect "index_stu.asp"

end select
  else
    Session.abandon
	response.write username
    Response.redirect "system_error.asp?err_id=02"
  end if

ors.Close
 set ors = nothing

File Manager

Editing: homework/km_login_action.asp