夜大用ASP技术实现网上作文的自动化管理Word文档格式.docx
《夜大用ASP技术实现网上作文的自动化管理Word文档格式.docx》由会员分享,可在线阅读,更多相关《夜大用ASP技术实现网上作文的自动化管理Word文档格式.docx(25页珍藏版)》请在冰豆网上搜索。
![夜大用ASP技术实现网上作文的自动化管理Word文档格式.docx](https://file1.bdocx.com/fileroot1/2023-1/7/0f603c56-c996-4461-9a4a-f881b8752e7d/0f603c56-c996-4461-9a4a-f881b8752e7d1.gif)
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.实现作文的信息共享。
3.发表评论。
4.资料的收集和管理。
通过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文件的组成来讲解实现具体细节,其中又着重介绍用〈VBsript〉语句的操作。
1.访问作文栏目。
当浏览者打开作文栏目首先执行index.asp文件,他将看到以下形式的网页:
本网页主要提供了一个提交自己作文的超链接按钮、一个查询表单、一个显示最新提交来的作文窗口。
具体实现方式在以下程序代码中介绍。
<
%@language="
vbscript"
%>
!
--下行所包含的文件用来实现文字显示时,字符超出部份用“…”代替,以使界面美观、充实。
-->
--#includefile="
AboutFunctions.inc"
html>
head>
title>
欢迎来到文学天地!
<
/title>
styletype="
text/css"
rel=stylesheet>
A:
link{color:
blue;
text-decoration:
none;
}
hover{color:
red;
visited}
/style>
/head>
body>
tableborder="
0"
width="
100%"
style="
font:
9pt"
>
tr>
tdwidth="
18%"
valign="
top"
--下行建立一个进入网上投稿页面的超链接-->
ahref=../../../"
#"
target="
_self"
"
OpenWin()"
网上投稿<
/a>
/td>
/tr>
--以下是作文查询表单-->
align="
center"
bgcolor="
#FF9900"
fontsize="
2"
b>
[作文查询]<
/b>
/font>
#CCCCCC"
formmethod="
POST"
action="
search.ASP"
_blank"
--上句指明查询窗体将以POST方法,将数据传递给search.ASP进行查询-->
82%"
题目<
inputtype="
text"
bt"
size="
8"
checkbox"
KK1"
value="
1"
作者<
zz"
KK2"
年级<
selectsize="
lj"
optionselectedvalue="
一年级<
/option>
optionvalue="
二年级<
3"
三年级<
4"
四年级<
5"
五年级<
6"
六年级<
/select>
KK3"
类别<
type"
写人"
写人<
记事"
记事<
状物"
状物<
说明文"
说明文<
议论文"
议论文<
诗歌"
诗歌<
散文"
散文<
KK4"
/table>
br>
hidden"
true"
pd"
submit"
提交"
B1"
reset"
重写"
B2"
/form>
scriptlanguage="
JavaScript"
functionOpenWin()
{
window.open('
articleupload.asp'
'
'
scrollbars=no,width=250,height=400'
);
}
/script>
--提交作文信息区-->
2%"
imgsrc=../../../"
../images/dot.gif"
height="
350"
80%"
--****************************************************************-->
%
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"
"
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("
tableborder='
0'
width='
100%'
style='
9pt'
response.write("
tdwidth='
共有"
&
jls&
篇文章"
fori=1tozys
ifi=ymhthen
第"
i&
页"
第<
ahref=index.asp?
page="
next
cellpadding='
2'
rec.AbsolutePage=ymh
j=0
39%"
bgcolor='
#FF9900'
11%"
14%"
上传时间<
7%"
9%"
点击数<
评论条数<
dowhilenotrec.EOFandj<
rec.PageSize
j=j+1
39%'
align='
center'
ahref='
clicktoread.asp?
id="
_
rec.fields("
id"
).value&
pid="
rec.fields("
pid"
"
target='
_blank'
题目"
11%'
发表者"
14%'
ShowDatePart(rec.fields("
发表时间"
).value)&
7%'
年级"
9%'
类别"
点击次数"
评论条数"
rec.MoveNext
loop
rec.Close
setrec=nothing
con.Close
setcon=nothing
%>
/body>
2.查询作文。
浏览者在表单中填入查询标准,并在右方的选框中确认后,可点击确定进行作文查询。
查询的执行由search.ASP文件来执行。
其代码及分析如下:
%@Language=VBScript%>
onerrorresumenext
dimbt,zz,lj,lx,add_result,sql
ifrequest.form("
)="
从首页传过来的
add_result=cint(request.form("
kk1"
))+cint(request.form("
kk2"
kk3"
kk4"
))
ifadd_result=0then
fontstyle='
对不起,请至少选择一个查询项目!
Response.End
bt=trim(request.form("
))'
标题
zz=trim(request.form("
作者(别名)
lj=request.form("
)'
年级
lx=request.form("
类型
add_result=request.querystring("
add_result"
bt=request.querystring("
zz=request.querystring("
l