<%
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="马马虎虎"
case 5
	user_level="驾轻就熟"
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="登峰造极"
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=1000000
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="high.gif"
end Select
gradepic=level_pic
end function
%>
