📄 queryclassroominfo.asp

📁 一个学生选棵系统的毕业论文
💻 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&"&nbsp;&nbsp;<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>
⌨️ 快捷键说明

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