目前我有八个新闻栏目，我想在首页每个版块显示相应栏目的标题以及链接。
代码如下：
[ %
Dim categoryStr,cid
cid=RequestQueryNum("cid")
Set rs=conn.Execute("Select top 8 * From notebookcategory order by cindex desc, id asc")
Do While Not rs.eof
categoryStr=categoryStr&""
If cid=rs("id") Then
categoryStr=categoryStr&""
End If
categoryStr=categoryStr&rs("category")
If cid=rs("id") Then
categoryStr=categoryStr&""
End If
categoryStr=categoryStr&"  "
rs.MoveNext
Loop
% ]
[ %
cid=RequestQueryNum("cid")
If cid<>0 Then
sql="Select * From notebook Where categoryid="& cid &" order by top desc,id desc"
Else
sql="Select * From notebook order by top desc,id desc"
End If
Set mypage=new xdownpage '创建对象
mypage.getconn=conn '得到数据库连接
mypage.getsql=sql
mypage.pagesize=18 '设置每一页的记录条数据为18条
set rs=mypage.getrs() '返回Recordset
for i=1 to mypage.pagesize
If rs.eof Then
Exit for
End If
posttime=rs("posttime")
% ]
[td align="left" height="20" width="50%"] [span class="STYLE3"]· [/span] [a href="articleshow.asp?id=[%=rs("id")%]" ] [%=strtrim(rs("title"),30)%][/a]  [span class="STYLE4"]([%=Year(posttime)%]-[%=Month(posttime)%]-[%=Day(posttime)%]) [/span][/td] [%
If i Mod 2 = 0 then%]
[/tr]
[tr]
[%
End If
rs.MoveNext
Next
%]