📄 index_class.asp

📁 网络教学管理系统
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<!--#include file = "inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->

<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
body {
	background-color: #B1DB99;
}
-->
</style></head>
<%

	Dim rs ,strSql ,Num ,pageNum ,page ,loopNum
	strSql = "SELECT * FROM Class "
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.open strSql,conn,1,1
	
		
%>
<body topmargin="5" leftmargin="5">
<%
	If rs.recordcount > 0 Then
		rs.pagesize = 14
		Num = rs.recordcount
		pageNum = rs.pagecount
		page =  Request.QueryString("page")
		If page <> ""  Then
			page = Cint(page)
		ElseIf page < 1 Then
			page = 1
		Else
			page =1
		End If
		If page < 1 then
			page =1
		End If
		If page*rs.pagesize >Num and Not ((page-1)*rs.pagesize <Num) Then
			page = 1
		End If
		rs.absolutepage = page
		If page <> pageNum Then
			LoopNum = rs.pagesize
		Else
			LoopNum = Num - (page-1)*rs.pagesize
		End If
	
%>
<table width="610">
  <tr>
    <td background="images/liebiao.gif"><%If Session("UserType") = "管理员" Then%>&nbsp;<a href="Add_Class.asp" target="_self">添加班级</a><%End If%></td>
  </tr> 
</table>
<table width="610">
  <tr bgcolor="#66FF99">
    <td colspan="8" background="images/Down_bg.gif" bgcolor="#00CC00"><div align="center">总共找到<%=Num%>条记录&nbsp;<a href="index_Class.asp?page=1">首页</a>&nbsp;<a href="index_Class.asp?page=<%=page-1%>">上一页</a>&nbsp;<a href="index_Class.asp?page=<%=page+1%>">下一页</a>&nbsp;<a href="index_Class.asp?page=<%=pageNum%>">尾页</a>&nbsp;页次:<%=page%>/<%=pagenum%>&nbsp;共<%=pageNum%>页</div></td>
  </tr>
  <tr bgcolor="#009933">
    <td width="59">&nbsp;</td>
    <td width="127">班级名</td>
    <td width="111">学院</td>
    <td width="106">专业</td>
    <td width="52">班主任</td>
    <td width="68">编辑</td>
    <td width="59">删除</td>
  </tr>
  <% For i = 1 to LoopNum %>
  <tr bgcolor="#FFFFFF" onMouseOver="this.style.backgroundColor='#FFFFCC'" onMouseOut="this.style.backgroundColor='#FFFFFF'">
    <td align="center"><img src="images/dot2.gif" width="10" height="8" /></td>
    <td><%=rs("name").value%></td>
    <%
		Dim rs1 ,strSql1 ,strSchoolName
		If rs("SchoolID") <> "" Then
			Set rs1 = Server.CreateObject("ADODB.RecordSet")
			strSql1 = "SELECT * FROM School WHERE ID = " & rs("SchoolID")
			rs1.open strSql1,conn,1,1
			If Not rs1.EOF Then
				strSchoolName = rs1("Name").value
			Else
				strSchoolName = ""
			End If
			rs1.close
			Set rs1 = Nothing
		Else
			strSchoolName = ""
		End If
	%>
	<td><%=strSchoolName%></td>
	    <%
		Dim rs2 ,strSql2 ,strZhuanyeName
		If rs("ZhuanyeID") <> "" Then
			Set rs2 = Server.CreateObject("ADODB.RecordSet")
			strSql1 = "SELECT * FROM zhuanye WHERE ID = " & rs("zhuanyeID")
			rs2.open strSql1,conn,1,1
			If Not rs2.EOF Then
				strZhuanyeName = rs2("Name").value
			Else
				strZhuanyeName = ""
			End If
			rs2.close
			Set rs2 = Nothing
		Else
			strZhuanyeName = ""
		End If
	%>
    <td><%=strZhuanyeName%></td>
    <td><%=rs("MainTeacher").value%></td>
    <td><a href="Mod_Class.asp?ID=<%=rs("ID").value%>" target="_self">编辑</a></td>
    <td><a href="DelClass.asp?ID=<%=rs("ID").value%>" onclick='return confirm(&quot;您确定要删除此信息吗？&quot;)'><img src="images/del.gif" alt="删除" width="20" height="20" border="0" /></a></td>
  </tr>
  <%   rs.movenext 
  	Next %>
  <tr>
    <td colspan="8" background="images/Down_bg.gif" bgcolor="#00CC00"><div align="center">总共找到<%=Num%>条记录&nbsp;<a href="index_Class.asp?page=1">首页</a>&nbsp;<a href="index_Class.asp?page=<%=page-1%>">上一页</a>&nbsp;<a href="index_Class.asp?page=<%=page+1%>">下一页</a>&nbsp;<a href="index_Class.asp?page=<%=pageNum%>">尾页</a>&nbsp;页次:<%=page%>/<%=pagenum%>&nbsp;共<%=pageNum%>页</div></td>
  </tr>
</table>
<%	
	Else
%>
<table width="610">

  <tr bgcolor="#009933">
    <td colspan="5" background="images/Down_bg.gif"><%If Session("UserType") = "管理员" Then%>
      &nbsp;<a href="Add_Class.asp" target="_self">添加班级</a>
    <%End If%></td>
  </tr>
  <tr bgcolor="#009933">
    <td width="59">&nbsp;</td>
    <td width="127">班级名</td>
    <td width="111">学院</td>
    <td width="106">专业</td>
    <td width="52">班主任</td>
  </tr>

  <tr>
    <td colspan="5" bgcolor="#FFFFFF">没有相关记录！</td>
  </tr>
</table>		
<%		
	End If
%>
</body>
</html>
⌨️ 快捷键说明

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