📄 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">.学期结转必须在本学期学生操行分和考勤数据全部输入完毕之后进行;</font></p>
<p align="left"><font face="宋体" size="4">2.结转后的学生操行分可以查阅,也可以改动;</font></p>
<p align="left"><font face="宋体" size="4">3.网络环境中结转时,不能有其他操作员同时使用本系统;</font></p>
<p align="left"><font face="宋体" size="4">4.执行该操作时必须保证系统不能断电,否则系统将出现数据丢失或毁坏</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="数据初始化" 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 "数据已经结转完毕......",,"提示窗口"
' end if
end if
end sub
sub backing()
history.go(-1)
end sub
sub xjcsh_click()
l_ok=msgbox("你确定要进行数据初始化吗!",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 + -