www.gusucode.com > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文) > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文)\ASP+SQL学生排课管理系统\ArrangeCourse\QueryClassroomInfo.asp
<!--#include file="../include/keepHouse.asp"--> <script language="javaScript"> var imgclose=new Image(); imgclose.src="../images/bookicon.gif" var imgopen=new Image(); imgopen.src="../images/openbook.jpg" function changeface2(xdiv,ximg,xbutton){ if (xdiv.style.display=="none" ) { xdiv.style.display="" ximg.src=imgopen.src xbutton.value="简略" } else{ xdiv.style.display="none" ximg.src=imgclose.src xbutton.value="详细" } } </script> <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"--> <% response.write "<table width=750 border=1 align=center cellpadding=0 cellspacing=0 bordercolorlight=#0000dd bordercolordark=#FFFFFF bgcolor=#F0F0F0>" response.write "<tr bgcolor=#99CCFF>" response.write "<td><p align='center'><font size='+1' face='黑体'>查询教室使用情况</font></p></td>" response.write "</tr>" response.write "<tr bgcolor=#99CCFF align=center>" response.write "<tr>" response.write "<td>" BUILDING_ID = request("BUILDING_ID") if BUILDING_ID="" then call trigErr() end if sql="SELECT BuildingInfo.BUILDING_NAME, ClassRoomInfo.CLASSROOM_NAME, " _ &"ClassRoomInfo.PROPERTY,ClassRoomInfo.CLASSROOM_ID " _ &"FROM ClassRoomInfo INNER JOIN " _ &"BuildingInfo ON ClassRoomInfo.BULDING_ID = BuildingInfo.BUILDING_ID " _ &"WHERE BuildingInfo.BUILDING_ID = "&BUILDING_ID call openDB() 'call Debug(sql) rs.open sql,conn,1,1 if rs.eof or rs.bof then call noInfo("没有该教学楼的教室信息!") end if sql1="select * from VIEW_Arrange" set rs1=server.createobject("ADODB.Recordset") rs1.open sql1,conn,1,1 dim Counter dim i i=1 while not rs.eof or err response.write "<table width=750 border=0 align=center cellpadding=0 cellspacing=0>" response.write "<tr bgcolor=#FFFFFF align=center>" response.write "<td width=100>教室"&i&" <a href=javascript:changeface2(DETAIL"&i&",fpimg"&i&",button"&i&")><img id=fpimg"&i&" border=0 src=../images/bookicon.gif width=18 height=17></a></td>" response.write "<td width=250>"&rs("BUILDING_NAME")&rs("CLASSROOM_NAME")&"</td>" response.write "<td width=300>"&rs("PROPERTY")&"</td>" response.write "<td width=100><input class=button type=button value=详细 name=button"&i&" onclick=javascript:changeface2(DETAIL"&i&",fpimg"&i&",button"&i&")></td>" response.write "</tr>" response.write "</table>" response.Write "<div id='DETAIL"&i&"' style='DISPLAY: none'>" 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>" response.write "<td>序号</td>" response.write "<td>课程名</td>" response.write "<td>课程号</td>" response.write "<td>教师名</td>" response.write "<td>课程性质</td>" response.write "<td>学分</td>" response.write "<td>考察方式</td>" response.write "<td>面向专业</td>" response.write "<td>最大选课人数</td>" response.write "<td>开课院系</td>" response.write "<td>教室</td>" response.write "</tr>" while not rs1.eof if rs1("CLASSROOM_ID")=rs("CLASSROOM_ID") then response.write "<tr>" response.write "<td>"&Counter&"</td>" response.write "<td>"&rs1(1)&"</td>" response.write "<td>"&rs1(2)&"</td>" response.write "<td>"&rs1(3)&"</td>" response.write "<td>"&rs1(4)&"</td>" response.write "<td>"&rs1(5)&"</td>" response.write "<td>"&rs1(6)&"</td>" response.write "<td>"&rs1(7)&"</td>" response.write "<td>"&rs1(8)&"</td>" response.write "<td>"&rs1(11)&"</td>" response.write "<td>"&rs1(12)&rs1(9)&"</td>" response.write "</tr>" Counter=Counter+1 end if rs1.movenext wend response.write "</table>" response.Write "</div>" response.Write "<br>" rs1.movefirst rs.movenext i=i+1 wend rs1.close set rs1=nothing call closeDB() response.write "</td>" response.write "</tr>" response.write "</table>" %> <!--#include file="../include/footer.asp"--> </body> </html>