3.asp

本系统基于WEB

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