📄 list.asp

📁 本系统基于WEB
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>学生信息列表|毕业设计选题系统</title>
<link href="../css/Style.css" rel="stylesheet" type="text/css" />
</head>

<BODY leftMargin=0 topMargin=0 marginwidth="0">
  <!--#include file=../top.asp-->
  <!--#include file=top.asp-->
<%
Dim group
Dim conn
Set conn=Server.CreateObject("ADODB.RecordSet")
conn.ActiveConnection = "DSN=hw;User ID=sa"
conn.Source = "select * from dbo.teacher where tea_id='"&session("teacher")&"'"
conn.CursorType = 0
conn.LockType = 1
conn.Open()
group=conn("tea_group")
Set conn = Nothing
Dim conn2
Set conn2=Server.CreateObject("ADODB.RecordSet")
conn2.ActiveConnection = "DSN=hw;User ID=sa"
conn2.Source = "select * from dbo.works where works_group='"&group&"' ORDER BY works_state"
conn2.CursorType = 0
conn2.LockType = 1
conn2.Open()
%>
<div align="center"><td><table width="768" border="0" bgcolor="#FFFFFF"><tr><td><div align="left">
选择本组题目的学生详细信息
  <table width="700" border="0">
  <%
  do while not conn2.EOF
  If conn2("works_state") = 3 Then
  Dim conn3
  Set conn3=Server.CreateObject("ADODB.RecordSet")
  conn3.ActiveConnection = "DSN=hw;User ID=sa"
  conn3.Source = "select * from dbo.student where stu_works='"&conn2("works_id")&"'"
  conn3.CursorType = 0
  conn3.LockType = 1
  conn3.Open()
  %>
    <tr>
      <td><% Response.Write(conn2("works_title")) %></td>
      <td><% Response.Write(conn3("stu_speciality")) %> <% Response.Write(conn3("stu_class")) %></td>
      <td><% Response.Write(conn3("stu_name")) %></td>
    </tr>
    <tr>
      <td>电话：<% Response.Write(conn3("stu_tel")) %></td>
      <td>邮件：<% Response.Write(conn3("stu_email")) %></td>
      <td>QQ：<% Response.Write(conn3("stu_qq")) %></td>
    </tr>
  <%
  End If
  conn2.MoveNext
  Loop
  %>
  </table>
</div></td></tr></table></td></div>
  <!--#include file=botton.asp-->
  <!--#include file=../botton.asp-->
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -