blockbar.asp

Simple涂乌板2

	<div class="themebar">
		<div class="themebar-text">
<% If block=0 Then %>
			[ 留言区 ]
<% Else %>
	<%
	'获得该主题所在版块
	sql_block_name="select name from "&tbname&" where dbtype="&block&" and themeNo=0"
	set block_name_rs=GetRS(mdbname,tbname,sql_block_name)
	'查询主题列表资料:主题所在页数
				If Session("manager")="login" Then
					themeNoMax=6000
				Else
					themeNoMax=3000
				End If
	If ThemeListMode=1 Then
		sql_theme="select themeName,themeNo,name from "&tbname&" where dbtype="&block&" and themeName<>Null and themeNo<>0 and themeNo<"&themeNoMax&" order by themeNo DESC"
	ElseIf ThemeListMode=2 Then
		sql_theme="select themeName,themeNo,name from "&tbname&" where dbtype="&block&" and themeName<>Null and themeNo<>0 and themeNo<"&themeNoMax&" order by replytime DESC"
	ElseIf ThemeListMode=3 Then
		sql_theme="select themeName,themeNo,name from "&tbname&" where dbtype="&block&" and themeName<>Null and themeNo<>0 and themeNo<"&themeNoMax&" order by quote DESC,time DESC"
	End If
		set theme_rs=GetRS(mdbname,tbname,sql_theme)
		For n_theme=1 to theme_rs.RecordCount
			If theme=theme_rs("themeNo") Then Exit For
			theme_rs.MoveNext
		Next
	If n_theme-Int(n_theme/ThemePageSize)*ThemePageSize=0 Then
		PageNo=Int(n_theme/ThemePageSize)
	Else
		PageNo=Int(n_theme/ThemePageSize)+1
	End If
	%>
			[ <a href="page.asp?mode=8">主题区</a> > <a href="page.asp?block=<% =block %>&mode=1&PageNo=<% =PageNo %>"><% =block_name_rs("name") %></a> ] 
	<%
	'上下主题名字
	theme_rs.MovePrevious
	If Not theme_rs.BOF Then
	%>
			<a href="page.asp?block=<% =block %>&theme=<% =theme_rs("themeNo") %>" title="<% =theme_rs("themeName") %>">&nbsp;&nbsp;上一主题</a>
	<%
	End If
	theme_rs.MoveNext
	theme_rs.MoveNext
	If Not theme_rs.EOF Then
	%>
			<a href="page.asp?block=<% =block %>&theme=<% =theme_rs("themeNo") %>" title="<% =theme_rs("themeName") %>">&nbsp;&nbsp;下一主题</a>
	<% End If %>
<% End If %>
			<a href="page.asp">&nbsp;&nbsp;首页&nbsp;&nbsp;</a>|
<% If theme=0 Then %>
			<a href="image.asp">&nbsp;&nbsp;签写&nbsp;&nbsp;</a>|
<% End If %>
<%
PageCount=DividePage(PageSize,RecordCount)(2)
PageNo=DividePage(PageSize,RecordCount)(3)
%>
<% If theme=0 then %>
	<% If PageNo<PageCount then %>
			<a href="<% =page_name %>?mode=7&PageNo=<% =PageNo+1 %>">&nbsp;&nbsp;下页&nbsp;&nbsp;</a>
	<% End If %>
				&nbsp;&nbsp;第<% =PageNo %>页&nbsp;&nbsp;
	<% If PageNo>1 then %>
			<a href="<% =page_name %>?mode=7&PageNo=<% =PageNo-1 %>">&nbsp;&nbsp;上页&nbsp;&nbsp;</a>
	<% End If %>
<% End If %>
			共<% =PageCount %>页
		</div>
	</div>