<!--#include file="../Include/Conn.jsp" -->
<!--#include file="../Include/const.jsp" -->
<!--#include file="../Include/char.jsp" -->
<!--#include file="../include/function.jsp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML xmlns="http://www.w3.org/1999/xhtml"><HEAD><TITLE>小圈子</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
media=all href="css/quan_index.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1555" name=GENERATOR></HEAD>
<BODY>
<DIV id=logo><SPAN><A href="login.jsp" 
target=_blank>登陆</A> <A href="../bbs/user/UserJoin.jsp" 
target=_blank>注册</A> </SPAN> <A 
title=运城地带小圈子-首页 href="#"><B>运城地带 - 小圈子</B></A> 
</DIV><!--Main start-->
<DIV id=main><!--导航 start-->
	<DIV id=nav><A href="../">首页</A> | <A 
href="QQ_default.jsp">运城地带</A> | <A 
href="QQ_index.jsp">小圈子</A> | <A 
href="../blog/">运城博客</A> | <A 
href="photo_default.jsp">网络相册</A> | <A 
href="QQ_ployall.jsp">精彩活动</A> | <A 
href="friend_index.jsp">交友频道</A> | <A 
href="../bbs/" target=_blank>运城社区</A> </DIV><!--导航 end--><!--内容contain start-->
<DIV id=contain>
<H2><IMG style="LEFT: 0px; POSITION: absolute; TOP: 0px" 
src="img/quan_index_title.gif"><A 
href="qq_default.jsp">运城地带</A> - 小圈子</H2>
<DIV class=banner><A title="The banner is Free!" 
href="#"><IMG 
src="img/quan_banner.jpg"></A></DIV><!--mid start-->
<DIV id=mid><!--search start-->
<FORM id=so name=search action=QQ_search.jsp method=post><LABEL 
for=sokey><SPAN>搜索小圈子:</SPAN> <INPUT class=soinput id=sokey size=33 
name=keyword> <INPUT id=sobot type=image src="img/so_bot.gif" 
name=imageField> </LABEL></FORM><!--search end--><!--grouplist start-->
<DIV id=grouplist><%     dim m_RecordCount,m_PageNo,m_Page
    m_RecordCount=0 : m_PageNo=0 : m_Page=0
	m_PageSize = 6 '每页显示数录数
    m_PageNo = Trim(Request.querystring("PageNo"))
	Set rs = Server.createobject("Adodb.RecordSet")
	m_Parameter = "classid="&m_ID
					sql_c="select * from t_club as A inner join t_quan as B on A.F_quanclass=B.classid"
					sql_c=sql_c&" order by A.f_regtime desc"
					'rs_c.open sql_c,conn,1,1
	                rs.open sql_c,conn,1,1
					 m_RecordCount = rs.RecordCount
      rs.PageSize = m_PageSize
      m_Page = rs.PageCount				
				%>
<H2>共创建了<%=m_RecordCount%>个小圈子</H2>
<DL>
  <DT><SPAN class=right>人数</SPAN>小圈子名称 </DT>
  <%
      if m_PageNo = ""  then m_PageNo =1
      if cint(m_PageNo) < 1 or cint(m_PageNo) > m_Page then m_PageNo = 1
      rs.AbsolutePage = m_PageNo
      rc = m_PageSize
      re = 1
	  m_Count = 0'另加
      Do while not rs.eof and rc>0
	  m_Count = m_Count +1'另加
	  if m_Count mod 2 then m_BgColor = "ffffff" else m_BgColor = "f9f9f9" '另加
        '---------------------------------
		'调用显示内容
        ShowContent()
        '---------------------------------
      rs.MoveNext
      re = re+1
      rc = rc-1
    Loop
	rs.Close

 Sub ShowContent()
 %>
  <DD><IMG src="<%=rs("f_photo")%>">  
  <H4><B><A title=<%=rs("f_name")%> 
  href="club_viewsub.jsp?id=<%=rs("f_id")%>"><%=rs("f_name")%></A></B> <A 
  title=创建人：<%=rs("f_username")%> 
  href="club_member.jsp?username=<%=rs("f_username")%>" 
  target=_blank><%=rs("f_username")%></A> 创建于<%=datevalue(rs("f_regtime"))%></H4>
  <DIV><SPAN><%=rs("F_usercount")%></SPAN> <A 
  onclick="return confirm('您确定要加入这个子俱乐部吗？')" 
  href="club_addmember.jsp?id=<%=rs("f_id")%>">立即加入</A> </DIV>
  <P style="WIDTH: 330px"><% if len(rs("f_content"))<40 then %><%=rs("f_content")%><% else %><%=left(rs("f_content"),40)%>……<% end if %><BR>留言:<%=rs("f_clubbook")%>条 | 活动:<%=rs("f_clubactive")%>个 | 分类: <A 
  href="QQ_clublist.jsp?classid=<%=rs("classid")%>"><%=rs("f_namequan")%></A> | 地区: <%=rs("f_area")%></P></DD>
 <%End Sub%>
  </DL>
