留言板与公告板的设计与实现(4)

二、讨论板程序设计 1.讨论板首界面设计

首界面包含显示主题和输入主题，在显示的主题上点击链接，进入某一个主题讨论区。如图7-11所示。

图7-11

2.首界面源代码(xuexi.asp)

日期

工作站小组名称 则数 主题 <%

if not rsData.EOF Then rsData.Movefirst While Not rsdata.EOF

Day1=right(\ Month1=right(\ Day2=Right(\ Month2=right(\ DateRange=Month1&\

16

%>

<%=DateRange%>

<%=rsData(\

HREF=\

<%

rsdata.MoveNext Wend %>

---

2.titlenew.asp源代码 <%

Dim strConn

Dim objConnection

set objConnection=Server.CreateObject(\strConn=\Source=\objConnection.open strConn Dim rsData

set rsdata=server.CreateObject(\rsData.open \Name=Request(\Email=request(\Subject=Request(\Words=Request(\Session(\session(\

if Subject=Empty Or words=Empty Or Name=Empty Or Email=Empty Then Msg=\请输入完整信息！\ Session(\ Session(\Else

rsData.addnew

rsData(\ rsData(\

18

rows=\

rsData(\ rsData(\ rsData(\ rsData.Update

Msg=\您的讨论主题已经加入讨论组！\ Session(\ Session(\ End if

Response.Redirect \ %>

3.进入主题讨论界面（detail.asp）

该界面主要包括被讨论的主题内容、对主题进行的讨论细节和参与讨论内容的区域。如图7-12所示。

图7-12

19

4．Detail.asp的源代码 <%

Dim strConn

Dim objConnection

set objConnection=Server.CreateObject(\

strConn=\objConnection.open strConn Dim rsData,rs

set rsdata=server.CreateObject(\set rs=server.CreateObject(\TitleID=CLng(Request(\

rsData.open \if rsData Is Nothing then

Response.Redirect \这一讨论主题已经被删除!\ end if %>

href=\

<%

words=replace(\

20