📄 list.asp
字号:
<!--#include file="include/conn.asp"-->
<html>
<head>
<link rel="stylesheet" href="inc/css.css" type="text/css" />
</head>
<body>
<form name="form1" method="post" action="">
<table width="550" border=0 align=center cellpadding=2 cellspacing=1 bordercolor="#799AE1" class=tableBorder>
<tbody>
<tr>
<th align=center colspan=2 style="height: 23px">
<div align="center">
<%
dim sql
sql="select name from college where college_ID=1 "
rs.open sql,conn,3,1
response.Write(trim(rs("name")))
rs.close
set rs=nothing
%>
基本信息</div></th>
</tr>
<tr bgcolor="#DEE5FA">
<td colspan="2" align="center" class=txlrow> </td>
</tr>
<tr align="center" bgcolor="#799AE1">
<td width="6%" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate">
<div align="right">
院系：</div></td>
<td width="9%" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="left">
<%
dim access
set rs=server.CreateObject("adodb.recordset")
access="select * from institute"
rs.open access,conn,3,1
response.Write(rs.recordcount)
rs.close
set rs=nothing
%>
（个）</div></td>
</tr>
<tr align="center" bgcolor="#799AE1">
<td align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="right">专业：</div></td>
<td width="9%" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="left">
<%
dim vb
set rs=server.CreateObject("adodb.recordset")
vb="select * from zhuanye"
rs.open vb,conn,3,1
response.Write(rs.recordcount)
rs.close
set rs=nothing
%>
（个）</div></td>
</tr>
<tr align="center" bgcolor="#799AE1">
<td align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="right">班级：</div></td>
<td width="9%" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="left">
<%
dim a
set rs=server.CreateObject("adodb.recordset")
a="select * from banji"
rs.open a,conn,3,1
response.Write(rs.recordcount)
rs.close
set rs=nothing
%>
（个）</div></td>
</tr>
<tr align="center" bgcolor="#799AE1">
<td align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="right">课程：</div></td>
<td width="9%" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="left">
<%
dim ac
set rs=server.CreateObject("adodb.recordset")
ac="select * from course"
rs.open ac,conn,3,1
response.Write(rs.recordcount)
rs.close
set rs=nothing
%>
（门）</div></td>
</tr>
<tr align="center" bgcolor="#799AE1">
<td align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="right">教师：</div></td>
<td width="9%" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="left">
<%
dim c
set rs=server.CreateObject("adodb.recordset")
c="select * from teacher"
rs.open c,conn,3,1
response.Write(rs.recordcount)
rs.close
set rs=nothing
%>
（位）</div></td>
</tr>
<tr align="center" bgcolor="#799AE1">
<td align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="right">学生：</div></td>
<td width="9%" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="left">
<%
dim b
set rs=server.CreateObject("adodb.recordset")
b="select * from student"
rs.open b,conn,3,1
response.Write(rs.recordcount)
rs.close
set rs=nothing
%>
（位）</div></td>
</tr>
<tr bgcolor="#DEE5FA">
<td colspan="2" align="center" bgcolor="#DEE5FA" class="txlrow"> </td>
</tr>
<tr bgcolor="#DEE5FA">
<td colspan=2 align=center class=txlrow></td>
</tr>
</tbody></table>
</FORM>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -