</HEAD>
<BODY>
<%
dim title,lx,content,fname,tname,teacher,sj,lj,PID
title=Request.Form("title")'文章标题
lx=Request.Form("type")'文章类型
teacher=Request.Form("teacher")'老师姓名
content=Request.Form("content")'文章内容
tname=Request.Form("xm")'姓名
lj=request.form("lj")'年级
set con=server.CreateObject("ADODB.Connection")
set rec=server.CreateObject("ADODB.Recordset")
con.Open "user","user","user"
sj=date() & " " & time()
sql="insert into zwtd_info(发表者,发表时间,年级,题目,内容,指导老师,评论条数,点击次数,类别,评分等级) values('" & _
tname & "','" & sj & "','" & lj & "','" & title & "','" & content & "','" & _
teacher & "',0,0,'" & lx & "',0)"
con.Execute(sql)
con.Close
set con=nothing
Response.Write("<font style='font:9pt'>成功提交!</font>")
Response.End
%>
</BODY>
</HTML>
４． 评论作文
在浏览者，观看作文的时候，可以对本作文发表自己的看法。单击[我要发表评论]将调用default.asp文件，出现发表评论表单。其程序代码如下：
<%
dim id
id=request.querystring("id")
%>
<body>
<p>发表评论<br>
<form method="post" action="writesth.asp" style="font:9pt">
<table border="0" cellpadding="0" cellspacing="0" style="font:9pt">
<tr>
<td align="left">[评分]</td></tr><tr><td><select size="1" >"pf">
<option selected value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
</select></td>
</tr>
<tr>
<td align="left">[评论者]</td></tr><tr><td>
<input type="text" >"xm" size="6">
<input type="hidden" >"id" value=<%=id%>>
</td>
</tr>
<tr>
<td align="left">[评论]</td></tr><tr><td>
<textarea rows="8" >"pl" cols="30" style="font-style:normal; font-size:9pt; font-family:宋体"></textarea></td>
</tr>
</table>
<input type="submit" value="提交">
<input type="reset" value="清空">
</form>
</body>
</html>
评论者填写完各项评论后提交则通过writesth.asp文件将评论写入数据库。其程序代码如下：
<%@ Language=VBScript %>
<HTML>
<HEAD></HEAD>
<BODY>
<%
dim PID,pl,pf,fname,id,sj,average,sl,xm
xm=request.form("xm")
pf=Request.Form("pf")
pl=Request.Form("pl")
id=Request.Form("id")
set con=server.CreateObject("ADODB.Connection")
con.Open "user","user","user"
sj=date() & " " & time()
sql="insert into zwtd_talk(发表者,发表时间,内容,评分等级,zwid) values('" & xm & "','" & sj & "','" & pl & "'," & pf & "," & id & ")"
con.Execute(sql)
con.Close
con.Open "user","user","user"
set rec=server.CreateObject("ADODB.Recordset")
rec.ActiveConnection=con
rec.Source="select avg(评分等级) as fs,count(id) as gs from zwtd_talk where zwid=" & id & " group by zwid "
rec.CursorType=1
rec.LockType=1
rec.Open
rec.MoveFirst
average=int(rec.Fields("fs").Value)
sl=rec.Fields("gs").Value
rec.Close
set rec=nothing
con.Close
con.Open "user","user","user"
sql="update zwtd_info set 评分等级=" & average & " where & id
con.Execute(sql)
sql="update zwtd_info set 评论条数=" & sl & " where & id
con.Execute(sql)
con.Close
set con=nothing
Response.Write("<font style='font:9pt'>成功提交!</font>")
Response.End
%>
</BODY>
</HTML>
优．其它应注意的问题
以上各项操作可以将实现一个作文网站的基本自动化管理。但其中还缺乏管理者的有效管理，管理者要删除内容不好的作文或评论还必须打开数据库文件，进行操作。当然也可利用ASP文件建全一个管理页面，因这不是本文要点所以，不再说明。另处栏目还要注意网络安全问题。其方法可参见其它有关ASP技术文章。
七．小结
综上所述，利用ASP技术实现网站作文栏目的自动化管理是一项的有效方法。这种组建的方式，可以应用于网站的其它栏目。又由于ASP编程所用的Vbscript 与 Jscript语言较其它语言较简洁、易操作、功能较强非常适合教师用来开发网站。
另外在此感谢四川大学唐常杰教授对我的指导。