search.asp

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

				else
					image = "new"
				end if
		
				'Select the appropriate topic image
				select case SearchData(7,tempCnt)
					case "0"
					'Topic locked
						response.write("<img src='Images/Icons/folder_locked.gif' align='absmiddle' alt='>> Locked'>")
					case "1"
					'Topic open 
						select case SearchData(6,tempCnt)
							'Standard topic
							case "1"
								select case image
									case "old"
										if SearchData(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 SearchData(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
							'Sticky Topic
							case "2"
								select case image
									case "old"
										if SearchData(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 SearchData(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 SearchData(6,tempCnt) = 2 then response.write("Sticky: ")
				response.write("<a href='displaytopic.asp?T="& SearchData(0,tempCnt) &"'>"& SearchData(3,tempCnt) &"</a>") 
				
				'Calculate number of pages.
				Pages = (SearchData(5,tempCnt) + 1)/Site_View_Posts
				if (SearchData(5,tempCnt)) 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:")
					for I = 1 to Pages
						response.write("<a href='displaytopic.asp?T="& SearchData(0,tempCnt) &"&P="& I &"'>"& I &"</a>")
					next
					response.write("")
				end if
				response.write("</td><td align='center' nowrap>"& SearchData(12,tempCnt) &"</td><td width=' 15%' align='center' nowrap>"& SearchData(8,tempCnt) &"</td><td align='center'>"& SearchData(5,tempCnt) &"</td><td align='center'>"& SearchData(6,tempCnt) &"</td><td width='20%' align='right' nowrap>"& web_time(SearchData(10,tempCnt), Site_Time_Format, "Long") &"<br>by: ")
				response.write(SearchData(9,tempCnt) &"[<a href='displaytopic.asp?T="& SearchData(0,tempCnt) &"&P="& Pages &"#last'>view</a>]</td></tr>")
			tempCnt = tempCnt + 1
			loop
		end if
	end if
	response.write("</table>")
end if

if Action = "NewPosts" then
	if session("userid") <> "" then
		'Set forum page size
		iPagesize = Site_View_Topic
				
		'Set current page
		if request.querystring("P") = "" then
			iPageCurrent = 1
		else
			iPageCurrent = clng(request.querystring("P"))
		end if
		
		'Retrieve all topics from the specified forum.
		set rsSearch = server.createobject("adodb.recordset")
		rsSearch.PageSize = iPageSize
		rsSearch.CacheSize = iPageSize
		sqlSearch = "SELECT FT.Topic_ID, FT.Topic_User_ID, FT.Topic_Last_User_ID, FT.Topic_Title, FT.Topic_Views, FT.Topic_Replies, FT.Topic_Type, FT.Topic_Status, FU.User_Name AS UserOne, FU2.User_Name AS UserTwo, FT.Topic_Time, FF.Forum_Name FROM (((Forum_Posts FP INNER JOIN Forum_Topics FT ON FP.Post_Topic_ID = FT.Topic_ID) INNER JOIN Forum_Users FU ON FT.Topic_User_ID = FU.User_ID) INNER JOIN Forum_Users FU2 ON FT.Topic_Last_User_ID = FU2.User_ID) INNER JOIN Forum_Forums FF ON FT.Topic_Forum_ID = FF.Forum_ID WHERE (FT.Topic_Type <> 0 AND FT.Topic_Type <> 3) AND (FT.Topic_Time >= '"& session("laston") &"') ORDER BY Topic_Time  "& Site_Topics_Order &";"				
		rsSearch.Open sqlSearch, adoConn, CMDText	
		if rsSearch.eof or rsSearch.bof then
			response.write("<table width='100%' border='0' cellspacing='1' cellpadding='3' align='center' class='main'><tr valign='middle' class='title'><td align='center'>"& Site_Name &" // Error</td>")
			response.write("</tr><tr valign='top' class='body'><td align='center'>There have been no new posts since you last graced these boards, either things are a bit quiet or your hitting 'F5' too much! Click <a href='javascript:history.go(-1)'>here</a> if you are not redirected within 5 seconds.</td></tr></table><META HTTP-EQUIV='Refresh' CONTENT='5; URL=javascript:history.go(-1)'>")
			rsSearch.close
			set rsSearch = nothing
		else
			iPageCount = rsSearch.PageCount
			if iPageCurrent > iPageCount then iPageCurrent = iPageCount
			if iPageCurrent < 1 then iPageCurrent = 1
			rsSearch.AbsolutePage = iPageCurrent
			SearchData = rsSearch.GetRows(iPageSize)
			SearchCnt = UBound(SearchData, 2) + 1
			rsSearch.close
			set rsSearch = nothing
		
			'If the current forum is empty then do nothing
			'Re-Initialise temporary counter
			tempCnt = 0
			'Display topics from the specified forums
			response.write("<table width='100%' border='0' cellspacing='1' cellpadding='3' align='center' class='main'><tr align='left' valign='middle' class='title'><td></td><td align='left'>Topic</td><td align='center' nowrap>Forum</td><td align='center' nowrap>Topic Starter</td><td align='center'>Replies</td><td align='center'>Views</td><td align='center' nowrap>Last Post</td></tr>")
			do until tempCnt = SearchCnt
				response.write("<tr align='left' valign='middle' class='body'><td width='20' align='center'>")
				'Image Select Code
				strReadCookie = request.cookies(site_name)("read")
				strReadTopic = "r" & SearchData(0,tempCnt) & "r"
				
				if (int(session("laston")) <= int(SearchData(10,tempCnt))) or instr(1, strReadCookie, strReadTopic, 1) >= 1 or session("userid") = "" then 
					image = "old"
				else
					image = "new"
				end if
			
				'Select the appropriate topic image
				select case SearchData(7,tempCnt)
					case "0"
					'Topic locked
						response.write("<img src='Images/Icons/folder_locked.gif' align='absmiddle' alt='>> Locked'>")
					case "1"
					'Topic open 
						select case SearchData(6,tempCnt)
							'Standard topic
							case "1"
								select case image
									case "old"
										if SearchData(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 SearchData(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
							'Sticky Topic
							case "2"
								select case image
									case "old"
										if SearchData(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 SearchData(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 searchData(6,tempCnt) = 2 then response.write("Sticky: ")
				response.write("<a href='displaytopic.asp?T="& searchData(0,tempCnt) &"'>"& searchData(3,tempCnt) &"</a>") 
				
				'Calculate number of pages.
				Pages = int((searchData(5,tempCnt) + 1)/Site_View_Posts)
				if (searchData(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 > 4 then
						for I = 1 to 4
							response.write("<a href='displaytopic.asp?T="& searchData(0,tempCnt) &"&P="& I &"'>"& I &"</a>")
						next
						response.write("... <a href='displaytopic.asp?T=" & searchData(0,tempCnt) & "&P=" & Pages &"'>Last Page</a>")
					else	
						for I = 1 to Pages
							response.write("<a href='displaytopic.asp?T="& searchData(0,tempCnt) &"&P="& I &"'>"& I &"</a>")
						next
					end if	
				end if
				
				response.write("</td><td align='center' nowrap>"& SearchData(11,tempCnt) &"</td><td width=' 15%' align='center' nowrap>"& SearchData(8,tempCnt) &"</td><td align='center'>"& SearchData(5,tempCnt) &"</td><td align='center'>"& SearchData(6,tempCnt) &"</td><td width='20%' align='right' nowrap>"& web_time(SearchData(10,tempCnt), Site_Time_Format, "Long") &"<br>by: ")
				response.write(SearchData(9,tempCnt) &"[<a href='displaytopic.asp?T="& SearchData(0,tempCnt) &"&P="& Pages &"#last'>view</a>]</td></tr>")
				tempCnt = tempCnt + 1
			loop
		end if
		response.write("</table>")
			if iPageCount > 1 then
		response.write("<table border='0' cellspacing='1' cellpadding='2' align='center' class='main'><tr align='right' valign='middle' class='sub-title'><td>")
		if iPageCurrent > 1 then
			response.write("<a href='displaytopic.asp?T="& request.querystring("T") &"&p="& iPageCurrent - 1 &"'>&lt;&lt; Prev</a> ")
		end if
		
		if iPageCount > 6 then
			for I = 1 to 5
				if I = iPageCurrent then
					response.write(" ["& I &"] ")
				else
					response.write(" <a href='displaytopic.asp?T="& request.querystring("T") &"&P="&  I &"'>"& I &"</a> ")
				end if
			next
			response.write(" ... ")	
		else
			for I = 1 to iPageCount
				if I = iPageCurrent then
					response.write(" ["& I &"] ")
				else
					response.write(" <a href='displaytopic.asp?T="& request.querystring("T") &"&P="& I &"'>"& I &"</a> ")
				end if
			next
		end if
	
		if iPageCurrent < iPageCount then
			response.write(" <a href='displaytopic.asp?T="& request.querystring("T") &"&P="& iPageCurrent + 1 &"'>Next &gt;&gt;</a>")
		end if
		response.write("</td></tr></table>")
	end if

else
	%>
	<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center" class="main">
		<tr valign="middle" class="title">
		<td align="center"><%=Site_Name%> //错误</td>
		</tr>
		<tr valign="top" class="body">
		<td align="center">你还没有登陆. Click <a href="default.asp">here</a> if you are not redirected within 5 seconds.</td>
		</tr>
	</table>
	<META HTTP-EQUIV="Refresh" CONTENT="5; URL=default.asp">
	<%
	end if
end if
%>
<!--#include file="Includes/inc-footer.asp" -->
</body>
</html>