📄 adminteacheropen.asp
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/function.asp"-->
<%
dim action
action=request.QueryString("action")
select case action
case "sh"
%>
<html>
<head>
<title>教务管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css.css" rel="stylesheet" type="text/css">
</head>
<body style="background-color: #799AE1">
<table class="tableBorder" width="887" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="7" align="center" background="images/admin_bg_1.gif" height="25"><b><font color="#ffffff">教务管理—</font></b><font color="#FFFFFF"><b>公开课</b></font></td>
</tr>
<tr>
<td width="72" bgcolor="#E8F1FF" align="center">教师</td>
<td width="69" bgcolor="#E8F1FF" align="center">
教室</td>
<td width="87" bgcolor="#E8F1FF" align="center">
科目</td>
<td width="102" bgcolor="#E8F1FF" align="center">
学生</td>
<td width="306" bgcolor="#E8F1FF" align="center">
参加对象</td>
<td width="109" bgcolor="#E8F1FF" align="center">
时间</td>
<td width="151" bgcolor="#E8F1FF" align="center">
</td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Jw_openclass where sh=0",conn,1,3
if rs.RecordCount=0 then
%>
<tr>
<td width="100%" bgcolor="#E8F1FF" align="center" colspan="7"><font color=red>无记录</font></td>
</tr>
<%
else
rs.PageSize =10 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
For i=1 To x
%>
<tr>
<td width="72" bgcolor="#E8F1FF" align="center"><% =rs("teachername")%></td>
<td width="69" bgcolor="#E8F1FF" align="center"><% =rs("classroom")%></td>
<td width="87" bgcolor="#E8F1FF" align="center"><% =rs("kcmc")%></td>
<td width="102" bgcolor="#E8F1FF" align="center"><% =rs("student")%></td>
<td width="306" bgcolor="#E8F1FF" align="center"><% =rs("cjdx")%></td>
<td width="109" bgcolor="#E8F1FF" align="center"><%=month(rs("rq"))&"月"&day(rs("rq"))&"日"&rs("js")%></td>
<td bgcolor="#E8F1FF" align="center">
<input class=go-wenbenkuang onclick="window.location='adminteacheropen.asp?action=shok&ID=<% =rs("ID")%>'" type=button value="通过审核" name=Submit3> <input class=go-wenbenkuang onclick="window.location='adminteacheropen.asp?action=del&ID=<% =rs("ID")%>'" type=button value="删除" name=Submit3>
</td>
</tr>
<%
rs.movenext
next
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>
<TR>
<td bgcolor="#ffffff" height="25" align="center" colspan="7"><% call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")%></td>
</tr>
</table>
<%
case "shok"
ID=request("ID")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Jw_openclass where ID="&ID,conn,1,3
rs("sh")=1
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "ok.asp?ok=已经通过该门公开课申请，如需取消请在公开课管理里进行删除操作"
case "admin"
%>
<html>
<head>
<title>教务管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css.css" rel="stylesheet" type="text/css">
</head>
<body style="background-color: #799AE1">
<table class="tableBorder" width="887" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="7" align="center" background="images/admin_bg_1.gif" height="25"><b><font color="#ffffff">教务管理—</font></b><font color="#FFFFFF"><b>公开课</b></font></td>
</tr>
<tr>
<td width="72" bgcolor="#E8F1FF" align="center">教师</td>
<td width="69" bgcolor="#E8F1FF" align="center">
教室</td>
<td width="87" bgcolor="#E8F1FF" align="center">
科目</td>
<td width="102" bgcolor="#E8F1FF" align="center">
学生</td>
<td width="363" bgcolor="#E8F1FF" align="center">
参加对象</td>
<td width="107" bgcolor="#E8F1FF" align="center">
时间</td>
<td width="88" bgcolor="#E8F1FF" align="center">
</td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Jw_openclass where sh=1",conn,1,3
if rs.RecordCount=0 then
%>
<tr>
<td width="100%" bgcolor="#E8F1FF" align="center" colspan="7"><font color=red>无记录</font></td>
</tr>
<%
else
rs.PageSize =10 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
For i=1 To x
%>
<tr>
<td width="72" bgcolor="#E8F1FF" align="center"><% =rs("teachername")%></td>
<td width="69" bgcolor="#E8F1FF" align="center"><% =rs("classroom")%></td>
<td width="87" bgcolor="#E8F1FF" align="center"><% =rs("kcmc")%></td>
<td width="102" bgcolor="#E8F1FF" align="center"><% =rs("student")%></td>
<td width="363" bgcolor="#E8F1FF" align="center"><% =rs("cjdx")%></td>
<td width="109" bgcolor="#E8F1FF" align="center"><%=month(rs("rq"))&"月"&day(rs("rq"))&"日"&rs("js")%>
<%if rs("rq") < now() then response.write "<br><font color=red>过期</font>"%>
</td>
<td bgcolor="#E8F1FF" align="center">
<input class=go-wenbenkuang onclick="window.location='adminteacheropen.asp?action=del&ID=<% =rs("ID")%>'" type=button value="删除" name=Submit3>
</td>
</tr>
<%
rs.movenext
next
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>
<TR>
<td bgcolor="#ffffff" height="25" align="center" colspan="7"><% call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")%></td>
</tr>
</table>
<%
case "del"
ID=request("ID")
conn.execute "delete from Jw_openclass where ID="&ID
conn.close
set conn=nothing
response.redirect "ok.asp?ok=删除公开课"
end select
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -