QueryBuildingInfo.asp ASP+ACCESS学生排课管理系统毕业设计(源代码+论文) - ASP源码程序

gusucode.com > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文) > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文)\ASP+SQL学生排课管理系统\ArrangeCourse\QueryBuildingInfo.asp

    <!--#include file="../include/keepHouse.asp"-->
<html>
<head>
<title><%=WebName%>-查询教室使用情况</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../include/WebCourseSettlementStyle.Css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="../include/header.asp"-->
<%
	sql="SELECT * FROM BuildingInfo"
	call openDB()
	rs.open sql,conn,1,1
	if rs.eof or rs.bof then
		call noInfo("还没有任何教室信息！")
	end if
	dim Counter
	Counter=1
	response.Write "<table width=750 border=1 align=center cellpadding=0 "_
	&"cellspacing=0 bordercolorlight=#0000dd bordercolordark=#FFFFFF bgcolor=#F0F0F0>"
	response.Write "<tr bgcolor=#99CCFF height=28>" 
	response.Write "<td colspan=3><p align='center'><font size='+1' face='黑体'>查询教室使用情况</font></p></td>"
	response.Write "</tr>"
	response.Write "<tr align=center>" 
	response.Write "<td>序号</td>"
	response.Write "<td>教楼名</td>"
	response.Write "<td>查询</td>"
	response.Write "</tr>"
	while not rs.eof or err
		response.Write "<tr align=center> "
		response.Write "<td>"&Counter&"</td>"
		response.Write "<td>"&rs("BUILDING_NAME")&"</td>"
		response.Write "<td><a href='QueryClassroomInfo.asp?BUILDING_ID="_
		&rs("BUILDING_ID")&"'>点击查询</a></td>"
		response.Write "</tr>"
		Counter=Counter+1
		rs.movenext
	wend
	call closeDB()
	response.Write "</table>"
%>
<!--#include file="../include/footer.asp"-->
</body>
</html>