<%
function grade(level)
dim user_level
Select Case level
case 1
	user_level="新手上路"
case 2
	user_level="論壇游民"
case 3
	user_level="論壇游俠"
case 4
	user_level="業(yè)余俠客"
case 5
	user_level="職業(yè)俠客"
case 6
	user_level="俠之大者"
case 7
	user_level="黑俠"
case 8
	user_level="蝙蝠俠"
case 9
	user_level="蜘蛛俠"
case 10
	user_level="青蜂俠"
case 11
	user_level="小飛俠"
case 12
	user_level="火箭俠"
case 13
	user_level="蒙面?zhèn)b"
case 14
	user_level="城市獵人"
case 15
	user_level="羅賓漢"
case 16
	user_level="阿諾"
case 17
	user_level="俠圣"
case 18
	user_level="貴賓"
case 19
	user_level="版主"
case 20
	user_level="總版主"
Case Else
user_level="新手上路"
end Select
grade=user_level
end function
function point(p)
dim level_point
Select Case p
case 1
	level_point=0
case 2
	level_point=100
case 3
	level_point=200
case 4
	level_point=300
case 5
	level_point=400
case 6
	level_point=500
case 7
	level_point=600
case 8
	level_point=800
case 9
	level_point=1000
case 10
	level_point=1200
case 11
	level_point=1500
case 12
	level_point=1800
case 13
	level_point=2100
case 14
	level_point=2500
case 15
	level_point=3000
case 16
	level_point=3500
case 17
	level_point=4000
end Select
point=level_point
end function
function gradepic(pic)
dim level_pic
Select Case pic
case 1
	level_pic="level0.gif"
case 2
	level_pic="level1.gif"
case 3
	level_pic="level2.gif"
case 4
	level_pic="level3.gif"
case 5
	level_pic="level4.gif"
case 6
	level_pic="level5.gif"
case 7
	level_pic="level6.gif"
case 8
	level_pic="level7.gif"
case 9
	level_pic="level8.gif"
case 10
	level_pic="level9.gif"
case 11
	level_pic="level9.gif"
case 12
	level_pic="level9.gif"
case 13
	level_pic="level9.gif"
case 14
	level_pic="level9.gif"
case 15
	level_pic="level9.gif"
case 16
	level_pic="level9.gif"
case 17
	level_pic="level9.gif"
case 18
	level_pic="level9.gif"
case 19
	level_pic="level10.gif"
case 20
	level_pic="level10.gif"
end Select
gradepic=level_pic
end function
%>