?? lscxdjk.asp
字號:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>學期結轉</title>
</head>
<body background="../images/di2001.jpg">
<p align="center"><font face="文鼎中特廣告體" size="5">學期結轉</font></p>
<div align="center"><center>
<table border="1" width="58%" bordercolor="#0000FF" height="221">
<tr>
<td width="100%" height="191"><p align="left">1<font face="宋體" size="4">.學期結轉必須在本學期學生操行分和考勤數(shù)據(jù)全部輸入完畢之后進行;</font></p>
<p align="left"><font face="宋體" size="4">2.結轉后的學生操行分可以查閱,也可以改動;</font></p>
<p align="left"><font face="宋體" size="4">3.網(wǎng)絡環(huán)境中結轉時,不能有其他操作員同時使用本系統(tǒng);</font></p>
<p align="left"><font face="宋體" size="4">4.執(zhí)行該操作時必須保證系統(tǒng)不能斷電,否則系統(tǒng)將出現(xiàn)數(shù)據(jù)丟失或毀壞</font></td>
</tr>
<tr>
<td width="100%" height="26" valign="top">起始年度<select name="D1" 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="D2" 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="D3" size="1">
<option value="上學期">上學期</option>
<option value="下學期">下學期</option>
</select><p> <input type="button" value="開始結轉" name="B1"
onclick="start_change()" style="font-family: 宋體; font-size: 17; color: rgb(0,0,255)"><input
type="button" value="數(shù)據(jù)初始化" name="xjcsh" onclick="xjcsh_click()"
style="font-family: 宋體; font-size: 17; color: rgb(0,0,255)"><input type="button"
value="退 出" name="B2" onclick="backing()"
style="font-family: 宋體; font-size: 17; color: rgb(0,0,255)"></td>
</tr>
</table>
</center></div>
<p>
<object id="rds1" classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" width="9"
height="6">
</object>
</p>
<script language="vbscript">
rds1.Server ="http://<%=request.servervariables("server_name")%>"
rds1.Connect="database=school;uid=sa;pwd=;dsn=school"
sub start_change()
l_ok=msgbox("你確定要進行結轉嗎!",1,"警告")
if l_ok=1 then
rds1.SQL="execute xscxdjk_change '"&D1.value&"','"&D2.value&"','"&D3.value&"' "
rds1.ExecuteOptions =1
rds1.Refresh
rds1.SQL="delete from kaoqin"
rds1.ExecuteOptions =1
rds1.Refresh
' if rds1.Recordset.recordcount>0 then
msgbox "數(shù)據(jù)已經(jīng)結轉完畢......",,"提示窗口"
' end if
end if
end sub
sub backing()
history.go(-1)
end sub
sub xjcsh_click()
l_ok=msgbox("你確定要進行數(shù)據(jù)初始化嗎!",1,"警告")
if l_ok=1 then
rds1.SQL="delete from xscxdjk"
rds1.ExecuteOptions =1
rds1.Refresh
rds1.SQL="delete from kaoqin"
rds1.ExecuteOptions =1
rds1.Refresh
rds1.SQL="delete from bzrtest"
rds1.ExecuteOptions =1
rds1.Refresh
end if
end sub
</script>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -