manage_stu.asp

eayanQuery思燕大学成绩查询系统 版本 V1.6

       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="[e-mail]" 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
%>