夜大用ASP技术实现网上作文的自动化管理.docx

夜大用ASP技术实现网上作文的自动化管理.docx

《夜大用ASP技术实现网上作文的自动化管理.docx》由会员分享，可在线阅读，更多相关《夜大用ASP技术实现网上作文的自动化管理.docx（25页珍藏版）》请在冰豆网上搜索。

夜大用ASP技术实现网上作文的自动化管理

夜大-用ASP技术实现网上作文的自动化管理.txt爱情是艺术，结婚是技术，离婚是算术。

这年头女孩们都在争做小“腰”精，谁还稀罕小“腹”婆呀？

高职不如高薪，高薪不如高寿，高寿不如高兴。

摘要

　　本文将介绍如何使用ASP（ActiveServerPages）技术进行编程来组建学校作文网站，使网站做到自动化管理。

由此实现以下几种功能：

　　1．作文的信息共享。

学生的作文发在网上可以让全班、全校、全世界的人来欣赏。

使用者可以通过多种方式（题目，发表年级，文章类型，作者）的查询，查看自己需要的文章。

　　2．自由发表。

不同地域的学生通过各种途径不择地点、不择时间地自主上传自己的优秀作文（不合要求的作文可以由管理员及时清除）。

　　3．网上发表评论。

其他学生和老师在看了作文之后可以直接在网上发表自己的评论，对作文中写的好的方面和存在问题发表自己的看法。

通过网上的这种方式进行交流，对学生作文水平的提高会起到很大的作用。

　　Abstract

　　ThemainworkofthispaperisintroducehowtouseASP（ActiveServerPages）programmingacomposition'ssite,sothesitecanmanageitself.Thereforethesitehasseveralfunctions:

　　1.Compositionssharingonthenet.Studentscanshowtheircompositionstowholeschool,eventoallovertheworld.Thevisitscanquerythecompositionsbyseveralmeans.

　　2.Appearingfree.Thevisitscanuploadtheircompositionsbynet,andviewtheircompositionsintime.

　　3.Appearcriticism.Allofvisitscanshowtheirattitudeonthenet.Sotheauthorandothervisitscouldreaditandfindsomegoodideas.

　　目录

　　一．ASP的简单认识

　　二．网上作文栏目实现的目标

　　三．网上作文栏目自动化管理实现的几个ASP文件简介

　　四．数据库的搭建

　　五．ASP文件实现自动化管理过程的细节

　　六．其它应注意的问题

　　七．小结

　　随着网络科技的发展，使得网络逐渐成为人们生活与学习的工具。

许多中小学校都开始建立自己的网站，网络教学开始在教育中展现她无与伦比的优势。

她注定将给传统的教育方式带来翻天覆地的变化。

但由于传统教育工作者在网络技术上的欠缺，使许多学校都只在硬件配置上大量投入，而忽略了在软件及应用上的投入。

本文将以用ASP技术实现网上作文的自动化管理的过程为例，讲解怎样在学校网站应用现代网络技术实现网络自动化管理。

　　一．ASP的简单认识

　　ASP的全称是：

ActiveServerPages，是在服务器端脚本编译环境，使用它可以创建和运行动态、交互的Web服务器应用程序。

ASP可以与HTML页、脚本命令和ActiveX组件组合创建交互的Web页和基于Web的功能强大的应用程序。

ASP应用程序很容易开发和修改。

所以笔者推荐广大教育工作者在教学工作繁忙的情况，使用ASP来制作适应教学的交互性强的动态网页是非常适合的。

　　以下罗列了ActiveServerPages所独具的一些特点：

　　1.使用VBScript，JScript等简单易用的脚本语言，结合HTML代码，即可快速地完成网站的应用程序的编写。

　　2.无须编译，容易编写，调试方便可在服务器端直接执行。

　　3.使用普通的文本编辑器，如Windows的记事本，或在FRONTPAGE等流行软件中都可进行编辑设计。

　　4.与浏览器无关（BrowserIndependence）。

用户端只要使用可执行HTML码的浏览器，即可浏览ASP网页的内容。

ASP所使用的脚本语言（VBScript、Jscript）均在WEB服务器端执行，用户端的浏览器不要求能够执行这些脚本语言。

　　5.ASP能与任何ActiveXscripting语言相容。

除了可使用VBScript或JScript语言来设计外，还通过plug-in的方式，使用由第三方所提供的其他脚本语言，如：

REXX、Perl、Tcl等。

脚本引擎是处理脚本程序的COM（ComponentObjectModel）物件。

　　6.ActiveServerPages的源程序，不会被传到客户浏览器，因而可以避免所写的源程序被他人直接剽窃，提高了程序的安全性。

　　7.可使用服务器端的脚本来控制产生客户端的脚本。

　　8.ActiveXServerComponents（ActiveX服务器元件）具有无限可扩充性。

可以使用VisualBasic、Java、VisualC++、COBOL等编程语言来编写你所需要的ActiveXServerComponent。

　　由此可见，将ASP技术用于教育任务繁重的教师建设网站是最适合的。

　　由于笔者本文主题是讲解用ASP技术实现网上作文的自动化管理的过，其目的在于由一件具体事例的完成过程来抛砖引玉，使更多的教师懂得怎样在学校网站应用现代网络技术实现网络自动化管理。

所以对于网络的一些基础知识不作过多铺垫，下仅列出本文所需基础知识：

　　1．懂得基本的HTML语言。

　　2．懂得基本的VBScript或JScript语言。

　　3．有数据库操作基础，最少会一种数据库（如最简单的MicrosoftAccess）

　　二．网上作文栏目实现的目标

　　网络以资源共享和信息传输等方面的特点，使得教育可以跨越时间和空间。

我们利用这一优势来为语文的作文教学服务可以起到非常大的作用。

笔者认为建立一个好的网上作文栏目可以用如下目标。

　　1．实现作文的信息共享。

学生的作文发在网上可以让全班、全校、全世界的人来欣赏。

使用者可以通过多种方式（题目，发表年级，文章类型，作者）的查询，查看自己需要的文章。

　　2．自由发表。

不同地域的学生通过各种途径不择地点、不择时间地自主上传自己的优秀作文（不合要求的作文可以由管理员及时清除）。

　　3．发表评论。

其他学生和老师在看了作文之后可以直接在网上发表自己的评论，对作文中写的好的方面和存在问题发表自己的看法。

通过网上的这种方式进行交流，对学生作文水平的提高会起到很大的作用。

　　4．资料的收集和管理。

通过ASP技术对数据库的操作可对网上的资料进行不同方式的整理，便于使用者进行查询、分析。

这样资料会越积越多，越积越全，但管理起来却非常轻松。

　　三．网上作文栏目自动化管理实现的几个ASP文件简介

　　从本节开始我们逐渐深入地探讨如何用ASP技术实现以上目标。

实现网上作文的自动化管理和bbs、在线论坛等的建立机制有许多相似的地方，但在数据库的建立或管理方法方面却有许多不同之处。

以下笔者以范例的方式来分析利用ASP技术来实现的方法。

整个自动化管理机制大致可由如下几个ASP文件和一个数据库文件来组成，它们的大至功能如下。

（1）index.asp进入本栏目后的第一显示页，可显示刚上传的作文，提供多种查询方式的表单（题目、作者、发表年级、文章类别），以及其它管理控制信息。

（2）articleupload.asp显示网上提交自己作文的空表单。

　　（3）tjzw.asp将提交的合格的作文写进数据库。

　　（4）clicktoread.asp点击作文标题，查看具体的某一篇作文。

　　（5）default.asp显示评论者填写评论的空表单。

　　（6）writesth.asp将评论后的表单数据写入数据库。

　　（7）search.ASP按查询表单传来的数据对数据查询，并列出查询结果。

　　（8）user.mdb记录本栏目的所有信息（在本例中需要将此数据库在服务器上建立成ODBC数据源，数据源名称为“USER“）。

　　四．数据库的搭建

　　数据只有用数据库来管理才能有自动化管理的可能。

数据的结构将影响整个管理机制的应用，而且一但建立以后要修改常会出现麻烦。

所以一开始就要仔细慎重地搭建一个完整而合理的结构。

对于教师用简单易操作的MicrosoftAccess数据库是比较适合的。

我的范例中的数据库文件就是Access类型的数据库。

数据库中共有两个数据表“zwtd_infoz”和“zwtd_talk”。

表zwtd_infoz是用存储作文的具体内容，共有12个字段。

其中pid是作者的id号这与另外一栏目《学生注册》相联系。

（如图一）。

zwtd_talk用来存放对作文的评论信息。

共有6个字段。

　　图二（略）

　　图一（略）

　　五．ASP文件实现自动化管理过程的细节

　　图一（略）

　　ASP技术以其简单易操作，且功能较强大完全能够完成以上所要求的各操作目标。

下面分操作及ＡＳＰ文件的组成来讲解实现具体细节，其中又着重介绍用〈ＶＢsript〉语句的操作。

　　１．访问作文栏目。

当浏览者打开作文栏目首先执行index.asp文件，他将看到以下形式的网页：

　　本网页主要提供了一个提交自己作文的超链接按钮、一个查询表单、一个显示最新提交来的作文窗口。

　　具体实现方式在以下程序代码中介绍。

　　<%@language="vbscript"%>

--下行所包含的文件用来实现文字显示时，字符超出部份用“…”代替，以使界面美观、充实。

-->

--#includefile="AboutFunctions.inc"-->

　　

　　A:

link{color:

blue;text-decoration:

none;}

　　A:

hover{color:

red;text-decoration:

none;}

　　A:

visited}

9pt">

9pt">

--下行建立一个进入网上投稿页面的超链接-->

　　"OpenWin（）">网上投稿

--以下是作文查询表单-->

　　[作文查询]

9pt"target="_blank">

--上句指明查询窗体将以POST方法，将数据传递给search.ASP进行查询-->

9pt">

　　题目"bt"size="8">

　　"KK1"value="1">

　　作者"zz"size="8">

　　"KK2"value="2">

　　年级"lj">

　　一年级

　　二年级

　　三年级

　　四年级

　　五年级

　　六年级

　　"KK3"value="4">

　　类别"type">

　　写人

　　记事

　　状物

　　说明文

　　议论文

　　诗歌

　　散文

　　"KK4"value="8">

　　"pd">

　　"B1">

　　"B2">

　　functionOpenWin（）

　　{

　　window.open（'articleupload.asp','','scrollbars=no,width=250,height=400'）;

　　}

--提交作文信息区-->

9pt">

--****************************************************************-->

　　<%

　　dimymh,sql,jls,zys,tmp,i

　　'ymh页面号：

对记录进行分页后的每一页的页码号

　　'sql查询语句变量：

用于存储查询语句的临时变量

　　'jls记录数：

数据库中的作文数量

　　'zyx总页数

　　'tmp临时变量

　　ymh=Request.QueryString（"page"）

　　ifymh=""then

　　ymh=1

　　else

　　ymh=clng（ymh）

　　endif

　　setcon=server.CreateObject（"ADODB.Connection"）

　　setrec=server.CreateObject（"ADODB.Recordset"）

　　con.Open"user","user","user"

　　sql="select*fromzwtd_infoorderby发表时间desc"

　　rec.ActiveConnection=con

　　rec.Source=sql

　　rec.CursorType=3

　　rec.LockType=2

　　rec.Open

　　rec.PageSize=15'一页显示记录条数

　　jls=rec.recordcount

　　zys=rec.pagecount

　　Response.Write（"

9pt'>"）

　　response.write（"共有"&jls&"篇文章"）

　　fori=1tozys

　　ifi=ymhthen

　　Response.Write（"第"&i&"页"）

　　else

　　Response.Write（"第

page="&i&">"&i&"页"）

　　endif

　　next

　　response.write（""）

　　response.write（""）

　　response.write（"

9pt'cellpadding='2'>"）

　　rec.AbsolutePage=ymh

　　j=0

　　题目

　　作者

　　上传时间

　　年级

　　类别

　　点击数

　　评论条数

　　<%

　　dowhilenotrec.EOFandj

　　j=j+1

　　Response.Write（""）

　　Response.Write（"

id="&_

　　rec.fields（"id"）.value&"&pid="&rec.fields（"pid"）.value&_

　　"'target='_blank'>"&rec.fields（"题目"）.value&""）

　　Response.Write（""&rec.fields（"发表者"）.value&""）

　　Response.Write（""&ShowDatePart（rec.fields（"发表时间"）.value）&""）

　　Response.Write（""&rec.fields（"年级"）.value&""）

　　Response.Write（""&rec.fields（"类别"）.value&""）

　　Response.Write（""&rec.fields（"点击次数"）.value&""）

　　Response.Write（""&rec.fields（"评论条数"）.value&""）

　　Response.Write（""）

　　rec.MoveNext

　　loop

　　Response.Write（""）

　　response.write（""）

　　rec.Close

　　setrec=nothing

　　con.Close

　　setcon=nothing

　　%>

　　２．查询作文。

浏览者在表单中填入查询标准，并在右方的选框中确认后，可点击确定进行作文查询。

查询的执行由search.ASP文件来执行。

其代码及分析如下：

　　<%@Language=VBScript%>

--#includefile="AboutFunctions.inc"-->

　　A:

link{color:

blue;text-decoration:

none;}

　　A:

hover{color:

red;text-decoration:

none;}

　　A:

visited}

　　<%

　　onerrorresumenext

　　dimbt,zz,lj,lx,add_result,sql

　　ifrequest.form（"pd"）="true"then

　　'从首页传过来的

　　add_result=cint（request.form（"kk1"））+cint（request.form（"kk2"））+cint（request.form（"kk3"））+cint（request.form（"kk4"））

　　ifadd_result=0then

　　Response.Write（"

9pt'>对不起,请至少选择一个查询项目!

"）

　　Response.End

　　endif

　　bt=trim（request.form（"bt"））'标题

　　zz=trim（request.form（"zz"））'作者（别名）

　　lj=request.form（"lj"）'年级

　　lx=request.form（"type"）'类型

　　else

　　add_result=request.querystring（"add_result"）

　　bt=request.querystring（"bt"）

　　zz=request.querystring（"zz"）

　　l