displaytopic.asp

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

			response.write("发帖数: "& PostsData(14,tempCnt) &"<br>")
		end if
		response.write("状态: ")
		if PostsData(21,tempCnt) = 1 then
			if (db_time() - PostsData(10,tempCnt)) > 510 then
				response.write("<b>下线</b>")
			else
				response.write("<b>在线</b>")
			end if
		else
			response.write("<b>offline</b>")
		end if
		'End user details
		
		response.write("</td><td height='5' align='left' valign='top'><table width='100%' height='100%' border='0' cellpadding='0' cellspacing='0' nowrap><tr valign='top' class='body'><td>")
		'Show post title and then the post body
		if PostsData(4,tempCnt) <> ""  then
			response.write("<b>" & PostsData(4,tempCnt) & "</b><br><br>")
		end if
		response.Write(PostsData(5,tempCnt) &"</td></tr>")
		response.write("<tr align='left' valign='bottom' class='body'><td height='10' align='right'>IP Address: <a href=""#"" onclick=""javascript:window.open('pop-details.asp?U="& PostsData(7, tempCnt) &"&D=IP', '', 'toolbar=0,scrollbars=0,location=0,statusbar=0,menubar=0,resizable=0,width=240,height=100');"">Logged</a></td></tr>")
		if Site_Allow_Signature = 1 then
			if PostsData(11,tempCnt) <> "" and PostsData(6,tempCnt) = 1 then
				response.write("<tr align='left' valign='bottom' class='body'><td height='10'><hr class='post'>"& PostsData(11,tempCnt) &"</td></tr>")
			end if
		end if
		response.write("</table></td></tr><tr class='sub-title'><td align='center'>"& web_time(PostsData(2,tempCnt), Site_Time_Format, "long"))
		if tempCnt = (PostsCnt - 1) then
			response.write("<a name='last'></a>")
		end if
		
		'User profile details
		response.write("</td><td><table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td align='left' valign='top'>")
		response.write("<a href='profile.asp?I="& PostsData(7, tempCnt) &"'><img src='Images/Icons/button_profile.gif' align='absmiddle' border='0'></a> ")
		if PostsData(19, tempCnt) <> "" then
			response.write("<a href='"& PostsData(19, tempCnt) &"' target='_blank'><img src='Images/Icons/button_www.gif' align='absmiddle' border='0'></a> ")
		end if
		if PostsData(20, tempCnt) = 1 then
			response.write("<img src='Images/Icons/button_email.gif' onclick=""javascript:window.open('pop-details.asp?U="& PostsData(7, tempCnt) &"&D=Email', '', 'toolbar=0,scrollbars=0,location=0,statusbar=0,menubar=0,resizable=0,width=240,height=100');"" align='absmiddle' style='cursor:pointer'> ")
		end if
		if PostsData(16,tempCnt) <> "" then
			response.write("<img src='Images/Icons/button_icq.gif' onclick=""javascript:window.open('pop-details.asp?U="& PostsData(7, tempCnt) &"&D=ICQ', '', 'toolbar=0,scrollbars=0,location=0,statusbar=0,menubar=0,resizable=0,width=240,height=100');"" align='absmiddle' style='cursor:pointer'> ")
		end if
		if PostsData(17,tempCnt) <> "" then
			response.write("<img src='Images/Icons/button_msn.gif' onclick=""javascript:window.open('pop-details.asp?U="& PostsData(7, tempCnt) &"&D=MSN', '', 'toolbar=0,scrollbars=0,location=0,statusbar=0,menubar=0,resizable=0,width=240,height=100');"" align='absmiddle' style='cursor:pointer'> ")
		end if
		if PostsData(18,tempCnt) <> "" then
			response.write("<img src='Images/Icons/button_aim.gif' onclick=""javascript:window.open('pop-details.asp?U="& PostsData(7, tempCnt) &"&D=AIM', '', 'toolbar=0,scrollbars=0,location=0,statusbar=0,menubar=0,resizable=0,width=240,height=100');"" align='absmiddle' style='cursor:pointer'> ")
		end if
		'End user profile details
		
		response.write("</td><td align='right' valign='middle'><a href='editpost.asp?P="& (PostsData(1,tempCnt)) &"'><img src='Images/Icons/button_edit.gif' align='absmiddle' border='0' alt='>> Edit This Post'></a> <a href='newreply.asp?T="& int(request.querystring("T")) &"&Q="& PostsData(1,tempCnt) &"'><img src='Images/Icons/button_quote.gif' align='absmiddle' border='0' alt='>> Quote This Post'></a>")
		response.write("</td></tr></table></td></tr></table>")	
		tempCnt = tempCnt + 1
	loop
	
	'Draw page navigation controls
	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
	response.write("<table border='0' cellspacing='1' cellpadding='0' align='center' class='plain'><tr><td align='right'><a href='newtopic.asp?F="& strForumID &"'><img src='Images/Icons/button_post.gif' border='0' align='absmiddle' alt='>> Post New Topic'></a> ")
	if Topic_Status = 1 then
		response.write("<a href='newreply.asp?T="& int(request.querystring("T")) &"'><img src='Images/Icons/button_reply.gif' border='0' align='absmiddle' alt='>> Reply To This Post'></a></td></tr></table>")
	else
		response.write("<img src='Images/Icons/button_closed.gif' align='absmiddle' alt='>> Topic Closed'></td></tr></table>")
	end if

	'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 = "& strForumID &" 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 valign='middle' class='sub-title'><td align='left'>该版面的斑竹: ")
	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 valign='top' class='body'><td align='left'>在线名单: ")
		'List all online users that have selected to be listed
		tempCnt = 0
		do until tempCnt = UserStatCnt
			if UserStatData(2, tempCnt) <> 0 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>