showbbs.asp

秘密网源代码 传闻拉了 100W风投

<!-- #include file="Setup.asp" -->
<%
UserName=HTMLEncode(Request("UserName"))
HtmlTop
select case Request("menu")
	case ""
		ForumTitle="最新主题"
		sql="select top 200 * from [Wo_Threads] where IsApproved=1 and IsDel=0 order by ThreadID Desc"
	case "HotViews"
		ForumTitle="人气主题"
		sql="select top 200 * from [Wo_Threads] where IsApproved=1 and IsDel=0 and PostTime>"&SqlNowString&"-"&SiteConfig("PopularPostThresholdDays")&" order by TotalViews Desc"
	case "HotReplies"
		ForumTitle="热门主题"
		sql="select top 200 * from [Wo_Threads] where IsApproved=1 and IsDel=0 and PostTime>"&SqlNowString&"-"&SiteConfig("PopularPostThresholdDays")&" order by TotalReplies Desc"
	case "GoodTopic"
		ForumTitle="精华主题"
		sql="select top 200 * from [Wo_Threads] where IsApproved=1 and IsDel=0 and IsGood=1 order by ThreadID Desc"
	case "VoteTopic"
		ForumTitle="投票主题"
		sql="select top 200 * from [Wo_Threads] where IsApproved=1 and IsDel=0 and IsVote=1 order by ThreadID Desc"
	case "MyTopic"
		ForumTitle="我的主题"
		sql="select top 200 * from [Wo_Threads] where IsApproved=1 and IsDel=0 and PostAuthor='"&UserName&"' order by ThreadID Desc"
	case "NoReplies"
		ForumTitle="未回复主题"
		sql="select top 200 * from [Wo_Threads] where IsApproved=1 and IsDel=0 and TotalReplies=0 order by ThreadID Desc"
	case else
		error("错误参数！")
end select

Rs.Open sql,Conn,1
%>

<table width="900" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td><div id="CommonBreadCrumbArea"><%ClubTree%> → <%=ForumTitle%></div></td>
  </tr>
</table>

<table cellspacing=1 cellpadding=0 width=900 id=CommonListArea align="center">
	<TR id=CommonListTitle3>
      <Td width="14%" align="center"><a href="?">最新主题</a></td>
      <TD width="14%" align="center"><a href="?menu=HotViews">人气主题</a></td>
      <TD width="14%" align="center"><a href="?menu=HotReplies">热门主题</a></td>
      <TD width="14%" align="center"><a href="?menu=NoReplies">未回复主题</a></td>
      <TD width="14%" align="center"><a href="?menu=GoodTopic">精华主题</a></td>
      <TD width="14%" align="center"><a href="?menu=VoteTopic">投票主题</a></td>
      <TD width="14%" align="center"><a href="?menu=MyTopic&UserName=<%=CookieUserName%>">我的主题</a></td>
	</TR>
</TABLE>
<br>
<table cellspacing=1 cellpadding=0 width=900 id=CommonListArea align="center">
	<tr id=CommonListTitle3>
		<td colspan="5">&nbsp;&nbsp;主题</td>
	</tr>
<%

	PageSetup=SiteConfig("ThreadsPerPage") '设定每页的显示数量
	Rs.Pagesize=PageSetup
	TotalPage=Rs.Pagecount  '总页数
	PageCount = RequestInt("PageIndex")
	if PageCount <1 then PageCount = 1
	if PageCount > TotalPage then PageCount = TotalPage
	if TotalPage>0 then Rs.absolutePage=PageCount '跳转到指定页数
	i=0
	Do While Not RS.EOF and i<pagesetup
		i=i+1
		ShowThread()
		Rs.MoveNext
	loop
Rs.Close
%>
</table>
<table cellspacing=0 cellpadding=0 border=0 width=900 align="center"><tr><td><%ShowPage()%></td></tr></table>
<%
HtmlBottom
%>