board.asp

BBS论坛的开发和设计

If rst.RecordCount >= 1 Then
	rst.MoveLast
	markid = rst("lastpost")
	markorder=rst("displayorder") 
	'response.write markid
	rst.close
	sqlt = "select Top " & iPageSize & " threadID,thread_title,posttime,pollid,openpost,bestpost,displayorder,toppost,replycount,viewcount,postuserid,postusername,lastpost,lastposterid,lastposter,lastcontent,moveid,icons,rating from JBB_thread where Board_ID="&BoardID & best & " And ((DATEDIFF('s', lastpost, '"& markid &"') > -1 and displayorder="&markorder&") or displayorder<"&markorder&") order by displayorder desc,lastpost desc"
	rst.open sqlt,conn,1,1
	if Not(rst.eof and rst.bof) then	
		for i = 1 To iPageSize
			if rst.eof then exit for
  			response.write "<tr>" 
    		response.write "<td class=""table-light""> <div align=""center"">"
			if rst("toppost") then
				response.Write("<img src="""& BBS_Skin(3) &"top.gif"">")
			elseif rst("pollid") <> 0 then
				response.Write("<img src="""& BBS_Skin(3) &"closedb.gif"">")
			elseif Not(rst("openpost")) then
				response.Write("<img src="""& BBS_Skin(3) &"close.gif"">")
			elseif rst("viewcount") => 50 then
				response.Write("<img src="""& BBS_Skin(3) &"hot.gif"">")
			elseif DATEDIFF("s", rtrim(rst("lastpost")), lastonline) < 1 then
				response.Write("<img src="""& BBS_Skin(3) &"New.gif"">")
			else
				response.Write("<img src="""& BBS_Skin(3) &"Old.gif"">")
			End if
			'response.Write(DATEDIFF("m", rtrim(rst("posttime")),lastonline))
    		response.write "</div></td>"
    		response.write "<td width=""18"" class=""table-dark"">"
			if trim(rst("icons")) <> 0 then
				response.Write("<img src=""images/posticon/icon"& trim(rst("icons")) &".gif"">")
			End if
			response.write "</td>"
    		response.write "<td class=""table-dark"">" 
    		if rst("moveid") > 0 then
				threadURL = rst("moveid")
			else
				threadURL = rst("threadID")
			End if
			response.Write "<a title=""最后跟贴:"&chr(13)&rst("lastcontent")&""" href=""showthread.asp?threadid="& threadURL &""">"& rtrim(rst("thread_title")) &"</a>"
			if rst("bestpost") then
				response.Write("<img src="""& BBS_Skin(3) &"best.gif"">")
			End if		
			New_thread =  DATEDIFF("h", rst("posttime"), now())
			if New_thread <= 24 then
				response.Write(" <img src="""& BBS_Skin(3) &"topnew1.gif"">")
			elseif New_thread <= 48 then
				response.Write(" <img src="""& BBS_Skin(3) &"topnew.gif"">")
			End if
			response.write "</td>"
  		  	response.write "<td width=""80""  class=""table-light""><div align=""center"">"
			if rst("postuserID") <> 0 then
				response.write"<a href=""user.asp?userID="& rst("postuserID") &""" target=""_blank"">"& rtrim(rst("postusername")) &"</a>"
			else
				response.Write("游客")
			End if
  		  	response.write "</div></td>"
	    	response.write "<td width=""30"" class=""table-dark""><div align=""center"">"&rst("viewcount")&"</div></td>"
	 	   	response.write "<td width=""30"" class=""table-light""><div align=""center"">"&rst("replycount")&"</div></td>"
	    	response.write "<td width=""220"" class=""table-dark""> <div align=""right"">"&rst("lastpost")&" | "
			if rst("lastposterid") <> 0 then
				response.write "<a href=""user.asp?userID="& rst("lastposterid") &""" target=""_blank"">"& rtrim(rst("lastposter")) &"</a>"
			else
				response.Write("游客")
			End if
			response.write "<a href=""showthread.asp?threadid="&threadURL&"&page=end#end""><img src=""images/lastpost.gif"" alt=""转到最新贴"" border=""0""></a>"
			response.write "</div></td>"
			'批量选择
			if usergroup <= 3 then
				response.write "<td width=""10"" class=""table-light""><input type=""checkbox"" name=""threads"" value="""&threadURL&"""></td>"
			end if
			response.write "</tr>"
			rst.MoveNext
		Next'i
	End if
End if
rst.close
set rst = Nothing
response.write "</form></table>"

'批量选择
if usergroup <= 3 then
%>
<table border="0" align="center" cellpadding="0" cellspacing="0" class="table-noColor">
  <tr>   
	<script language="javascript">
		function AllSet()
		{
			var idList = document.threadForm;
			for(var i=0;i<idList.threads.length;i++)
			{
				document.threadForm.threads[i].checked = true;
		 	}
		}
		
		function ReSet()
		{
			var idList = document.threadForm;
			for(var i=0;i<idList.threads.length;i++)
			{
				document.threadForm.threads[i].checked = false;
		 	}
		}
		
		function Reverse()
		{
			var idList = document.threadForm;
			for(var i=0;i<idList.threads.length;i++)
			{
				var e = document.threadForm.threads[i];
				if(e.checked)
				{
					document.threadForm.threads[i].checked = false;					
				}
				else
				{
					document.threadForm.threads[i].checked = true;
				}
		 	}
		}
				
		function batMove()
		{
			if (setID()!=true)
			{
				alert('请先选择要移动的主题');
			}
			else
			{
				if((confirm('您确定要移动这些主题？')) == true)
				{
					threadForm.action="batMoveThread.asp";
					threadForm.submit();
				}
			}
		}
		
		function batDel(){
			if (setID()!=true)
			{
				alert('请先选择要删除的主题');
			}else{
				if((confirm('您确定要移贴子这些主题？')) == true){
					if((confirm('再次确认,删除这些主题后无法恢复,您真的确定删除吗？')) == true){
						threadForm.action="batDelThread.asp";
						threadForm.submit();
					}
				}
			}
		}
		
		function setID()
		{
			var set = false;
			var idList = document.threadForm;
			for (var i=0;i<idList.threads.length;i++)
			{
				if (idList.threads[i].checked){
					set = true;
					break;
				}
			}
			return set;						
		}
	</script>
    <td height="30" align="right"> <input name="button" type=button onclick="AllSet()" value="全选"> 
      <input name="button" type=button onclick="Reverse()" value="反选"> 
	  <input name="button" type=button onclick="ReSet()" value="不选">
      <input name="MoveSubmit" type="button" id="MoveSubmit" value="移动所选主题" onClick="batMove()">
      <input name="DelSubmit" type="button" id="DelSubmit" value="删除所选主题" onClick="batDel()">
	  </td>
  </tr>
</table>
<%
End if
%>
<table border="0" align="center" cellpadding="0" cellspacing="0" class="table-noColor">
  <tr>
    <td> 
      <%
	 totalpages = int(totalpages)
	if totalpages < 1 then totalpages = 1
	response.Write "页次："& currentpage &"/" & totalpages &"页 每页"& iPageSize &" 主题数"& totalcount &" "
	%>
    </td>
    <td height="30">分页: 
      <%
beginpage = 1
endpage = totalpages
page = int(currentpage)
if totalpages >= 9 then
	if page >= 5 then
		beginpage = page - 4
		if page <= (totalpages - 4) then
			endpage = page + 4
		else
			endpage = totalpages
			beginpage = totalpages - 4
		end if
	else
		beginpage = 1
		endpage = 9
	end if
end if
if beginpage>1 then response.write "&nbsp;<a title=""第一页"" href=""Board.asp?BoardID=" & BoardID &bestpage&"""><font face=webdings>9</font></a>"
for j = beginpage to endpage
	if j = page then
		response.write"&nbsp;<b>[" & j & "]</b>&nbsp;"
	else
		response.write"&nbsp;<a href=""Board.asp?BoardID=" & BoardID & "&page=" & j & bestpage &""">[" & j & "]</a>&nbsp;"
	end if
next
if endpage < totalpages then response.write "&nbsp;<a title=""最末页"" href=""Board.asp?BoardID=" & BoardID & "&page="& totalpages & bestpage &"""><font face=webdings>:</font></a>"
%> </td><form name="form1" method="post" action="">
    <td><div align="right">转到:第 
        <input name="page" type="text" size="3" maxlength="5">   
        <input type="submit" name="Submit" value="页">
      </div></td></form>
  </tr>
