8.asp

本系统基于WEB

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