index.asp

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

ASP
100 行
字号 
<%
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")
	%>
<%
	SQL="SELECT teacher.user_id,teacher.user_name,teacher.email from teacher,user_lesson"
	sql=sql & " where user_lesson.lesson_id='" & lesson_id & "'"
	sql=sql & " and user_lesson.user_id=teacher.user_id"
	sql=sql & " and user_lesson.user_type='TA'"
	SQL=SQL + " order by teacher.user_id"
	SET RS=db.EXECUTE(SQL)
%>
	<p>
	<CENTER>
		<TABLE border="0"  width="95%">
			<tr>
				<td colspan=2 style="background-color: rgb(255,255,255)">助教管理</td>
				<td colspan=3 align=right style="background-color: rgb(255,255,255)"><a href="add_ta.asp?lesson_id=<%=lesson_id%>">添加</a></td>
			</tr>
			<TR bgcolor=#E9E9E9 align="center">
				<TD width=20%>用户名</TD>
				<TD width=20%>姓名</TD>
				<TD width=40%>email</TD>
				<TD width=20%>操作</TD>
			</TR>
			<% 
			dim i
			i=0
			DO WHILE NOT RS.EOF
				i=i+1
			%>
				<TR bgcolor=#E9E9E9 align=center>
					<TD><%=RS("user_id")%></TD>
					<TD><%=RS("user_name")%></TD>
					<TD><a href="mailto:<%=rs("email")%>"><%=rs("email")%></a></TD>
					<TD><a href="delete_ta.asp?user_id=<%=rs("user_id")%>&lesson_id=<%=lesson_id%>">删除</a></TD>
				</TR>
			<%
			RS.MOVENEXT 
			LOOP
			rs.close
			set rs=nothing
			%>
		</TABLE>
	</CENTER>
</BODY>
</HTML>

index.asp - 源码说明

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

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

⌨️ 快捷键说明

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