grade.jsp

BBS论坛系统由JAVA和JSP实现

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