displayforum.asp

简介：一个程序小巧而功能强大

						end select
					'Sticky Topic
					case "2"
						select case image
							case "old"
								if TopicsData(5,tempCnt) > 15 then
									response.write("<img src='Images/Icons/folder_hotnoreplies.gif' align='absmiddle' alt='>> Hot Topic! No New Replies'>")
								else
									response.write("<img src='Images/Icons/folder_noreplies.gif' align='absmiddle' alt='>> No New Replies'>")
								end if
							case "new"
								if TopicsData(5,tempCnt) > 15 then
									response.write("<img src='Images/Icons/folder_hotreplies.gif' align='absmiddle' alt='>> Hot Topic! New Replies'>")
								else
									response.write("<img src='Images/Icons/folder_replies.gif' align='absmiddle' alt='>> No New Replies'>")
								end if
						end select
				end select
		end select
		'End image select code
		
		response.write("</td><td width='60%'>")
		if TopicsData(6,tempCnt) = 2 then response.write("Sticky: ")
		response.write("<a href='displaytopic.asp?T="& TopicsData(0,tempCnt) &"'>"& TopicsData(3,tempCnt) &"</a>")
		
		'Calculate number of pages.
		Pages = int((TopicsData(5,tempCnt) + 1)/Site_View_Posts)
		if (TopicsData(5,tempCnt) + 1) mod Site_View_Posts > 0 then
			Pages = Pages + 1
		end if
		Pages = int(Pages)
		if Pages = 0 then 
			Pages = 1
		end if
		if Pages > 1 then
			response.write(" Page:")
			if Pages > 5 then
				for I = 1 to 4
					response.write(" <a href='displaytopic.asp?T="& TopicsData(0,tempCnt) &"&P="& I &"'>"& I &"</a> ")
				next
				response.write("... <a href='displaytopic.asp?T="& TopicsData(0,tempCnt) &"&P="& Pages &"'>Last Page</a>")
			else	
				for I = 1 to Pages
					response.write(" <a href='displaytopic.asp?T="& TopicsData(0,tempCnt) &"&P="& I &"'>"& I &"</a> ")
				next
			end if	
		end if
		
		response.write("</td><td align='center' nowrap>"& TopicsData(8,tempCnt) &"</td><td align='center' nowrap>"& TopicsData(5,tempCnt) &"</td><td align='center' nowrap>"& TopicsData(4,tempCnt) &"</td>")
		response.write("<td align='right' nowrap>"& web_time(TopicsData(10,tempCnt), Site_Time_Format, "long") &"<br>by: "& TopicsData(9,tempCnt) &" [<a href='displaytopic.asp?T="& TopicsData(0,tempCnt) &"&P="& Pages &"#last'>view</a>]</td></tr>")
		tempCnt = tempCnt + 1
	loop
	if TopicsCnt = 0 then
		response.write("<tr align='left' valign='middle' class='body'><td align='center' valign='top'><img src='Images/Icons/folder_announcement.gif' width='20' height='20' align='absmiddle'></td><td width='80%' nowrap>There have been no recent posts in this forum.</td>")
		response.write("<td align='center' nowrap>-</td><td align='center'>-</td><td align='center'>-</td><td width='20%' align='center' nowrap>-</td></tr>")
	end if
	response.write("</table>")
	
	'Draw page navigation controls
	if iPageCount > 1 then
		response.write("<table border='0' cellspacing='1' cellpadding='2' align='center' class='main'><tr class='sub-title'><td align='right' valign='middle'>")
		if iPageCurrent > 1 then
			response.write("<a href='displayforum.asp?F="& request.querystring("F") &"&p="& iPageCurrent - 1 &"'>&lt;&lt;Prev</a> ")
		end if
	
		for I = 1 to iPageCount
			if I = iPageCurrent then
				response.write(" ["& I &"] ")
			else
				response.write(" <a href='displayforum.asp?F="& request.querystring("F") &"&P="& I &"'>"& I &"</a> ")
			end if
		next
		if iPageCurrent < iPageCount then
			response.write(" <a href='displayforum.asp?F="& request.querystring("F") &"&P="& iPageCurrent + 1 &"'>Next&gt;&gt;</a> ")
		end if
		response.write("</td></tr></table>")
	end if
	
	response.write("</td></tr></table><table border='0' cellspacing='1' cellpadding='0' align='center' class='plain'><tr><td align='right'><a href='newtopic.asp?F="& request.querystring("F") &"'><img src='Images/Icons/button_post.gif' border='0' align='absmiddle' alt='>> Post New Topic'></a></td></tr></table>")
	response.write("<table width='100%' border='0' cellspacing='1' cellpadding='1' align='center' class='main'><form action='displayforum.asp?F="& request.querystring("F") &"' method='post' name='showposts'><tr valign='middle' class='sub-title'><td height='15' align='center'>")
	response.write("Show posts from the <select name='postsdate'><option value='10'")
	if Site_Topics_Date = 10 then response.write("selected>Last 10 Days</option>") else response.write(">Last 10 Days</option>")
	response.write("<option value='20'")
	if Site_Topics_Date = 20 then response.write("selected>Last 20 Days</option>") else response.write(">Last 20 Days</option>")
	response.write("<option value='30'")
	if Site_Topics_Date = 30 then response.write("selected>Last 30 Days</option>") else response.write(">Last 30 Days</option>")
	response.write("<option value='60'")
	if Site_Topics_Date = 60 then response.write("selected>Last 60 Days</option>") else response.write(">Last 60 Days</option>")
	response.write("<option value='100'")
	if Site_Topics_Date = 100 then response.write("selected>Last 100 Days</option>") else response.write(">Last 100 Days</option>")
	response.write("<option value='365'")
	if Site_Topics_Date = 365 then response.write("selected>Last Year</option>") else response.write(">Last Year</option>")
	
	response.write("</select> In <select name='postorder'><option value='ASC'")
	if Site_Topics_Order = "ASC" then response.write("selected>Ascending</option>") else response.write(">Ascending</option>")
	response.write("<option value='DESC'")
	if Site_Topics_Order = "DESC" then response.write("selected>Descending</option></select>") else response.write(">Descending</option></select>")
	response.write(" Order <input type='image' src='Images/Icons/button_go.gif' border='0' align='absmiddle' height='20px' width='30px'></td></tr></form></table>")

	'Grab the names of all of the moderators of this forum.
	set rsModerators = server.createobject("adodb.recordset")
	sqlModerators = "SELECT User_Name FROM Forum_Moderator, Forum_Users WHERE Mod_Forum_ID = "& clng(request.querystring("F")) &" AND Mod_User_ID = User_ID;"
	rsModerators.open sqlModerators, adoConn, CMDText
	if not rsModerators.eof then
		ModeratorCnt = rsModerators.recordCount
		ModeratorData = rsModerators.GetRows()
	else
		ModeratorCnt = 0
	end if
	rsModerators.close
	set rsModerators = nothing
	
	'Grab the user names and ID's of all members currently connected and looking at this forum
	set rsUserStats = server.createobject("adodb.recordset")
	sqlUserStats = "SELECT User_ID, User_Name, User_Online_View, User_Laston_Date FROM Forum_Users WHERE User_Laston_Date >= '"& search_time(-10)&"' AND User_LastURL = '"& User_URL &"' ORDER BY User_Laston_Date DESC;"
	rsUserStats.open sqlUserStats, adoConn, CMDText
	if not rsUserStats.eof then
		UserStatCnt = rsUserStats.recordCount
		UserStatData = rsUserStats.GetRows()
	else
		UserStatCnt = 0
	end if
	rsUserStats.close
	set rsUserStats = nothing
	
	response.write("<table width='100%' border='0' cellspacing='1' cellpadding='3' align='center' class='main'><tr class='sub-title'><td align='left' valign='middle'>该版面的斑竹: ")
	tempCnt = 0 
	if tempCnt = ModeratorCnt then
		response.write("<b>无</b>")
	else
		do until tempCnt = ModeratorCnt
			if tempCnt + 1 = ModeratorCnt then
				response.write("<b>" & ModeratorData(0, tempCnt) & "</b>")
			else
				response.write(" <b>" & ModeratorData(0, tempCnt) & "</b>,")
			end if
			tempCnt = tempCnt + 1
		loop
	end if
	response.write("</td></tr>")

	if Site_View_Online = 1 then
	response.write("<tr class='body'><td align='left' valign='top'>在线名单: ")
	'List all online users that have selected to be listed
		tempCnt = 0
		
		do until tempCnt = UserStatCnt
			if UserStatData(2, tempCnt) = 1 then
				if UserStatData(0, tempCnt) = session("UserID") then
					response.write("<b>" & UserStatData(1, tempCnt) & "</b>")
				else
					response.write("<a href='profile.asp?I=" & UserStatData(0, tempCnt) & "'>" & UserStatData(1, tempCnt) & "</a>")
				end if
				if tempCnt + 1 < UserStatCnt then
					response.write(", ")
				end if
			end if
			tempCnt = tempCnt + 1
		loop
		response.write("</td></tr>")
	end if
	response.write("</table>")
end if
%>
<!--#include file="Includes/inc-footer.asp" -->
</body>
</html>