试卷生成系统论文
目 录
任务书
摘要
Abstract
1.1 课题背景 .............................................................. 0
1.1.1 概述 .............................................................. 0
1.1.2 背景 .............................................................. 0
1.1.3 国内外发展现状 .................................................... 1
1.2 课题提出 .............................................................. 2
1.3 系统文件结构 .......................................................... 2
2．需求分析 . ................................................................ 5
2.1 系统开发目的 .......................................................... 5
2.2 系统功能要求 .......................................................... 5
2.3 系统界面要求 .......................................................... 5
3．系统总体设计 . ............................................................ 6
3.1 系统总体结构 .......................................................... 6
3.2 试题管理子系统 ........................................................ 7
3.3 新闻发布子系统 ........................................................ 7
3.4 各个表的基本信息 ...................................................... 9
4 系统详细设计及实现 . ...................................................... 11
4.1 新闻浏览检索模块 ..................................................... 11
4.2 新闻添加界面 ......................................................... 11
4.3 类别管理 ............................................................. 12
4.4 管理员权限 ........................................................... 13
4.5 卷生成系统用户登录 ................................................... 13
4.6 试题选择界面 ......................................................... 14
4.7 提交保存 ............................................................. 15
4.8 后台用户管理 ......................................................... 15
4.9 添加试题 ............................................................. 16
4.10 试题列表 ............................................................ 16
4.11 分类试题 ............................................................ 17
附
1． 综述
1.1 课题背景
1.1.1 概述
数据结构试卷生成系统，适合于某一专业的课程网站，可以发布信息，通知公告，介绍前沿动态，同时具备试卷生成功能，适用于教师出卷，也适于课程学习者自测，具有很强实用性。
1.1.2 背景
信息时代的今天，传递和获取信息的途径越来越多，其中网络以其跨时间，跨地域以及快速、高效，低成本的显著特性己经成为信息传递和信息获取的主要途径，而如何把信息以更快、更具表达力地发布到网上己经成为各单位部门急需解决的问题。其中新闻发布系统(News Release system)是上个世纪九十年代互连网技术发展以后才出现的技术，最初表现是解决网站的信息动态发布而开发，最初只是简单的发布和显示，应用对于各种不同的站点需要构建不同的系统来满足需要，而且功能单一，在九十年代后期，互连网技术进一步发展，网络作为新起的新闻媒介工具，其用户大大增加，对系统的要求也越来越高，新闻发布系统在这样的一个环境中提出、开发、并改进，到现在，新闻系统开发的成功案例己经不计其数，而且己经应用到各种站点上，可以说，各行各业的绝大部分的网站都使用到了新闻系统，大量的用户引发了新闻系统功能的进一步扩大和深化，给新闻系统提出了更高的要求。
计算机技术的高速发展，对教育的管理模式、教学模式带来了巨大的影响，教育要适应未来社会的需要，就要有新的教育思想，新的教育理论。计算机辅助教学的产生与发展对促进教育、教学技术的变革与发展具有巨大的推动作用。考试是教学管理中一个重要的环节，而出卷是考试的重点，出卷如果仍然采用传统的手工方式就很难跟上时代的步伐，利用计算机辅助试卷生成已成为当今非常热门的话题。考试不仅要对学生的学习情况进行评价，而且还要对任课老师的教学质量进行评价，为了使评价公正、准确，需要合理的组卷。传统的手工出卷是教师根据教学大纲、教材要求或所讲授的内容来手工命题组卷，采用这种方式出卷需要根据许多教师多年的教学经验，经过反复推敲，才能完成一份比较满意的试卷。而且组织试卷这一过程是一项非常繁重的脑力劳动，从收集资料到试题的选取、试题分值的设置等工作非常烦琐。采取传统的手工出卷，存在一些弊端。由少数任课老师凭借经验出卷，考试前有些学生总爱向任课老师打听考试的重点，有些任课老师也习惯在考前给学生划重点，而且手工出卷在试卷的标准化程度、题量大小、覆盖面等方面都难以控制，不可避免由不同老师出卷而产生试题的难度、重点、内容的差异，这样的试卷很难做到考试的公平性、合理性，不利于对教学质量的统一评估。有些学校的评价为了避开任
课老师，经常请一些没有任课的老师来命题，这样经常会出现试卷过难或过易的情况，使评价失去原有的意义。
实践证明，使用计算机辅助试卷生成系统具有许多优越性，归纳起来主要有以下几点：
(1)提高了考试工作的科学性和严肃性，使考试工作更加规范化，促进了教学管理水平的不断提高。
(2)使用试卷生成系统大大地缩短了命题时间，可以减轻教师的负担。试卷生成系统可以根据用户要求，随时输出一套套试卷，从而减轻了教师的负担。
(3)使用试卷生成系统可以提高试卷的质量。试题库中的每一道题，我们都可以事先进行主观预测或样本测试，很多指标(如难度、区分度等) 都有确定的参数，从而可以做到心中有数，且题量多，覆盖面宽，有一定的准确性和科学性，生成的试卷能够测出学生较真实的成绩。
(4)使用试卷生成系统有助于调动教师的积极性，提高教学质量和教学管理水平。因为用试卷生成系统来生成试卷，试题库中每道试题被命中的几率是相等的，因此可以做到公正无私，而且改变了以前谁授课谁命题以及划范围、定重点的做法，促进教师严格按教学大纲进行教学，努力上好每一堂课，强化教师之间的竞争意识。
1.1.3 国内外发展现状
国外发展现状美国是目前远程教育规模最大的国家。44%的高等学校向全社会提供各种远程教育，接受远程高等教育的学生约占全日制在校学生的32%，此外，还有21%的高校计划在今后3年内开展远程教育。远程教育开设的学历、学位课程数达到4.9万个，基本覆盖了美国高等学校的所有学科和专业。到1998年，以互联网为主要手段开展远程教育的高校占60%左右，比3年前增长了3倍，其余学校也将在3年内开始利用互联网开展远程教育。著名的哈佛大学今年开设24门远程教育课程，只要可以上网，学生在世界任何一个地方都可以加入课堂并发表意见。而麻省理工大学则将于2001年开始推广电子课本，这将使远程教育的学员获得可以随时更新的多媒体教材。英国于今年2月，英国高等教育基金理事会(HEFCE)拟订了一个雄心勃勃的"E-University ”计划，要整合英国各大学的力量，建立一所网上大学。
在我国，远程教育也正在如火如荼的展开，从CNNIC(中国互联网络信息中心) 近五年调查情况，我们可以看出，我国上网计算机数、上网用户及CN 下注册域名几乎每半年以翻一翻的速度在增长，带宽也逐年扩大。近五年内，我国的互联网正以欣欣向荣的姿态日渐走向成熟。根据统计，以EDU 域名注册的网站相对以COM 域各注册的网站而言要少的多，但也以每半年增加100家左右的速度向上攀升。
但是我国正处于教育供需矛盾突出阶段，教育软件严重不足，教师资源短缺，学习人数逐年快速增长。依靠传统的教育方式已不能满足教育的飞速发展，教育信息化能够突破教育环境的时空限制，把外部世界引入课堂，使学生获得与现实世界较为接近的体验。教育信息化为我们展示了未来教育的美好前景。知识的共享与共建思想，ADL(高级分布式学习) 思想的提出及数字化信息资源网的建设趋势，都促使我们尽快研制一种学习系统满足
社会对知识信息的需求. 为了解决校园网络教育资源系统的不完善，不统一，积极利用网络资源，完善教育手段，最大限度地发挥教师资源，最佳配置教学内容:提供尽可能简单的、统一的界面，为学习者和管理者带来方便，为现代信息社会培养更多高素质人才。
1.2 课题提出
高校教务管理工作中一项非常重要的工作就是考试管理工作，每学期各专业考试，从组织出卷到试卷的印制及试卷的管理等工作非常繁琐且工作量很大，这种组织管理方式不仅工作任务繁重而且试卷的标准化程度、难易程度、题量大小等各方面难以控制，难以形成有效的试题库，不利于充分发挥历年来的优秀试题及试卷的作用，给试题和试卷的管理带来很多问题和困难。鉴于这种情况，利用计算机进行试卷的自动生成并逐步积累形成有效的试题库，对试题和试卷的管理将变的高效而便捷，对提高工作效率，使试卷管理逐步走向正规化自动化将起到十分重要的作用。
课程改革后，一本教材统天下的局面已不复存在。于是，不同版本多样化的教材，辅导资料应运而生。各个学校不再使用单一固定的教材，那么学校原有的教学思路，方案也要随之进行改革。新课标明确每个阶段的学习目标，至于学什么、学多少、怎么学，没有做具体规定，所以对每一个学校首先需要结合自己本身的条件制定向适应的标准，选择向适应的教材与辅导资料。目前，市场上的各类资料特别多，特别杂，内容水平上更是褒贬不一、参差不齐，所以很难找到一套适合自己学校教师教学，学生学习的材料。除此以外，教务管理工作中一项非常重要的工作就是考试管理工作，每学期各学科考试，从组织出卷到试卷的印制及试卷的管理等工作非常繁琐且工作量庞大，这种方式不仅工作任务繁重而且试卷的标准化程度、难易程度、题量大小等各方面难以控制，难以形成针对本校学生的试卷，给出卷工作和试卷管理带来很多问题和困难，不利于学生暴露学习中的不足，也不利于老师把握学生对知识了解的情况。
鉴于这种情况，利用计算机的快速计算、网络的资源共享和数据库的信息维护三者的优势，综合新课标、各辅导资料，以及学校教学特点，将各科习题、资料进行有效的整理和总结，形成适合本校教学的教学资源信息库，使学校的教学资源可以取百家之所长，使得教学更具备针对性，让出卷工作和试卷管理变得高效而便捷，对提高工作效率，使试卷管理逐步走向正规化、自动化将起到十分重要的作用。
1.3 系统文件结构
本系统涉及用户以及用户操作页面均在系统根目录下，涉及到管理员操作的页面放在Admin 目录下面，系统文件结构如下：
新闻发布系统：
ROOT 页面介绍
| index.asp 首页
| conn.asp 数据库连接文件
| list.asp 新闻列表
| query.asp 新闻检索
| redir.asp 点击率
Admin
| add_admin.asp 添加管理员
| add_class.asp 添加新闻类别
| add_news.asp 发布新闻内容
| index.asp
| list_admin.asp
| list_class.asp
| list_news.asp
| login.asp
| logout.asp
| news.js
| save_admin.asp
试卷生成系统
|---------root
| index.asp
| checkcookie.asp
| fso.asp
| login.asp
| chkadmin.asp
| suiji.asp
| testanswer.asp
| testexam.asp
| xuanti.asp
|--------- Admin
| adduser.asp
| admin_basic.asp
| admin_index.asp
| admin_login.asp
| admin_menu.asp
| admin_save.asp
| admin_userr.asp
| conn.asp
| deleteuser.asp
| exam_fsofile.asp
| Logout.asp 管理员登陆首页 管理员列表 新闻类别列表 新闻内容列表 管理员登陆 管理员退出 发布新闻内容脚本 管理员信息保存 页面首页 检查用户是否登陆文件管理 用户登录界面 接收管理员登陆 系统随机选题 生成word 答案 生成word 试题 用户提交要求 用户注册页面 页面基本显示 管理员首页 管理员登陆 管理菜单 管理员保存 用户管理 数据库连接 删除用户界面 文件管理 退出登录
| question_add.asp 试题添加
| upfile.asp 上传文件
| question_admin_fenlei.asp 章节输入
| question_admin_list.asp 所有试题列表
| question_admin_list2.asp 按章节显示
| question_admin_up.asp 试题编辑保存
| question_admin_update.asp 试题编辑修改
| question_delete.asp
| seeadmin.asp
| template.asp
| upfile.asp
| upload.asp
| usersave.asp
|---------images
|---------images
|---------db
| exam.bak 试题删除 察看管理员 样式模板 上传文件 上传提交 用户保存 图片目录 网站图片目录 网站数据库目录 数据库备份文件
2．需求分析
2.1 系统开发目的
本系统的目标是：形成试题库并能够按预定要求自动生成试卷，添加各类新闻。
1、按预定要求全自动生成方式：只需给出必要的组卷要求信息（试卷所含试题类型，如选择题、填空题、简答题等，各题型题数或分值），确认无误后，即可自动生成试卷。
２、按预定要求建立新闻分类：跟据分类输入新闻标题，作者，内容，并可以通过检索和按分类查找新闻。
试题库也是本系统的一个重要的目标，试题可由历年的试卷提供，也可随时补充新的试题，逐步完善形成试题库系统并提供随机检索试题的各种必要的方法。
2.2 系统功能要求
1、试题录入：试题库按专业分别建立，同一专业的各门课程试题混合存放在试题库中，检索或生成试卷时，按专业代码加课程代码搜索本课程试题，录入工作可集中进行也可随时进行，录入过程中可方便地编辑或增、删试题，试题录入过程也包括参考答案或评卷答案的录入，可同时进行也可单独进行。
2、新闻录入：可以根据新闻大小类别进行录入，录入过程可以插入图片声音等多媒体信息。
3、信息检索：可以根据新闻标题内容，对所有信息进行检索，找到需要的信息。
4、试题检索：试题检索过程中提供按专业课程进行的各种检索方法，包括：全部浏览、浏览必选题、浏览复习题、浏览已生成的试卷、按题型浏览、按难度等级浏览等检索功能，如需要也可同时浏览相关试题的答案部分。
5、试卷生成：提供按章节，难度、出题数量自动生成功能，同时提供生成试卷对应答案的功能。
6、后台管理员信息管理：登录、添加新管理员、删除管理员等。
7、后台用户信息管理：查询用户信息、修改前台用户资料等。
2.3 系统界面要求
在计算机软件技术中，人机界面已经发展成为一个重要的分支。人机界面设计一般遵循以下一些基本原则：以通信功能作为界面设计的核心、人机界面设计的关键是使人与计算机之间能够准确地交流信息。一方面，人向计算机输入信息时应当尽量采取自然的方式：另一方面，计算机向人传递的信息必须准确，不致引起误解或混乱。另外，不要把内部的处理、加工与人机界面混在一起(人机界面程序只是通信) ，以免互相干扰，影响速度。设计时，针对每一个功能，都要按照模块化思想，使输入、处理与输“泾渭分明”，充分体现人机界面的通信功能。这样设计出来的程序不易出错，而且易于维护，. 界面必须始终一致。统一的人机界面不至于会增加用户的负担，让用户始终用同一种方式思考与操作。有显著的提示图标或文字。让用户可以清楚地知道怎么去操作一个陌生的网页。
3．系统总体设计
3.1 系统总体结构
图3.1总体结构
3.2 试题管理子系统
该子系统是对试题库资源进行维护、管理和修改的应用平台，它主要包括:
1、试题录入-----试题的手工录入，修改，试题难度，章节标记，分数标记.
2、题库管理-----试题的增加，修改，删除等。
3、智能组卷-----按题型，章节，题目的难度标记等条件自动组成一张试卷。
4、word 生成-----为方便用户使用，直接保存为word 文档，方便打印使用。
5、管理员信息管理-----管理的增加，删除，修改。
6、用户信息管理-----学生的信息注册，删除，修改。
7、数据库表维护-----扩充数据库中表格的资源等，可以灵活的扩充资源，使平台具有可扩展性。
3.3 新闻发布子系统
该子系统是对新闻信息资源进行维护、管理和修改的应用平台，它主要包括
1、新闻分类：信息的一二级类别设定，添加，修改以及删除等操作
2、新闻录入：按信息的所属类别进行添加，修改，删除等，每个新闻保存为.html 格式放入文件夹，浏览时根据要求显示。
3、新闻检索：根据信息类别或信息标题对所有信息进行查找。
用户登录流程图如图3.2所示：
图3.2用户登录
组卷流程图如下图3.3[1]所示：
图3.3组卷流程图
试卷生成系统功能模块如图3.4[2] 所示：
图3.4系统功能
3.4 各个表的基本信息
①．用户基本信息表User_Info
用户信息表用来记录用户的一些基本信息，如表3.1所示：
②．管理员信息表Admin
与用户信息表类似，管理员信息用来保存管理员的基本信息，如表3.2所示： ③. 新闻分类主分类表bClass
用来保存新闻信息分类，如表3.3所示： ④. 新闻分类小类表Class
用来保存新闻信息一级下的二级分类，如表3.4所示：
⑤. 新闻内容表Class
用来保存新闻信息一级下的二级分类，如表3.5所示：
⑥. 试题内容表Question
用来保存新闻信息一级下的二级分类，如表3.6所示：
4 系统详细设计及实现
4.1 新闻浏览检索模块
本系统可以做为某个课程的网站，进入新闻发布系统，可以将业内新闻，前沿动态，
以及课程介绍，一些复习资料以新闻格式放在网页上，下图为新闻发布首页，我们可以直接察看，也可按信息标题检索一些内容，信息按分类显示。如图4.1所示：
图4.1 新闻浏览
4.2 新闻添加界面
按分类将新闻内容保存，保存后每条新闻将保存为.html 格式，浏览时将调用这个页面，如图4.2所示：
图4.2新闻信息添加
4.3 类别管理
在进行新闻信息添加之前，先要设置好分类，主类别及子类别，如图4.3所示：
图4.3新闻类别管理
4.4 管理员权限
管理员权限，分为三级，3是最高的，具备所有权限，可以管理其他管理员。2次之，可以添加，编辑和删除试题；1，最低，只可以添加试题，无其它权限，如图4.4所示：
图4.4管理员权限
4.5 卷生成系统用户登录
试卷生成系统的登陆首页，已经注册的用户可直接登录，未注册的用户可以在此进行注册。如图4.5所示：
图4.5 试卷系统登录
4.6 试题选择界面
试卷中试题的自动选择，用户需要先提交一下自己关于试题范围，试题难度，尸体数量的信息，让后让系统根据要求随机选择。界面如图4.6所示：
图4.6 提交选项
本功能实现的关键代码：
Nandu=trim(request.form("Nandu"))
Zhangjie=trim(request.form("Zhangjie "))
sql = "select top 10 * from [Question] where QuestionType='单项选择' and nandu= "&nandu&" and Zhangjie= "&zhangjie&" order by NEWID() " set rs1 = conn.execute(sql) dim k
dim myArray(20) k=0
do while not rs1.eof and not rs1.bof myArray(k) = rs1("QuestionId")
response.write "" rs1.movenext k = k + 1 loop
rs1.close
set rs1 = nothing
%>
4.7 提交保存
当用户将所选择好的要求提交，点击生成试卷，系统将出现word 文档试题下载，同理也将相应的答案一并保存。如图4.7所示：
图4.7提示保存
4.8 后台用户管理
将注册过的所有用户列出，可以对用户进行管理删除操作，如图4.8所示
图4.8用户管理
4.9 添加试题
按照试题类型，章节，试题难度，附带答案一并保存，试题可以附带多媒体信息 答案中可以插入图片，满足各种试题要求。如图4.9所示：
图4.9添加试题
4.10 试题列表
将试题库中试题关键字段，按类型，题号依次显示，如图4.10所示：
图4.10试题列表
4.11 分类试题
可以按照试题所属章节，查找试题，对其进行重新编辑，修改，删除等操作 如下图4.11所示：
图4.11分类查找试题
附录
新闻发布系统 list.asp
52w.net Newsboy Sample Page
|
' 新闻主类别列表 sql="SELECT bClassID,bClassName FROM bClass ORDER BY bClassID ASC" set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,3,1 if rs.eof then response.write"暂无分类" else do while not rs.eof response.write href=list.asp?bClassID="&rs(0)&">"&rs(1)&" | " rs.movenext loop end if %> 试卷生成系统 | |
|||
|
' 新闻列表 dim PgSz,total,page,RowCount,qu,record,classID,bClassID classID=request.QueryString("classID") bClassID=request.QueryString("bClassID") if bClassID="" then bClassID=1 end if set rs=Server.CreateObject("ADODB.Recordset") if classID="" then sql="SELECT newsID,title,classID,dt FROM news WHERE bClassID='"&bClassID&"' ORDER BY newsID DESC" else sql="SELECT newsID,title,classID,dt FROM news WHERE bClassID='"&bClassID&"' and classID='"&classID&"' ORDER BY newsID DESC" end if rs.open sql,Conn,1,1 if rs.RecordCount=0 then response.write" 暂无新闻 " record=rs.recordcount PgSz=15 '每页显示的新闻数量 rs.PageSize = Cint(PgSz) total=int(record/PgSz*-1)*-1 page=Request("page") if page="" Then page = 1 else page=page+1 page=page-1 end if if page page=1 end if rs.absolutePage = page dim start start=PgSz*Page-PgSz+1 sub showpage() if page > 1 Then response.write href=list.asp?bClassID="&bClassID&"&classID="&classID&"&page="&page-1&" class=1>上一页 " else response.write "上一页 " end if if RowCount = 0 and page Total then response.write href=list.asp?bClassID="&bClassID&"&classID="&classID&"&page="&page+1&" class=1>下一页" else response.write "下一页" end if response.write" 共"&record&"条新闻，分"&total&"页" end sub response.write"
dim dt,mydate dt=rs(3) if len(month(dt)) mydate=year(dt)&"0"&month(dt) " else mydate=year(dt)&month(dt) end if do while not (rs is nothing) rowCount = rs.PageSize do while Not rs.eof and rowcount>0 '新闻条目输出样式 response.write" " RowCount=RowCount-1 loop set rs=rs.nextrecordset loop response.write" " showpage end if set rs=nothing %> |
|||
|
sql="SELECT classID,className FROM class WHERE bClassID="&bClassID&" ORDER BY classID ASC" set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,3,1 if rs.eof then response.write" 暂无子分类 " response.write"
do while not rs.eof response.write " " rs.movenext response.write" " rs.close set rs=nothing %> |
|
|
|
conn.close
set conn=nothing
%>
body>
addclass.asp 添加新闻类别
if session("lev")
response.write""
response.end
end if
%>
dim cmd,rs,sql,classID,bClassID,className,bClassName,templateName,item cmd=request.QueryString("cmd")
classID=request.form("classID")
bClassID=request.form("bClassID")
className=request.form("className")
bClassName=request.form("bClassName")
templateName=request.form("templateName")
item=request.QueryString("item")
if cmd="add" then
if item="bClass" then
conn.execute("INSERT INTO bClass
('"&bClassName&"')")
conn.close
set conn=nothing (bClassName) VALUES
response.redirect"add_class.asp"
end if
if item="class" then
conn.execute("INSERT INTO class (className,bClassID,templateName) VALUES ('"&className&"',"&bClassID&",'"&templateName&"')")
conn.close
set conn=nothing
response.redirect"add_class.asp"
end if
end if
%>
管理员新闻发布系统
| 增加类别: | |||||||||
|
addnews.asp 新闻内容录入 if session("lev") response.write"" response.end end if dim cmd,frmAction cmd=request.QueryString("cmd") if cmd="" then frmAction="add_news.asp?cmd=add" else frmAction="list_news.asp?cmd=edit&newsID="&request.QueryString("newsID") end if if cmd"" then dim title,bClassID,classID,contents,templateName,newsID,Writer,editWriter,editCon tents dim rs,sql,fso,ts,path,mydate,dt title=replace(request.form("title"),"'","''") classID=request.form("classID") contents=request.form("contents") end if %> if cmd="add" then set rs=conn.execute("SELECT templateName,bClassID FROM class WHERE classID="&classID) templateName=rs(0) bClassID=rs(1) conn.execute("INSERT INTO news (title,bClassID,classID,dt) VALUES ('"&title&"','"&bClassID&"','"&classID&"','"&now()&"')") if len(month(date)) mydate=year(date)&"0"&month(date) else mydate=year(date)&month(date) end if set rs=conn.execute("SELECT TOP 1 classID="&classID&" ORDER BY newsID DESC") newsID=rs("newsID") set rs=nothing newsID FROM news WHERE conn.close set conn=nothing path=server.MapPath("../documents/"&mydate) set fso=server.CreateObject("Scripting.FileSystemObject") if fso.FolderExists(path)=false then fso.CreateFolder(path) end if path=path&"/"&newsID&".shtml" if request.form("htmlmode")1 then contents=ubb(request.form("contents")) else contents=request.form("contents") end if set ts=fso.OpenTextFile(path,2,true,-2) ts.writeline"" ts.writeline"
" " "
" ts.close set ts=nothing set fso=nothing response.redirect"add_news.asp" response.end elseIf cmd="edit" then set rs=conn.execute("SELECT dt FROM news WHERE newsID='"&request.QueryString("newsID")&"'") if rs.eof then response.write"" response.end end if dt=rs(0) set rs=nothing if len(month(dt)) mydate=year(dt)&"0"&month(dt) else mydate=year(dt)&month(dt) end if path=server.MapPath("../documents/"&mydate&"/"&request.QueryString("newsID")&".shtml") set fso=server.CreateObject("Scripting.FileSystemObject") if fso.FileExists(path)=true then set ts=fso.OpenTextFile(path,1) dim fullFile fullFile=ts.readall ts.close set ts=nothing set fso=nothing Writer=split(fullFile,"") editWriter=Writer(1) contents=split(fullFile,"") editContents=contents(1) end if end if %> conn.asp 数据库联接 set conn = Server.CreateObject("ADODB.Connection") connstr="PROVIDER=SQLOLEDB;DATA SOURCE=(local);DATABASE=exam;UID=sa;PWD=0" conn.Open connstr set Rs = Server.CreateObject("ADODB.Recordset") %> adduser.asp question_add.asp 试题添加模块 upfile.asp 文件上传 ''将当前的日期和时间转为文件名 Function MakeFileName() Dim fname fname = Now() fname = Trim(fname) fname = Replace(fname, "-", "") fname = Replace(fname, "/", "") fname = Replace(fname, " ", "") fname = Replace(fname, ":", "") fname = Replace(fname, "PM", "") fname = Replace(fname, "AM", "") fname = Replace(fname, "上午", "") fname = Replace(fname, "下午", "") MakeFileName = fname End Function Dim upload,file,formName,formPath Dim i,l,fileType,NewFileName,filenamelist '创建新文件名称 NewFileName = MakeFileName() '建立上传对象 Set upload = New upload_5xsoft '上传文件目录 formPath = Server.MapPath("images")&"/" '列出所有上传了的文件 For Each formName in upload.objFile '生成一个文件对象 Set file = upload.file(formName) '如果 FileSize > 0 说明有文件数据 If file.FileSize>0 Then '取得文件扩展名 fileType = file.FileName '文件名以及扩展名 i = instr(fileType,".") '是否存在“. ” l = Len(fileType) If i>0 Then fileType = Right(fileType,l-i+1) '得到扩展名 End If NewFileName = NewFileName & fileType filenamelist = formPath & NewFileName '新文件绝对地址和名称 file.SaveAs filenamelist ''保存文件 End If Set file = Nothing next '将文件信息传入内容字段 Response.Write "" '选中“附图”标记 Response.Write "" '显示提示信息 Response.Write "文件上传成功 [ 继续上传 ]" set upload=nothing ''删除此对象 %> |
|||||||||