<!--#include file="main.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>圈网_经商网</title>
<link href="css/global.css" rel="stylesheet" type="text/css">
<link href="css/index.css" rel="stylesheet" type="text/css">
</head>
<body background="images/bj.gif">
<!--#include file="top.asp" -->
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  <tbody>
    <tr>
      <td colspan="4" height="10"></td>
    </tr>
    <tr>
      <td align="left" colspan="2" height="30"><table cellspacing="0" cellpadding="0" width="100%" bgcolor="white" 
            border="0">
        <tbody>
          <tr>
            <td height="5"></td>
          </tr>
          <tr>
            <td bgcolor="#a6d688" colspan="3" height="1"></td>
          </tr>
          <tr align="left" height="20">
            <td width="1" bgcolor="#a6d688"></td>
            <td bgcolor="#e6e6e6">
<%sql="select * from T_club where F_id="&request("club")
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
F_co=trim(rs("F_co"))
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
%>&nbsp;导航：&nbsp;<a class="blue3ln" 
            href="index.asp">网站首页</a>&gt;&gt;<a 
class="no_underline" href="group.asp?id=<%=xxone_id%>"><%=xxone%></a>&gt;&gt;<b><a 
class="no_underline" 
href="club.asp?id=<%=rs("F_id")%>"><%=rs("F_name")%></a></b> &nbsp;&nbsp;&nbsp;<%end if 
				  rs.close%> </td>
            <td width="1" bgcolor="#a6d688"></td>
          </tr>
          <tr>
            <td bgcolor="#a6d688" colspan="3" height="1"></td>
          </tr>
          <tr>
            <td height="5"></td>
          </tr>
        </tbody>
      </table></td>
    </tr>
    <tr height="20">
      <td colspan="2"><table cellspacing="0" cellpadding="0" width="100%" bgcolor="white" 
            border="0">
        <tbody>
          <tr>
            <td height="5"></td>
          </tr>
          <tr>
            <td bgcolor="#a6d688" colspan="3" height="1"></td>
          </tr>
          <tr align="left" height="20">
            <td width="1" bgcolor="#a6d688"></td>
            <td bgcolor="#e6e6e6">&nbsp;<b>&nbsp;
              &nbsp;圈内留言： 
              &nbsp;
              <%set rs2=server.createobject("adodb.recordset")
sql2="select * from book_sort where club="&request("club")&""
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("club")%>"><%=booksort%></A>(<font color="#FF0000"><%=culb%></font>)
<%
rs2.movenext
loop
rs2.close%>
</td>
            <td width="1" bgcolor="#a6d688"></td>
          </tr>
          <tr>
            <td bgcolor="#a6d688" colspan="3" height="1"></td>
          </tr>
          <tr>
            <td height="8"></td>
          </tr>
        </tbody>
      </table></td>
    </tr>
    <tr>
      <td colspan="4" height="2"></td>
    </tr>
  </tbody>
</table>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="white" class="border3">
  <tbody>
<DIV class=col_body><UL>
<%
if request("id")<>"" then
sql="select * from message_club where club="&request("club")&" and key1=6 and sort="&request("id")&" order by id desc"
else
sql="select * from message_club where club="&request("club")&" and key1=6 order by id desc"
end if
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  
'分页的实现 
listnum=20
Rs.pagesize=listnum
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
'编号的实现
j=rs.recordcount
j=j-(page-1)*listnum%>
<%i=0
nn=request("page")
if nn="" then
n=0
else
nn=nn-1
n=listnum*nn
end if
do while not rs.eof and i<listnum
n=n+1
'n=n+1%>
<tr height="25" bordercolor="#eeeeee">
      <td width="3%" align="center"><img src="images/ico_triangle_orange.gif" width="12" height="12" /></td>
      <td width="52%">&nbsp;<a 
      href="new_club_view.asp?id=<%=rs("id")%>&club=<%=request("club")%>" title="<%=rs("lr")%>" target="_blank" class="blue6ln"><b><%=rs("lr")%></b></a></td>
      <td width="15%"><a class="gray2ln" 
      href=""><%=rs("username")%></td>
      <td width="25%"><%=rs("data")%></td>
      <td width="5%"></td>
    </tr>
	 <tr>
      <td width="3%"></td>
      <td colspan="3" ></td>
      <td width="5%"></td>
    </tr>
	  <TR>
    <TD width="3%"></TD>
    <TD bgColor=#d6d6d6 colSpan=3 height=1></TD>
    <TD width="5%"></TD></TR>
<%
'if n mod 2=0 then response.Write("</tr><tr>")
rs.movenext
i=i+1 
j=j-1
loop%></UL></DIV><tr>
<%filename="new_club.asp?club="&request("id")&"&sort="&request("id")&""%>
<td colspan=4 align=right height=20><span class="STYLE2">共 <%=Rs.pagecount%> 页 
      <% if page=1 then %>
      <%else%>
      <a href=<%=filename%>>|<<</a>&nbsp; 
      <a href=<%=filename%>&page=<%=page-1%>><<</a>&nbsp; 
      <a href=<%=filename%>&page=<%=page-1%>>[<%=page-1%>]</a>&nbsp;
      <%end if%>
      <% if Rs.pagecount=1 then %>
      <%else%>
      [<%=page%>]
      <%end if%>
	  <% if Rs.pagecount-page <> 0 then %>
      <a href=<%=filename%>&page=<%=page+1%>>[<%=page+1%>]</a>&nbsp; 
      <a href=<%=filename%>&page=<%=page+1%>>>></a>&nbsp; 
      <a href=<%=filename%>&page=<%=Rs.pagecount%>>>>|</a>&nbsp; 
	  <%end if %>
    &nbsp;</span>&nbsp;</td>
<%end if%></tr></table>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
   <td height="23" colspan="2" align="center">
<DIV id=sub_nav>
<%set rs=server.createobject("adodb.recordset")
sql="select * from T_ypxxone"
rs.open sql,conn,1,1
n=0
do while not rs.eof
n=n+1%><A href="group.asp?id=<%=rs("xxone_id")%>"><%=rs("xxone")%></A> | <%
rs.movenext
loop
rs.close%></DIV></td>
  </tr>
</table>
<!--#include file="bottom.asp" -->
</body>
</html>
