4.asp

本系统基于WEB

<%
  Dim conn7
  Set conn7=Server.CreateObject("ADODB.RecordSet")
  conn7.ActiveConnection = "DSN=hw;User ID=sa"
  conn7.Source = "select * from dbo.works where works_state = 3 ORDER BY works_group"
  conn7.CursorType = 0
  conn7.LockType = 1
  conn7.Open()
%>
<tr><td>小组</td><td>题目</td><td>面向专业</td><td>选题学生</td><td>功能选项</td></tr>
  <% do while not conn7.EOF %>
  <tr>
  <td>
  <% 
  Dim group4
  group4=conn7("works_group")
  Dim conn8
  Set conn8=Server.CreateObject("ADODB.RecordSet")
  conn8.ActiveConnection = "DSN=hw;User ID=sa"
  conn8.Source = "select * from dbo.teacher where tea_group='"&group4&"' ORDER BY tea_lv DESC"
  conn8.CursorType = 0
  conn8.LockType = 1
  conn8.Open()
  do while not conn8.EOF 
  response.Write conn8("tea_name")&"&nbsp;"
  conn8.MoveNext
  Loop
  Set conn8 = Nothing
  %>
  </td>
  <td><% response.Write conn7("works_title") %></td>
  <td><% response.Write conn7("works_speciality") %></td>
  <%
  Dim wid
  wid=conn7("works_id")
  Dim conn9
  Set conn9=Server.CreateObject("ADODB.RecordSet")
  conn9.ActiveConnection = "DSN=hw;User ID=sa"
  conn9.Source = "select * from dbo.student where stu_works='"&wid&"'"
  conn9.CursorType = 0
  conn9.LockType = 1
  conn9.Open()
  %>
  <td><% response.Write conn9("stu_speciality") & conn9("stu_class") &" "& conn9("stu_name") %>
  <% Set conn9 = Nothing %>
  </td>
  <td><a href="change.asp?type=works&id=<% response.Write conn7("works_id") %>">编辑</a> <a href="del.asp?type=works&id=<% response.Write conn7("works_id") %>">删除</a></td>
  </tr>
<%
  conn7.MoveNext
  Loop
  conn7.Close
  Set conn7 = Nothing
%>