<!--#include file="main.asp" -->
<%
'==================删除功能===================================================
'留言删除开始*********************************************************************************************************
if request("action")="del" then
if session("goname")="" then
response.Redirect("login.asp")
end if
set rs0=Server.CreateObject("Adodb.Recordset")
rs0.Open "Select *  from T_club_member where F_username='"&session("goname")&"' and F_club_id="&request("id")&" and F_type=1",conn
if rs0.EOF then
Response.Write "<script>alert('用户出错，下面是产生错误的可能原因：\n\n·对不起，您不是管理员没有权限!，请加入');history.go(-1);</Script>"
Response.End   
end if
message_id=request("message_id")
conn.execute("delete From message_club Where id="&message_id&"")
Response.Redirect "club.asp?id="&request("id")&""
end if
'圈内讨论开始********************************************************************************************************
if request("action")="book_del" then
if session("goname")="" then
response.Redirect("login.asp")
end if
set rs0=Server.CreateObject("Adodb.Recordset")
rs0.Open "Select *  from T_club_member where F_username='"&session("goname")&"' and F_club_id="&request("id")&" and F_type=1",conn
if rs0.EOF then
Response.Write "<script>alert('用户出错，下面是产生错误的可能原因：\n\n·对不起，您不是管理员没有权限!，请加入');history.go(-1);</Script>"
Response.End   
end if
book_id=request("book_id")
conn.execute("delete From book_club Where book_id="&book_id&"")
Response.Redirect "club.asp?id="&request("id")&""
end if
'MP3开始********************************************************************************************************
if request("action")="mp3_del" then
if session("goname")="" then
response.Redirect("login.asp")
end if
set rs0=Server.CreateObject("Adodb.Recordset")
rs0.Open "Select *  from T_club_member where F_username='"&session("goname")&"' and F_club_id="&request("id")&" and F_type=1",conn
if rs0.EOF then
Response.Write "<script>alert('用户出错，下面是产生错误的可能原因：\n\n·对不起，您不是管理员没有权限!，请加入');history.go(-1);</Script>"
Response.End   
end if
mp3_id=request("mp3_id")
conn.execute("delete From MP3_club Where mp3_id="&mp3_id&"")
Response.Redirect "club.asp?id="&request("id")&""
end if
'活动开始********************************************************************************************************
if request("action")="activitx_del" then
if session("goname")="" then
response.Redirect("login.asp")
end if
set rs0=Server.CreateObject("Adodb.Recordset")
rs0.Open "Select *  from T_club_member where F_username='"&session("goname")&"' and F_club_id="&request("id")&" and F_type=1",conn
if rs0.EOF then
Response.Write "<script>alert('用户出错，下面是产生错误的可能原因：\n\n·对不起，您不是管理员没有权限!，请加入');history.go(-1);</Script>"
Response.End   
end if
activitx_id=request("activitx_id")
conn.execute("delete From huodong Where id="&activitx_id&"")
Response.Redirect "club.asp?id="&request("id")&""
end if
'相册开始********************************************************************************************************
if request("action")="photo_del" then
if session("goname")="" then
response.Redirect("login.asp")
end if
set rs0=Server.CreateObject("Adodb.Recordset")
rs0.Open "Select *  from T_club_member where F_username='"&session("goname")&"' and F_club_id="&request("id")&" and F_type=1",conn
if rs0.EOF then
Response.Write "<script>alert('用户出错，下面是产生错误的可能原因：\n\n·对不起，您不是管理员没有权限!，请加入');history.go(-1);</Script>"
Response.End   
end if
photo_id=request("photo_id")
conn.execute("delete From photo_pic_club Where F_id="&photo_id&"")
Response.Redirect "club.asp?id="&request("id")&""
end if
'圈志开始********************************************************************************************************
if request("action")="boke_del" then
if session("goname")="" then
response.Redirect("login.asp")
end if
set rs0=Server.CreateObject("Adodb.Recordset")
rs0.Open "Select *  from T_club_member where F_username='"&session("goname")&"' and F_club_id="&request("id")&" and F_type=1",conn
if rs0.EOF then
Response.Write "<script>alert('用户出错，下面是产生错误的可能原因：\n\n·对不起，您不是管理员没有权限!，请加入');history.go(-1);</Script>"
Response.End   
end if
boke_id=request("boke_id")
conn.execute("delete From boke_club Where boke_id="&boke_id&"")
Response.Redirect "club.asp?id="&request("id")&""
end if
'主题留言开始*********************************************************************************************************
if request("action")="zhti_del" then
if session("goname")="" then
response.Redirect("login.asp")
end if
set rs0=Server.CreateObject("Adodb.Recordset")
rs0.Open "Select *  from T_club_member where F_username='"&session("goname")&"' and F_club_id="&request("id")&" and F_type=1",conn
if rs0.EOF then
Response.Write "<script>alert('用户出错，下面是产生错误的可能原因：\n\n·对不起，您不是管理员没有权限!，请加入');history.go(-1);</Script>"
Response.End   
end if
zhti_id=request("zhti_id")
conn.execute("delete From message_club Where id="&zhti_id&"")
Response.Redirect "club.asp?id="&request("id")&""
end if
'======================================================================================================================
sql="select * from T_club where F_id="&request("id")
set rs=server.createobject("adodb.recordset")                     
rs.open sql,conn,1,1                     
if rs.eof and rs.bof then                     
	response.write "<tr><td height=194 colspan=5 align=center>暂无内容</td></tr>"
else
set rs1=server.createobject("adodb.recordset")
sql1="select * from T_ypxxone where xxone_id="&rs("F_ypxxone")
rs1.open sql1,conn,1,1
xxone_id=rs1("xxone_id")
xxone=rs1("xxone")
rs1.close
set rs1=server.createobject("adodb.recordset")
sql1="select * from ypaddtwo where addtwo_id="&rs("F_ypaddtwo")
rs1.open sql1,conn,1,1
addtwo_id=rs1("addtwo_id")
addone_id=rs1("addone_id")
addtwo=rs1("addtwo")
addone=rs1("addone")
rs1.close%>
<!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><%=rs("F_name")%>http://club.jsw360.com/club.asp?id=<%=rs("F_id")%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=refresh content=1200>
<META content=<%=rs("F_name")%>,圈网 name=Keywords>
<META content=<%=rs("F_name")%> name=Description><LINK href="image/global.css" 
type=text/css rel=stylesheet><LINK href="image/group.css" 
type=text/css rel=stylesheet>
<STYLE type=text/css media=screen>BODY {
	BACKGROUND: url(<%if trim(rs("F_index"))<>"" then%><%=trim(rs("F_index"))%><%else%>image/25147329.jpg<%end if%>)
}
.bar_column {
	FILTER: Alpha(opacity=90)
}
.column {
	FILTER: Alpha(opacity=90)
}
</STYLE>
 <script language="JavaScript">
function checkTopForm(){
  if (document.formlogin2.txtUserName.value == ""){
    alert("对不起，用户名不能为空!请输入..");
	document.formlogin2.txtUserName.focus();
	return false;
  }
  if (document.formlogin2.txtPassword.value == ""){
    alert("对不起，密码不能为空!请输入..");
	document.formlogin2.txtPassword.focus();
	return false;
  }

}
</script>
<META content="MSHTML 6.00.3790.218" name=GENERATOR></HEAD>
<BODY id=group>
<DIV id=wrapper>
<DIV id=header>
<DIV id=login_nav>
<P><%if Request.Cookies("aspxnet")("CurUserName") = "" then%><FORM class="left" id="login" name="form1" action="chklogin.asp" method="post" onSubmit="return checkForm()">
<INPUT id=LoginType type=hidden value=1 name=LoginType>
 用户名 <INPUT class=short id=LoginName size=12 name=txtUserName msg="请添写用户名" require="true" dataType="Require "> 
密码 <INPUT class=short id=LoginPass type=password size=16 name=txtPassword msg="密码不能为空" require="true" dataType="Require"> <INPUT class=button type=submit value=登录 name=Submit>
 - <A href="register.asp"><FONT color=red>快速注册</FONT></A> - 
<A href="#">找回密码</A> - <A href="http://www.jsw360.com/reg.asp?action=reg">注册商业怅号</A> 
</FORM><%else%>
<%co=session("co")
goname=session("goname")
pic=session("pic")
goid=session("goid")
coname=session("coname")%>
<!--#include file="dns/dns.asp"--><STRONG><%=session("goname")%></STRONG> (<%=session("name")%>) - <A 
      href="user/"><FONT color=red>管理中心</FONT></A>- <A href="<%=usertwourl%>" target="_blank">我的主页</A> - 
      <A href="user/club_exit.asp">我的圈子</A> - <A class=blue3 
      href="user/pic.asp">圈友相册</A> - <A 
      href="user/rj_DiaryList.asp" target="_blank">博客中心</A> - <A 
      href="user/club_DiaryList.asp">我的圈志</A> - <A 
      href="logout.asp">离开</A></SPAN>
<%end if%></P></DIV>
<DIV id=sub_navi><%set rs2=server.createobject("adodb.recordset")
sql2="select * from T_ypxxone order by xxone_id asc"
rs2.open sql2,conn,1,1
n=0
do while not rs2.eof
n=n+1%><A href="group.asp?id=<%=rs2("xxone_id")%>&xxone=<%=rs2("xxone")%>"><%=rs2("xxone")%></A> | <%
rs2.movenext
loop
rs2.close%></DIV></DIV>
<DIV id=main>
<DIV id=left_side_bar>
<div class=bar_column id=div>
            <div class=bar_body>
              <p id=group_info><img alt=grouplogo 
src="<%if rs("F_photo")<>"" then%><%=rs("F_photo")%><%else%>images/123.jpg<%end if%>" width=150 /> <br />
                  <strong>创建</strong>：<%=rs("F_regtime")%><br />
                <strong>人数</strong>：
                <%set rst=server.createobject("adodb.recordset")
rst.open "select * from T_club_member where F_club_id="&rs("F_id")&"",conn,1,1
culb=rst.recordcount
%>
                <%=rst.recordcount%>
                  <%rst.close%>
                  <br />
                <strong>地域</strong>：<a class=no_underline title=查看<%=addone%>的圈子 
href="yp.asp?id=<%=addone_id%>"><%=addone%></a> <a class=no_underline title=查看<%=addtwo%>的圈子 
href="yp.asp?id=<%=addone_id%>"><%=addtwo%></a> <br />
                <strong>主题</strong>：<a class=no_underline title=查看同主题的圈子 
href="club.asp?id=<%=rs("F_id")%>"><%=rs("F_name")%></a> <br />
                <strong>相册</strong>：不限空间 <br />
                <strong>简介</strong>：<%=rs("F_content")%> </p>
            </div>
          </div>
<DIV class=bar_column id=who_is_online>
<DIV class=bar_head>
<H2><A href="member_club.asp?club=<%=rs("F_id")%>">圈圈成员列表</A></H2><SMALL 
class=top_more><A href="member_club.asp?club=<%=rs("F_id")%>">更多</A>&raquo;</SMALL></DIV>
<DIV class=bar_body>
<UL><%set rst=server.createobject("adodb.recordset")
sqlt="select * from T_club_member where F_club_id="&request("id")&" and F_key=1"
rst.open sqlt,conn,1,1
do while not rst.eof
set rs1=server.createobject("adodb.recordset")
sql1="select * from T_member where F_username='"&rst("F_username")&"'"
rs1.open sql1,conn,1,1
co=rs1("F_co")
goname=rs1("F_username")
goid=rs1("F_id")
user_goid=rs1("F_id")
coname=rs1("F_coname")
realname=rs1("F_realname")
rs1.close%><!--#include file="dns/dns.asp"-->
<LI><SPAN class=member_2b><a href="<%=usertwourl%>" target="_blank"><%=goname%>(<%=realname%>)</a></SPAN></LI>
<%
rst.movenext
loop
rst.close%></UL></DIV></DIV>
<DIV class=bar_column id=who_is_online>
<DIV class=bar_head>
<H2>待审成员</H2></DIV>
<DIV class=bar_body><UL>
<%set rst=server.createobject("adodb.recordset")
sqlt="select * from T_club_member where F_club_id="&request("id")&" and F_key=0 and F_type<>1"
rst.open sqlt,conn,1,1
do while not rst.eof
set rs1=server.createobject("adodb.recordset")
sql1="select * from T_member where F_username='"&rst("F_username")&"'"
rs1.open sql1,conn,1,1
co=rs1("F_co")
goname=rs1("F_username")
goid=rs1("F_id")
user_goid=rs1("F_id")
coname=rs1("F_coname")
realname=rs1("F_realname")
rs1.close%><!--#include file="dns/dns.asp"-->
<LI><a href="<%=usertwourl%>" target="_blank"><%=goname%>(<%=realname%>)</a></LI>
<%
rst.movenext
loop
rst.close%></UL></DIV></DIV>
<DIV class=bar_column id=my_group>
<DIV class=bar_head>
<H2>我的圈子列表</H2></DIV>
<DIV class=bar_body>
<UL>
<%set rst=server.createobject("adodb.recordset")
sqlt="select * from T_club_member where F_username='"&session("goname")&"'"
rst.open sqlt,conn,1,1
do while not rst.eof
set rs1=server.createobject("adodb.recordset")
sql1="select * from T_club where F_id="&rst("F_club_id")
rs1.open sql1,conn,1,1
id=rs1("F_id")
f_name=rs1("F_name")
rs1.close
%>
<LI><a href="club.asp?id=<%=id%>" target="_blank" class=no_underline><%=f_name%></a>
<%if rst("F_type")=1 then response.Write("<font color=#FF0000>圈主</font>") else response.Write("<font color=#FF0000>成员</font>") end if%></LI>
<%
rst.movenext
loop
rst.close%></UL></DIV></DIV>

<DIV class=bar_column id=my_group><A 
href="http://www.jsw360.com/club/" target=_blank><IMG 
src="image/worldcup2006.gif" border=0></A> </DIV></DIV>
<DIV id=content>
<DIV class=column id=group_area>
<P><STRONG>导航</STRONG>：<A class=no_underline 
href="index.asp">圈网首页</A>&gt;&gt;<A class=no_underline 
href="user/">我的管理中心</A>&gt;&gt;<A 
class=no_underline href="group.asp?id=<%=xxone_id%>"><%=xxone%></A>&gt;&gt;<A 
class=no_underline 
href="club.asp?id=<%=rs("F_id")%>"><%=rs("F_name")%></A>&nbsp;&nbsp; <SPAN 
class=highlight><STRONG><A 
href="save/user_group.asp?club=<%=rs("F_id")%>&key=<%=rs("F_key")%>">立即加入</A></STRONG></SPAN> 
<BR>
<STRONG>圈址</STRONG>：http://club.jsw360.com/club.asp?id=<%=rs("F_id")%> <A class=no_underline 
href="javascript:window.external.AddFavorite('http://www.jsw360.com/club/club.asp?id=<%=rs("F_id")%>',%20'“<%=rs("F_name")%>”&quot;/club.jsw360.com')" 
target=_self>收藏本圈</A><SCRIPT>
function setCopy(_sTxt){try{clipboardData.setData('Text',_sTxt)}catch(e){}}
</SCRIPT>  <A class=no_underline onClick="setCopy('http://www.jsw360.com/club/club.asp?id=<%=rs("F_id")%>');alert('已经把该圈子的网址复制到系统剪贴板，您可以使用（Ctrl+V或鼠标右键）粘贴功能，发送给您的朋友。','void 0')" 
href="javascript:;">复制圈址</A><BR>
 <STRONG>圈主</STRONG>：
<%set rs1=server.createobject("adodb.recordset")
sql1="select * from T_member where F_username='"&rs("F_username")&"'"
rs1.open sql1,conn,1,1
co=rs1("F_co")
goname=rs1("F_username")
goid=rs1("F_id")
user_goid=rs1("F_id")
coname=rs1("F_coname")
realname=rs1("F_realname")
rs1.close%><!--#include file="dns/dns.asp"--> <A class=no_underline 
href="<%=usertwourl%>" target="_blank"><%=goname%></A>(<%=realname%>) 
&nbsp;&nbsp;&nbsp; </P>
<P id=action_link><SPAN><A href="<%=usertwourl%>" 
target=_blank><FONT color=red>圈主主页</FONT></A></SPAN> <SPAN><A class=blue3ln 
 href="new_club.asp?club=<%=rs("F_id")%>">圈内留言</A></SPAN> <SPAN><A 
class=blue3ln 
href="new_photo.asp?club=<%=rs("F_id")%>">相册</A></SPAN> 
<SPAN><A 
href="new_activitx.asp?club=<%=rs("F_id")%>">活动</A></SPAN> 
<SPAN><A class=blue3ln href="blog_club.asp?club=<%=rs("F_id")%>">圈志</A></SPAN> 
<SPAN><A 
href="mp3_club.asp?club=<%=rs("F_id")%>">音乐MP3</A></SPAN> 
<SPAN><A 
href="member_club.asp?club=<%=rs("F_id")%>">成员列表</A></SPAN> 
<SPAN><A href="book_club.asp?club=<%=rs("F_id")%>">圈内讨论</A></SPAN>
</SPAN> </P></DIV>
<DIV class=column id=activity>
<DIV class=column_head>
<H2>圈内活动</H2><SPAN class=title_link><a href="activitx_add.asp?userid=<%=user_goid%>&club=<%=rs("F_id")%>&username=<%=session("goname")%>&name=<%=rs("F_name")%>">发起新活动</A> <a href="new_activitx.asp?club=<%=rs("F_id")%>">更多活动回顾</A></SPAN></DIV>
<DIV class=column_body>
<%set rs2=server.createobject("adodb.recordset")
sql2="select top 10 * from huodong where club="&rs("F_id")&" order by id desc"
rs2.open sql2,conn,1,1
n=0
do while not rs2.eof
set rs1=server.createobject("adodb.recordset")
sql1="select * from T_member where F_id="&rs2("user_id")
rs1.open sql1,conn,1,1
co=rs1("F_co")
goname=rs1("F_username")
goid=rs1("F_id")
coname=rs1("F_coname")
realname=rs1("F_realname")
rs1.close
set rst=server.createobject("adodb.recordset")
rst.open "select * from message_club where l_id="&rs2("id")&"",conn,1,1
message=rst.recordcount
rst.close
n=n+1%><!--#include file="dns/dns.asp"-->
<UL class=list_row1 style="BORDER-BOTTOM: #cccccc 1px solid">
  <LI class=activity_date><%=rs2("date")%> </LI>
  <LI class=activity_area><%=rs2("addone")%>-<%=rs2("addtwo")%> </LI>
  <LI class=activity_theme><SPAN class=highlight><a href="activitx_view.asp?id=<%=rs2("id")%>" title="<%=rs2("title")%>" target="_blank"><%=rs2("title")%></a></SPAN> </LI>
  <LI class=activity_status><%if goname=session("goname") then %><a href="club.asp?activitx_id=<%=rs2("id")%>&id=<%=rs("F_id")%>&action=activitx_del"><font color=#FF0000>删除</font></a><%else%><a href="activitx_view.asp?id=<%=rs2("id")%>" title="<%=rs2("title")%>" target="_blank">留言</A><%end if%> 
  </LI>
  <LI class=activity_host>发起人： <a class="blue6ln" title="查看发起人个人资料" 
            href="<%=usertwourl%>"><%=goname%> (<%=realname%>)</a> </LI>
  <LI class=activity_attendant>费用：<%=rs2("price")%> </LI>
  <LI class=activity_signup>开始时间: </LI>
  <LI class=activity_message><%=rs2("date")%> </LI>
  <LI class=activity_picture><a href="activitx_view.asp?id=<%=rs2("id")%>" title="<%=rs2("title")%>" target="_blank">留言(<font color="#FF0000"><%=message%></font>)</A> </LI></UL>
  <%
rs2.movenext
loop
rs2.close%></DIV></DIV>
<DIV class=column id=group_photo>
<DIV class=column_head>
<H2>圈内相册</H2><SPAN class=title_link><A href="pic_add.asp?id=<%=session("goid")%>&userid=<%=user_goid%>&club=<%=rs("F_id")%>&username=<%=session("goname")%>&name=<%=rs("F_name")%>">上传图片</A> <A href="new_photo.asp?club=<%=rs("F_id")%>">更多图片</A></SPAN></DIV>
<DIV class=column_body><UL>
<%set rs2=server.createobject("adodb.recordset")
sql2="select top 14 * from photo_pic_club where F_picid="&rs("F_id")&" order by F_id desc"
rs2.open sql2,conn,1,1
n=0
do while not rs2.eof
n=n+1%>
<LI><A href="photo_view.asp?id=<%=rs2("F_id")%>" target=_blank><IMG class=buddyIcon onload="javascript:if(this.height>90)this.height=90;" alt=<%=rs2("F_username")%> src="<%=rs2("F_pic")%>" width=90 
border=0></A><br><%=left(rs2("F_username"),6)%><%if goname=session("goname") then %><br><a href="club.asp?photo_id=<%=rs2("F_id")%>&id=<%=rs("F_id")%>&action=photo_del"><font color=#FF0000>删除</font></a><%end if%> </LI>
<%
rs2.movenext
loop
rs2.close%></UL></DIV></DIV>
<DIV class=column id=activity>
<DIV class=column_head>
<H2>圈内日记</H2><SPAN class=title_link><a href="blog_add.asp?userid=<%=user_goid%>&club=<%=rs("F_id")%>&username=<%=session("goname")%>">发布日记</A> <a href="blog_club.asp?club=<%=rs("F_id")%>">更多日记回顾</A></SPAN></DIV>
<DIV class=column_body>
<UL class=table_head>
  <LI class=icon> </LI>
  <LI class=blog_title>标题 </LI>
  <LI class=blog_author>作者 </LI>
  <LI class=blog_view>回复 </LI>
  <LI class=blog_time>发布日期 </LI></UL>
<%
set rs5=server.createobject("adodb.recordset")
sql5="select * from T_member where F_username='"&rs("F_username")&"'"
rs5.open sql5,conn,1,1
set rs2=server.createobject("adodb.recordset")
sql2="select top 10 * from boke_club where club="&rs("F_id")&" order by boke_id desc"
rs2.open sql2,conn,1,1
n=0
do while not rs2.eof
set rs1=server.createobject("adodb.recordset")
sql1="select * from T_member where F_id="&rs2("boke_user_id")
rs1.open sql1,conn,1,1
co=rs1("F_co")
goname=rs1("F_username")
goid=rs1("F_id")
coname=rs1("F_coname")
realname=rs1("F_realname")
rs1.close
set rst=server.createobject("adodb.recordset")
rst.open "select * from message_club where l_id="&rs2("boke_id")&"",conn,1,1
culb=rst.recordcount
rst.close
n=n+1%><!--#include file="dns/dns.asp"-->
<UL class=list_row1 style="BORDER-BOTTOM: #cccccc 1px solid">
<LI class=icon><IMG height=16 src="image/triangle_green.gif" width=16> </LI>
  <LI class=blog_title><a class=no_underline href="blog_club_view.asp?id=<%=rs2("boke_id")%>&club=<%=request("id")%>" title="<%=rs2("boke_name")%>" target="_blank"><%=rs2("boke_name")%></a><%if goname=session("goname") then %><a href="club.asp?boke_id=<%=rs2("boke_id")%>&id=<%=rs("F_id")%>&action=boke_del"><font color=#FF0000>删除</font></a><%end if%></LI>
  <LI class=blog_author><%=goname%> </LI>
  <LI class=blog_view><font color="#FF0000"><%=culb%></font> </LI>
  <LI class=blog_time><%=year(rs2("boke_date"))%>-<%=month(rs2("boke_date"))%>-<%=day(rs2("boke_date"))%></LI></UL>
<%
rs2.movenext
loop
rs2.close
rs5.close%></DIV></DIV>
<DIV class=column id=gbook>
<DIV class=column_head>
<H2>主题留言</H2><SPAN class=title_link><a href="news_club.asp?userid=<%=user_goid%>&club=<%=rs("F_id")%>&username=<%=session("goname")%>">发表新留言 <a href="new_club.asp?club=<%=rs("F_id")%>">更多留言</A></SPAN> </DIV>
<DIV class=column_body>
<P id=gbook_category>分类： <%set rs2=server.createobject("adodb.recordset")
sql2="select * from book_sort where club="&rs("F_id")&""
rs2.open sql2,conn,1,1
do while not rs2.eof
id=rs2("id")
booksort=rs2("bokesort")
set rst=server.createobject("adodb.recordset")
rst.open "select * from message_club where sort="&id&"",conn,1,1
culb=rst.recordcount
rst.close%>
<A href="new_club.asp?id=<%=id%>&club=<%=request("id")%>"><%=booksort%></A>(<font color="#FF0000"><%=culb%></font>)
<%
rs2.movenext
loop
rs2.close%> 
</P>
</DIV></DIV>
<%set rsh=server.createobject("adodb.recordset")
sqlh="select * from book_sort where club="&rs("F_id")&""
rsh.open sqlh,conn,1,1
do while not rsh.eof
id=rsh("id")
booksort=rsh("bokesort")
%>
<DIV class=column id=gbook>
<DIV class=column_head>
<H2><%=booksort%></H2><SPAN class=title_link><a href="news_club.asp?userid=<%=user_goid%>&club=<%=rs("F_id")%>&username=<%=session("goname")%>">发表新留言 <A href="new_club.asp?id=<%=id%>&club=<%=request("id")%>">更多留言</A></SPAN> </DIV>
<DIV class=column_body>
<UL class=table_head>
  <LI class=icon> </LI>
  <LI class=title>标题 </LI>
  <LI class=author>作者 </LI>
  <LI class=click>回复 </LI>
  <LI class=time>发布日期 </LI></UL>
<%
set rs2=server.createobject("adodb.recordset")
sql2="select top 10 * from message_club where club="&rs("F_id")&" and sort="&id&" and key1=6 order by id desc"
rs2.open sql2,conn,1,1
n=0
do while not rs2.eof
set rs1=server.createobject("adodb.recordset")
sql1="select * from T_member where F_username='"&rs2("username")&"'"
rs1.open sql1,conn,1,1
co=rs1("F_co")
goname=rs1("F_username")
goid=rs1("F_id")
coname=rs1("F_coname")
realname=rs1("F_realname")
rs1.close
set rst=server.createobject("adodb.recordset")
rst.open "select * from message_club where l_id="&rs2("id")&"",conn,1,1
message_culb=rst.recordcount
rst.close
n=n+1%><!--#include file="dns/dns.asp"-->
<UL class=list_row1 style="BORDER-BOTTOM: #cccccc 1px solid">
<LI class=icon><IMG height=16 src="image/triangle_green.gif" width=16> </LI>
  <LI class=title><a class=no_underline href="new_club_view.asp?id=<%=rs2("id")%>&club=<%=rs2("club")%>" title="<%=rs2("lr")%>" target="_blank"><%=rs2("lr")%></a><%if goname=session("goname") then %><a href="club.asp?zhti_id=<%=rs2("id")%>&id=<%=rs("F_id")%>&action=zhti_del"><font color=#FF0000>删除</font></a><%end if%></LI>
  <LI class=author><a class="no_underline" title="查看发起人个人资料" 
            href="<%=usertwourl%>"><%=goname%></a></LI>
  <LI class=click><SPAN class=highlight><%=message_culb%></SPAN> 
  </LI>
  <LI class=time><%=year(rs2("data"))%>-<%=month(rs2("data"))%>-<%=day(rs2("data"))%> </LI></UL>
<%
rs2.movenext
loop
rs2.close
%>
</DIV></DIV>
<%
rsh.movenext
loop
rsh.close%>
<DIV class=column id=smessage>
<DIV class=column_head>
<H2>快速留言</H2></DIV>
<DIV class=column_body>
<FORM name=form1 action=inc/server_club.asp method=post>
<input name="user_id" type="hidden" value="<%=goid%>">
<input name="club" type="hidden" value="<%=rs("F_id")%>">
<input name="username" type="hidden" value="<%=session("goname")%>">
<TEXTAREA name="msg" rows="5" cols="70"></TEXTAREA><INPUT class=button type=submit value=快速留言 name=Submit></FORM>
<%set rst=server.createobject("adodb.recordset")
sqlt="select * from message_club where key1=9 and club="&rs("F_id")
rst.open sqlt,conn,1,1
do while not rst.eof%>
<UL>
  <LI class=bar><SPAN class=smessage_time>留言时间:<%=rst("data")%></SPAN><SPAN 
  class=smessage_author><%if trim(rst("username"))<>"" then%>
<%set rs1=server.createobject("adodb.recordset")
sql1="select * from T_member where F_username='"&rst("username")&"'"
rs1.open sql1,conn,1,1
co=rs1("F_co")
goname=rs1("F_username")
goid=rs1("F_id")
user_goid=rs1("F_id")
coname=rs1("F_coname")
realname=rs1("F_realname")
rs1.close%><!--#include file="dns/dns.asp"-->发布人:<a href="<%=usertwourl%>" target="_blank"><%=goname%> (<%=coname%>)</a><%else %><font color="#FF0000">[匿名]发布</font><%end if%></SPAN><SPAN class=smessage_action><a href="club.asp?message_id=<%=rst("id")%>&id=<%=rs("F_id")%>&action=del">删除</a></SPAN></LI>
  <LI><SPAN class=smessage_content><%=rst("message")%><BR></SPAN></LI></UL>
    <%
rst.movenext
loop
rst.close%>
</DIV></DIV></DIV>
<DIV id=right_side_bar>
<DIV class=bar_column id=divfenlei>
<DIV class=bar_head>
<H2 id=zhutifenlei>圈内讨论</H2><SMALL 
class=top_more><A href="book_club.asp?club=<%=rs("F_id")%>">更多</A>&raquo;</SMALL></DIV>
<DIV class=bar_body>
<OL id=comment_list>
<%set rst=server.createobject("adodb.recordset")
sqlt="select top 10 * from book_club where book_club="&rs("F_id")&""
rst.open sqlt,conn,1,1
do while not rst.eof%>
<LI><a href="book_view.asp?id=<%=rst("book_id")%>&club=<%=rs("F_id")%>" target="_blank"><%=rst("book_name")%></a><%if goname=session("goname") then %><a href="club.asp?book_id=<%=rst("book_id")%>&id=<%=rs("F_id")%>&action=book_del"><font color=#FF0000>删除</font></a><%end if%></lI>
<%
rst.movenext
loop
rst.close%></OL><P class=more><A href="book_add.asp?userid=<%=session("goid")%>&club=<%=rs("F_id")%>&username=<%=session("goname")%>">&raquo;我的发布</A></P></DIV></DIV>

<DIV class=bar_column id=divfenlei>
<DIV class=bar_head>
<H2><A href="mp3_club.asp?club=<%=rs("F_id")%>">圈内MP3</A></H2><SMALL 
class=top_more><A 
href="mp3_club.asp?club=<%=rs("F_id")%>">更多</A>&raquo;</SMALL></DIV>
<DIV class=bar_body>
<UL>
<%set rst=server.createobject("adodb.recordset")
sqlt="select top 10 * from MP3_club where MP3_club="&rs("F_id")&""
rst.open sqlt,conn,1,1
do while not rst.eof%>
<LI><a href="mp3_view.asp?id=<%=rst("mp3_id")%>&club=<%=request("id")%>" target="_blank"><%=rst("mp3_name")%></a><%if goname=session("goname") then %><a href="club.asp?mp3_id=<%=rst("mp3_id")%>&id=<%=rs("F_id")%>&action=mp3_del"><font color=#FF0000>删除</font></a><%end if%></LI>
<%
rst.movenext
loop
rst.close%>
</UL></DIV></DIV>


<DIV class=bar_column id=divcmt>
<DIV class=bar_head>
<H2 id=cmt>圈内BLOG</H2><SMALL 
class=top_more><A 
href="member_club.asp?club=<%=rs("F_id")%>">更多</A>&raquo;</SMALL></DIV>
<DIV class=bar_body>
<OL id=comment_list><%set rst=server.createobject("adodb.recordset")
sqlt="select top 10 * from T_club_member where F_club_id="&request("id")&""
rst.open sqlt,conn,1,1
n=0
do while not rst.eof
n=n+1
set rs1=server.createobject("adodb.recordset")
sql1="select * from T_member where F_username='"&rst("F_username")&"'"
rs1.open sql1,conn,1,1
co=rs1("F_co")
goname=rs1("F_username")
goid=rs1("F_id")
user_goid=rs1("F_id")
coname=rs1("F_coname")
realname=rs1("F_realname")
rs1.close%><!--#include file="dns/dns.asp"-->
<li><a href="<%=usertwourl%>" target="_blank"><%=realname%>: <%=coname%></a></li>

<%if n mod 2=0 then response.Write("</tr><tr>")
rst.movenext
loop
rst.close%></OL></DIV></DIV>
<DIV class=bar_column id=divlink>
<DIV class=bar_head>
<H2>同类火爆圈子</H2></DIV>
<DIV class=bar_body>
<UL id=link_list>
<%set rsc=server.createobject("adodb.recordset")
sqlc="select top 20 * from t_club where F_ypxxone='"&xxone_id&"' order by F_id desc"
rsc.open sqlc,conn,1,1
do while not rsc.eof%>
<LI><a class=no_underline href="club.asp?id=<%=rsc("F_id")%>" target="_blank"><%=rsc("F_name")%></a></LI>
<%rsc.movenext
loop
rsc.close%></UL></DIV></DIV></DIV></DIV></DIV>
<DIV id=footer>
<P id=foot_nav><SPAN 
style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; FLOAT: left; PADDING-BOTTOM: 0px; PADDING-TOP: 0px"><a href="http://www.jsw360.com/about.asp" target="_blank">关于经商网 </a>| <a href="http://www.jsw360.com/Alliance.asp" target="_blank">加盟代理 </a>| <a href="http://www.jsw360.com/count.asp" target="_blank">联系我们 </a>‖ <a href="http://www.jsw360.com/gugao.asp" target="_blank">广告服务 </a>| <a href="#" target="_blank">网站地图 </a>| <a href="http://www.jsw360.com/120job.asp" target="_blank">招聘信息 </a>| <a href="http://www.jsw360.com/35/" target="_blank">自助链接 </a>| <a href="http://www.jsw360.com/count.asp" target="_blank">意见反馈 </a></SPAN></P>
<P 
id=copyright>本网站内所有圈子、活动、留言、图片、商业信息、以及其他各类内容均属用户自行创建或者发布，与本站无关,也不代表本站立场与观点<BR>Copyright 
&copy; 2005-2006 jsw360.com All rights reserved. club.jsw360.com 版权所有<BR></P></DIV>
<DIV></DIV></SPAN></SPAN>
<%
rs.close
end if
%></BODY></HTML>
