1.asp

本系统基于WEB

<%
  Dim conn
  Set conn=Server.CreateObject("ADODB.RecordSet")
  conn.ActiveConnection = "DSN=hw;User ID=sa"
  conn.Source = "select * from dbo.works ORDER BY works_group"
  conn.CursorType = 0
  conn.LockType = 1
  conn.Open()
%>
<tr><td>小组</td><td>题目</td><td>面向专业</td><td>状态</td><td>功能选项</td></tr>
  <% do while not conn.EOF %>
  <tr>
  <td>
  <% 
  Dim group
  group=conn("works_group")
  Dim conn2
  Set conn2=Server.CreateObject("ADODB.RecordSet")
  conn2.ActiveConnection = "DSN=hw;User ID=sa"
  conn2.Source = "select * from dbo.teacher where tea_group='"&group&"' ORDER BY tea_lv DESC"
  conn2.CursorType = 0
  conn2.LockType = 1
  conn2.Open()
  do while not conn2.EOF 
  response.Write conn2("tea_name")&"&nbsp;"
  conn2.MoveNext
  Loop
  Set conn2 = Nothing
  %>
  </td>
  <td><% response.Write conn("works_title") %></td>
  <td><% response.Write conn("works_speciality") %></td>
  <td><% If conn("works_state") = 1 Then response.Write ("审核中") End If
  If conn("works_state") = 2 Then response.Write ("待选") End If
  If conn("works_state") = 3 Then response.Write ("已选") End If %></td>
  <td><a href="change.asp?type=works&id=<% response.Write conn("works_id") %>">编辑</a> <a href="del.asp?type=works&id=<% response.Write conn("works_id") %>">删除</a></td>
  </tr>
<%
  conn.MoveNext
  Loop
  conn.Close
  Set conn = Nothing
%>