📄 set_zt.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="const.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="img/Style.css" rel="stylesheet" type="text/css" />
<title>无标题文档</title>
<style type="text/css">
<!--
.STYLE1 {color: #FFFFFF}
.STYLE2 {font-weight: bold}
-->
</style>
</head>
<body>
<%
action=Request("action")
if action="update" then
myfriend_max=trim(safeChar(Request.form("myfriend_max")))
score_apply_max=trim(safeChar(Request.form("score_apply_max")))
reason_apply_max=trim(safeChar(Request.form("reason_apply_max")))
reason_apply_maxlength=trim(safeChar(Request.form("reason_apply_maxlength")))
student_allow_month=trim(safeChar(Request.form("student_allow_monthx")))
class_allow_month=trim(safeChar(Request.form("class_allow_monthx")))
dept_allow_month=trim(safeChar(Request.form("dept_allow_monthx")))
pow_studentx=trim(safeChar(Request.form("pow_studentx")))
pow_classx=trim(safeChar(Request.form("pow_classx")))
pow_deptx=trim(safeChar(Request.form("pow_deptx")))
class_max_apply=trim(safeChar(Request.form("class_max_apply")))
dept_score_max=trim(safeChar(Request.form("dept_score_max")))
dept_score_reasonlen=trim(safeChar(Request.form("dept_score_reasonlen")))
all_dept_score_max=trim(safeChar(Request.form("all_dept_score_max")))
init_score=trim(safeChar(Request.form("init_score")))
if CDbl(init_score)+CDbl(all_dept_score_max)+CDbl(score_apply_max)>100 then
response.Write("<li>错误:<br />个人基本分,个人最大申请分,部门最大总分之和超过了:100</li> ")
response.End()
end if
if pow_studentx="ON" then
pow_student=1
else
pow_student=0
end if
if pow_classx="ON" then
pow_class=1
else
pow_class=0
end if
if pow_deptx="ON" then
pow_dept=1
else
pow_dept=0
end if
on error resume next
set c = Server.CreateObject("ADODB.Command")
c.ActiveConnection = dbconn
c.CommandText = "update init set myfriend_max='"&myfriend_max&"',score_apply_max='"&score_apply_max&"',reason_apply_max='"&reason_apply_max&"',reason_apply_maxlength='"&reason_apply_maxlength&"',student_allow_month='"&student_allow_month&"',class_allow_month='"&class_allow_month&"',dept_allow_month='"&dept_allow_month&"',pow_student='"&pow_student&"',pow_class='"&pow_class&"',pow_dept='"&pow_dept&"',class_max_apply='"&class_max_apply&"',dept_score_max='"&dept_score_max&"',dept_score_reasonlen='"&dept_score_reasonlen&"',all_dept_score_max='"&all_dept_score_max&"',init_score='"&init_score&"'"
c.CommandType = 1
c.CommandTimeout = 0
c.Prepared = true
c.Execute()
errmsg=err.description
if err.number="0" then
Response.Write("<script language='javascript'>alert('操作成功');location=('set_zt.asp')</script>")
else
response.Write("<li>"&errmsg&"</li>")
end if
err.clear
%>
<%else
Dim rs1
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.ActiveConnection = dbconn
rs1.Source = "SELECT top 1 * FROM init"
rs1.CursorType = 0
rs1.CursorLocation = 2
rs1.LockType = 1
rs1.Open()
if rs1.eof or rs1.bof then
response.Write("系统错误")
response.End()
end if
if rs1(12)="fir" then
is_term=0
else
is_term=1
end if
Dim rs2
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.ActiveConnection = dbconn
rs2.Source = "SELECT * FROM set_month where isok=1 and isterm="&is_term&""
rs2.CursorType = 0
rs2.CursorLocation = 2
rs2.LockType = 1
rs2.Open()
if rs2.eof or rs1.bof then
response.Write("系统错误:set_month error")
response.End()
end if
%>
<form name="form" action="" method="post" onsubmit="return chk()">
<table width="80%" border="0" align="center" cellpadding="1" cellspacing="0" class="atable1">
<tr>
<td colspan="3" bgcolor="#333"><span class="STYLE1"> 系统参数设定 系统当前学期：<span class="red">
<%if rs1(12)="fir" then Response.Write("上学期") else Response.Write("下学期") end if %>
</span>(可在学期月份设定里修改)</span></td>
</tr>
<tr>
<td width="81%" class="tdmenu">
<ol><li>录入状态管理：<br />
学 生:
<select name="pow_studentx" class="tdmenu" id="pow_studentx" onchange="javascript:pow_student.value=pow_studentx.value">
<option value="ON" <%if rs1(8)=1 then response.Write("selected='selected'") end if%> >ON</option>
<option value="OFF" <%if rs1(8)=0 then response.Write("selected='selected'") end if%>>OFF</option>
</select>
<input name="pow_student" type="text" disabled="disabled" class="atable1" id="pow_student" value="<% if rs1(8)=1 then response.Write("ON") else response.Write("OFF") %>" size="4" maxlength="4" />
<span class="jushe">班级管理员进行审核学生的用户的申请分前要将其设置为关闭状态</span><br />
班级负责人:
<select name="pow_classx" class="tdmenu" id="pow_classx" onchange="javascript:pow_class.value=pow_classx.value">
<option value="ON" <%if rs1(9)=1 then response.Write("selected='selected'") end if%>>ON</option>
<option value="OFF" <%if rs1(9)=0 then response.Write("selected='selected'") end if%>>OFF</option>
</select>
<input name="pow_class" type="text" disabled="disabled" class="atable1" id="pow_class" value="<% if rs1(9)=1 then response.Write("ON") else response.Write("OFF") %>" size="4" maxlength="4" />
<span class="jushe"> 在进行计算得分前要将其设置为关闭状态</span><br />
部门负责人:
<select name="pow_deptx" class="tdmenu" id="pow_deptx" onchange="javascript:pow_dept.value=pow_deptx.value">
<option value="ON" <%if rs1(10)=1 then response.Write("selected='selected'") end if%>>ON</option>
<option value="OFF" <%if rs1(10)=0 then response.Write("selected='selected'") end if%>>OFF</option>
</select>
<input name="pow_dept" type="text" disabled="disabled" class="atable1" id="pow_dept" value="<% if rs1(10)=1 then response.Write("ON") else response.Write("OFF") %>" size="4" maxlength="4" />
<span class="jushe">在进行计算得分前要将其设置为关闭状态</span><br />
<br />
</li>
<li>月份权限设置,锁定各类用户在指定的月份上操作。</li><br />
学生:
<select name="student_allow_monthx" class="tdmenu" onchange="javascript:student_allow_month.value=student_allow_monthx.value">
<%do while not rs2.eof %>
<option value="<%=rs2(0)%>" <%if rs2(0)=rs1(5) then response.Write("selected='selected'") end if%>><%=rs2(1)%></option>
<%rs2.movenext()
loop
rs2.movefirst()
%>
</select>
<input name="student_allow_month" type="text" disabled="disabled" class="atable1" id="student_allow_month" value="<%=rs1(5)%>" size="2" maxlength="2" />
班级管理员:
<select name="class_allow_monthx" class="tdmenu" id="class_allow_monthx" onchange="javascript:class_allow_month.value=class_allow_monthx.value">
<%do while not rs2.eof %>
<option value="<%=rs2(0)%>" <%if rs2(0)=rs1(6) then response.Write("selected='selected'") end if%>><%=rs2(1)%></option>
<%rs2.movenext()
loop
rs2.movefirst()
%>
</select>
<input name="class_allow_month" type="text" disabled="disabled" class="atable1" id="class_allow_month" value="<%=rs1(6)%>" size="2" maxlength="2" />
部门负责人:
<select name="dept_allow_monthx" class="tdmenu" onchange="javascript:dept_allow_month.value=dept_allow_monthx.value">
<%do while not rs2.eof %>
<option value="<%=rs2(0)%>" <%if rs2(0)=rs1(7) then response.Write("selected='selected'") end if%>><%=rs2(1)%></option>
<%rs2.movenext()
loop
rs2.movefirst()
rs2.close
set rs2=nothing
%>
</select>
<input name="dept_allow_month" type="text" disabled="disabled" class="atable1" id="dept_allow_month" value="<%=rs1(7)%>" size="2" maxlength="2" />
<br />
<br />
<li>普通用户参数设置:(请填写数字)</li><br />
个人基本得分线:
<input name="init_score" type="text" class="atable1" id="init_score" value="<%=rs1(16)%>" size="2" maxlength="2" />
<span class="jushe">填写个人的基本得分(请查看 <a href="set_rule.asp">评分规则</a> )</span><br />
允许申请的最大分:
<input name="score_apply_max" type="text" class="atable1" id="score_apply_max" value="<%=rs1(2)%>" size="2" maxlength="2" /><br />
最大得分理由条数:
<input name="reason_apply_max" type="text" class="atable1" id="reason_apply_max" value="<%=rs1(3)%>" size="2" maxlength="2" />
<span class="jushe">允许个人申请加分理由的最大条数，建议不要太大 否则会影响系统效率
</span>
<br />
最大得分理由字数:
<input name="reason_apply_maxlength" type="text" class="atable1" id="reason_apply_maxlength" value="<%=rs1(4)%>" size="2" maxlength="3" />
<span class="jushe">允许个人申请加分理由的最多字数，建议不要太大 否则会影响系统效率 </span>
<br />
最大关注好友人数:
<input name="myfriend_max" type="text" class="atable1" id="myfriend_max" value="<%=rs1(1)%>" size="2" maxlength="2" />
<span class="jushe">允许添加的好友的最高人数，建议不要太大 否则会影响系统效率</span>
<br />
<br />
<li>班级审核员参数设置：(请填写数字)</li><br />
每个班级最大申请加分人数 :
<input name="class_max_apply" type="text" class="atable1" id="class_max_apply" value="<%=rs1(11)%>" size="2" maxlength="2" />
<span class="jushe">一个班级最多能审核通过加分的人数</span><br />
<br />
<li>部门负责人参数设置：</li> <br />
各部门加分最大值:
<input name="dept_score_max" type="text" class="atable1" id="dept_score_max" value="<%=rs1(13)%>" size="2" maxlength="2" />
<span class="jushe">各部门加分最大值</span><br />
最大加分理由字数:
<input name="dept_score_reasonlen" type="text" class="atable1" id="dept_score_reasonlen" value="<%=rs1(14)%>" size="2" maxlength="2" />
<span class="jushe">加分理由的最大字符数，建议不要太大</span> <br />
<br />
<li>所有部门得分总和最大值:
<input name="all_dept_score_max" type="text" class="atable1" id="all_dept_score_max" value="<%=rs1(15)%>" size="2" maxlength="2" />
<span class="jushe">总得分超过该最大值时得分将为该值(月综合分计算用) </span></li>
</ol></td>
</tr>
<tr>
<td height="24" class="tdmenu"><div align="center">
<input name="提交" type="submit" class="tdmenu" id="提交" value="提交" />
<input name="重填" type="reset" class="tdmenu" id="重填" value="重填" />
<input type="hidden" name="action" value="update" />
</div></td>
</tr>
</table>
</form>
<%
rs1.close
set rs1=nothing
end if%>
</body>
</html>
<%dbconn.close%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -