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

    <!--
CLIDuringA.asp 
Classroom Information During Arrangeing Course
在排课过程中查询教室信息
-->
<!--#include file="../include/keepHouse.asp"-->
<link href="../include/WebCourseSettlementStyle.Css" rel="stylesheet" type="text/css">
<%
dim BUILDING_ID,CLASSROOM_ID
BUILDING_ID = request("BUILDING_ID")
CLASSROOM_ID = request("CLASSROOM_ID")
if CLASSROOM_ID<>"" then
	session("CLASSROOM_ID")=""
	session("CLASSROOM_ID")=CLASSROOM_ID
	response.Write "教室提交成功"
	response.End
end if
if BUILDING_ID="" then
	response.write "请选择教学楼"
	response.end
end if
sql="SELECT BuildingInfo.BUILDING_NAME, ClassRoomInfo.CLASSROOM_NAME, ClassRoomInfo.CLASSROOM_ID, " _ 
      &"ClassRoomInfo.PROPERTY " _
	  &"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
	response.Write "此教学楼没有教室可以分配使用！"
end if
while not rs.eof or err
	response.Write "<a href=CLIDuringA.asp?CLASSROOM_ID="&rs("CLASSROOM_ID")&">" _
	&rs("BUILDING_NAME")&rs("CLASSROOM_NAME")&"</a>&nbsp;&nbsp;&nbsp;"&rs("PROPERTY")&"<BR>"
	rs.movenext
wend
call closeDB()
%>