http://bbs.cy0575.cn

演示地址：http://web.cy0575.com/3067

学生信息录入模块:

学生信息录入模块用来输入学生的基本信息,
在录入学生课程 成绩的时候要以此为依据,
当在此没有注册的学生是不能录入成绩的.□:
学生信息查询模块:学生信息查询模块提供了功能提别强大的查询功能，
几乎可以查询到全部想要的信息，按照组合方式，
系统会自动生成ＳＱＬ语句来查询你选择的查询方式，
排序选项中提供了所有的排序方式，如果不选择系统会按照默认的方式进行排序的，显示信息选择项目，可以选择要显示的学生信息，全部不选择系统者显示出全部的学生信息．查询选项中可以组合成自己要查询的方式.基于ASP的B/S网络成绩管理系统模型：湖南农业大学成绩管理 ■程序的优点：系统中大量使用了变量和函数封装以及类来实现，便于程序的结构化设计和 以后的修改，对升级也做了一定的考虑。数据库考虑了access和sql server 2000 可以方便的迁移. ■运行环境:由于程序部分是在asp.net的环境下运行,所以如果是asp空间,部分功能将无法实现:如 Webservice和xml输出Windows 2000, Windows XP, Windows 2003, IIS, Microsoft .net framework SDK 1.1 ■修改历史： 本系统从2005-4-2开始写，到6号程序框架结束。2005-5-1 整理了部分代码，使代码更加容易阅读。删除了网页HTML代码的冗于部分，用了CSS代替2005-5-12 修改[添加学生信息]模块代码为类的封装，添加了一个学生信息类。定义了属性2005-5-12 修改了[学生成绩查询]模块的[打印]选项的显示。使其功能更加强大。2005-5-13 修改了不能批量删除学生信息的错误。2005-6-2 添加了批量增加学生成绩，系信息和学生照片的功能2005-6-5 添加了一个asp.net中的Webservice功能，便于程序的重复利用2005-6-6 修改了数据库并发控制的问题,利用程序来控制用户的编辑列队,增强了数据库的完整行■安装请按: 学生成绩管理系统.msi 1:系统初始帐号：admin 初始密码:admin 2:系统说明： (1) :学生信息查询模块： a:如果要查询全部的学生，请直接点击 “提交信息” 按扭 b:如果要选择查询请输入正确的信息，但是第二个大的选项 “要显示的信息” 这里一定要选中 “学号” 因为查询结果 的输出是以他为主键。 (2):学生成绩查询模块：a:如果要查询全部学生的全部课程成绩，请直接电击 “提交查询” 如果要输出excel请选中execl选项。如果要进入打印页面设置项 请选中 打印选项。(3):学生信息录入模块： a:输入学生学籍信息，只有在这里输入的学生才能录入成绩 (4):院系信息录入模块： a:提供院系结构录入 (5):学生成绩录入模块： a:提供学生成绩录入 (6):课程信息录入模块 a:提供课程信息录入 (7):提供一个webservice接口(student_scord_info.asmx),外面客户端可以调用这个接口进行成绩查询参数student_id--学生的学号返回一个dataset对象,其中表名称为my3：系统基本配置文件(数据库)(conn.asp) 数据库连接文件如下所：请根据自己的数据库配置如下文件 数据库文件位于MDB文件夹下 db.asp sqlmethod参数 1 为数据源默认驱动 2 为SQL SERVER 2000数据源 3 为系统DSN 4 为ACCESS jet.oledb.4.0数据程序驱动 CONST sqlmethod=4 以下是数据库培植项目======= 默认的数据源驱动---1 const pathmdb='mdb/db.asp' sql server 2000配置(sql脚本为sql.sql)---2 const servername='localhost' const uid='sa' const pwd='811002' const database='mydata' 系统dsn数据源---3 const dsn='mydata' ACCESS jet.oledb.4.0数据程序驱动---4const jetmdbpath='mdb/db.asp' 4:系统语言配置 (config.asp) 本系统提供三中语言(简体中文--默认，繁体中文，和英语三种语言) 培植如下： 请更改下面参数:-----Chinaesegb -----Chinaesebg-----English language='Chinaesegb'5:系统基本函数封装页(class.asp) 里面包括了系统用到的函数，请不要乱修改其中的函数参数。以便造成不必要麻烦 6:系统包含了三个类文件 里面参数不要修该，基本用法里面有调用是列 (1)：下 拉 框类------class_select.asp (2): 分 页 类------classfenye.asp (3): 生成excel类-----class_toexecl.asp 7：一个重要文件夹 excel文件夹 请不要删除此文件夹，要不系统会出错8：本系统采用客户端md5加密和服务器端加密 所以在使用的时候请打开客户端脚本运行权限 要不可能登陆不了本系统 9：对于 access数据库数据迁移sql server 2000的方法请自己 查阅本系统帮助文件 10:程序部分代码:'删除学生信息'参数stype'0---为循环删除'1---为SQL语句批量删除function del_student_info(student_id,stype)select case stypecase 0dim arr_student_idarr_student_id=split(student_id)for i =0 to ubound(arr_student_id)student=trim(arr_student_id(i))sql='delete from student_info where student_id = ''& student &'''sql1='delete from scord_info where student_id = ''& student &'''conn.execute(sql)conn.execute(sql1)nextcase 1sql='delete from student_info where student_id in (''& student_id &'')'sql1='delete from scord_info where student_id in (''& student_id &'')'conn.execute(sql)conn.execute(sql1)end selectend functionfunction get_info_kecheng(kecheng_id,stype)'参数kecheng_id为课程编号,以湖南农业大学课程编号为标准'如果不是湖南农业大学这个函数可能要改动'如：10.201s kecheng_id=cstr(kecheng_id)dim yuan_xidim cengci_namedim if_xiou_or select case cstr(left(kecheng_id,2))case '01'yuan_xi='社会科学系'case '02'yuan_xi='理学院' case '03'yuan_xi='植物科技学院'case '04'yuan_xi='资源环境学院'case '05'yuan_xi='动物科学技术学院' case '06'yuan_xi='工程技术学院'case '07'yuan_xi='食品科技学院'case '08'yuan_xi='经济贸易学院' case '09'yuan_xi='职业技术教育学院'case '10'yuan_xi='图书馆'case '11'yuan_xi='教务处' case '12'yuan_xi='体育教学部'case '13'yuan_xi='外语系'case '14'yuan_xi='校医院' end selectselect case cstr(mid(kecheng_id,4,1))case '4' cengci_name='本科课程'case '3' cengci_name='专科课程'case '2' cengci_name='全校公共选修课'end selectselect case cstr(mid(kecheng_id,7,1))case 'B'if_xiou_or='必修'case 'S'if_xiou_or='选修'end selectselect case stypecase 0 '返回全部信息get_info_kecheng= '开课院系:'& yuan_xi &vbcrlf&_'课程层次:'& cengci_name &vbcrlf&_'内部编号:'& cstr(mid(kecheng_id,5,2))& vbcrlf&_'课程类型:'& if_xiou_or case 1 '返回开课院系信息get_info_kecheng=yuan_xicase 2 '返回信息课程层次get_info_kecheng=cengci_namecase 3 '返回内部编号层次get_info_kecheng=cstr(mid(kecheng_id,5,2))case 4 '返回课程类型层次get_info_kecheng=if_xiou_or end select end functionsub check_url_safe(querystr,typ)'参数 querystr 为行如:'page,int,name,str,num,int.....''其中对应的url如：index.asp?page=12&name=rwfwfaf&num=32' int为数字 str为字符'参数 type 为: ' 1为显示错误，0为不显示arrquerystr=split(querystr,',')countarrquerystr=ubound(arrquerystr)erenumber=0dim idim request_valueon error resume nextfor i= 1 to countarrquerystr step 2request_value=request.querystring(arrquerystr(i-1))if arrquerystr(i)='int' thenif not isnumeric(request_value) thenerror=error+arrquerystr(i-1)+'数据类型错误:必须为数字\n'errnumber=errnumber+1end ifend ifif arrquerystr(i)='str' thenif instr(request_value,''')0 thenerror=error+arrquerystr(i-1)+'含有非法字符：请自己检查\n'errnumber=errnumber+1end ifend ifnextif errnumber0 thenselect case typcase 1response.write'alert(''' +error+ ''');'Response.End'response.write(error)case 0response.write'alert(''请不要手动修改参数'');'response.Endend selectend if if err.number0 thenresponse.write(err.description)response.end()end ifend sub