📄 searchcourse.asp

📁 学生管理功能: 1.添加单个成绩 2.批量添加成绩 3.通过搜索并修改与删除
💻 ASP
字号:
<!--#include file="a25175_top.asp"-->
<link href="../25175css_pro.css" rel="stylesheet" type="text/css">

<%
'-------------------------------------------------------------
Dim Depart,Teacher,Depart1,Teacher1,Term,Course
Depart=request("Sdepart")
Depart1=Depart
'------------------------------------------------------
if Depart<>"" and Depart<>"请选择教师院系" then
strsql="select * from department where id="&depart
set rs=db.execute(strsql)
depart=rs("department")
end if
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

</head>

<body>
<table width="970" height="500"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="188" rowspan="6" valign="top"><!--#include file="adminleft.asp"--></td>
    
  </tr>
  <tr>
    <td height="100" colspan="2" align="center" background=""><form name="form1" method="post" action="Searchcourse.asp">
      <table width="95%"  border="0" cellpadding="0" cellspacing="1" bgcolor="#ADD7FF">
        <tr align="center" bgcolor="#B7B700">
          <td height="25" colspan="2" valign="middle" ><span>课程查询</span>
            
          
          </td>
        </tr>
        <tr align="center" valign="bottom" bgcolor="#FFFFFF">
          <td width="19%" height="25" align="right" valign="middle" >请选择教师院系：</td>
          <td width="81%" height="25" align="left" valign="middle" >
            
            <select name="Sdepart" id="select3">
              <option value="请选择教师院系" selected>请选择教师院系</option>
              <%
sql="select * from DEPARTMENT order by ID desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,db,1,1
while not rs.eof%>
              <option value="<%=rs("id")%>"><%=rs("DEPARTMENT")%></option>
              <%rs.movenext
wend
rs.Close()
%>
            </select>
      *
      <input name="Submit2" type="submit" id="Submit2" value="查询">
      <a href="ADDCOURSE.asp" target="_self">添加课程 </a>          </td>
        </tr>
       
      </table>
    </form></td>
  </tr>
  
  <tr>
    <td height="300" align="center" valign="top" background="">
	
	<table width="95%"  border="0" cellpadding="0" cellspacing="1" bgcolor="#ADD7FF">
      <tr align="center" bgcolor="#78A5D1">
        <td height="25">序号</td>
        <td>开课学期</td>
        <td>课程名称</td>
        <td>开课班级</td>
        <td>开课院系</td>
        <td>开课教师</td>
        <td>删除</td>
      </tr>
     
	 
	  <%
	  if Depart<>"" and Depart<>"请选择教师院系" then
	  strsql="select * from teachercourse where department='"&depart&"'"
	 Set rs=Server.CreateObject("ADODB.Recordset")
	 rs.Open strSql,db,3
	 '查询记录
	  If Not rs.Bof And Not rs.Eof Then
		'以下主要为了分页显示
		dim page_size                            '定义每页多少条记录变量
		dim page_no                             '定义当前是第几页变量
		dim page_total                           '定义总页数变量
		page_size=fenye                           '每页显示2条记录
		'如果第一次打开，则page_no为1，否则由传回的参数决定
		if Request.QueryString("page_no")="" then   
			page_no=1
		else
			page_no=Cint(Request.QueryString ("page_no"))  '用Cint将字符串变为整数
		end if
		rs.PageSize=page_size               '设置每页多少条记录
		page_total=rs.PageCount          '返回总页数
		rs.AbsolutePage=page_no           '设置当前显示第几页
		'下面一段显示当前页的所有记录
		Dim I
		I=page_size  
		J=1
	   do while NOt rs.eof and I>0
	I=I-1	 
			%>
      <tr align="center" bgcolor="#FFFFFF">
        <td height="25"><%=J%></td>
        <td><%=rs("term")%></td>
        <td><%=rs("course")%></td>
        <td><%=rs("class")%></td>
        <td><%=rs("department")%></td>
        <td><%=rs("teachername")%></td>
        <td><a href="Coursedel.asp?ID=<%=rs("ID")%>">删除</a></td>
      </tr>
      <%
	  J=J+1
	  rs.movenext
	  loop
	  end if
	  End if
	  %>
    </table>
	 </td>
  </tr>
  <tr>
    <td height="200" align="right" valign="top" background="">
	  <%
		
		For I=1 To page_total                        
			If I=page_no Then                        
				Response.Write "【"& I &"】" & "&nbsp"
			Else
				Response.Write "<a href='searchcourse.asp?Sdepart="&depart1&"&Page_no=" & I & "'>" &"【"& I &"】"& "</a>&nbsp"
			End If
		Next
	
	
	%></td>
  </tr>
</table>
</body>
</html>
<!--#include file="../foot.asp"-->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -