response.end
     end if
     epage=cint(HtmlEncode(request("page")))
     if epage<1 then epage=1
     if epage>TeacherList_rs.pagecount then epage=TeacherList_rs.pagecount
  else
     epage=1
  end if
       'DepartList_rs.absolutepage=epage
  IF Is_SearchMode=1 then '若果是搜索結果列表，則提示相關搜索信息
     Response.Write("<p align=center>當前班級是：<font color=red>"&request("class_name")&"</font><br>您搜索的關鍵字是：<font color=red>"&SearchKey&"</font>,下面是搜索結果；</p>")
  End if	
  IF Is_SearchMode<>1 then  
      Response.Write("<p align=center>當前班級是：<font color=red>"&request("class_name")&"</font><p>")
  End if
response.write ("<table border=0 cellpadding=0 cellspacing=1 bgcolor=#8ab105 width=80% align=center>")
response.write ("<tr bgcolor=#FFFFFF align=center>")
response.write ("<td>學生學號</td> ")
response.write ("<td>姓名</td> ")
response.write ("<td>所在院系</td>")
response.write ("<td>性別</td>")
response.write ("<td><font color=red>管理選項</font></td>")
response.write ("</tr>")
    if TeacherList_rs.bof or TeacherList_rs.eof then 
 	   response.Write("<br><font color=red>暫時沒有記錄.</font>")  
	   response.End()
    end If	  
    TeacherList_rs.absolutepage=epage
for i=0 to TeacherList_rs.pagesize-1
    if TeacherList_rs.bof or TeacherList_rs.eof then  exit for' 當數據庫中的記錄數小于for循環中的i的值時，退出for循環
response.write ("<tr bgcolor=#FFFFFF align=center>")
response.write ("<td>"&TeacherList_rs("student_no")&"</td>")
response.write ("<td>"&TeacherList_rs("student_name")&"</td>")
Dim department_id:department_id=TeacherList_rs("department_id")
call Show_teacher_department(department_id,0)'列表中顯示輔導員所在院系的過程調用
response.write ("<td>"&TeacherList_rs("stu_sex")&"</td>")
response.write ("<td><a href=Manage_stu.asp?action=EditTeacher&Teacher_id="&teacherList_rs(0)&"&class_name="&request("class_name")&"&class_id="&request("class_id")&">編輯</a>"&_
"&nbsp;&nbsp;<a onClick=""return confirm('確定要刪除這位學生嗎？');"" href=Manage_stu.asp?action=Dlel_teacher&teacher_id="&teacherList_rs(0)&"&class_name="&request("class_name")&"&class_id="&request("class_id")&">刪除</a></td>")
response.write ("</tr>")
 TeacherList_rs.movenext()
next
response.write ("</table>")
response.write ("<p align=center>")
 '若果是搜索結果列表，則需要改動此處的分頁鏈接
 IF Is_SearchMode=1 then 
response.write ("<a href=Manage_stu.asp?action=ShowSearchResult&teacher_name="&SearchKey&"&page=0&class_name="&request("class_name")&"&class_id="&request("class_id")&">首頁</a>&nbsp;")
response.write ("<a href=Manage_stu.asp?action=ShowSearchResult&teacher_name="&SearchKey&"&page="&epage-1&"&class_name="&request("class_name")&"&class_id="&request("class_id")&">前一頁</a>&nbsp;")
response.write ("<a href=Manage_stu.asp?action=ShowSearchResult&teacher_name="&SearchKey&"&page="&epage+1&"&class_name="&request("class_name")&"&class_id="&request("class_id")&">后一頁</a>&nbsp;")
response.write ("<a href=Manage_stu.asp?action=ShowSearchResult&teacher_name="&SearchKey&"&page="&TeacherList_rs.pagecount&"&class_name="&request("class_name")&"&class_id="&request("class_id")&">末頁</a>")
 Else
response.write ("<a href=Manage_stu.asp?action=showlist&page=0&class_name="&request("class_name")&"&class_id="&request("class_id")&">首頁</a>&nbsp;")
response.write ("<a href=Manage_stu.asp?action=showlist&page="&epage-1&"&class_name="&request("class_name")&"&class_id="&request("class_id")&">前一頁</a>&nbsp;")
response.write ("<a href=Manage_stu.asp?action=showlist&page="&epage+1&"&class_name="&request("class_name")&"&class_id="&request("class_id")&">后一頁</a>&nbsp;")
response.write ("<a href=Manage_stu.asp?action=showlist&page="&TeacherList_rs.pagecount&"&class_name="&request("class_name")&"&class_id="&request("class_id")&">末頁</a>")
End IF
response.write ("<p align=center>現在是第<font color=red>"&epage&"</font>頁一共有<font color=red>"&TeacherList_rs.pagecount&"</font>頁</p>")
'******************分頁代碼結束***************************************** 
 TeacherList_rs.close
 Set TeacherList_rs=nothing
 Call CloseConn()
 %>
</div>
</body>
</html>
<%
end sub
'負責處理添加院系數據的的過程********************************************
sub addTeacher()
    Dim Teacher_rs,Teacher_sql,student_name,student_no,stu_sex,teacher_id,department_id,class_id,student_id,Edit_model
	    Edit_model=request.Form("Edit_model")
    Set Teacher_rs=server.CreateObject("adodb.recordset")
	student_name=HtmlEncode(request.Form("Teacher_name"))
	student_no=HtmlEncode(request.Form("student_no"))
	stu_sex=HtmlEncode(request.Form("student_sex"))
 	department_id=HtmlEncode(request.Form("department_id"))
	teacher_id=HtmlEncode(request.Form("teacher_id"))
	student_id=HtmlEncode(request.Form("student_id"))
	class_id=HtmlEncode(request.Form("class_id"))
If Edit_model=1 then'如果Edit_model=1，則是編輯模式，而不是添加新紀錄，此時無需檢查是否存在相同的記錄,而且要分別書寫SQL語句
	Teacher_sql="select [student_no],[student_name],[stu_sex],[department_id],[teacher_id],[class_id] from [student] where"&_
	 "[student_id]='"&student_id&"'" 
   Teacher_rs.open Teacher_sql,Initialize_Conn,1,3
   	 Teacher_rs("student_name")=student_name
	 Teacher_rs("student_no")=student_no
	 Teacher_rs("stu_sex")=stu_sex
  	 Teacher_rs.Update
  	 Teacher_rs.close
	 Set Teacher_rs=nothing
	 Call CloseConn()
	response.Write("<script>alert('編輯成功，按確定返回.');location.href='Manage_stu.asp?action=showlist&class_name="&request("class_name")&"&class_id="&request("class_id")&"';</script>")
else 
    '下面的代碼是添加新紀錄***************  	
	Teacher_sql="select [student_no],[student_name],[stu_sex],[department_id],[teacher_id],[class_id] from [student] where"&_
	 "[student_no]='"&HtmlEncode(request.Form("student_no"))&"'"
    Teacher_rs.open Teacher_sql,Initialize_Conn,1,3
   if Teacher_rs.eof AND Teacher_rs.bof then
	 Teacher_rs.addnew
   	 Teacher_rs("student_name")=student_name
	 Teacher_rs("student_no")=student_no
	 Teacher_rs("stu_sex")=stu_sex
   	 Teacher_rs("department_id")=department_id
	 Teacher_rs("teacher_id")=teacher_id
	 Teacher_rs("class_id")=class_id
	 Teacher_rs.Update
  	 Teacher_rs.close
	 Set Teacher_rs=nothing
	 Call CloseConn()
	response.Write("<script>alert('數據 成功添加.');location.href='Manage_stu.asp?action=showlist&class_name="&request("class_name")&"&class_id="&request("class_id")&"';</script>")
   else
    Response.Write("<script>alert('對不起，您添加的學號已經存在.');location.href='"&request.ServerVariables("HTTP_REFERER")&"';</script>")
	Call CloseConn()
 end if	
end if	 
end sub
'顯示 院系管理 管理頁面的頂部 公共菜單****************************
sub showTeacherMenu()
response.Write("<div align=""center""><font color=""red"">【</font><a href=""Manage_stu.asp?Action=Add_Student&class_name="&request("class_name")&"&class_id="&request("class_id")&""">添加學生</a><font color=""red"">】</font>&nbsp;&nbsp;<font color=""red"">【</font><a href=""Manage_stu.asp?action=showlist&class_name="&request("class_name")&"&class_id="&request("class_id")&""""">學生管理</a><font color=""red"">】</font>&nbsp;&nbsp;<font color=""red"">【</font><a href=""Manage_stu.asp?Action=InputTeacher&class_name="&request("class_name")&"&class_id="&request("class_id")&""""">搜索學生</a><font color=""red"">】</font><hr width=""420""></div>")
end sub
'刪除院系部門的過程調用********************************************
sub Dlel_teacher()
 Dim teacher_id,Del_teacher_sql
 'Call OpenConn()
  teacher_id=request.QueryString("teacher_id")
  'response.Write(teacher_id)
 Del_teacher_sql="delete from [student] where student_id='"&teacher_id&"'"
 Initialize_Conn.execute(Del_teacher_sql)
 Call CloseConn()
 Response.Write("<script>location.href='Manage_stu.asp?action=showlist&class_name="&request("class_name")&"&class_id="&request("class_id")&"';</script>")

'response.Write("成功刪除。")
end sub
'編輯 院系部門的過程調用********************************************
sub Edit_teacher()
   Call Main(1)
   Call CloseConn()
 end sub
'搜索教師的過程調用,顯示頁面************************************************************
Sub ShowSearchForm() 
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
 <title>思燕Seayan成績查詢系統SQL版本v1.0----現代教學管理信息系統</title>
		<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
		<meta http-equiv="Content-Language" content="gb2312">
		<meta content="all" name="robots">
		<meta content="websvc@163.com" name="author">
		<meta content="版權所有:Seagreen 2005-2008" name="Copyright">
		<meta content="思燕Seayan成績查詢系統SQL版本v1.0, 由 趙海 先生模仿方正教務管理系統開發。" name="description">
		<link rel="icon" href="/favicon.ico" type="image/x-icon">
		<link rel="stylesheet" rev="stylesheet" href="images/main.css" type="text/css" media="all">
 <SCRIPT language="javascript" src="images/Menu.js"></SCRIPT>
<link href="images/my_style.css" rel="stylesheet" type="text/css">
<link href="images/my_style.css" rel="stylesheet" type="text/css">
 <style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style>
<script language="javascript">	
function CheckMyForm() 
{
  if(theForm.teacher_name.value == '') {
    alert('請輸入要搜索的學生的學號！');
     theForm.teacher_name.focus();
    return false;
  }
}
//-->
</script>
</head>
<body onload="document.theForm.teacher_name.focus()" background="axhucj/images/admin_MainBg.gif">
 <iframe src="images/head.htm" frameborder="0" scrolling="no" width="100%" height="59"></iframe>
<div id="menu" STYLE='width:100%'><!--#include file="menu.asp"--></div>
			<div id="welcome">
				<span id="xhxm"><font color="red"> </font></span>
 <table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="22%" height="44">&nbsp;</td>
    <td width="28%">&nbsp;</td>
    <td width="28%">&nbsp;</td>
    <td width="22%">&nbsp;</td>
  </tr>
  <tr>
    <td height="28">&nbsp;</td>

    <td align="center" colspan="2"><%call showTeacherMenu()%></td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td height="62">&nbsp;</td>
    <td align="center" colspan="2" rowspan="2">
   <form name="theForm" id="demo" onSubmit="return CheckMyForm()" method="post" action="Manage_stu.asp?action=ShowSearchResult"> 
       <table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="35"><div align="center">當前班級是:<font color="red"><%=request("class_name")%></font><br><br>請輸入<font color="red">學號</font>(支持學號模糊查詢)：&nbsp;&nbsp; 
                     <input value="" type="text" name="teacher_name" onkeyup="value=value.replace(/[^\d]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))"/> &nbsp;&nbsp;                     
<input type="hidden" name="class_id" value="<%=request("class_id")%>"/>
<input type="hidden" name="class_name" value="<%=request("class_name")%>"/><input type="submit" name="Submit" value="搜索"/> 
  		  </div></td>
        <td width="9%" rowspan="2">&nbsp;  </td>
      </tr>
      <tr>
        <td height="192">&nbsp; </td>
        </tr>
    </table>
	</form>	</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td height="129">&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td height="153" colspan="4">&nbsp;</td>
  </tr>
</table>
</div>
</body>
</html>
 <%
 End Sub
'顯示輔導員所在院系的過程調用************************
Sub Show_teacher_department(id,Show_OR_Edit)''show的意思是數據顯示模式，當要顯示輔導員列表時是show模式，出于要和顯示列表中表格一致的考慮，此時要打印出<td></td>;
'當要修改輔導員的信息是，此時要顯示的是edit模式，只需要根據call傳遞過來的department_id顯示輔導員所在院系的漢字描述；
    Dim ShowSql,ShowRs
	Set ShowRs=server.CreateObject("adodb.recordset")
	 ShowSql="select department_name from [department] where department_id="&id&""
     ShowRs.open ShowSql,Initialize_Conn,1,1
  IF Show_OR_Edit=0 Then
	response.Write "<td>"&ShowRs("department_name")&"</td>"
   else 
	response.Write ShowRs("department_name")
  End if
 	ShowRs.close
	Set ShowRs=nothing
end sub
%>