</table>

<table border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  <tr> 
    <td class="table-light">图例: <img src="<%=BBS_Skin(3)%>ann.gif">&nbsp;公告&nbsp;&nbsp; 
      <img src="<%=BBS_Skin(3)%>top.gif">&nbsp;置顶&nbsp;&nbsp; 
      <img src="<%=BBS_Skin(3)%>new.gif">&nbsp;新帖&nbsp;&nbsp; 
      <img src="<%=BBS_Skin(3)%>old.gif">&nbsp;旧帖&nbsp;&nbsp; 
      <img src="<%=BBS_Skin(3)%>hot.gif">&nbsp;热帖&nbsp;&nbsp; 
      <img src="<%=BBS_Skin(3)%>close.gif">&nbsp;关闭&nbsp;&nbsp; 
      <img src="<%=BBS_Skin(3)%>best.gif">&nbsp;精华&nbsp;&nbsp; 
      <img src="<%=BBS_Skin(3)%>closedb.gif">&nbsp;投票&nbsp;&nbsp;<img src="<%=BBS_Skin(3)%>topnew1.gif">&nbsp;24H新主题&nbsp;&nbsp;<img src="<%=BBS_Skin(3)%>topnew.gif">&nbsp;48H新主题</td>
  </tr>
</table>
<table height="35" border="0" align="center" cellpadding="0" cellspacing="0" class="table-noColor">
  <tr> 
    <td>在 <%=Board_Config(2)%> 发新话题奖励: 积分 <%=Board_Config(15)%> 点 - 发表回复奖励: 积分 <%=Board_Config(15)%> 点 - 贴子允许 <%=Board_Config(23)%> 个字 <div align="right"> </div></td>
  </tr>
</table>
<table height="35" border="0" align="center" cellpadding="0" cellspacing="0" class="table-noColor">
  <tr> 
    <td> <div align="right"> 
        <%
	All_Board
	response.write All_Board_Menu
	%>
      </div></td>
  </tr>
</table>
<br>
<%
Call Bottom()
%>