📄 bzlset.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>
</p>
<div align="center"><center>
<table border="0" width="724" height="282" cellspacing="0" cellpadding="0">
<caption align="left"><font color="#ff0000" size="5"><b>班主任定义</b></font></caption>
<tr bgcolor="#3399cc">
<td width="569" height="188" valign="top">
<object classid="clsid:00028CD1-0000-0000-0000-000000000046" dataSrc="#rds1" height="320"
id="grid1" style="LEFT: 0px; TOP: 0px" width="565" VIEWASTEXT>
</object>
</td>
<td width="138" height="188" valign="top"> <p> </p>
<p align="center"><input type="button" value="添加数据" onclick="addrecord()"
name="start_input" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 14px"> <input
type="button" value="删除数据" onclick="deleterecord()" name="delete1"
style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 14px"> <input type="button"
value="保存数据" onclick="saverecord()" 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><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"
rds1.SQL="select 代码,班主任,班号 from chairman"
rds1.ExecuteOptions = 1
rds2.server ="http://<%=Request.ServerVariables("SERVER_NAME")%>"
rds2.connect ="database=school;uid=sa;pwd=;dsn=school"
' dateno.value =cstr(year(date()))+"-"+cstr(month(date()))
'msgbox dateno.value
'"20"+formatdatetime(date(),2)
grid1.AllowAddnew = true
grid1.allowupdate = true
</script>
<script language="VBScript">
'=================================
sub addrecord()
rds1.Recordset.addnew
grid1.editactive=true
grid1.col=0
end sub
'================================
'保存数据修改
Private sub grid1_BeforeColEdit(colindex,keyascii,cancel)
'cancel=false
selcolname = Grid1.Columns.item(colindex).caption
if selcolname="代码" then
msgbox selcolname+"不能修改！如要修改请运行学号管理模块!"
cancel = true
end if
end sub
'================================
sub saverecord()
if rds1.Recordset.recordcount<0 then
msgbox "没有数据保存......",,"提示窗口"
exit sub
end if
if grid1.row=0 then
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 deleterecord()
l_ok=msgbox("你真的要删除此记录吗?",1,"提示窗口")
if l_ok=1 then
rds1.Recordset.delete
grid1.rebind
end if
end sub
'======================
sub returning()
history.go(-1)
end sub
'==============================================================
sub grid1_BeforeColEdit(colindex,keyascii,cancel)
' msgbox "不能输入和修改成绩！"
'cancel = true
end sub
</script>
<script
language="javascript">
function click() {
if (event.button==2) {
alert('对不起,禁止使用此功能^_^.')
}
}
document.onmousedown=click
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -