theme_inc.asp

Simple涂乌板2

			<div id="theme-body">
	<% For n_block=0 to UBound(block_row,2) %>
				<div id="theme">
					<div class="title">
		<% If Session("manager")="login" And mode=1 Then %>
							<span class="title-frame">
								<a href="process.asp?action=deleteblock&dbtype=<% =block_row(4,n_block) %>" title="删除版块">
									 <span class="title-a_link"><img src="images/icon/m1.gif" alt="" height="16" border="0"> Delete </span>
								</a>
							</span>
		<% End If %>
		<% If mode=1 then %>
			<% If Session("manager")="login" Or block_row(5,n_block)=0 Then %>
							<span class="title-frame">
								<a href="image.asp?ID=<% =block_row(6,n_block) %>&mode=3" title="发表新主题">
									 <span class="title-a_link"><img src="images/icon/b1.gif" alt="" height="16" border="0"> New Theme </span>
								</a>
							</span>
			<% End If %>
		<% ElseIf mode=0 Or mode=8 then %>
							<span class="title-frame">
								<a href="page.asp?block=<% =block_row(4,n_block) %>&mode=1" title="查看更多主题">
									 <span class="title-a_link"><img src="images/icon/i6.gif" alt="" height="16" border="0"> More </span>
								</a>
							</span>
		<% End If %>
							<span class="title-frame">
								<a href="Javascript:;" class="retain" title="这是第<% =n_block+1 %>板块">
									 <span class="title-a_link"><img src="images/icon/b2.gif" alt="" height="16" border="0"> Block <% =n_block+1 %> </span>
								</a>
							</span>
					</div>
					<div class="frame-top"></div>
					<div class="frame-body">
						<table border="0" cellspacing="0" cellpadding="0">
							<tr>
								<td class="frame-left"></td>
								<td class="name">
									<div class="name-image">
										<img src="images/block/theme_<% =block_row(1,n_block) %>.gif" height="70">
									</div>
									<span class="name-text">
										<% =block_row(0,n_block) %>
									</span>
								</td>
								<td class="frame-main">
										<div class="note">
											<div class="note-text">
		<%
		'主题语句
			If mode=8 Then
				'只查看主题时主题列表数
				sql_top=ThemeOnlyPageSize
			ElseIf mode=0 Then
				'默认的首页主题列表数
				sql_top=3
			ElseIf mode=1 Then
				sql_top=1000
			End If
			
				If Session("manager")="login" Then
					themeNoMax=6000
				Else
					themeNoMax=3000
				End If
				
				If ThemeListMode=1 Then
					sql_theme="select top "&sql_top&" themeName,time,face,themeNo,name,reply,replytime,quote from "&tbname&" where dbtype="&block_row(4,n_block)&" and themeName<>Null and themeNo<>0 and themeNo<"&themeNoMax&" order by themeNo DESC"
				ElseIf ThemeListMode=2 Then
					sql_theme="select top "&sql_top&" themeName,time,face,themeNo,name,reply,replytime,quote from "&tbname&" where dbtype="&block_row(4,n_block)&" and themeName<>Null and themeNo<>0 and themeNo<"&themeNoMax&" order by replytime DESC"
				ElseIf ThemeListMode=3 Then
					sql_theme="select top "&sql_top&" themeName,time,face,themeNo,name,reply,replytime,quote from "&tbname&" where dbtype="&block_row(4,n_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)
				theme_row=theme_rs.GetRows
				ThemeRecordCount=theme_rs.RecordCount
				For n_theme=DividePage(ThemePageSize,ThemeRecordCount)(0) to DividePage(ThemePageSize,ThemeRecordCount)(1)
		%>
												<span class="note-text-list">
													<span class="note-text-list-text">
														<span class="note-text-list-image"><img src="images/icon/m4.gif" alt="" height="12"></span>
														<a href="page.asp?block=<% =block_row(4,n_block) %>&theme=<% =theme_row(3,n_theme) %>" target="_self" title="发帖人：<% =theme_row(4,n_theme) %>，回复数：<% =theme_row(7,n_theme)-1 %>，最后回复人：<% =theme_row(5,n_theme) %>">
															<% =theme_row(0,n_theme) %>
														</a>
													</span>
													<span class="note-text-list-date">
														<% If Session("manager")="login" Then %>
															<% If theme_row(3,n_theme)>300 Then %>
																<a href="process.asp?action=cancel-hidden&block=<% =block_row(4,n_block) %>&theme=<% =theme_row(3,n_theme) %>" target="_self">
																	撤销隐藏
																</a>
															<% Else %>
																<a href="process.asp?action=set-hidden&block=<% =block_row(4,n_block) %>&theme=<% =theme_row(3,n_theme) %>" target="_self">
																	隐藏
																</a>
															<% End If %>
														<% Else%>
															<% =Year(theme_row(1,n_theme))&"-"&Month(theme_row(1,n_theme))&"-"&Day(theme_row(1,n_theme)) %>
														<% End If %>
													</span>
												</span>
												<br>
				<% Next %>
											</div>
										</div>
											<div class="info">
												<span class="face-image2"><img src="images/icon/t5.gif" alt=""></span>
												<span class="face-text2"><% =block_row(2,n_block) %></span>
												<span class="date-text2">
													主题数:<% =theme_Count_row(0,n_block) %>
												</span>	
												<span class="date-image2"></span>
												<span>
													<span class="message-text2">版主:<% =block_row(3,n_block) %></span>
													<span class="message-image2"><img src="images/icon/m3.gif" alt="" height="16" border="0"></span>
												</span>
											</div>
										</div>
								</td>
								<td class="frame-right"></td>
							</tr>
						</table>
					</div>
					<div class="frame-bottom"></div>
				</div>
	<% Next %>
			</div>