admin_department.asp

来自「eayanQuery思燕大学成绩查询系统版本 V1.6」· ASP 代码 · 共 335 行 · 第 1/2 页
ASP
335 行
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
</table>
</body>
</html>
<%end sub
sub DepartmentList()
		Response.Write "<html>"
		Response.Write "<head>"
		Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; chaRSet=gb2312"">"
		Response.Write "<title>院系管理</title>"
		Response.Write "<meta HTTP-EQUIV=""Content-Type"" Content=""text-html; charset=gb2312"">" 
		Response.Write "<link href=""images/my_Style.CSS"" rel=""stylesheet"" type=""text/css"">"
 		Response.Write "</head>"
 	    Response.Write "<body background=""images/admin_MainBg.gif"" scroll=no topmargin=""0"" leftmargin=""0"">"
		Response.Write "<br>"
	    Response.Write "<br>"
	    Response.Write "<br>"
  '作用 显示院系的列表
    Call showDepartmentMenu()   '显示页面顶部的菜单
    Dim DepartList_rs,DepartList_sql,page,epage
	Set DepartList_rs=server.CreateObject("adodb.recordset")
 	DepartList_sql="select * from department order by department_id desc"

	DepartList_rs.open DepartList_sql,Initialize_Conn,1,1
'*****************分页代码**********************************
 DepartList_rs.pagesize=15
  page=HtmlEncode(request("page"))
  if page <> "" then
     if isnumeric(page)=false then 
       response.write "<script>alert('非法参数!');history.go(-1);</script>" 
	    'response.Write page
       response.end
     end if
     epage=cint(HtmlEncode(request("page")))
     if epage<1 then epage=1
     if epage>DepartList_rs.pagecount then epage=DepartList_rs.pagecount
  else
     epage=1
  end if
       'DepartList_rs.absolutepage=epage
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>班级数目</td>")
response.write ("<td>专业数目</td>")
response.write ("<td><font color=red>管理选项</font></td>")
response.write ("</tr>")
    if DepartList_rs.bof or DepartList_rs.eof then 
 	   response.Write("<br><font color=red>暂时没有记录.</font>")  
	   response.End()
    end If	  
    DepartList_rs.absolutepage=epage
for i=0 to DepartList_rs.pagesize-1
    if DepartList_rs.bof or DepartList_rs.eof then  exit for' 当数据库中的记录数小于for循环中的i的值时，退出for循环
response.write ("<tr bgcolor=#FFFFFF align=center>")
response.write ("<td>"&DepartList_rs(0)&"</td>")
response.write ("<td>"&DepartList_rs(1)&"</td>")
response.write ("<td>"&DepartList_rs(2)&"</td>")
response.write ("<td>"&DepartList_rs(3)&"</td>")
response.write ("<td>"&DepartList_rs(4)&"</td>")
response.write ("<td>"&DepartList_rs(5)&"</td>")
response.write ("<td><a href=Admin_department.asp?action=Edit_department&department_id="&DepartList_rs(0)&">编辑</a>"&_
"&nbsp;&nbsp;<a onClick=""return confirm('确定要删除这个部门吗？警告！部门下面所管理的所有辅导员,所有班级和所有学生都将被删除');"" href=Admin_department.asp?action=Del_department&department_id="&DepartList_rs(0)&" >删除</a></td>")
response.write ("</tr>")
  DepartList_rs.movenext()
next
response.write ("</table>")
response.write ("<p align=center>")
response.write ("说明: 每页显示<font color=red>15</font>条记录&nbsp;<a href=Admin_department.asp?action=showlist&page=0>首页</a>&nbsp;")
response.write ("<a href=Admin_department.asp?action=showlist&page="&epage-1&">前一页</a>&nbsp;")
response.write ("<a href=Admin_department.asp?action=showlist&page="&epage+1&">后一页</a>&nbsp;")
response.write ("<a href=Admin_department.asp?action=showlist&page="&DepartList_rs.pagecount&">末页</a>")
response.write ("<p align=center>现在是第<font color=red>"&epage&"</font>页一共有<font color=red>"&DepartList_rs.pagecount&"</font>页</p>")
'******************分页代码结束***************************************** 
 DepartList_rs.close
 Set DepartList_rs=nothing
 Call CloseConn()
 Response.Write "</body>"
 Response.Write "</html>"
end sub
'负责处理添加院系数据的的过程********************************************
sub addDepartment()
    Dim Depart_rs,Depart_sql,department_name,teacher_num,student_num,class_num,subject_num,Edit_model
	    Edit_model=request.Form("Edit_model")
    Set Depart_rs=server.CreateObject("adodb.recordset")
	department_name=HtmlEncode(request.Form("department_name"))
	teacher_num=HtmlEncode(request.Form("teacher_num"))
	student_num=HtmlEncode(request.Form("student_num"))
	class_num=HtmlEncode(request.Form("class_num"))
	subject_num=HtmlEncode(request.Form("subject_num"))
If Edit_model=1 then'如果Edit_model=1，则是编辑模式，而不是添加新纪录，此时无需检查是否存在相同的记录,而且要分别书写SQL语句
	Depart_sql="select [department_name],[teacher_num],[student_num],[class_num],[subject_num] from department where"&_
	 "[department_id]='"&HtmlEncode(request.Form("department_id"))&"'"&_
	  "order by department_id desc"
	Depart_rs.open Depart_sql,Initialize_Conn,1,3
   	 Depart_rs("department_name")=department_name  
	 Depart_rs("teacher_num")=teacher_num
	 Depart_rs("student_num")=student_num
     Depart_rs("class_num")=class_num
	 Depart_rs("subject_num")=subject_num
	 Depart_rs.Update
  	 Depart_rs.close
	 Set Depart_rs=nothing
	 Call CloseConn()
	response.Write("<script>alert('编辑成功，按确定返回.');location.href='admin_department.asp?action=showlist';</script>")
else   	
	Depart_sql="select [department_name],[teacher_num],[student_num],[class_num],[subject_num] from department where"&_
	 "[department_name]='"&HtmlEncode(request.Form("department_name"))&"'"&_
	  "order by department_id desc"
	 Depart_rs.open Depart_sql,Initialize_Conn,1,3
   if Depart_rs.eof AND Depart_rs.bof then
	 'Depart_rs.addnew()
  	   If teacher_num="" then teacher_num="0"'如果数目等于零，说明管理员没有填写对应的数目，则设置其数目为零，
 	   If student_num="" then student_num="0"
	   If class_num="" then class_num="0"
	   If subject_num="" then subject_num="0"
	 'Depart_rs("department_name")=department_name  
	 'Depart_rs("teacher_num")=teacher_num
	 'Depart_rs("student_num")=student_num
     'Depart_rs("class_num")=class_num
	 'Depart_rs("subject_num")=subject_num
	 'Depart_rs.Update
	 '这里由于服务器的缘故，使用insert语句来插入数据记录
	 Initialize_Conn.execute "Insert into department(department_name,teacher_num,student_num,class_num,subject_num) values('"&department_name&"','"&teacher_num&"','"&student_num&"','"&class_num&"','"&subject_num&"')"
  	 Depart_rs.close
	 Set Depart_rs=nothing
	 Call CloseConn()
	response.Write("<script>alert('数据已经成功添加.');location.href='admin_department.asp?action=showlist';</script>")
   else
    Response.Write("<script>alert('对不起，您添加的名称已经存在.');location.href='"&request.ServerVariables("HTTP_REFERER")&"';</script>")
	Call CloseConn()
 end if	
end if	 
end sub
'显示 院系管理 管理页面的顶部 公共菜单****************************
sub showDepartmentMenu()
response.Write("<div align=""center""><font color=""red"">【</font><a href=""admin_department.asp"">添加院系</a><font color=""red"">】</font>&nbsp;&nbsp;<font color=""red"">【</font><a href=""admin_department.asp?action=showlist"">所有院系管理</a><font color=""red"">】</font>&nbsp;&nbsp;</div><hr width=""420"">")
end sub
'删除院系部门的过程调用********************************************
sub Del_department()
  Dim department_id,Del_department_sql
  Call OpenConn()
  department_id=request.QueryString("department_id")
  Del_department_sql="delete from [department] where department_id='"&department_id&"'"
  Initialize_Conn.execute Del_department_sql
  Call CloseConn()
 Response.Write("<script>location.href='"&request.ServerVariables("HTTP_REFERER")&"';</script>")
'response.Write("成功删除。")
end sub
'编辑 院系部门的过程调用********************************************
sub Edit_department()
    'Dim Edit_department_sql,Edit_department_rs
    'Call OpenConn()
    'Edit_department_sql="select * from [department] where department_id='"&request.QueryString("department_id")&"'"
    'Set Edit_department_rs=server.CreateObject("adodb.recordset")
    'Edit_department_rs.open Edit_department_sql,Initialize_Conn,1,3
   Call Main(1)
   Call CloseConn()
   
 'Response.Write("<script>alert('编辑成功,按确定返回。');location.href='"&request.ServerVariables("HTTP_REFERER")&"';</script>")
end sub
%>
admin_department.asp - 源码说明

本页面展示了「eayanQuery思燕大学成绩查询系统版本 V1.6」中的 admin_department.asp 源码文件，采用 ASP 编程语言编写，共 335 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。
虫虫下载站收录了大量与成绩查询系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。
⌨️ 快捷键说明

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