谢谢版主了,我的代码:
<%
sql = "SELECT CAT_ID,CAT_NAME FROM Forum_Category ORDER BY CAT_Date DESC"
rs.open sql,conn,1,1
fcc=int((rs.RecordCount)-1)
'dim cat_count(fcc,1)
cc=UBound(cat_count)
for i=0 to cc
cat_count(i,0)=rs("CAT_ID")
cat_count(i,1)=rs("CAT_NAME")
rs.movenext
next
rs.close()
sql = "SELECT Forum_ID,ForumName,ForumInfo,CAT_ID,forummode FROM Forum_List ORDER BY DATE DESC"
rs.open sql,conn,1,1
fcc=int((rs.RecordCount)-1)
'dim Forum_count(0,3)
fc=UBound(Forum_count)
for i=0 to fc
if rs.eof or rs.bof then exit for
Forum_count(i,0)=rs("Forum_ID")
Forum_count(i,1)=rs("ForumName")
Forum_count(i,2)=rs("ForumInfo")
Forum_count(i,3)=rs("CAT_ID")
Forum_count(i,4)=rs("forummode")
rs.movenext
next
rs.close()
%>
数据库图:
