<!--#include file="inc.asp"-->
<%
Dim Page,rs,Num,PageSize,PageCount,i,target
Dim SQL,SqlAdd,BoardID,prevDepth
If Request("Page")<>"" And BBS94KK.Fun.isInteger(Request("Page")) then Page = CLng(Request("Page"))
If Request("BoardID")<>"" And BBS94KK.Fun.isInteger(Request("BoardID")) then BoardID=CLng(Request("BoardID"))
SqlAdd=" WHERE  boardid not in(0)" '禁止列出这个版面
target="_blank" '新窗口打开

target="target="&target
If Request("Action")="topicindex" then 
%>
<html>
<head>
<title><%=BBS94KK.Info(0)%> -文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312" >
<link rel="stylesheet" href="archive.css">
</head>
<body>
<div class="pagebody">
<div id="content">
<ol start="1">
<%
	sql="SELECT TopicID,Caption,boardID,ReplyNum,Name,AddTime,Hits FROM KK_topic "&SqlAdd&" ORDER BY TopicID desc"
	
	Set rs=BBS94KK.Execute(SQL)
	If not(rs.bof and rs.eof) then
	rs.Move PageSize*(Page-1)
	While not rs.eof
%>
<li><a href=<%=rs(0)%>.htm><%=rs(1)%></a> <%=rs(6)%> <i>(<%=rs(3)%> 个回复)</i></li>
<%
	rs.MoveNext
	wend
	Else
		Response.write"暂时没有帖子"
	End if
	Rs.close:Set rs=Nothing
%>
</ol>
</div>
<div id="copyright">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 无图论坛&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
	<font color="#FFFFFF">&nbsp;</font><a href=http://www.ju4t.com><font color="#FFFFFF">恋恋网络社区</font></a></div>
</div>
</body>
</html>
<%
else
%>
<html>
<head>
<title><%=BBS94KK.Info(0)%> - 文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312" >
<link rel="stylesheet" href="archive.css">
</head>
<body>
<div class="pagebody">
<%
if BoardID<>0 then
SqlAdd=SqlAdd&" and BoardID="&BoardID

Set rs=BBS94KK.Execute("select Count(*) from KK_topic "&SqlAdd)
If not(rs.bof and rs.eof) then
	Num=rs(0)
Else
	Response.write"暂无数据"
End if
Rs.close:Set rs=Nothing

PageSize=200
PageCount=Cint((Num)/PageSize+0.5)
if Page < 1 or IsNull(Page) Then    Page = 1
if Page > PageCount Then  Page = PageCount	
%>
<div id="navbar">
<a href=><%=BBS94KK.Info(0)%></a> > <a href=Archive_index.asp>版面列表</a> > <a href=Archive_index.asp?BoardID=<%=BoardID%>&BoardType=<%=Request("BoardType")%>&BoardName=<%=Request("Boardname")%>><%=server.htmlencode(Request("BoardName"))%></a>
</div>
<hr>
<p class="largefont">查看完全版本 :<a href=Archive_index.asp>首页</a> <a target=_blank href="list.asp?BoardID=<%=BoardID%>"><%=server.htmlencode(Request("BoardName"))%></a></p>
<hr>
<div id="pagenumbers"><b>Pages :</b>
<%
For I=1 To PageCount
if Page=I then
%>
[<b><%=I%></b>]
<%
else
%>
<a href="Archive_index.asp?BoardID=<%=BoardID%>&BoardName=<%=server.htmlencode(request("boardname"))%>&Page=<%=I%>"><%=I%></a>
<%
end if
Next
%>
</div>
<hr>
<div id="content">
<ol start="<%=(Page-1)*PageSize+1%>">
<%
	sql="SELECT top "&cstr(PageSize*(Page))&" TopicID,Caption,boardID,ReplyNum,Name,AddTime,hits,SqlTableID FROM KK_topic "&SqlAdd&" ORDER BY TopicID desc"
	Set rs=BBS94KK.Execute(SQL)
	If not(rs.bof and rs.eof) then
	rs.Move PageSize*(Page-1)
	While not rs.eof
%>
<li><a <%=target%>  href=Archive_view.asp?boardID=<%=rs(2)%>&ID=<%=rs(0)%>&boardname=<%=server.htmlencode(request("boardname"))%>&TB=<%=rs(7)%>><%=rs(1)%></a> <i>(<%=rs(6)%> 次点击,<%=rs(3)%> 个回复)</i></li>
<%
	rs.MoveNext
	wend
	Else
		Response.write"暂无数据"
	End if
	Rs.close:Set rs=Nothing
%>
</ol>
</div>
<% else %>
<div id="navbar">
<a href=><%=BBS94KK.Info(0)%></a> > <a href=archive_index.asp>版面列表</a>
</div>
<hr>
<p class="largefont">查看完全版本 :<a href=Archive_index.asp>首页</a> <a target=_blank href=""><%=BBS94KK.Info(0)%></a></p>
<hr>
<div id="content">
<ul>
<%SQL="SELECT boardid,Depth,Parentstr,BoardName,ParentID FROM KK_Board "&SqlAdd&" ORDER BY RootID,orders"
	Set rs=bbs94kk.execute(SQL)
	While not rs.eof
	if rs(1)=0 then
		%><li><strong><%=rs(3)%></strong></li></ul><ul>
		<%
	else
		%><li><a  href="Archive_index.asp?BoardID=<%=rs(0)%>&BoardName=<%=rs(3)%>"><%=rs(3)%></a></li>
		<%
	end if
	prevDepth=rs(1)
	rs.MoveNext
	wend
	rs.close
	set rs=nothing
%>
</ul>
</div>
<% end if %>
<div id="copyright">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 无图论坛&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
	<font color="#FFFFFF">&nbsp;</font><a href=http://www.ju4t.com><font color="#FFFFFF">恋恋网络社区</font></a></div>
</div>
</body>
</html>
<%
end if
Set BBS94KK = Nothing
%>