<%Function Grade(ByVal studlevel,AlignFlag)

	select case studlevel
		case 1
			Grade="学校成员"
		case 8
			if AlignFlag=true then Grade="管&nbsp;理&nbsp;员" else Grade="管理员"
		case else
			Grade="学校成员"
	end select

End Function
%>