ASP排课系统(学校排课,课程表生成,自动排课)-普通
http://www.3q2008.com/soft/1/2007/5322829087.html

归纳起来，好处大约有以下几点：
1． 可以存储历届的排课，安全、高效；
2． 只需一到二名排课录入员即可操作系统，节省大量人力；
3． 可以按照录入人员的输入来自动生成课程表，并尽量减少冲突等情况发生。 排课的设计分析根据实际情况，我们使用原型法（Rapid Prototyping）即以少量代价快速地构造一个可执行的软件系统模型。使用户和开发人员可以较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。此时模块也发展成为最终产品了。
器端要求
2.4.2 ASP简介
2.4.3 ASP的优点
课程周1到周5
一天有10 节课，早上4节，下午4节，晚上2节.同一门课 不能连续两天上，至少要隔开一天 2．老师方面最好连续上课，就是比如一个老师一天要上4节课，最好要早上连续4节，不要早上来2节，晚上来2节。

三、方案论证
1． 实现功能
掌握学校所有的课程和教师的信息。包括每门课程、班级以及任课老师的姓名等信息。
首页可以查询某个班级所生成课程的信息。
可以对一个或多个班级进入配置课表信息，系统根据配置信息直动生成课表。
可以对课程进行变动管理。既可以手工排课，又可以实现自动排序功能。
院系，专业，班级，课程，教师等附属信息为排课进行服务。

里面涉及到一个非常经典的排课算法 使用递归实现 如下的要求
课程周1到周5
一天有10 节课，早上4节，下午4节，晚上2节.同一门课 不能连续两天上，至少要隔开一天 2．老师方面最好连续上课，就是比如一个老师一天要上4节课，最好要早上连续4节，不要早上来2节，晚上来2节。 

设置对应的课程科目信息， 当然每个老师可能会上多节，每个老师可能不是对应班级系部的老师，这点都已经考虑到。

点击对应的生成课表，完成课表的排课，

由于数据库会相对比较大，排课时候使用的是JS加载ASP的方法，减少由于服务器超时而带来的不必要的损失。

<!--#include file="conn.asp"-->

 <%

Dim currentClassNo

'生成课表

sql="SELECT Config.ClassNo FROM Config GROUP BY Config.ClassNo;"

'查询配置的信息

set rs=server.createobject("ADODB.Recordset")

rs.open sql,conn,1,1

while not rs.eof

              Syllabus rs(0)

'调用函数,生成对应的排课脚本加载语句

rs.movenext

wend

rs.Close()

'----------------------- 以上查询出排课计划里的所有班级传入Syllabus函数进行处理

'传入班级号,生成对应的排课数据

Sub Syllabus(ByVal classNo)

    If classno = "" Then Exit Sub

      Response.Write("<script language=""javascript"" type=""text/javascript"" src='jsMakeSyllabus.asp?id="&classNo&"'></script>") & vbCrLf

End Sub

messagebox "生成完毕"

gotourl"viewpk.asp"

%>

以下是排课算法页面,代码分析,算法采用递归方式来满足对应的要求,请查考以下代码的红字标注

<!--#include file="noconn.asp"-->

 <%

Dim currentClassNo

'生成课表

currentClassNo=request("id")

'获取排课的班级信息ID 由对应页面传入,就是此时处理的只是ID对应的班级

Syllabus request("id")

'执行函数

Response.Write("document.writeln(""ok<br>"");") & vbCrLf

'----------------------- 以上查询出排课计划里的所有班级传入Syllabus函数进行处理

'传入班级号,生成对应的排课数据

Sub Syllabus(ByVal classNo)

    If classno = "" Then Exit Sub

    '若传入空,返回

    currentClassNo = classNo

    Dim rst, ssql, st

     ssql="select * from Config where ClassNo="& ClassNo&" order by count desc"

    '查找出配置信息

     '平均天一共多少课时,取整

    conn.execute("delete from 排课计划where classno=" & ClassNo)

    '清除原有的配课计划

    '查询出对应的配置班级信息

   set rst = OpenRst(ssql)

    While Not rst.eof

         rst.movenext()

    End While

    rst.Close()

    rst = Nothing

End Sub

'tinfo teacher id   , ks  count

'ks 课时节数

'kcno  课程号,

'TeacherNo  教师ID

'sct平均每天多少课时