?? board.asp
字號:
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 " <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" <b>[" & j & "]</b> "
else
response.write" <a href=""Board.asp?BoardID=" & BoardID & "&page=" & j & bestpage &""">[" & j & "]</a> "
end if
next
if endpage < totalpages then response.write " <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"> 公告
<img src="<%=BBS_Skin(3)%>top.gif"> 置頂
<img src="<%=BBS_Skin(3)%>new.gif"> 新帖
<img src="<%=BBS_Skin(3)%>old.gif"> 舊帖
<img src="<%=BBS_Skin(3)%>hot.gif"> 熱帖
<img src="<%=BBS_Skin(3)%>close.gif"> 關閉
<img src="<%=BBS_Skin(3)%>best.gif"> 精華
<img src="<%=BBS_Skin(3)%>closedb.gif"> 投票 <img src="<%=BBS_Skin(3)%>topnew1.gif"> 24H新主題 <img src="<%=BBS_Skin(3)%>topnew.gif"> 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()
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -