<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/conndb.asa"-->
<!--#include file="inc/function.asp"-->

<%
navdh=navdh & "<a href='index.asp#new'>发帖</a>"

' 这里显示Default页面标题
' 如需修改Default页面标题，请修改conndb.asa文件中“TieBa_Index_Title”的值
' 请勿在此修改
webtitle=TieBa_Index_Title

'Add For V1.5
if Left(sys_close,1)="1" then
	Response.Redirect("./index.asp")
	Response.End()
End if

navright=""
call showpage()
sub pagecontent()%>

<!-- 正文的CSS -->
<DIV id=defaultbody>
	<DIV id=default-l>
<%
If bbs_about<>"" Then response.write "<DIV class=adv>"&bbs_about&"</DIV>"
%>
			<DIV id=defaultcontent>
<%leftright="right_content"

	if ubound(Arr_Category,1)=0 then Response.Write("还没有贴吧")
	Category_Len=ubound(Arr_Category,2)
	For ksej=0 To Category_Len
	If leftright="left_content" Then
	leftright="right_content"
	Else 
	leftright="left_content"
	End If 
'开始循环
'boardid=Arr_Category(1,kkkj)
boardid=Arr_Category(1,ksej)
%>
<DIV class=<%=leftright%>>
    <!--DIV class=defaultbar><A href="index.asp?boardid=<%=boardid%>"><%=Arr_Category(0,kkkj)%></A></DIV-->
    <DIV class=defaultbar><A href="index.asp?boardid=<%=boardid%>"><%=Arr_Category(0,ksej)%></A></DIV>
    <UL>
	<%set rs1=server.CreateObject("adodb.recordset")
		Rs1.open"select top 6 Id,title,addtime,TitleColor,titleBold From "&bbstable&" where boardid="&boardid&" and ischeck=1 order by addtime Desc",conn,1,1
		if not rs1.eof then
			while not rs1.eof
			title=trim(rs1("title"))
			if rs1("TitleColor")<>"" Then title="<font color="&rs1("TitleColor")&">"&title&"</font>"
			if CInt(rs1("titleBold"))=1 Then title="<B>" & title & "</B>"
	%>				  
    <LI><SPAN class=date>[<%=DateToStr(rs1("addtime"),"m-d")%>]</SPAN> <A title="<%=rs1("title")%>"  
		href="show.asp?id=<%=rs1("ID")%>" target=_blank><%=title%></A></LI>
   <%
	  Rs1.MoveNext
	  wend
	  else
	%>
     <LI> 暂无信息</LI>
      <%end if
   rs1.close
   set rs1=nothing %>  
				 </UL></DIV>

<%	If leftright="right_content" Then response.write ("<div class=""clear""></div>")	
		Next
%>
			
			</DIV><!-- content -->
<%
If bbs_about1<>"" Then response.write "<DIV class=adv>"&bbs_about1&"</DIV>"
%>
			</DIV><!-- default-l -->
<DIV id=default-r>
<% If ispicurl=1 Then %>
<div style="padding-top: 0px;">
<%
set rs1=server.CreateObject("adodb.recordset")
			Rs1.open"select top 5 Id,title,picurl From "&bbstable&" where ischeck=1 and picurl<>'http://' and picurl<>'' and (istop>0 or isgood=1) order by addtime Desc,id desc",conn,1,1
			if not rs1.eof then
			    while not rs1.eof
title_array=title_array&trim(TitleLeft(rs1("title"),36))&"|"
pic_array=pic_array&trim(rs1("picurl"))&"|"
id_array=id_array&"show.asp?id="&trim(rs1("ID"))&"|"
			  Rs1.MoveNext
			  wend
			  else
title_array="暂无图片"
pic_array="images/nopic.jpg"
id_array="1"
end If
If right(title_array,1)="|" Then title_array=Left(title_array,len(title_array)-1)
If right(id_array,1)="|" Then id_array=Left(id_array,len(id_array)-1)
If right(pic_array,1)="|" Then pic_array=Left(pic_array,len(pic_array)-1)
   rs1.close
   set rs1=nothing %>  
<script type="text/javascript">
<!--
var focus_width=270
var focus_height=210
var text_height=20
var swf_height = focus_height+text_height
var pics='<%=pic_array%>'
var links='<%=id_array%>'
var texts='<%=title_array%>'
	document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="images/dreamsun.swf"><param name="quality" value="high"><param name="bgcolor" value="#E5E5EB">');
document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
	document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
document.write('<embed src="images/dreamsun.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#E5E5EB" quality="high" width="'+ focus_width +'" height="'+ swf_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');
document.write('</object>');
//-->
</script>
</div>
<%End If %>
<DIV id=defaultsidebar>
<DIV class=leftbar>
<DIV class=defaultbar><A href="#">置顶文章</a></DIV>
<UL>
				<%set rs1=server.CreateObject("adodb.recordset")
			Rs1.open"select top 5 Id,title From "&bbstable&" where istop>0 and ischeck=1 order by addtime Desc,id desc",conn,1,1
			if not rs1.eof then
			    while not rs1.eof
title=trim(rs1("title"))
%>				  <LI> <A title="<%=title%>" 
				  href="show.asp?id=<%=rs1("ID")%>" target=_blank><%=title%></A></LI>
              <%
			  Rs1.MoveNext
			  wend
			  else
			  %>
     <LI> 暂无信息</LI>
      <%end if
   rs1.close
   set rs1=nothing %>  
				 </UL>
</DIV>

<DIV class=leftbar>
<DIV class=defaultbar><A href="index.asp?act=jinghua" target=_blank>精华文章</A></DIV>
<UL>
				<%set rs1=server.CreateObject("adodb.recordset")
			Rs1.open"select top 5 Id,title From "&bbstable&" where isgood=1 and ischeck=1 order by addtime Desc,id desc",conn,1,1
			if not rs1.eof then
			    while not rs1.eof
title=trim(rs1("title"))
%>				  <LI> <A title="<%=title%>" 
				  href="show.asp?id=<%=rs1("ID")%>" target=_blank><%=title%></A></LI>
              <%
			  Rs1.MoveNext
			  wend
			  else
			  %>
     <LI> 暂无信息</LI>
      <%end if
   rs1.close
   set rs1=nothing %>  
				 </UL></DIV>
<DIV class=leftbar>
<DIV class=defaultbar><A href="index.asp?act=hits" target=_blank>热门点击</A></DIV>
<UL>
				<%set rs1=server.CreateObject("adodb.recordset")
			Rs1.open"select top 5 Id,title From "&bbstable&" where ischeck=1 order by hits Desc,id desc",conn,1,1
			if not rs1.eof then
			    while not rs1.eof
title=trim(rs1("title"))
%>				  <LI> <A title="<%=title%>" 
				  href="show.asp?id=<%=rs1("ID")%>" target=_blank><%=title%></A></LI>
              <%
			  Rs1.MoveNext
			  wend
			  else
			  %>
     <LI> 暂无信息</LI>
      <%end if
   rs1.close
   set rs1=nothing %>  
				 </UL>
</DIV>
<DIV class=leftbar>
<DIV class=defaultbar><A href="index.asp?act=recount" target=_blank>热门回复</A></DIV>
<UL>
				<%set rs1=server.CreateObject("adodb.recordset")
			Rs1.open"select top 5 Id,title From "&bbstable&" where ischeck=1 order by recount Desc,id desc",conn,1,1
			if not rs1.eof then
			    while not rs1.eof
title=trim(rs1("title"))
%>				  <LI> <A title="<%=title%>" 
				  href="show.asp?id=<%=rs1("ID")%>" target=_blank><%=title%></A></LI>
              <%
			  Rs1.MoveNext
			  wend
			  else
			  %>
     <LI> 暂无信息</LI>
      <%end if
   rs1.close
   set rs1=nothing %>  
				 </UL>
</DIV>
<DIV class=leftbar>
<DIV class=defaultbar><A href="#">用户财富金牌榜</A></DIV>
<UL>
<%set rs1=server.CreateObject("adodb.recordset")
Rs1.open"select top 8 username,umoney From "&usertable&"  order by umoney Desc,id desc",conn,1,1
if not rs1.eof then
    For i=1 To 8
	if rs1.eof Then exit for
username=DropFuckWords(LCase(Rs1("username")))
username2=LCase(Rs1("username"))
If ubound(split(username,"."))<3 And instr(username,".*")=0 And ((Dreamsun_Name<>"" And isuserinfo=0) Or isuserinfo=1) Then
username = "<a target=_blank href=user.asp?Action=infoshow&username="&username2&">"& username &"</a>"
End If 
%>   <LI><SPAN class=date>[<%=rs1("umoney")%>]</SPAN>第<%=i%>名：<%=username%></LI>
              <%   If i>8 Then Exit For 
rs1.movenext
  Next 
  else
  %>
     <LI> 暂无信息</LI>
      <%end if
   rs1.close
   set rs1=nothing %>  
</UL>
</DIV>
</DIV><!-- defaultsidebar -->
</DIV><!-- default-r -->
		</DIV><!-- main -->
<div class=clear></div>
		<div class=freeadv><% response.write freeadv()%></div>
<div class=clear></div>
		<div class=friendlink>
		<DIV class=fltitle>友情链接</DIV>
		<div><% response.write friendlink(8,100,1)%></div></div>
<%end sub%>
<script language="javascript" type="text/javascript" src="http://js.users.51.la/761046.js"></script>