利用ASP打造网站论坛DIY(2)

核心提示： 注：在这个表中，除了可以由连接来显示看板主题的内容，利用ASP打造网站论坛DIY(2)(3)，还有一个斑竹查询部分和板务处理部分，版主查询可以是通过qAuthor.asp来实现的，rs.movenextloop until rs.eof%＞注：通过一个do … loop循环，

注：在这个表中，除了可以由连接来显示看板主题的内容，还有一个斑竹查询部分和板务处理部分，版主查询可以是通过qAuthor.asp来实现的，它只是简单的从数据库中取出作者讯息，并显示出来，这儿就不多说了。而板务处理是由managerlogin.asp页面来处理的。这属于文章审阅模块，我在后面再详说。

rs.movenext
loop until rs.eof
%＞

注：通过一个do … loop循环，把纪录集中所有的讯息都显示了出来。

＜ /table＞
＜ div align="center"＞＜br＞

点击看板名称可以得到主题列表，点击板主名称可以察看板主讯息

＜ /div＞
＜ /body＞
＜ /html＞
＜ %
set rs=nothing
conn.close
set conn=nothing
%＞

（3）打造qBaord.asp页面： 　

＜ %
boardid=request("boardid") '取出由上个页面传递过来的看板ID号
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft AccessDriver (*.mdb)};dbq=" & Server.MapPath("bbssystem.mdb")
Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = conn
cmd.CommandText = "主题列表"
ReDim param(0) //注：声明参数数组
param(0) = CLng(boardid)//注：CLng 不可忽略
Set rs = cmd.Execute( ,param )
%＞
＜ html＞
＜ head＞
＜ title＞主题列表＜ /title＞
＜ meta http-equiv="Content-Type"content="text/html; charset=GB2312"＞
＜ /head＞
＜ body bgcolor="#FFFFFF"＞
＜ h1 align="center"＞＜%=rs("看板名")%＞板主题列表 ＜/h1＞
＜ table width="80%" border="0"cellspacing="0" cellpadding="0"align="center"＞
＜ tr bgcolor="#FFFFCC"＞
＜ td width="89%" height="21"＞主题＜/td＞
＜ td width="11%" height="21"＞文章数＜/td＞
＜ /tr＞
＜ %
do
topicid=rs("id")
topicname=rs("标题")
sum=rs("文章数")
response.write "＜ tr＞＜ td＞＜a href=qtopic.asp?topicid=" & topicid& "&boardname=" & boardname& "＞" & topicname &"＜ /a＞＜ /td＞"
response.write "＜ td＞" &sum & "＜ /td＞＜ /tr＞"
rs.movenext
loop until rs.eof
%＞
＜ /table＞
＜ /body＞
＜ /html＞