?? wj_input_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" topmargin="0">
<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="2"
height="14">
</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="77%" height="385" bgcolor="#B0CDDD" cellspacing="0" cellpadding="0">
<caption align="left"><font color="#ff0000" size="5"><b>違紀數據查詢</b></font></caption>
<tr>
<td width="75%" valign="top" height="381">
<object classid="clsid:00028CD1-0000-0000-0000-000000000046" codebase="http:/"
<%=Request.ServerVariables("SERVER_NAME")%>/school/public/tdbg6.ocx" dataSrc="#rds1"
height="100%" id="grid1" style="LEFT: 0px; TOP: 0px" width="100%" VIEWASTEXT id="tdbgrid1">
</object>
</td>
<td width="25%" valign="top" height="381" bgcolor="#B0CDDD"><!--<font color="#ff0000">請選擇錄入的條件：</font><p>班號<select
name="classno" size="1">
</select> </p>
<p>學號<input type="text" name="start_no" size="10"></p>
<p>姓名<input type="text" name="xm" size="10"> </p>-->
<p> </p>
<p align="center"><input type="button" value="查詢數據" onclick="query_click()"
name="start_input" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋體; FONT-SIZE: 14px"><!-- <input
type="button" value="開始修改" onclick="modi_click()" name="start_modi"
style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋體; FONT-SIZE: 14px"> <input type="button"
value="保存錄入" onclick="update_click()" name="start_update"
style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋體; FONT-SIZE: 14px"> <input type="button"
value="保存修改" onclick="save_click()" name="start_update"
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>
<p> </p>
<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
'dateno.value = "20"+formatdatetime(date(),2)
grid1.AllowAddnew = true
</script>
<script language="VBScript">
'==============================================================
sub begininput()
if len(classno.value)=0 and len(xm.value)=0 and len(start_no.value)=0 then
msgbox "請選擇班級或者輸入學號,姓名......",,"提示窗口"
exit sub
end if
if len(classno.value)<>0 then
rds1.SQL="execute wj_class '"&classno.value&"'"
rds1.ExecuteOptions = 1
rds1.Refresh
elseif len(start_no.value)<>0 then
rds1.SQL="execute wj_xh '"&start_no.value&"' "
rds1.ExecuteOptions = 1
rds1.Refresh
else
rds1.SQL="execute wj_xm '"&xm.value&"'"
rds1.ExecuteOptions = 1
rds1.Refresh
end if
end sub
'==================================
sub query_click()
rds2.SQL="execute lscxdj_table "
rds2.ExecuteOptions = 1
rds2.Refresh
rds2.SQL="select 違紀項目 from wjset "
rds2.ExecuteOptions = 1
rds2.Refresh
rds3.SQL="insert into templscxdjk(學號,姓名) select distinct 學號,姓名 from wjinput "
rds3.ExecuteOptions = 1
rds3.Refresh
sum_row=rds2.Recordset.recordcount
rds2.Recordset.movefirst
for i=0 to rds2.Recordset.recordcount-1
rds3.SQL="alter table templscxdjk add "&rds2.Recordset.fields(0)&" int null "
rds3.ExecuteOptions = 1
rds3.Refresh
rds3.SQL="select 學號,sum(次數) from wjinput where 違紀項目='"&trim(rds2.Recordset.fields(0))&"' group by 學號"
rds3.ExecuteOptions = 1
rds3.Refresh
if rds3.Recordset.recordcount>0 then
rds4.sql="update templscxdjk set "&cstr(rds2.Recordset.fields(0))&"='"&rds3.Recordset.fields(1)&"' where 學號='"&rds3.Recordset.fields(0)&"' "
rds4.ExecuteOptions = 1
rds4.Refresh
end if
rds2.Recordset.movenext
next
rds1.SQL="select * from templscxdjk"
rds1.ExecuteOptions = 1
rds1.Refresh
end sub
'=================================
'保存數據修改
'================================
sub save_click()
if rds1.Recordset.recordcount<0 then
msgbox "沒有數據保存......",,"提示窗口"
exit sub
end if
if grid1.row=0 then
' msgbox grid1.row
rds1.Recordset.movenext
else
rds1.Recordset.movenext
end if
grid1.Editactive = False
On Error resume next
RDS1.SubmitChanges
If Err.Number <> 0 Then
MsgBox "無法更新數據！"
exit sub
End If
end sub
'=================================
'保存考勤數據錄入
'=================================
sub update_click()
if rds1.Recordset.recordcount<0 then
msgbox "沒有數據保存......",,"提示窗口"
exit sub
end if
rds1.Recordset.movefirst
for i=0 to rds1.Recordset.recordcount-1
if isnull(rds1.Recordset.fields(2)) and isnull(rds1.Recordset.fields(3)) then
else
l_xh=rds1.Recordset.fields(0)
l_xm=rds1.Recordset.fields(1)
l_wjxm=rds1.Recordset.fields(2)
l_cs=rds1.Recordset.fields(3)
rds2.SQL="insert into wjinput(學號,姓名,違紀項目,次數) values('"&l_xh&"','"&l_xm&"','"&l_wjxm&"','"&l_cs&"')"
rds2.ExecuteOptions = 1
rds2.Refresh
end if
rds1.Recordset.movenext
next
end sub
'====================根據課程號,查詢此課程所有類型成績信息==============
sub score_allsearch()
'========================================================================
coursename = CourseNoArray(0,courseno.selectedIndex-1)
dim coursetype(5)
coursetype(0) = "平時成績"
coursetype(1) = "期中成績"
coursetype(2) = "期末成績"
coursetype(3) = "總評成績"
coursetype(4) = "補考成績"
rds1.SQL = " Execute serach_alltypescore "+ classno.value
rds1.ExecuteOptions =1
rds1.Refresh
for typecount = 0 to 4
rds2.SQL = " select "+coursename+" from score where 成績類型='"+coursetype(typecount)+"' and 學年='"+yearno.value+"' "&_
" and 學期='" +termno.value+"' and 學號 in (select 學號 from student where 班號='"+classno.value+"') "&_
" order by 學號"
rds2.ExecuteOptions = 1
rds2.Refresh
if rds2.Recordset.recordcount >0 then
rds1.Recordset.Movefirst
'grid1.row = 0
rds2.Recordset.Movefirst
while not rds2.Recordset.eof and not rds1.Recordset.eof
'for i =0 to rds2.Recordset.recordcount-1
if isnull(rds2.Recordset.fields(0))=false then
'msgbox rds2.Recordset.fields(0)
'msgbox rtrim(cstr(rds2.Recordset.fields(0)))
'rds1.Recordset.fields(2+typecount).value = rtrim(cstr(rds2.Recordset.fields(0)))
rds1.Recordset.fields(2+typecount).value = cint(rds2.Recordset.fields(0))
'grid1.columns.item(2+typecount).value = rtrim(cstr(rds2.Recordset.fields(0)))
end if
rds1.Recordset.Movenext
'grid1.row = grid1.row + 1
rds2.Recordset.Movenext
Wend
end if
next
search_all = true
end sub
'====================根據班號,學號,年級查詢成績====================================
sub score_search(search_type)
'========================================================================
'根據課程名,取得課程代碼
get_course(search_type)
if CourseSelectCount<=0 then
msgbox("沒有輸入此學期成績！請輸入成績或到班級課程設置模塊中運行刷新功能")
exit sub
end if
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -