📄 lscxdj_query.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>
<body background="../images/di2001.jpg">
<p>
<object id="rds1" classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" width="9"
height="6">
</object>
<object id="rds2" classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" width="6"
height="8">
</object>
<object id="rds3" classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" width="6"
height="8">
</object>
<object id="rds4" classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" width="6"
height="8">
</object>
</p>
<div align="center"><center>
<table border="0" width="747" height="282" style="HEIGHT: 282px; WIDTH: 747px"
bgcolor="#B0CCE1" cellspacing="0" cellpadding="0">
<caption align="left"><font color="#ff0000" size="5"><b>毕业学生操行分查询</b><font></caption>
<tr>
<td width="569" height="188" valign="top">
<object classid="clsid:00028CD1-0000-0000-0000-000000000046" codebase="http:/"
<%=Request.ServerVariables("SERVER_NAME")%>/school/public/tdbg6.ocx" dataSrc="#rds1"
height="357" id="grid1" style="LEFT: 0px; TOP: 0px" width="562" VIEWASTEXT id="tdbgrid1">
</object>
</td>
<td width="161" height="188" valign="top"><font color="#ff0000">请选择录入的条件：</font>
起始学年<select name="termyear_start" size="1">
<option value="1999">1999</option>
<option value="2000">2000</option>
<option value="2001">2001</option>
<option value="2002">2002</option>
<option value="2003">2003</option>
<option value="2004">2004</option>
<option value="2005">2005</option>
<option value="2006">2006</option>
<option value="2007">2007</option>
<option value="2008">2008</option>
<option value="2009">2009</option>
<option value="2010">2010</option>
<option value="2011">2011</option>
</select> 至 <select name="termyear_end" size="1">
<option value="1999">1999</option>
<option value="2000">2000</option>
<option value="2001">2001</option>
<option value="2002">2002</option>
<option value="2003">2003</option>
<option value="2004">2004</option>
<option value="2005">2005</option>
<option value="2006">2006</option>
<option value="2007">2007</option>
<option value="2008">2008</option>
<option value="2009">2009</option>
<option value="2010">2010</option>
<option value="2011">2011</option>
</select> 学期<select name="term1" size="1">
<option value="1">上学期</option>
<option value="2">下学期</option>
</select><p>终止学年<select name="termyear_start1" size="1">
<option value="1999">1999</option>
<option value="2000">2000</option>
<option value="2001">2001</option>
<option value="2002">2002</option>
<option value="2003">2003</option>
<option value="2004">2004</option>
<option value="2005">2005</option>
<option value="2006">2006</option>
<option value="2007">2007</option>
<option value="2008">2008</option>
<option value="2009">2009</option>
<option value="2010">2010</option>
<option value="2011">2011</option>
</select> 至<select name="termyear_end1" size="1">
<option value="1999">1999</option>
<option value="2000">2000</option>
<option value="2001">2001</option>
<option value="2002">2002</option>
<option value="2003">2003</option>
<option value="2004">2004</option>
<option value="2005">2005</option>
<option value="2006">2006</option>
<option value="2007">2007</option>
<option value="2008">2008</option>
<option value="2009">2009</option>
<option value="2010">2010</option>
<option value="2011">2011</option>
</select> 学期<select name="term2"
size="1">
<option value="1">上学期</option>
<option value="2">下学期</option>
</select> 班号<select name="classno" size="1">
</select></p>
<p align="center"><input type="button" value="查询数据" onclick="beginquery()"
name="start_input" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 14px"> <input
type="button" value="打印数据" onclick="printing()" name="start_print"
style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 14px"> <input type="button"
value="退出返回" onclick="returning()" name="exiting"
style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 14px"></td>
</tr>
</table>
</center></div><script language="Vbscript">
dim courseNoArray(0,100),courseArray(0,100),courseSelectArray(0,100),xhOrderArray(0,100)
dim courseCount,courseSelectCount,search_all
dim course_sql
dim total_score
search_all = false
rds1.server = "http://<%=Request.ServerVariables("SERVER_NAME")%>"
rds1.connect ="database=school;uid=sa;pwd=;dsn=school"
rds2.server ="http://<%=Request.ServerVariables("SERVER_NAME")%>"
rds2.connect ="database=school;uid=sa;pwd=;dsn=school"
rds3.server ="http://<%=Request.ServerVariables("SERVER_NAME")%>"
rds3.connect ="database=school;uid=sa;pwd=;dsn=school"
rds4.server ="http://<%=Request.ServerVariables("SERVER_NAME")%>"
rds4.connect ="database=school;uid=sa;pwd=;dsn=school"
'Get all class Number
rds2.sql = "select * from class"
rds2.ExecuteOptions = 1
rds2.refresh
colcount=rds2.Recordset.recordcount
while not rds2.Recordset.eof
for circle=0 to colcount-1
colitem=rds2.Recordset.fields(0)
set item_option = document.createElement("OPTION")
item_option.text = colitem
item_option.value = colitem
document.all.classno.add(item_option)
rds2.Recordset.movenext
next
wend
grid1.AllowAddnew = true
</script>
<script language="VBScript">
'==============================================================
sub beginquery()
start_year=clng(termyear_start.value + termyear_end.value + term1.value)
start_end=clng(termyear_start1.value + termyear_end1.value + term2.value)
rds2.SQL="execute lscxdj_table "
rds2.ExecuteOptions = 1
rds2.Refresh
rds2.SQL="select 年度学期 from lscxdjk where 年度学期>="&start_year&" and 年度学期<="&start_end&" group by 年度学期"
rds2.ExecuteOptions = 1
rds2.Refresh
rds3.SQL="insert into templscxdjk(学号,姓名) select 学号,姓名 from student where 班号='"&classno.value&"' "
rds3.ExecuteOptions = 1
rds3.Refresh
sum_row=rds2.Recordset.recordcount
for i=0 to rds2.Recordset.recordcount-1
rds3.SQL="alter table templscxdjk add ["&cstr(rds2.Recordset.fields(0))&"] numeric(6,1) not null default 80 "
' msgbox rds3.sql
rds3.ExecuteOptions = 1
rds3.Refresh
'扣内务
rds3.SQL="select 年度学期,学号,姓名,sum(扣分) from lscxdjk where 年度学期="&rds2.Recordset.fields(0)&" and 扣分项目='扣内务' and 班号='"&classno.value&"' group by 年度学期,学号,姓名"
' msgbox rds3.sql
rds3.ExecuteOptions = 1
rds3.Refresh
for j=0 to rds3.Recordset.recordcount-1
rds4.SQL="update templscxdjk set ["&cstr(rds2.Recordset.fields(0))&"]=["&cstr(rds2.Recordset.fields(0))&"] - "&rds3.Recordset.fields(3)&" where 学号='"&rds3.Recordset.fields(1)&"' "
' msgbox rds4.SQL
rds4.ExecuteOptions = 1
rds4.Refresh
rds3.Recordset.movenext
next
'扣早操
rds3.SQL="select 年度学期,学号,姓名,sum(扣分) from lscxdjk where 年度学期="&rds2.Recordset.fields(0)&" and 扣分项目='扣早操' and 班号='"&classno.value&"' group by 年度学期,学号,姓名"
' msgbox rds3.sql
rds3.ExecuteOptions = 1
rds3.Refresh
for j=0 to rds3.Recordset.recordcount-1
rds4.SQL="update templscxdjk set ["&cstr(rds2.Recordset.fields(0))&"]=["&cstr(rds2.Recordset.fields(0))&"] - "&rds3.Recordset.fields(3)&" where 学号='"&rds3.Recordset.fields(1)&"' "
' msgbox rds4.SQL
rds4.ExecuteOptions = 1
rds4.Refresh
rds3.Recordset.movenext
next
'扣正课
rds3.SQL="select 年度学期,学号,姓名,sum(扣分) from lscxdjk where 年度学期="&rds2.Recordset.fields(0)&" and 扣分项目='扣正课' and 班号='"&classno.value&"' group by 年度学期,学号,姓名"
' msgbox rds3.sql
rds3.ExecuteOptions = 1
rds3.Refresh
for j=0 to rds3.Recordset.recordcount-1
rds4.SQL="update templscxdjk set ["&cstr(rds2.Recordset.fields(0))&"]=["&cstr(rds2.Recordset.fields(0))&"] - "&rds3.Recordset.fields(3)&" where 学号='"&rds3.Recordset.fields(1)&"' "
' msgbox rds4.SQL
rds4.ExecuteOptions = 1
rds4.Refresh
rds3.Recordset.movenext
next
'扣晚修
rds3.SQL="select 年度学期,学号,姓名,sum(扣分) from lscxdjk where 年度学期="&rds2.Recordset.fields(0)&" and 扣分项目='扣晚修' and 班号='"&classno.value&"' group by 年度学期,学号,姓名"
' msgbox rds3.sql
rds3.ExecuteOptions = 1
rds3.Refresh
for j=0 to rds3.Recordset.recordcount-1
rds4.SQL="update templscxdjk set ["&cstr(rds2.Recordset.fields(0))&"]=["&cstr(rds2.Recordset.fields(0))&"] - "&rds3.Recordset.fields(3)&" where 学号='"&rds3.Recordset.fields(1)&"' "
' msgbox rds4.SQL
rds4.ExecuteOptions = 1
rds4.Refresh
rds3.Recordset.movenext
next
'扣晚修违纪
rds3.SQL="select 年度学期,学号,姓名,sum(扣分) from lscxdjk where 年度学期="&rds2.Recordset.fields(0)&" and 扣分项目='扣晚修违纪' and 班号='"&classno.value&"' group by 年度学期,学号,姓名"
' msgbox rds3.sql
rds3.ExecuteOptions = 1
rds3.Refresh
for j=0 to rds3.Recordset.recordcount-1
rds4.SQL="update templscxdjk set ["&cstr(rds2.Recordset.fields(0))&"]=["&cstr(rds2.Recordset.fields(0))&"] - "&rds3.Recordset.fields(3)&" where 学号='"&rds3.Recordset.fields(1)&"' "
' msgbox rds4.SQL
rds4.ExecuteOptions = 1
rds4.Refresh
rds3.Recordset.movenext
next
'扣作弊
rds3.SQL="select 年度学期,学号,姓名,sum(扣分) from lscxdjk where 年度学期="&rds2.Recordset.fields(0)&" and 扣分项目='扣作弊' and 班号='"&classno.value&"' group by 年度学期,学号,姓名"
' msgbox rds3.sql
rds3.ExecuteOptions = 1
rds3.Refresh
for j=0 to rds3.Recordset.recordcount-1
rds4.SQL="update templscxdjk set ["&cstr(rds2.Recordset.fields(0))&"]=["&cstr(rds2.Recordset.fields(0))&"] - "&rds3.Recordset.fields(3)&" where 学号='"&rds3.Recordset.fields(1)&"' "
' msgbox rds4.SQL
rds4.ExecuteOptions = 1
rds4.Refresh
rds3.Recordset.movenext
next
'扣其它
rds3.SQL="select 年度学期,学号,姓名,sum(扣分) from lscxdjk where 年度学期="&rds2.Recordset.fields(0)&" and 扣分项目='扣其它' and 班号='"&classno.value&"' group by 年度学期,学号,姓名"
' msgbox rds3.sql
rds3.ExecuteOptions = 1
rds3.Refresh
for j=0 to rds3.Recordset.recordcount-1
rds4.SQL="update templscxdjk set ["&cstr(rds2.Recordset.fields(0))&"]=["&cstr(rds2.Recordset.fields(0))&"] - "&rds3.Recordset.fields(3)&" where 学号='"&rds3.Recordset.fields(1)&"' "
' msgbox rds4.SQL
rds4.ExecuteOptions = 1
rds4.Refresh
rds3.Recordset.movenext
next
'加满勤
rds3.SQL="select 年度学期,学号,姓名,sum(扣分) from lscxdjk where 年度学期="&rds2.Recordset.fields(0)&" and 扣分项目='加满勤' and 班号='"&classno.value&"' group by 年度学期,学号,姓名"
' msgbox rds3.sql
rds3.ExecuteOptions = 1
rds3.Refresh
for j=0 to rds3.Recordset.recordcount-1
rds4.SQL="update templscxdjk set ["&cstr(rds2.Recordset.fields(0))&"]=["&cstr(rds2.Recordset.fields(0))&"] + "&rds3.Recordset.fields(3)&" where 学号='"&rds3.Recordset.fields(1)&"' "
' msgbox rds4.SQL
rds4.ExecuteOptions = 1
rds4.Refresh
rds3.Recordset.movenext
next
'加内务
rds3.SQL="select 年度学期,学号,姓名,sum(扣分) from lscxdjk where 年度学期="&rds2.Recordset.fields(0)&" and 扣分项目='加内务' and 班号='"&classno.value&"' group by 年度学期,学号,姓名"
' msgbox rds3.sql
rds3.ExecuteOptions = 1
rds3.Refresh
for j=0 to rds3.Recordset.recordcount-1
rds4.SQL="update templscxdjk set ["&cstr(rds2.Recordset.fields(0))&"]=["&cstr(rds2.Recordset.fields(0))&"] + "&rds3.Recordset.fields(3)&" where 学号='"&rds3.Recordset.fields(1)&"' "
' msgbox rds4.SQL
rds4.ExecuteOptions = 1
rds4.Refresh
rds3.Recordset.movenext
next
'加其它
rds3.SQL="select 年度学期,学号,姓名,sum(扣分) from lscxdjk where 年度学期="&rds2.Recordset.fields(0)&" and 扣分项目='加其它' and 班号='"&classno.value&"' group by 年度学期,学号,姓名"
' msgbox rds3.sql
rds3.ExecuteOptions = 1
rds3.Refresh
for j=0 to rds3.Recordset.recordcount-1
rds4.SQL="update templscxdjk set ["&cstr(rds2.Recordset.fields(0))&"]=["&cstr(rds2.Recordset.fields(0))&"] + "&rds3.Recordset.fields(3)&" where 学号='"&rds3.Recordset.fields(1)&"' "
' msgbox rds4.SQL
rds4.ExecuteOptions = 1
rds4.Refresh
rds3.Recordset.movenext
next
'扣违纪
rds3.SQL="select 年度学期,学号,姓名,sum(扣分) from lscxdjk where 年度学期="&rds2.Recordset.fields(0)&" and 扣分项目='扣违纪' and 班号='"&classno.value&"' group by 年度学期,学号,姓名"
' msgbox rds3.sql
rds3.ExecuteOptions = 1
rds3.Refresh
for j=0 to rds3.Recordset.recordcount-1
rds4.SQL="update templscxdjk set ["&cstr(rds2.Recordset.fields(0))&"]=["&cstr(rds2.Recordset.fields(0))&"] - "&rds3.Recordset.fields(3)&" where 学号='"&rds3.Recordset.fields(1)&"' "
' msgbox rds4.SQL
rds4.ExecuteOptions = 1
rds4.Refresh
rds3.Recordset.movenext
next
' msgbox rds1.Recordset.fields(0)
rds2.Recordset.movenext
next
rds2.Recordset.movefirst
for j=0 to rds2.Recordset.recordcount-1
if not isnull(string_avg) then
string_avg= string_avg +"+"+"["+cstr(rds2.Recordset.fields(0))+"]"
end if
next
'string_a
' msgbox string_avg
rds1.SQL="select *,平均得分=convert(numeric(6,2),("&string_avg&")/"&sum_row&") from templscxdjk"
' msgbox rds1.sql
rds1.ExecuteOptions = 1
rds1.Refresh
end sub
sub begininput()
if len(weekno.value)=0 then
msgbox "请输入周别......",,"提示窗口"
exit sub
end if
if len(classno.value)=0 and len(xm.value)=0 and len(start_no.value)=0 then
msgbox "请选择班级或者输入学号,姓名......",,"提示窗口"
exit sub
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -