?? +i
字號:
<%
'Pri=CheckUrl(mkmc)
%>
<!--#include virtual="/school/public/CheckUrl.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>學生考勤輸入 歡迎使用欣科軟件 write by tanjianhua/1999-10-25</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>
<body background="../images/di2001.jpg">
<p align="center"><font color="#0000a0" size="6"><strong><FONT face="幼圓" size=5>學 生 考 勤 修 改 及 統 計</FONT></strong>
<OBJECT classid=clsid:BD96C556-65A3-11D0-983A-00C04FC29E33 height=1 id=rds1
width=1>
<PARAM NAME="ExecuteOptions" VALUE="2">
<PARAM NAME="FetchOptions" VALUE="3">
<PARAM NAME="SortDirection" VALUE="-1">
<PARAM NAME="InternetTimeout" VALUE="300000">
</OBJECT>
<OBJECT classid=clsid:BD96C556-65A3-11D0-983A-00C04FC29E33 height=1 id=rds3
width=1>
<PARAM NAME="ExecuteOptions" VALUE="2">
<PARAM NAME="FetchOptions" VALUE="3">
<PARAM NAME="SortDirection" VALUE="-1">
<PARAM NAME="InternetTimeout" VALUE="300000">
</OBJECT>
<OBJECT classid=clsid:BD96C556-65A3-11D0-983A-00C04FC29E33 height=1 id=rds2
width=1>
<PARAM NAME="ExecuteOptions" VALUE="2">
<PARAM NAME="FetchOptions" VALUE="3">
<PARAM NAME="SortDirection" VALUE="-1">
<PARAM NAME="InternetTimeout" VALUE="300000">
</OBJECT></font><br>
<img alt ="" src="../images/Stripe1.gif" style ="HEIGHT: 2px; WIDTH: 768px" width="600" height="1">
<div align="center"><center>
<table border="1" width="97.3%" height="88.81%" style="HEIGHT: 397px; WIDTH: 757px">
<tr>
<td width="145" height="325" valign="top">
<P><font color="#ff0000">請選擇輸入范圍：</font>
<font color="#0000ff">起始學年</font><select name="yearno" size="1">
<option value="1997">1997
<option value="1998">1998
<option selected value="1999">1999
<option value="2000">2000
<option value="2001">2001
<option value="2002">2002
<option value="2003">2003
<option value="2004">2004
<option value="2005">2005
</select><br>
<font color="#0000ff">終止學年</font><select name="endyearno" size="1">
<option value="1997">1997
<option value="1998">1998
<option selected value="1999">1999
<option value="2000">2000
<option value="2001">2001
<option value="2002">2002
<option value="2003">2003
<option value="2004">2004
<option value="2005">2005
</select><br>
<font color="#0000ff">學期</font><select name="termno" size="1">
<option selected value="第一學期">第一學期
<option value="第二學期">第二學期
</select><br>
<font color="#0000ff">班號</font><select name="classno" size="1">
</select><br><FONT color=blue face="">第幾周</FONT><input name="weekstartno" size="9"> <FONT color=blue
face="">到</FONT> <input name="weekendno" size="9">
<br><FONT color=blue
face="">日期</FONT><input name="monthstartno" size="9" style="HEIGHT: 21px; WIDTH: 30px"
>月<input name="daystartno" size="9" style="HEIGHT: 21px; WIDTH: 30px"
><FONT color=blue face="">日到</FONT>
<FONT color=blue face=""></FONT><FONT color=blue
face="">日期</FONT><input name="monthendno" size="9" style="HEIGHT: 21px; WIDTH: 30px"
>月<input name="daysendno" size="9" style="HEIGHT: 21px; WIDTH: 30px"
><FONT color=blue face="">日</FONT>
<font color="#0000ff">學號從<input name="startno" size="9"></font> <font
color="#0000ff"><br>
到 </font><input name="endno" size="9"> </P> <p align="center"><input
type="button" value="開始修改" onclick="beginInput()" name="start_input"
style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋體; FONT-SIZE: 12px; WIDTH: 98px"><input type="button" value="保存修改" onclick="saveInput()" disabled
name="save_input" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋體; FONT-SIZE: 12px; WIDTH: 98px" >
<input type="button" value="取消修改" onclick="cancelInput()" disabled
name="cancel_input" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋體; FONT-SIZE: 12px; WIDTH: 98px">
<input type="button" value="按學號統計" onclick="xhtotal()"
name="xh_total" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋體; FONT-SIZE: 12px; WIDTH: 98px">
<input type="button" value="按班號統計" onclick="bhtotal()"
name="bh_total" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋體; FONT-SIZE: 12px; WIDTH: 98px" >
<input type="button" value="按學號打印" onclick="printno()"
name="student_print" disabled style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋體; FONT-SIZE: 12px; WIDTH: 98px">
<input type="button" value="按班號打印" disabled onclick="printclass()"
name="class_print" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋體; FONT-SIZE: 12px; WIDTH: 98px">
<!--<input type="button" value="按年統計" onclick="yeartotal()"
name="year_total" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋體; FONT-SIZE: 12px; WIDTH: 98px" >
<input type="button" value="返 回" onclick="backing()"
name="B5" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋體; FONT-SIZE: 12px; WIDTH: 98px" ></p>-->
<!--<p align="center"><input type="button" value="退出返回" onclick="returning()" name="exiting" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋體; FONT-SIZE: 12px" ></p>//--></p></td>
<td width="550" height="325" valign="top"><p align="center">
<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="HEIGHT: 430px; WIDTH: 590px" width=99.16%
VIEWASTEXT></OBJECT></p>
</td>
</tr>
</table>
</center></div><script language="Vbscript">
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"
'Get all class Number 取所有班號
rds2.sql = "select * from class"
rds2.ExecuteOptions = 1
rds2.refresh
' classArray = rds2.recordset.Getrows(rds2.recordset.recordcount,0,0)
' for i=0 to rds2.recordset.recordcount-1
' set oOption = document.createElement("OPTION")
' oOption.text = classArray(0,i)
' oOption.value = classArray(0,i)
' document.all.classno.add(oOption)
' next
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
grid1.AllowDelete = true
grid1.AllowUpdate = true
grid1.AllowUpdate = true
</script>
</body>
<script language="VBScript">
'==============================================================
public datestart
public dateend
'開始對考勤進行修改
sub beginInput()
start_input.disabled = true
save_input.disabled = false
cancel_input.disabled = false
if len(trim(weekstartno.value))=0 and (len(rtrim(monthstartno.value))=0 and len(rtrim(daystartno.value))=0) then
msgbox "對不起！請先輸入第幾周！",,"提示窗口"
start_input.disabled = false
save_input.disabled = true
cancel_input.disabled = true
exit sub
end if
if len(trim(classno.value))=0 and len(trim(startno.value))=0 then
msgbox "對不起！請先輸入班號或學號！",,"提示窗口"
start_input.disabled = false
save_input.disabled = true
cancel_input.disabled = true
exit sub
end if
' if len(rtrim(monthstartno.value))> 0 then
' else
' msgbox "請輸入月份!",,"提示窗口"
' start_input.disabled = false
' save_input.disabled = true
cancel_input.disabled = true
' exit sub
' end if
' if len(rtrim(daystartno.value))> 0 then
' else
' msgbox "請輸入日!",,"提示窗口"
' start_input.disabled = false
' save_input.disabled = true
' cancel_input.disabled = true
' exit sub
' end if
if len(rtrim(monthstartno.value))>0 then
if len(rtrim(monthendno.value))> 0 then
else
msgbox "請輸入結束月份!",,"提示窗口"
start_input.disabled = false
save_input.disabled = true
cancel_input.disabled = true
monthendno.value=monthstartno.value
exit sub
end if
end if
if len(rtrim(daystartno.value))>0 then
if len(rtrim(daysendno.value))> 0 then
else
msgbox "請輸入結束日!",,"提示窗口"
start_input.disabled = false
save_input.disabled = true
cancel_input.disabled = true
daysendno.value = daystartno.value
exit sub
end if
end if
if len(rtrim(weekstartno.value)) > 0 then
if len(rtrim(weekendno.value)) > 0 then
if int(rtrim(weekendno.value)) < int(rtrim(weekstartno.value)) then
msgbox "終止周必須不小于起始周！"
start_input.disabled = false
save_input.disabled = true
cancel_input.disabled = true
exit sub
end if
else
weekendno.value = weekstartno.value
end if
end if
if len(rtrim(weekstartno.value))=0 then
if isdate(yearno.value+"/"+monthstartno.value+"/"+daystartno.value) then
else
msgbox "對不起!此開始日期格式輸入錯誤,請重新輸入",,"提示窗口"
start_input.disabled = false
save_input.disabled = true
cancel_input.disabled = true
EXIT SUB
end if
if isdate(endyearno.value+"/"+monthendno.value+"/"+daysendno.value) then
else
msgbox "對不起!此終止日期格式輸入錯誤,請重新輸入",,"提示窗口"
start_input.disabled = false
save_input.disabled = true
cancel_input.disabled = true
EXIT SUB
end if
' msgbox cdate(rtrim(yearno.value +"/"+monthstartno.value+"/"+daystartno.value)) < cdate(rtrim(yearno.value +"/"+monthendno.value+"/"+daySendno.value))
if cdate(rtrim(yearno.value +"/"+monthstartno.value+"/"+daystartno.value)) > cdate(rtrim(endyearno.value +"/"+monthendno.value+"/"+daySendno.value)) then
msgbox "終止日期不能小于起始日期",,"提示窗口"
exit sub
end if
end if
if len(rtrim(startno.value)) > 0 then
if len(rtrim(endno.value)) > 0 then
if rtrim(endno.value) < rtrim(startno.value) then
msgbox "終止學號必須不小于起始學號！"
start_input.disabled = false
save_input.disabled = true
cancel_input.disabled = true
exit sub
end if
else
endno.value = startno.value
end if
end if
if len(trim(startno.value)) > 0 then
call input_score("XH")
else
call input_Score("CLASS")
end if
end sub
'按學號或者班級查詢考勤
sub input_score(input_type)
'============================================================
if len(rtrim(weekstartno.value))=0 then
datestart=rtrim(yearno.value +"/"+monthstartno.value+"/"+daystartno.value)
dateend=rtrim(yearno.value +"/"+monthendno.value+"/"+daysendno.value)
else
end if
if input_type="XH" then
' rds1.SQL="select * from dailymanage where 學號>='"&startno.value&"' and 學號<='"&endno.value&"' and CONVERT(INT,第幾周)>="&int(weekstartno.value)&" and CONVERT(INT,第幾周)<="&int(weekendno.value)&""&_
' "and convert(datetime,日期)>=convert(datetime,'"&datestart&"') and convert(datetime,日期)<=convert(datetime,'"&dateend&"') order by 學號"
' rds1.ExecuteOptions = 1
' rds1.refresh
'classno.value ="沒有"
if len(rtrim(weekstartno.value))>0 then
rds1.SQL="select * from dailymanage where 學號>='"&startno.value&"' and 學號<='"&endno.value&"' and 學期='"&termno.value&"' and CONVERT(INT,第幾周)>="&int(weekstartno.value)&" and CONVERT(INT,第幾周)<="&int(weekendno.value)&""&_
" order by 學號"
rds1.ExecuteOptions = 1
rds1.refresh
else
rds1.SQL="select * from dailymanage where 學號>='"&startno.value&"' and 學號<='"&endno.value&"' and 學期='"&termno.value&"' "&_
"and convert(datetime,日期)>=convert(datetime,'"&datestart&"') and convert(datetime,日期)<=convert(datetime,'"&dateend&"') order by 學號"
rds1.ExecuteOptions = 1
rds1.refresh
end if
else
' rds1.SQL="select * from dailymanage where 班號<='"&classno.value &"' and CONVERT(INT,第幾周)>="&int(weekstartno.value)&" and CONVERT(INT,第幾周)<="&int(weekendno.value)&""&_
' "and convert(datetime,日期)>=convert(datetime,'"&datestart&"') and convert(datetime,日期)<=convert(datetime,'"&dateend&"') order by 學號 "
' rds1.ExecuteOptions = 1
'startno.value="no"
if len(rtrim(weekstartno.value))>0 then
rds1.SQL="select * from dailymanage where 班號='"&classno.value &"' and CONVERT(INT,第幾周)>="&int(weekstartno.value)&" and CONVERT(INT,第幾周)<="&int(weekendno.value)&""&_
" order by 學號 "
rds1.ExecuteOptions = 1
rds1.Refresh
else
rds1.SQL="select * from dailymanage where 班號='"&classno.value &"' "&_
"and convert(datetime,日期)>=convert(datetime,'"&datestart&"') and convert(datetime,日期)<=convert(datetime,'"&dateend&"') order by 學號 "
rds1.ExecuteOptions = 1
rds1.Refresh
end if
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -