<!--#include file="inc/conn.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/safe.asp"-->
<!--#include file="inc/const.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>红嫂视屏交友网</title>
<meta name="keywords" content="情感,在线,新新,照片,动感影片,诗歌,爱情,纯洁,心连心">
<meta name="description" content="红嫂视屏交友情缘 情感在线">
<link href="style.css" rel="stylesheet" type="text/css">
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-image: url();
}
.STYLE8 {
	color: #CC0099;
	font-size: 12px;
}
.STYLE81 {color: #CC0099;
	font-size: 12px;
}
.style91 {FONT-FAMILY: "宋体"; font-size: 13px;}
-->
</style>
</head>

<body>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="top.asp"--></td>
  </tr>
</table>
<%
dim clubid
clubid=request.QueryString("clubid")
ChkNumber(clubid) 

dim jlbname,hzid,xuanyan

 set rr=server.CreateObject("adodb.recordset")
 rsql="select * from julebu where bigid="& clubid
 rr.open rsql,conn,1
 if rr.eof then
   response.Write "错误，没有此编号的兴趣圈"
   response.end
 end if
 jlbname=rr("bigname")
 hzid=rr("hzid")
 xuanyan=rr("xuanyan")
 rr.close
 set rr=nothing

set rs=server.CreateObject("adodb.recordset")

if UserID<>0 and isInteger(UserID) then
%>
<table width="950" border="0" align="center" cellpadding="00" cellspacing="0" style="border-left:#9DCCF6 1px solid;border-right:#9DCCF6 1px solid;border-top:#9DCCF6 1px solid;border-bottom:#9DCCF6 1px solid">
    <tr>
      <td width="105" height="26" background="images/index_39.gif" class="pgd">&nbsp;&nbsp;</td>
      <td width="171" background="images/index_39.gif" class="style91">欢迎<span class="title3"><%=MemberName%></span></td>
      <td width="445" background="images/index_39.gif" class="style91"><A href="myhome.asp" class="slan" target=_blank>我的资料</A> | <A 
href="club_article.asp" class="slan" target=_blank>我的文章</A><%if chkhz(clubid,userid) then response.Write " | <A href=""club_xuanyan.asp?clubid="& clubid &""" class=""slan"">管理宣言</A>"%></td>
      <td width="227" background="images/index_39.gif" class="style91">
	  <%
	   set r2=server.CreateObject("adodb.recordset")
	   sql2="select * from jlbhy where userid="& userid &" and clubid="& clubid &""
	   r2.open sql2,conn,1
	   if r2.eof and r2.bof then
	  %>
	  <a href="joinclub.asp?clubid=<%=clubid%>"><img src="images/aniu33.gif" width="55" height="24" border="0"></a>
	   <%else%>	   
	   <a href="quitclub.asp?clubid=<%=clubid%>"><img src="images/aniu34.gif" width="55" height="24" border="0"></a>
	  <%end if
	  r2.close
	  set r2=nothing
	  %></td>
    </tr>
</table>
<%else%>
<table width="950" border="0" align="center" cellpadding="00" cellspacing="0" style="border-left:#9DCCF6 1px solid;border-right:#9DCCF6 1px solid;border-top:#9DCCF6 1px solid;border-bottom:#9DCCF6 1px solid">
    <tr>
      <td width="64" height="26" background="images/index_39.gif" class="pgd">&nbsp;&nbsp;</td>
      <td width="655" background="images/index_39.gif" class="style91">欢迎大家进入红嫂视屏交友兴趣圈！我们在这里给有相同爱好的朋友提供一个互相交流的平台！ </td>
      <td width="178" background="images/index_39.gif" class="style91"><a href="userlogin.asp" target="_blank"><img src="images/aniu31.gif" width="81" height="24" border="0"></a>	  </td>
      <td width="51" background="images/index_39.gif" class="style91">&nbsp;</td>
    </tr>
</table>
<%end if%>
<table width="370" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="4"></td>
  </tr>
</table>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="264" height="168" align="center" valign="top"><div align="left">
      <table width="261" border="0" cellspacing="0" cellpadding="00">
        <tr>
          <td width="261" height="198" background="images/index_32.gif"><script type="text/javascript" src="js/flashjlbpic_<%=clubid%>.js"></script></td>
        </tr>
      </table>
        <table width="259" border="0" cellpadding="0" cellspacing="3" style="border-left:#9DCCF6 1px solid;border-right:#9DCCF6 1px solid;border-top:#9DCCF6 1px solid;border-bottom:#9DCCF6 1px solid">
		<%
		sql="select * from smalljulebu where bigid="& clubid
		rs.open sql,conn,1
		do while not rs.eof
		%>
          <tr bgcolor="#EDF8FE">
            <td width="23" height="101" background="images/index_33.gif" bgcolor="#CDECFC"><div align="center"><a href="moreclub.asp?smallid=<%=rs("smallid")%>" target="_blank" class="white"><font class="STYLE2"><%=rs("smallname")%></font></a></div></td>
            <td width="225" valign="top" background="images/index_34.gif" bgcolor="#FFFDF4"><table width="221" border="0" cellspacing="0" cellpadding="00">
			<tr>
                <td colspan="2" height="6"></td>                
              </tr>
			<%
			set re=server.CreateObject("adodb.recordset")
			rsql="select top 4 id,title from jlbnews where smallid="& rs("smallid") &" order by dtime desc"
			re.open rsql,conn,1
			do while not re.eof
			%>
              <tr>
                <td width="21" height="22"><div align="center">·</div></td>
                <td width="199"><A href="wzcontent.asp?wzid=<%=re("id")%>" target=_blank class="slan"><%=left(re("title"),15)%></A></td>
              </tr>
			  <%
			  re.movenext
			  loop
			  re.close
			  set re=nothing
			  %>			   
            </table></td>
          </tr>
		  <%
		  rs.movenext
		  loop
		  rs.close
		  %>
        </table>
    </div></td>
    <td width="11" align="center" valign="top">&nbsp;</td>
    <td width="438" align="center" valign="top" style="border-bottom:#9DCCF6 1px solid"><div align="left">      
	  <table width="437" border="0" cellpadding="00" cellspacing="0" bgcolor="#EDF8FE" style="border-left:#9DCCF6 1px solid;border-right:#9DCCF6 1px solid;border-top:#9DCCF6 1px solid;border-bottom:#9DCCF6 1px solid">
        <tr bgcolor="CB0101"  >
          <td height="58" colspan="3" background="images/index_38.gif"><div align="center" class="title"><strong><%=jlbname%>宣言</strong></div></td>
        </tr>
        <tr>
          <td width="14" height="90" valign="top" bgcolor="#FFFFFF" class="style30">&nbsp;</td>
          <td width="409" valign="middle" bgcolor="#FFFFFF" ><span class="style30"><%=xuanyan%></span></td>
          <td width="12" valign="top" bgcolor="#FFFFFF" class="style30">&nbsp;</td>
        </tr>
      </table>	  
      <br>
      <table width="436" border="0" cellpadding="00" cellspacing="0">
	  <%
	  sql="select top 13 id,title,username,userid from jlbnews where bigid="& clubid &" order by click desc"
	  rs.open sql,conn,1
	  do while not rs.eof
	  %>
        <tr>
          <td width="343" height="28">· <A href="wzcontent.asp?wzid=<%=rs("id")%>" target=_blank class="slan"><%=rs("title")%></A></td>
          <td width="93"><div align="center" class="p1"><a href="userinfo.asp?user_id=<%=rs("userid")%>" class="alan"><%=rs("username")%></a></div></td>
        </tr>
		<%
		rs.movenext
		loop
		rs.close
		%>
      </table>
      </div>
    </td>
    <td width="9" align="center" valign="top">&nbsp;</td>
    <td width="228" align="center" valign="top"><table width="227" border="0" cellspacing="0" cellpadding="00"  style="border-left:#9DCCF6 1px solid;border-right:#9DCCF6 1px solid;border-top:#9DCCF6 1px solid;border-bottom:#9DCCF6 1px solid">
      <tr>
        <td height="26" background="images/index_35.gif" bgcolor="#EDF8FE">&nbsp;&nbsp;<span class="STYLE2">会长资料</span></td>
      </tr>
      <tr>
        <td height="73" background="images/index_34.gif">
		<%
		sql="select userid,username,birthday,school,prov from user_info where userid="& hzid
		rs.open sql,conn,1
		if not rs.eof then
		%>
		<table width="191" border="0" align="center" cellpadding="00" cellspacing="0">
          <tr>
            <td height="31" class="hong">会长：<a href="userinfo.asp?user_id=<%=rs("userid")%>"><%=rs("username")%></a> </td>
          </tr>
          <tr>
            <td height="31" class="lan2">年龄：<%response.Write datediff("yyyy",rs("birthday"),now())%> 学历：<%response.Write ShowXl(rs("school"))%> 地区：<%=GetProv(rs("prov"))%></td>
          </tr>
        </table>
		<%
		end if
		rs.close
		%>
		</td>
      </tr>
    </table>
      <table width="227" border="0" cellspacing="0" cellpadding="00"  style="border-left:#9DCCF6 1px solid;border-right:#9DCCF6 1px solid;border-top:#9DCCF6 1px solid;border-bottom:#9DCCF6 1px solid">
        <tr>
          <td height="24" background="images/index_36.gif" bgcolor="#EDF8FE">&nbsp;&nbsp;<span class="pgd"><font color="#0A4D98">会员列表</font></span></td>
        </tr> 
        <tr>
          <td height="417" valign="top" bgcolor="F1FAFF"><br>
            <table width="204" border="0" align="center" cellpadding="00" cellspacing="0" class="style30">
            <tr bgcolor="D1EEFF">
              <td width="62" height="28" bgcolor="D1EEFF" ><div align="center">名 字</div></td>
              <td width="50" ><div align="center">年 龄</div></td>
              <td width="42" ><div align="center">学 历</div></td>
              <td width="50" ><div align="center">地 区</div></td>
            </tr>
			<%
			sql="select userid from jlbhy where clubid="& clubid &" order by dtime desc"
			rs.open sql,conn,1
			unum=20
			do while not rs.eof and unum>0
			set r1=server.CreateObject("adodb.recordset")
			sql1="select username,userid,birthday,school,city from user_info where userid="& rs("userid")
			r1.open sql1,conn,1
			%>
            <tr>
              <td height="24" ><div align="center"><a href="userinfo.asp?user_id=<%=r1("userid")%>" class="a11"><%=r1("username")%></a></div></td>
              <td ><div align="center"><%response.Write datediff("yyyy",r1("birthday"),now())%></div></td>
              <td ><div align="center"><%response.Write ShowXl(r1("school"))%></div></td>
              <td ><div align="center"><%=GetCity(r1("city"))%></div></td>
            </tr>
			<%
			 r1.close
			 set r1=nothing
			rs.movenext
			unum=unum-1
			loop
			rs.close
			%>            
          </table></td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="root.asp"--></td>
  </tr>
</table>
</body>
</html>
<%
set rs=nothing
conn.close
set conn=nothing
%>
