grade.asp

来自「完美政府版,正版网站解决方案」· ASP 代码 · 共 26 行

<%
function gradename(grade)
	dim tempgrade
	select case grade
		case 0 tempgrade="论坛虾米"
		case 1 tempgrade="小虾上路"
		case 2 tempgrade="论坛小虾"
		case 3 tempgrade="虾之大者"
		case 4 tempgrade="坛之龙虾"
		case 5 tempgrade="虾之尊贵"
		case 6 tempgrade="论坛小侠"
		case 7 tempgrade="坛内侠客"
		case 8 tempgrade="蝙蝠侠"
		case 9 tempgrade="蜘蛛侠"
		case 10 tempgrade="青蜂侠"
		case 11 tempgrade="侠之大者"
		case 12 tempgrade="侠中尊贵"
		case 13 tempgrade="飞侠 VIP"
		case 14 tempgrade="坛中版主"
		case 15 tempgrade="超级版主"
		case 16 tempgrade="论坛管理员"
		case else tempgrade="未知等级"
	end select
	gradename=tempgrade
end function
%>