王宗运硕士毕业论文基于ASP的卫生类培训网站的设计与实现修改 - 图文

山东科技大学工程硕士学位论文 网站详细设计与实现

<%

MM_editConnection = MM_ConnNews_STRING MM_editTable = \ MM_editColumn = \

MM_recordId = \ MM_editRedirectUrl = \

MM_editQuery = \& \

Set MM_editCmd = Server.CreateObject(\ MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute

MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> \ Response.Redirect(MM_editRedirectUrl) End If %>

4.4论坛

一、模块功能分析

论坛是用户和网站交流的有力桥梁，通过论坛系统可以发布信息、阐述观点、与别人讨论各种话题。此外一些专业性质的论坛已经成为学习和探讨专业技术的实时课堂

[13]

。

论坛从本质上讲就是对留言本技术的升级，本模块由3个页面组成，包括栏目选择，

主体列表显示、主题显示。

二、模块详细设计

1、论坛栏目选择页面，设计结果如图4.21所示。

33

山东科技大学工程硕士学位论文 网站详细设计与实现

图4.21

（1）、创建数据源，取名为Forum。 （2）、建立数据库连接，取名为connForum。

（3）、绑定面板上选择“记录集（查询）”，与数据库中的optiontable数据表相连接的新记录集Rs1。

（4）、将记录集（Rs1）中的栏目名称和栏目介绍字段拖到表格中的相应位置。 （5）、设置属性检查器中的选择文件。 （6）、设置重复区域。

2、帖子主题列表页面，设计结果如图4.22所示。

图4.22

（1）、绑定面板上选择“记录集（查询）”，与数据库中的forum数据表相连接的新记录集Rs2。

（2）、在SQL栏中将SQL语句完善：select * from forum where optinid=MMColparam and parld=0。

（3）、将记录集（Rs2）中的栏目名称和栏目介绍字段拖到表格中的相应位置。 （4）、设置重复区域。

3、显示主题页面，设计结果如图4.23所示。

34

山东科技大学工程硕士学位论文 网站详细设计与实现

图4.23

（1）、绑定面板上选择“记录集（查询）”，与数据库中的forum数据表相连接的新记录集Rs4、Rs5。

（2）、将记录集（Rs4、Rs5）中的栏目名称和栏目介绍字段拖到表格中的相应位置。 （3）、设置重复区域。

（4）、插入锚记，添加代码：<%=(Rs5.Fields.Item(“ID”).Value)%> （5）、添加代码，用于对回复的帖子进行编号。 三、部分关键代码

（5）、帖子主题列表页面，在标题处添加代码： function spread(areaName) { //document.write areaName; }

（6）、添加以下代码，用于显示有关帖子的所有回复主题。 <%dim i

i = 1

While ((Repeat1__numRows <> 0) AND (NOT Rs2.EOF)) %> if( document.all[areaName].style.display == \{ } else { }

document.all[areaName].style.display=\//document.all[imgName].src = \document.all[areaName].style.display=\//document.all[imgName].src = \

<%

Dim Rs3__MMColParam

Rs3__MMColParam = Rs2.Fields.Item(\

35

山东科技大学工程硕士学位论文 网站详细设计与实现

If (Request(\ Rs3__MMColParam = Request(\End If %> <% Dim Rs3

Dim Rs3_numRows

Set Rs3 = Server.CreateObject(\Rs3.ActiveConnection = MM_ConnForum_STRING

Rs3.Source = \ FROM Forum WHERE parId =\Rs3.CursorType = 0 Rs3.CursorLocation = 2 Rs3.LockType = 1 Rs3.Open()

Rs3_numRows = 0%> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0

Rs3_numRows = Rs3_numRows + Repeat3__numRows Rs3_total = Rs3.RecordCount If (Rs3_total = -1) Then Rs3_total=0 While (Not Rs3.EOF) Rs3_total = Rs3_total + 1 Rs3.MoveNext Wend

If (Rs3.CursorType > 0) Then Rs3.MoveFirst Else

Rs3.Requery End If end if

36