- <%
- 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=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
- %>