6.asp

本系统基于WEB

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