<%Function Grade(ByVal studlevel,AlignFlag)

	select case studlevel
		case 1
			Grade="班级成员"
		case 2
			Grade="体育委员"
		case 3
			Grade="生活委员"
		case 4
			Grade="文娱委员"
		case 5
			Grade="宣传委员"
		case 6
			Grade="学习委员"
		case 7
			if AlignFlag=true then Grade="副&nbsp;班&nbsp;长" else Grade="副班长"
		case 8
			if AlignFlag=true then Grade="班&nbsp;&nbsp;&nbsp;&nbsp;长" else Grade="班长"
		case else
			Grade=""
	end select

End Function
%>