<DIV class=page><% Call ShowPage(m_Parameter)'调用示分页过程%%>
</DIV></DIV><!--grouplist end--></DIV><!--mid end--><!--Hotgroup start-->
<DIV class=rim id=hotgroup>

<DIV class=clear></DIV></DIV><!--Hotgroup end--><!--foot start-->
<DIV id=foot><A class=list href="../about/?Para=Intro" target=_blank>关于我们</A> ┊ <A class=list href="../about/?Para=Contact" target=_blank>联系方式</A> ┊ <A class=list href="../about/?Para=Job" target=_blank>招贤纳士</A> ┊ <A class=list href="../about/?Para=AdService" target=_blank>广告服务</A> ┊ <A class=list href="../about/?Para=Cooperate" target=_blank>合作伙伴</A> ┊ <A class=list href="../so/Suggestion.jsp" target=_blank> 留言/投诉</A> ┊ <A class=list href="../about/?Para=Job" target=_blank></A><BR><%=Site_info(5)%> </DIV><!--foot end-->
<DIV><!--内容contain end--></DIV><!--Right list start-->
<DIV id=rightlist><!--创建小圈子 start-->
<DIV id=setgroup>
<DIV>
<H3>开始创建小圈子，免费拥有这一切！</H3>
<P><A 
href="qq_default.jsp">运城地带</A>为您提供功能强大的自由的小圈子系统。我们为每一个小圈子提供相册、活动。并且您可以自由组合和运用。</P>
<BUTTON 
onclick="location.href='qq_ceaterclub.jsp'">马上创建小圈子</BUTTON> </DIV></DIV><!--创建小圈子 end--><!--推荐小圈子 start-->
<DIV class=rim id=commend>
<H4>推荐小圈子</H4>
<UL><%set rs=server.createobject("adodb.recordset")
  sql="select top 4 f_id,f_name,F_content,f_photo from t_club where f_index=1"
  rs.open sql,conn,1,1
do while not rs.eof					
				%>
  <LI><img src="<%=rs("f_photo")%>"> <B><a href="club_viewsub.jsp?id=<%=rs("f_id")%>"><%=rs("f_name")%></a></B> 
  <P><% if len(rs("f_content"))<21 then %><%=rs("f_content")%><% else %><%=left(rs("f_content"),20)%>……<% end if %></P>
  <% 
	  rs.movenext
	  loop
	  rs.close
	  set rs=nothing
	  %></LI></UL></DIV><!--推荐小圈子 end--><!--推荐活动 start-->
<DIV class=rim>
<H4>推荐活动</H4>
<DL id=commendploy>

  <DD><IMG 
  src="img/quan_banner2.gif">
  <%
	  set rs_c=server.createobject("adodb.recordset")
	  sql_c="select top 6 * from t_club_meet where f_index=1"
  rs_c.open sql_c,conn,1,1
do while not rs_c.eof		
	  %> 
  <DD><A href="club_lookmeet.jsp?id=<%=rs_c("f_club_id")%>&meetid=<%=rs_c("f_id")%>" 
  target=_blank><% if len(rs_c("f_title"))<18 then %><%=rs_c("f_title")%><% else %><%=left(rs_c("f_title"),16)%>...<% end if %> </A><% 
	  rs_c.movenext
	  loop
	  rs_c.close
	  set rs_c=nothing
	  %>
  </DD></DL></DIV><!--推荐小圈子 end--></DIV><!--Right list end--></DIV><!--左导航 start-->
<DIV id=leftlist>
<DL>
  <DT>小圈子 
 <%
	  set rs_c=server.createobject("adodb.recordset")
	  sql_c="select * from T_quan order by classid asc"
	  rs_c.open sql_c,conn
	  do while not rs_c.eof	
	  %> 
  <DD><A href="QQ_clublist.jsp?classid=<%=rs_c("classid")%>"><%=rs_c("f_namequan")%></A> 
  <%rs_c.movenext
	  loop
		rs_c.close
		set rs_c=nothing
		%> 
</DD></DL>
</UL></DIV><!--左导航 end--></DIV><!--Main end--></BODY></HTML>
