function.asp

学生信息管理系统 主要用ADO访问数据库

<%
'应用函数库

'检查登陆正确性
function chklogin(username,password,purview)
	dim Errmsg
	Errmsg=""
	set rs=server.CreateObject("adodb.recordset")
	select case purview
		case 1
			sql="select * from Student where stuNO='" & username & "' and pwd='" & password & "'"
		case 2
			sql="select * from teacher where TeacherNo='" & username & "' and pwd='" & password & "'"
		case 3
			sql="select * from admin where admin='" & username & "' and pwd='" & password & "'"
	end select
	
	'response.Write(sql)
	rs.open sql,conn,1,3
	
	if rs.eof and rs.bof then
		Errmsg="用户名或密码错误!"
	else
		session("user")=username
	end if
	
	chklogin=Errmsg
end function

'利用课程编号得到课程的ID
function getCIDbyCNO(cno)
	
	set rsgetc=server.CreateObject("adodb.recordset")
	sql="select * from course where courseno='" & cno & "'"
	rsgetc.open sql,conn,1,1
	if rsgetc.bof and rsgetc.eof then
		cid=""
	else
		cid=rsgetc("courseid")
	end if
	rsgetc.close
	getCIDbyCNO=cid
end function

'利用学生编号得到学生ID
function getStuIDbyStuNO(sno)
	set rsgets=server.CreateObject("adodb.recordset")
	sql="select * from student where stuno='" & sno & "'"
	'response.Write(sql)
	'response.End()
	rsgets.open sql,conn,1,1
	if rsgets.bof and rsgets.eof then
		sid=""
	else
		sid=rsgets("stuid")
	end if
	rsgets.close
	
	getStuIDbyStuNO=sid
end function

'利用教师编号得到学生ID
function getTIDbyTNO(tno)
	set rsgett=server.CreateObject("adodb.recordset")
	sql="select * from teacher where teacherno='" & tno & "'"
	'response.Write(sql)
	rsgett.open sql,conn,1,1
	if rsgett.bof and rsgett.bof then
		tid=""
	else
		tid=rsgett("teacherid")
	end if
	rsgett.close
	
	getTIDbyTNO=tid
end function

function getTnamebyTID(tid)
	set rst=server.CreateObject("adodb.recordset")
	sqlx="select * from teacher where teacherid=" & tid
	'response.Write(sql)
	'response.End()
	rst.open sqlx,conn,1,1
	if rst.bof and rst.eof then
		tname=""
		'response.End()
	else
		tname=rst("teachername")
	end if
	
	getTnamebyTID=tname
end function
%>