var.asp

大学的综合测评

<%

'=========================系统变量表===============================
on error resume next
sql_varlist="select top 1 * from init"
set system_var_list=dbconn.execute(sql_varlist)
dim myfriend_max
    myfriend_max=system_var_list(1)   '允许添加的好友的最高人数，建议不要太大 否则会影响系统效率

dim score_apply_max
    score_apply_max=system_var_list(2)  '允许个人申请的最大分数

dim reason_apply_max
    reason_apply_max=system_var_list(3)   '允许个人申请加分理由的最大条数，建议不要太大 否则会影响系统效率
	
dim reason_apply_maxlength
    reason_apply_maxlength=system_var_list(4)   '允许个人申请加分理由的最多字数，建议不要太大 否则会影响系统效率

dim student_allow_month,class_allow_month,dept_allow_month 
     student_allow_month=system_var_list(5) '学生允许操作的月份      
	 class_allow_month=system_var_list(6)  '班级管理员允许操作的月份	 
	 dept_allow_month=system_var_list(7)   '部门负责人允许操作的月份
	 
dim pow_student,pow_class,pow_dept
    pow_student=system_var_list(8) '学生录入开关，班级管理员审核后将改变其值
	pow_class=system_var_list(9)   '班级管理员录入开关
	pow_dept=system_var_list(10)    '部门负责人录入开关
dim class_max_apply    
	class_max_apply=system_var_list(11) '一个班级最多能审核通过加分的人数
dim pc_term
    pc_term=system_var_list(12) '学期 fir -上 sed-下

dim dept_score_max,dept_score_reasonlen
     dept_score_max=system_var_list(13) '各部门加分的最大值
	 dept_score_reasonlen=system_var_list(14) '各部门加分理由的最多字数

 dim all_dept_score_max
      all_dept_score_max=system_var_list(15) '所有部门得分总和最大值

dim init_score
    init_score=system_var_list(16) '个人初始分
	
if err.number<>"0" then 
response.Write("<li>系统出错，连接数据库出现异常</li>")
end if
err.clear
system_var_list.close
set system_var_list=nothing
%>