bbsnew.asp

鲁门网站系统

<!-- #Include File="../inc/Class35.asp" -->
<%
Sub listbbsnew(boardid)
	Set rs=Server.CreateObject("ADODB.RecordSet")
	strsql="Select Top 4 TopicID,Title,BoardID From Topic WHERE BoardID="&boardid&" AND hits>20 Order By TopicID Desc"
	rs.open strsql,bconn,1,1
	If not (rs.Bof and rs.Eof) Then
	   Do while not rs.eof
	      response.write "—<a href='../bbs/dispbbs.asp?boardID="&rs(2)&"&ID="&rs(0)&"' target='_blank'>"
	      If Len(rs("Title"))>10 Then
		     response.Write left(rs(1),8)&"..."
	      Else
		     response.Write rs(1)
	      End If
	      response.write "</a>"
          rs.movenext
	   Loop
	End If
	rs.close
    set rs=nothing
End Sub
%>
<TABLE width="100%" border=0 cellPadding=1 cellSpacing=2 class="css">
  <TR>
    <TD width="15%" height=17 align="center" valign="middle"><font color="#3a75c9"><a href="../..//bbs/list.asp?boardid=2" target="_blank">[新城故事]</a></font></TD>
    <TD class=l21 width="85%" height=17><%Call listbbsnew(2)%></TD>
  </TR>
  <TR> 
    <TD width="15%" height=17 align="center" valign="middle"><font color="#3a75c9"><a href="../../bbs/list.asp?boardid=15" target="_blank">[情感城市]</a></font></TD>
    <TD class=l21 width="85%" height=17><%Call listbbsnew(15)%></TD>
  </TR>
  <TR>
    <TD width="15%" height=21 align="center" valign="middle"><font color="#3a75c9"><a href="../../bbs/list.asp?boardid=14" target="_blank">[谈天说地]</a></font></TD>
    <TD class=l21 width="85%" height=21><%Call listbbsnew(14)%></TD>
  </TR>
  <TR>  
    <TD width="15%" height=17 align="center" valign="middle"><font color="#3a75c9"><a href="../../bbs/list.asp?boardid=16" target="_blank">[音乐影视]</a></font></TD>
    <TD class=l21 width="85%" height=17><%Call listbbsnew(16)%></TD>
  </TR>
  <TR> 
    <TD width="15%" height=17 align="center" valign="middle"><font color="#3a75c9"><a href="../../bbs/list.asp?boardid=18" target="_blank">[游戏部落]</a></font></TD>
    <TD class=l21 width="85%" height=17><%Call listbbsnew(18)%></TD>
  </TR>
  <TR> 
    <TD width="15%" height=18 align="center" valign="middle"><font color="#3a75c9"><a href="../../bbs/list.asp?boardid=17" target="_blank">[影像画廊]</a></font></TD>
    <TD class=l21 width="85%" height=18><%Call listbbsnew(17)%></TD>
  </TR>
  <TR> 
    <TD width="15%" height=17 align="center" valign="middle"><font color="#3a75c9"><a href="../../bbs/list.asp?boardid=12" target="_blank">[汽车世界]</a></font></TD>
    <TD class=l21 width="85%" height=17><%Call listbbsnew(12)%></TD>
  </TR>
</TABLE>