index.asp

来自「与asp相关的技术　如数据库和网页设计 很有用的哦」· ASP 代码 · 共 93 行

ASP
93 行
字号 
<%
If Session("user_type")<>"T" Then
	Response.Redirect "../../../../index.asp"
End If
%>
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<HTML>
<HEAD>
	<TITLE> 课程管理 </TITLE>
		<link rel="stylesheet" href="../../../system/all.css">
</HEAD>

<BODY BGCOLOR="#FFFFFF">
<%
	'函数，计算正式学生，
	private function count_zhengshi(lesson_id)
		sql="select count(user_id) as temp_number from user_lesson where lesson_id = '" & lesson_id & "'"
		sql=sql & " and user_type ='S'"
		set rs2=db.execute(sql)
		count_zhengshi = rs2("temp_number")
	end function
	'函数，计算往届学生
	private function count_wangjie(lesson_id)
		sql="select count(user_id) as temp_number from user_lesson where lesson_id = '" & lesson_id & "'"
		sql=sql & " and user_type ='SP'"
		set rs2=db.execute(sql)
		count_wangjie = rs2("temp_number")
	end function
	'函数，计算旁听学生
	private function count_guest(lesson_id)
		sql="select count(user_id) as temp_number from user_lesson where lesson_id = '" & lesson_id & "'"
		sql=sql & " and user_type ='G'"
		set rs2=db.execute(sql)
		count_guest = rs2("temp_number")
	end function
	'函数，计算未批准人数，
	private function count_wait(lesson_id)
		sql="select count(user_id) as temp_number from user_lesson where lesson_id = '" & lesson_id & "'"
		sql=sql & " and (user_type ='G' or user_type ='S' or user_type ='SP')"
		sql=sql & " and permit = 0"
		set rs2=db.execute(sql)
		count_wait = rs2("temp_number")
	end function
%>
	<h4 align="left">&nbsp&nbsp教务管理</h4>
	<%
	dim user_id,rs,sql
	user_id=session("user_id")
	
	SQL="select lesson.lesson_id,lesson.lesson_name,lesson.open_flag from lesson,user_lesson where user_id = '" & user_id & "'"
	sql=sql & " and lesson.lesson_id=user_lesson.lesson_id"
	sql=sql & " order by lesson.lesson_id"
	SET RS=db.EXECUTE(SQL)
	Dim lesson_id
	lesson_id=rs("lesson_id")
	%>
	<center>

	<center>
	<p>
	<% rs.movefirst%>
	<TABLE border="0"  width="95%">
		<tr>
			<td colspan=6 style="background-color: rgb(255,255,255)">学生管理</td>
		</tr>
		<Tr bgcolor=#E9E9E9 align="center">
			<TD width=30%>课程名称</TD>
			<TD width=12%>正式学生</TD>
			<TD width=12%>往届学生</TD>
			<TD width=12%>旁听学生</TD>
			<TD width=12%>等待批准</TD>
			<TD width=22%>学生情况</TD>
		</Tr>
		<%
		do while not rs.eof
			
			response.write "<tr bgcolor=#E9E9E9 align='center'>"
			response.write "<td>"& rs("lesson_name") & "</td>"
			response.write "<td>"& count_zhengshi(rs("lesson_id")) & "</td>"
			response.write "<td>"& count_wangjie(rs("lesson_id")) & "</td>"
			response.write "<td>"& count_guest(rs("lesson_id")) & "</td>"
			response.write "<td>"& count_wait(rs("lesson_id")) & "</td>"
			response.write "<td><a href='../student/index.asp?lesson_id=" & rs("lesson_id") & "'>学生详细</a></td>"
			response.write "</tr>"
			rs.movenext
		loop
		%>
	</table>

	</CENTER>
</BODY>
</HTML>

index.asp - 源码说明

本页面展示了「与asp相关的技术　如数据库和网页设计 很有用的哦」中的 index.asp 源码文件，采用 ASP 编程语言编写，共 93 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与asp相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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