ASP547基于ASP结构的二手交易系统.docVIP

ASP524基于ASP学生公寓管理系统 P3.2.2.nbsp;宿舍楼信息管理和宿舍分配/P P图3-3宿舍楼信息管理分配功能体系图BR宿舍楼的添加要包括以下信息：宿舍楼名称，层数和每层楼的房间数，以及房间内的床位数。宿舍楼类型：男或者女。我们在填写完层数和每层的房间数后。系统会自动实现排列房间的名称：如我们设置宿舍楼1栋，层数为2，每层房间数为3，房间床位为4，类型为女，那么系统中就建立起一个女生宿舍1栋，里面1层为101，102，103，二层为201，202，203。删除功能实现的是删除整栋宿舍。BR宿舍楼的修改可以重置宿舍楼名称，层数和每层楼的房间数，以及房间内的床位数。宿舍楼类型。BR宿舍分配功能为分为自动分配和管理员手动分配两种。BR自动分配功能减少了管理员大量的劳动。宿舍分配功能本着相同班级的同学分在相邻的寝室。在一个班级分完后，宿舍没有住满，那么相邻班级的同学补满这个房间后，继续往下分。相同专业，相同系分在相邻宿舍。BR代码实现为：BRconn.execute Update 学生 set BuildNo=0,StepNO=0,RoomNo=0,BedNo=0BRSelectBuildBR列举所有房间BRSub SelectBuild ( )BRDim sSql1BRsSql1=select * from 寝室楼BRSet myRst=server.createobject (ADODB.Recordset)BRmyRst.open sSql1, conn, 1, 1BRWhile not myRst.eofnbsp;nbsp;BRid=myRst (ID) BRStepCount=myRst (StepCount)BRRoomPerStep=myRst (RoomPerStep)BRManPerRoom=myRst (ManPerRoom)BRSex=myRst (Sex)BRFor iStep =1 to StepCountBR循环楼层BRfor iRoom=1 to RoomPerStepBR循环楼房BRFor iBad=1 to ManPerRoomBR循环 床位BRSutendClass ID, iStep, iRoom, iBad, sexBRNextBRNextBRNextBRmyRst.movenextBRWendBRmyRst.close BREnd SubBRSub SutendClass (BuildNo, StepNO, RoomNo, BedNo, sex)BR列举出所有女学生BRDim sSqBRsSq=Select * From 学生 where sex=amp;sexamp; order bynbsp; ClassNo desc BRsSq=select * from 学生 where ClassNo=amp;sID amp; order by sex BRdp sSqBRSet rs=server.createobject (ADODB.Recordset)BRRs.open sSq, conn, 3, 3BRWhil e not rs.eofBRif dolookup(学生,BuildNo,id=amp;Rs(id))=0 thenBRif(dolookup(学生,id,BuildNo=amp;BuildNoamp;and StepNO=amp;StepNOamp;andRoomNo=amp;RoomNoamp; and BedNo=amp;BedNo)amp;)= then BRRs (BuildNo) =BuildNoBRRs (StepNO) =StepNOBRRs (RoomNo) =RoomNoBRRs (BedNo) =BedNoBRrs.updateBREnd ifBREnd ifBRrs.movenextBRwendBRrs.Close ()BREnd subBR手动分配功能：BRIDnbsp;学生名 nbsp;学号nbsp;性别nbsp;所在班级 nbsp;寝室信息nbsp;- 调整寝室 -nbsp;- 清除寝室 - nbsp;- 删除 - BR11nbsp;www nbsp;12nbsp; nbsp;男 nbsp;计算机科学系-计算机科学-2007届-12 nbsp;男生寝室一号楼-楼层:1-房间:1-床位:1 nbsp;[调整寝室] BR[清除寝室] BR[删除] /P P图3-4学生宿舍手动分配界面图BR手动分配功能主要是为了方便个别同学调整寝室的情况。我们选择“调整寝室”功能后，会要求填写要调整到的宿舍的信息，然后提交后实现调整功能。BR如果选择“清除寝室”后，那么在寝室信息一栏中，显示的是暂未分