5.asp

本系统基于WEB

<%
  Dim conn10
  Set conn10=Server.CreateObject("ADODB.RecordSet")
  conn10.ActiveConnection = "DSN=hw;User ID=sa"
  conn10.Source = "select * from dbo.teacher ORDER BY tea_id"
  conn10.CursorType = 0
  conn10.LockType = 1
  conn10.Open()
%>
<tr><td>姓名</td><td>级别</td><td>所在小组</td><td>功能选项</td></tr>
  <% do while not conn10.EOF %>
  <tr>
  <td><% response.Write conn10("tea_name") %></td>
  <td><% If conn10("tea_lv") = 1 Then response.Write ("讲师") End If
  If conn10("tea_lv") = 2 Then response.Write ("教授") End If %></td>
  <td>
  <%
  Dim group5
  group5 = conn10("tea_group")
  Dim conn11
  Set conn11=Server.CreateObject("ADODB.RecordSet")
  conn11.ActiveConnection = "DSN=hw;User ID=sa"
  conn11.Source = "select * from dbo.teacher where tea_group='"&group5&"' ORDER BY tea_lv DESC"
  conn11.CursorType = 0
  conn11.LockType = 1
  conn11.Open()
  do while not conn11.EOF 
  response.Write conn11("tea_name")&"&nbsp;"
  conn11.MoveNext
  Loop
  Set conn11 = Nothing
  %>
  </td>
  <td><a href="change.asp?type=teacher&id=<% response.Write conn10("tea_id") %>">编辑</a> <a href="del.asp?type=teacher&id=<% response.Write conn10("tea_id") %>">删除</a></td>
  </tr>
<%
  conn10.MoveNext
  Loop
  conn10.Close
  Set conn10 = Nothing
%>