文章导航PC6首页软件下载单机游戏安卓资源苹果资源

pc软件新闻网络操作系统办公工具编程服务器软件评测

安卓新闻资讯应用教程刷机教程安卓游戏攻略tv资讯深度阅读综合安卓评测

苹果ios资讯苹果手机越狱备份教程美化教程ios软件教程mac教程

单机游戏角色扮演即时战略动作射击棋牌游戏体育竞技模拟经营其它游戏游戏工具

网游cf活动dnf活动lol周免英雄lol礼包

手游最新动态手游评测手游活动新游预告手游问答

您的位置:首页精文荟萃软件资讯 → 学校教学网站应用设计

学校教学网站应用设计

时间:2004/10/7 18:17:00来源:本站整理作者:蓝点我要评论(0)

这里我们介绍学校教学网站应用设计,包括联考线上查榜系统、学生成绩线上查询系统、线上学校注册选课系统、研讨会线上报名系统、网路教学系统等应用的点子、设计实例、以及详细解说,让您快速地设计出各种学校教学的网站应用。

学校网站资料库应用
教学上使用网站资料库,可以透过Internet、或Intranet提供以下的应用∶
* 联考线上查榜*
* 线上查询成绩单、或出勤状况*
* 线上学校注册选课*
* 研讨会线上报名*
* 网路教学
右上角标示*的应用,本节将提供设计的范例,并详加解说。
执行本章资料库的范例,所用的资料库可为Microsoft Access、Microsoft SQL Server、或Text档案(读者可修改成其他支援ODBC的资料库,详见1-6-5节),须於NT安装IIS 3.0,并於「控制台」中的「ODBC」,新建一个名称为「BookSamp」的资料来源,驱动程式为「Microsoft Access Driver」、「SQL Server」、或「Microsoft Text 驱动程式」。
5-1
联考线上查榜系统
「联考线上查榜系统」,可以透过Internet,提供线上查榜成绩和放榜结果的功能。
放榜时,考生可以透过Internet、或Intranet,连线上学校的「联考线上查榜系统」,输入准考证编号,查询各种考试(譬如联考、研究所、就业考等)放榜的结果,包括成绩、和考取科系等
资讯。
设计实例
让我们执行一个实例。
( 范例 data1.asp 联考线上查榜
若要查询资料,於用户端使用浏览器,浏览本书所附安装於网站伺服器的data1.asp,於「准考证编号」处输入准考证编号後,譬如输入准考证编号123456,按下「查榜」按钮,即可显示查询的结果如下,包括姓名、总分、考上科系∶ 
放榜时,几家欢乐几家愁,也有人落榜的,输入准考证编号123457,显示「没考上」如下∶ 
输入错误的准考证编号时,必须告诉人家,譬如输入准考证编号654321,显示「找不到」如下∶

设计实例详细解说
建立资料表
首先使用Microsoft Access、Microsoft SQL Server 、Text档案、或任何一种支援ODBC的资料库,建立一个资料表School。
使用Microsoft Access建立一个资料表School,如下∶ 

於栏名NAME、ID、SCORE、RESULT分别输入姓名、准考证编号、总分、考上科系,考上科系若为落榜时,输入「X」。
或使用Microsoft SQL Server建立一个资料表School,如下∶ 

或使用Text档案建立一个资料表School,如下∶ 

设计输入表单
接著,设计输入表单form,以让考生输入准考证编号ID1,按下「查榜」按钮submit时,即使用POST的方式将输入资料传送到网站伺服器,并执行於「form action=...」所设定的data1.asp档
案(与form为同一个ASP档案),程式码如下∶

准考证编号:  



网站伺服器执行data1.asp档案,首先经由Request.Form("ID1")取得考生所输入的准考证编号ID1,若ID1非空白时,表示为表单输入所呼叫执行。
查询资料库
使用「Server.CreateObject」建立连线的物件,并使用「Open」开启待存取查询资料库
BookSamp。
再使用SELECT的SQL指令查询资料库的资料,设定SQL指令,查询为ID符合准考证编号Request.Form("ID1")的资料,下个「Execute」指令,即可开始执行存取查询资料库的动作,并将查询结果储存到RecordSets物件RS。
程式码如下∶
<%
IF Request.Form("ID1") THEN
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "BookSamp","sa",""
SQL = "SELECT NAME,ID,SCORE,RESULT FROM School WHERE ID='" & Request.Form("ID1") & 
"'"
Set RS = Conn.Execute(SQL)
%>


查榜结果:

接著,要显示查询的结果了。
首先,由「 IF RS.EOF THEN ...」判断是否找到ID为准考证编号Request.Form("ID1")的资料,若RS.EOF为TRUE,则显示「找不到此准考证编号」。
若RS.EOF为FALSE表示有找到符合查询条件的资料,由「IF RS(3)="X" THEN...」判断第四个栏位(栏位编号由0算起)是否为「X」(表示落榜)。若落榜( RS(3)="X"),则显示「报歉 <%=RS(0) %>, 没考上!」,RS(0)为第一个栏位代表考生的姓名。
程式码,如下∶
查榜结果:

<% IF RS.EOF THEN %>
找不到此准考证编号 <% =Request.Form("ID1") %> ! 
<% ELSE %>
<% IF TRIM(RS(3))="X" THEN %>
准考证编号 <% =Request.Form("ID1") %> 

报歉 <% =RS(0) %>, 没考上!
若考上,则显示考上的结果,包括姓名、准考证编号、总分、考上科系,分别由RecordSets物件的RS(0)、RS(1) 、RS(2)、RS(3) 取得。
RS.Fields.Count表示RecordSets物件的栏位数,由「For i = 0 to RS.Fields.Count - 1」取得RS(i) 各栏位的资料。配合表格的HTML语法,将结果填入表格的各栏位当中。
若还有下一笔资料,使用RS.MoveNext移到下一笔的位置。
程式码,如下∶
<% ELSE %>

准考证编号 <% =Request.Form("ID1") %> 

<% =RS(0) %>, 恭喜您考上 <% =RS(3) %> !

 



姓名
准考证编号
总分
考上科系
 
<% Do While Not RS.EOF %>
 
<% For i = 0 to RS.Fields.Count - 1 %>
<% = RS(i) %> 
<% Next %>

<%
RS.MoveNext
Loop
RS.Close
Conn.Close
%> 
 
<% END IF %> 
<% END IF %>


<% END IF %>
最後,使用RS.Close关闭RecordSet,使用Conn.Close关闭资料库。
全部的程式码,如下∶


联考线上查榜系统


 

联考线上查榜系统 
<%
IF Request.Form("ID1") THEN
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "BookSamp","sa","" 
SQL = "SELECT NAME,ID,SCORE,RESULT FROM School WHERE ID='" & Request.Form("ID1") & "'"
Set RS = Conn.Execute(SQL)
%> 


查榜结果:

<% IF RS.EOF THEN %>
找不到此准考证编号 <% =Request.Form("ID1") %> ! 
<% ELSE %>
<% IF TRIM(RS(3))="X" THEN %>
准考证编号 <% =Request.Form("ID1") %> 

报歉 <% =RS(0) %>, 没考上! 
<% ELSE %>

准考证编号 <% =Request.Form("ID1") %> 

<% =RS(0) %>, 恭喜您考上 <% =RS(3) %> !

 


姓名
准考证编号
总分
考上科系
 
<% Do While Not RS.EOF %>
 
<% For i = 0 to RS.Fields.Count - 1 %>
<% = RS(i) %> 
<% Next %>

<%
RS.MoveNext
Loop
RS.Close
Conn.Close
%>
 
<% END IF %> 
<% END IF %>


<% END IF %> 

 

准考证编号: 

 





学会了吗?

5-2
学生成绩线上查询系统
「学生成绩线上查询系统」,可以透过Internet,提供查询成绩、出勤状况的功能。
家长或学生,可以透过Internet,连线上学校的「学生成绩线上查询系统」,输入学号,查询成绩单、名次。
也可以加上出勤状况的线上查询功能。若学生没有来上课,可自动发E-Mail通知家长。家长可以线上查询家庭作业,以及老师对其子女的建议。家长也可线上留言给老师一些教学上、管教上的建议。
设计实例
让我们执行一个实例。
( 范例 data4.asp 学生成绩线上查询
若要查询资料,於用户端使用浏览器,浏览本书所附安装於网站伺服器的data4.asp,於「学号」处输入学号,譬如输入学号123456後,按下「成绩查榜」按钮,即可显示查询的结果如下,包括姓名、各科成绩、总分∶ 
输入错误的学号时,必须告诉人家找不到,譬如输入学号123123,显示「找不到」如下∶ 
设计实例详细解说
建立资料表
首先使用Microsoft Access、Microsoft SQL Server 、Text档案、或任何一种支援ODBC的资料库,建立一个资料表Student。
於栏名NAME、ID、SCORE1~5分别输入姓名、学号、各科成绩。
使用Microsoft Access建立一个资料表Student,如下∶ 
或使用Microsoft SQL Server建立一个资料表Student,如下∶ 
或使用Text档案建立一个资料表Student,如下∶ 
设计输入表单
接著,设计输入表单form,以让查询者输入学号ID1,按下「成绩查询」按钮submit时,即使用POST的方式将输入资料传送到网站伺服器,并执行於「form action=...」所设定的data4.asp档案(与form为同一个ASP档案),
程式码如下∶

学号: 


网站伺服器执行data4.asp档案,首先经由Request.Form("ID1")取得查询者所输入的学号ID1,若ID1非空白时,表示为表单输入所呼叫执行。
查询资料库
使用「Server.CreateObject」建立连线的物件,并使用「Open」开启待存取查询资料库BookSamp。
再使用SELECT的SQL指令查询资料库的资料,设定SQL指令,查询为ID符合学号
Request.Form("ID1")的资料,下个「Execute」指令,即可开始执行存取查询资料库的动作,并将查询结果储存到RecordSets物件RS。
程式码如下∶
<%
IF Request.Form("ID1") THEN 
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "BookSamp","sa","" 
SQL = "SELECT ID,NAME,SCORE1,SCORE2,SCORE3,SCORE4,SCORE5 FROM Student WHERE ID='" & 
Request.Form("ID1") & "'" 
Set RS = Conn.Execute(SQL) 
%>


查询结果:

接著,要显示查询的结果了。
首先,由「 IF RS.EOF THEN ...」判断是否找到ID为学号Request.Form("ID1")的资料,若
RS.EOF为TRUE,则显示「找不到此学号」。
程式码,如下∶
查询结果:

<% IF RS.EOF THEN %>
找不到此学号 <% =Request.Form("ID1") %> !
若找到ID为学号Request.Form("ID1")的资料,则显示查询结果,包括姓名、各科成绩,分别由RecordSets物件的RS(0)、RS(1)、RS(2)~RS(6) 取得。
总分的计算,由「If Left(RS(i).Name,5) = "SCORE" Then...」判断是否以SCORE为起头的栏位,若是则由「 total = total + RS(i) 」将各科成绩加总起来。RS.Fields.Count表示RecordSets物件的栏位数,由「For i = 0 to RS.Fields.Count - 1」取得RS(i) 各栏位的资料。配合表格的HTML语法,将结果填入表格的各栏位当中。
若还有下一笔资料,使用RS.MoveNext移到下一笔的位置。
程式码,如下∶
<% ELSE %>

学号 <% =Request.Form("ID1") %> 

<% =RS(1) %>, 成绩为下表:




学号
姓名
数学
英文
国文
自然
社会
总分 

<% Do While Not RS.EOF %>

<% 
total = 0
For i = 0 to RS.Fields.Count - 1 
If Left(RS(i).Name,5) = "SCORE" Then
total = total + RS(i)
End If
%>
<% = RS(i) %> 
<% Next %>
<% = total %>

<%
RS.MoveNext
Loop
RS.Close
Conn.Close
%>
 
<% END IF %>
最後,使用RS.Close关闭RecordSet,使用Conn.Close关闭资料库。
全部的程式码,如下∶


学生成绩线上查询系统




学生成绩线上查询系统 
<%
IF Request.Form("ID1") THEN
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "BookSamp","sa",""
SQL = "SELECT ID,NAME,SCORE1,SCORE2,SCORE3,SCORE4,SCORE5 FROM Student WHERE ID='" & 
Request.Form("ID1") & "'"
Set RS = Conn.Execute(SQL)
%>


查询结果:
 
<% IF RS.EOF THEN %>
找不到此学号 <% =Request.Form("ID1") %> ! 
<% ELSE %>

学号 <% =Request.Form("ID1") %> 

<% =RS(1) %>, 成绩为下表:




学号
姓名
数学
英文
国文
自然
社会
总分 

<% Do While Not RS.EOF %>

<% 
total = 0 
For i = 0 to RS.Fields.Count - 1 
If Left(RS(i).Name,5) = "SCORE" Then
total = total + RS(i)
End If
%>
<% = RS(i) %> 
<% Next %>
<% = total %>

<%
RS.MoveNext
Loop
RS.Close
Conn.Close
%>
 
<% END IF %>


<% END IF %> 

 
 
学号: 







5-3
线上学校注册选课系统
「线上学校注册选课系统」,可以透过Internet、或Intranet,提供选修课程、完成注册手续的功能。
学生可以透过Internet、或Intranet,连线上学校的「线上学校注册选课系统」,输入其学号、要选修的课程後,完成注册手续。
选课系统将自动统计每一个选修课程的报名人数,若超过名额,将自动告之,要求学生选修其他的课程。
选修课程时,选课系统提供可以增加、取消、查询选修课程的功能。
学生可以线上查询各选修课程的授课内容简介。
完成注册後,课程时刻表将自动汇集於萤幕上显示、或发E-Mail通知学生。
学费可由信用卡、划拨、或银行转帐来支付。
设计实例
让我们执行一个实例。
( 范例 data15.asp 线上学校注册选课
若要线上学校注册选课,於用户端使用浏览器,浏览本书所附安装於网站伺服器的data15.asp,
於「选修课程」处选择选修课程如婚姻学,於「学号」处输入学号如123456後,按下「选课」按钮,即可显示选课的结果如下,包括学号、选修课程、选课顺序∶ 
选修课程时,若选修的课程已经选过,则重覆选修相同的课程,将显示「已经选过课」如下∶ 

选修课程时,若超过选修课程的50个名额时,则显示「名额已满」如下∶ 
取消选课
选修课程後,可以取消所选修的课程,於「选修课程」处选择待取消选修课程如婚姻学,於「学号」处输入学号如123456後,按下「取消选课」按钮,即可显示取消选课的结果如下∶
若待取消的课程尚未选过,则取消选课时将显示「找不到」如下∶ 
查询选课
选修课程後,可以查询所有选修的课程,仅须於「学号」处输入学号如123456後,按下「查询选课」按钮,即可显示查询选课的结果如下∶ 
查询选课时,若尚未选课,则查询选课时将显示「找不到」如下∶ 

设计实例详细解说
建立资料表
首先使用Microsoft Access、Microsoft SQL Server 、Text档案、或任何一种支援ODBC的资料库,建立一个资料表ClassCount,储存选课人数、和最後选课顺序。
这个资料表系供选课和取消选课时,记录选课人数、和最後选课顺序号码之用。
建立栏位TOTAL、COUNT0、CLASS,分别代表一个选课记录的选课人数、最後选课顺序号码、选修
课程名称。
建立资料表时不必输入资料。
使用Microsoft Access建立一个资料表ClassCount,如下∶ 
或使用Microsoft SQL Server建立一个资料表ClassCount,如下∶ 
或使用Text档案建立一个资料表ClassCount,如下∶ 
尚需要建立另一个资料表ClassReg,储存选课的记录,建立栏位ID、COUNT0、CLASS,分别代表一笔选修课程的学号、选课顺序号码、选修课程名称。这个资料表系供选课、查询选课、和取消选课时,记录所选修课程、和选课顺序号码之用。建立资料表时不必输入资料。
使用Microsoft Access建立一个资料表ClassReg,如下∶ 
或使用Microsoft SQL Server建立一个资料表ClassReg,如下∶ 
或使用Text档案建立一个资料表ClassReg,如下∶ 
设计输入的表单
接著,设计输入的表单form,当学生选择选修课程CLASS1,输入学号ID1,按下「查榜」按钮submit时,即使用POST的方式将输入资料传送到网站伺服器,并执行於「form action=...」所设定的data15.asp档案(与form为同一个ASP档案),程式码如下∶
线上学校选课, 请输入以下资料:


■ 选修课程: 

微电脑

相关阅读 Mac访问Windows共享文件夹Windows 7正版系统验证方法windows 8.1系统版本号查看方法Windows 8.1系统电话激活时无法输入微软返回代码解决方法Windows 8如何调整屏幕分辨率windows8.1磁盘占用100%解决方法Mac双系统如何删除Boot Camp安装的Windows分区Apple教你如何在Mac 上运行 Windows

文章评论
发表评论

热门文章 360随身Wifi 4G版什么怎样提高origin下载速百度收购PPS已敲定!3

最新文章 伊森卡特的消失通关流千牛怎么设置自动回复 增加新功能,S版Moto G喜获Android 4.4.4更鸡肋?谷歌Play Music发布更新版本千牛怎么设置自动回复​千牛云盘怎么用

人气排行 xp系统停止服务怎么办?xp系统升级win7系统方office2013安装教程图解:手把手教你安装与同步推是什么?同步推使用方法介绍QQ2012什么时候出 最新版下载VeryCD镜像网站逐个数,电驴资料库全集利用PHP程序设定防止MySQL注入或HTML表单滥web服务器和应用服务器的区别安卓android 系统支持什么视频格式