7.asp

本系统基于WEB

<tr><td>姓名</td><td>专业班级</td><td>所选题目</td><td>功能选项</td></tr>
<%
  Dim conn14
  Set conn14=Server.CreateObject("ADODB.RecordSet")
  conn14.ActiveConnection = "DSN=hw;User ID=sa"
  conn14.Source = "select * from dbo.works where works_state = '3' ORDER BY works_speciality"
  conn14.CursorType = 0
  conn14.LockType = 1
  conn14.Open()
  do while not conn14.EOF
  Dim WID2
  WID2 = conn14("works_id")
  Dim conn15
  Set conn15=Server.CreateObject("ADODB.RecordSet")
  conn15.ActiveConnection = "DSN=hw;User ID=sa"
  conn15.Source = "select * from dbo.student where stu_works='"&WID2&"'"
  conn15.CursorType = 0
  conn15.LockType = 1
  conn15.Open()
%>
  <tr>
  <td><% response.Write conn15("stu_name") %></td>
  <td><% response.Write conn15("stu_speciality") %> <% response.Write conn15("stu_class") %></td>
  <td>
  <% response.Write conn14("works_title") %>
  </td>
  <td><a href="change.asp?type=student&id=<% response.Write conn15("stu_id") %>">编辑</a> <a href="del.asp?type=student&id=<% response.Write conn15("stu_id") %>">删除</a></td>
  </tr>
<%
  Set conn15 = Nothing
  conn14.MoveNext
  Loop
  conn14.Close
  Set conn14 = Nothing
%>