<%
function gradename(grade)
select case grade
case 0 gradename="論壇蝦米"
case 1 gradename="小蝦上路"
case 2 gradename="論壇小蝦"
case 3 gradename="蝦之大者"
case 4 gradename="壇之龍蝦"
case 5 gradename="蝦之尊貴"
case 6 gradename="論壇小俠"
case 7 gradename="壇內俠客"
case 8 gradename="蝙蝠俠"
case 9 gradename="蜘蛛俠"
case 10 gradename="青蜂俠"
case 11 gradename="俠之大者"
case 12 gradename="俠中尊貴"
case 13 gradename="飛俠 VIP"
case 14 gradename="壇中版主"
case 15 gradename="超級版主"
case 16 gradename="論壇管理員"
end select
response.write gradename
end function
%>