?? q.asp
字號:
<!--#include file="boardconn.asp"-->
<!--#include file="inc/sql.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/ip.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/postubb.asp"-->
<%
Dim BoardNlass,BoardClass,Boardchild,BoardName
BoardName=Request.QueryString("/")
Action=CInt(Request.QueryString("Action"))
Sql="select BoardNlass,BoardClass,BoardChild from QiQiBoy_Board_Disp where BoardName='"&BoardName&"'"
Set Rs=Conn.execute(Sql)
BoardNlass=rs(0)
BoardClass=rs(1)
BoardChild=rs(2)
Sql="select count(TopicID) from QiQiBoy_Topic_Disp where BoardNlass="&Cint(BoardNlass)&" and BoardClass="&Cint(BoardClass)&" and BoardChild="&Cint(BoardChild)&" and ParentID=0 and Status=5"
Set Rs=Conn.execute(Sql)
TopicID=rs(0)
Sql="select sum(Replys) from QiQiBoy_Topic_Disp where BoardNlass="&Cint(BoardNlass)&" and BoardClass="&Cint(BoardClass)&" and BoardChild="&Cint(BoardChild)&" and ParentID=0 and Status=5"
Set Rs=Conn.execute(Sql)
Replys=rs(0)
Sql="select BoardName from QiQiBoy_Board_Disp where BoardNlass="&Cint(BoardNlass)&" and BoardClass="&Cint(BoardClass)&" and BoardChild="&Cint(BoardChild)
Set Rs=Conn.execute(Sql)
BoardName=rs(0)
%>
<HTML>
<HEAD>
<TITLE>精華主題 - <%=HOST_NAME%> - <%=HOST_LIST%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=GB2312">
<link rel="shortcut icon" href="images/bbs.ico">
<link href="style/style.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
function form1_onsubmit() {
if (document.form1.Key.value=="")
{
alert("友情提示!\n\n請完整輸入貼吧名稱!")
document.form1.Key.focus()
return false
}
}
// -->
</script>
</HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0>
<!--#include file="top.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0>
<TBODY>
<TR>
<TD width=1% height=20 bgColor=<%=HOST_TITLE%>></TD><TD width=99% height=20 bgColor=<%=HOST_TITLE%> class=INDEX_VMALL><a href="index.asp"><font color=<%=HOST_FONT%>>首頁</font></a> <font color=<%=HOST_FONT%>>></font> <a href="t.asp?/=<%=Server.UrlEncode(BoardName)%>"><font color=<%=HOST_FONT%>><%=HTMLCode(BoardName)%></font></a> <font color=<%=HOST_FONT%>>></font> <font color=<%=HOST_FONT%>><u>精華主題</u></font></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD class=INDEX_XMALL width="7%" align=center height="20" bgColor=#eeeeee>點擊數</TD>
<TD class=INDEX_XMALL width="7%" align=center height="20" bgColor=#eeeeee>回帖數</TD>
<TD class=INDEX_XMALL width="42%" height="20" bgColor=#eeeeee>帖子主題</TD>
<TD class=INDEX_XMALL width="10%" height="20" bgColor=#eeeeee>發表作者</TD>
<TD class=INDEX_XMALL width="10%" height="20" bgColor=#eeeeee>最后回帖</TD>
<TD class=INDEX_XMALL width="13%" height="20" bgColor=#eeeeee>回帖時間</TD>
<TD class=INDEX_XMALL width="11%" height="20" bgColor=#eeeeee>所屬貼吧</TD></TR>
<%
Dim MyPageSize,MyPage
Page=CInt(Request.QueryString("T"))
MyPageSize = 50
If Not IsNumeric(Page) Or IsEmpty(Page) Or Page <=0 Then
MyPage=1
else
MyPage=Abs(Page)
end if
set rs=server.CreateObject("ADODB.RecordSet")
Sql="select * from QiQiBoy_Topic_Disp where BoardNlass="&Cint(BoardNlass)&" and BoardClass="&Cint(BoardClass)&" and BoardChild="&Cint(BoardChild)&" and ParentID=0 and status=5 Order By UpdateTime Desc"
rs.Open sql,conn,1,1
if not rs.eof then
rs.PageSize = MyPageSize
MaxPages = rs.PageCount
Total = rs.RecordCount
rs.absolutepage = MyPage
end if
dim i
Counter=0
%>
<%
for i = 1 to MyPageSize
if not rs.eof then
bgcolor="#ffffff"
if i mod 2 = 0 then
bgcolor=""&HOST_BODY&""
else
bgcolor="#ffffff"
end If
Child=rs("BoardChild")
Sql_Board="select * from QiQiBoy_Board_Disp where BoardChild="&Child
set rs_Board=server.createobject("adodb.recordset")
rs_Board.Open Sql_Board,conn,1,1
BoardName=rs_Board("BoardName")
%>
<%
TopicIp=rs("TopicIp")
ReplyIp=rs("ReplyIp")
Call IpArray(TopicIp)
Call IpArray(ReplyIp)
%>
<TR bgcolor="<%=bgcolor%>">
<TD class=INDEX_XMALL height="28" align="middle"><%Response.Write(rs(13))%></TD>
<TD class=INDEX_XMALL height="28" align="middle"><%Response.Write(rs(14))%></TD>
<TD class=INDEX_TMALL height="28"><%Call CheckContent_Gif%><% if Rs("Status")=5 then response.Write("[<font color=#cc0000>精華</font>]") else response.Write("") end if %><A href="p.asp?/=<%Response.Write(rs(2))%>"><%Response.Write(HTMLCode(rs(8)))%></A></TD>
<TD class=INDEX_XMALL height="28"><% if Rs("UserName")="" then response.Write(""&TopicIp&"") else response.Write("<a href=u.asp?/="&Server.UrlEncode(Rs("UserName"))&" target=_blank>"&HTMLCode(Rs("UserName"))&"</a>") end if %></TD>
<TD class=INDEX_XMALL height="28"><% if Rs("LastPost")="" then response.Write(""&ReplyIp&"") else response.Write("<a href=u.asp?/="&Server.UrlEncode(Rs("LastPost"))&" target=_blank>"&HTMLCode(Rs("LastPost"))&"</a>") end if %></TD>
<TD class=INDEX_XMALL height="28"><%Response.Write(rs(12))%></TD>
<TD class=INDEX_XMALL height="28"><A href="t.asp?/=<%=Server.UrlEncode(BoardName)%>"><%=HTMLCode(BoardName)%></A></TD></TR>
<%
else
exit for
end if
rs.movenext
Next
%>
<tr>
<td colspan="7" width="100%" height="30" class=INDEX_XMALL>
<%
response.Write("共有精華主題數 <font color=#cc0000>"&TopicID&"</font> 篇, 帖子數 <font color=#cc0000>"&Replys&"</font> 篇, ")
response.Write("[<a href=""?/="&Server.UrlEncode(BoardName)&"&Tpage=1"" title=""第一頁""><<</a>] ")
if MyPage > 1 then
response.Write("[<a href=""?/="&Server.UrlEncode(BoardName)&"&Tpage="&MyPage-1&""" title=""上一頁""><</a>] ")
end if
if (MyPage >= 5 and MaxPages-MyPage <1) then response.Write("[<a href=""?/="&Server.UrlEncode(BoardName)&"&Tpage="&MyPage-4&""">"&MyPage-4&"</a>] ")
if (MyPage >= 4 and MaxPages-MyPage <2) then response.Write("[<a href=""?/="&Server.UrlEncode(BoardName)&"&Tpage="&MyPage-3&""">"&MyPage-3&"</a>] ")
if MyPage >=3 then response.Write("<a href=""?/="&Server.UrlEncode(BoardName)&"&Tpage="&MyPage-2&""">["&MyPage-2&"]</a> ")
if MyPage >=2 then response.Write("<a href=""?/="&Server.UrlEncode(BoardName)&"&Tpage="&MyPage-1&""">["&MyPage-1&"]</a> ")
response.Write("[<u>"&MyPage&"</u>] ")
if MaxPages-MyPage >=1 then response.Write("[<a href=""?/="&Server.UrlEncode(BoardName)&"&Tpage="&MyPage+1&""">"&MyPage+1&"</a>] ")
if MaxPages-MyPage >=2 then response.Write("[<a href=""?/="&Server.UrlEncode(BoardName)&"&Tpage="&MyPage+2&""">"&MyPage+2&"</a>] ")
if (MyPage <3 and MaxPages-MyPage >=3) then response.Write("[<a href=""?/="&Server.UrlEncode(BoardName)&"&Tpage="&MyPage+3&""">"&MyPage+3&"</a>] ")
if (MyPage <2 and MaxPages-MyPage >=4) then response.Write("[<a href=""?/="&Server.UrlEncode(BoardName)&"&Tpage="&MyPage+4&""">"&MyPage+4&"</a>] ")
if (MyPage <1 and MaxPages-MyPage >=5) then response.Write("[<a href=""?/="&Server.UrlEncode(BoardName)&"&T="&MyPage+5&""">"&MyPage+5&"</a>] ")
if MyPage < MaxPages then
response.Write("[<a href=""?/="&Server.UrlEncode(BoardName)&"&T="&MyPage+1&""" title=""下一頁"">></a>] ")
end if
response.Write("[<a href=""?/="&Server.UrlEncode(BoardName)&"&T="&MaxPages&""" title=""最后頁"">>></a>]")
%>
</td>
</tr>
<%
rs.close
Set rs=NOTHING
conn.Close
set conn=nothing
%>
</TBODY></TABLE>
<!--#include file="end.asp"-->?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -