2.asp

本系统基于WEB

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