<!--#include file="main.asp" -->
<%
sql="select * from message_club where id="&request("id")&" order by id desc"
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
id=rs("id")
lr=rs("lr")
user_id=rs("user_id")
club=rs("club")
book=rs("message")
username=rs("username")
data=rs("data")
end if
rs.close%>
<%
page=request("page")
if page="" then page=1
if request("action")="del" then
id=request("id")
conn.execute("delete From message_club Where id="&ID&" and username='"&session("goname")&"'")
Response.Redirect "new_club.asp?club="&club&""
end if%>
<!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/style.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="4" height="1"></td>
          </tr>
          <tr align="left" height="20">
            <td width="1" bgcolor="#a6d688"></td>
            
            <td width="490" 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
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;
              <%end if 
				  rs.close%> </td>
            <td width="288" bgcolor="#e6e6e6"><a href="new_club_view.asp?page=<%=request("page")%>&id=<%=id%>&action=del" class="STYLE7">删除</a> <a href="news_club.asp?userid=<%=user_id%>&club=<%=club%>&username=<%=session("goname")%>">发表新留言</a> </td>
            <td width="1" bgcolor="#a6d688"></td>
          </tr>
          <tr>
            <td bgcolor="#a6d688" colspan="4" 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;圈内留言： 
              &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">
<TR>
    <TD class=con2 align=left width="96%" bgColor=#d6d6d6>&nbsp;
      &nbsp;<B><%=lr%></B>&nbsp;&nbsp;<%=data%>&nbsp;&nbsp;<%=username%> &nbsp;
    </TD></TR>
  <tr>
    <td><table width="97%" height="19" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td class=con1 style="WORD-BREAK: break-all"><%=book%></td>
      </tr>
    </table></td>
  </tr>
</table>

<table class="border2" cellspacing="0" cellpadding="0" width="780" align="center" border="0">
  <tbody>
    <tr>
      <td width="2%"></td>
      <td class="con2" height="20"></td>
      <td></td>
      <td></td>
      <td></td></td>
    </tr>
    <tr>
      <td width="2%"></td>
      <td class="con2" height="40"><b>相关评论</b></td>
      <td></td>
      <td></td>
      <td></td></td>
    </tr>
  </tbody>
</table>
<table class="border2" cellspacing="0" cellpadding="0" width="780" align="center" border="0">
  <tbody>
    <%set rst=server.createobject("adodb.recordset")
sqlt="select * from message_club where key1=8 and l_id="&request("id")
rst.open sqlt,conn,1,1
do while not rst.eof%>
    <tr>
      <td width="2%"></td>
      <td class="con1" bgcolor="#d6d6d6">&nbsp; 发布者：<b><%=rst("username")%></b>&nbsp;&nbsp;&nbsp;---&nbsp;<%=rst("data")%> </td>
      <td width="2%"></td>
    </tr>
    <tr>
      <td width="2%"></td>
      <td class="con1" colspan="2" height="25"><%=rst("message")%></td>
      <td width="2%"></td>
    </tr>
    <%
rst.movenext
loop
rst.close%>
  </tbody>
</table>
<table class="border2" cellspacing="0" cellpadding="0" width="780" align="center" 
bgcolor="white" border="0">
  <tbody>
    <tr>
      <td colspan="3"></td>
    </tr>
    <tr>
      <td width="2%"></td>
      <td class="con1" colspan="2" height="25"><form action="inc/new_server.asp" method="post" name="form1" id="form1">
        <input name="user_id" type="hidden" value="<%=goid%>" />
        <input name="l_id" type="hidden" value="<%=request("id")%>" />
        <input name="key" type="hidden" value="8" />
        <input name="club" type="hidden" value="<%=request("club")%>" />
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="30" colspan="2"><span class="a1"><b class="con2">发表评论</b></span></td>
          </tr>
          <tr>
            <td width="12%" height="25" align="right">用户名:&nbsp;</td>
            <td width="88%" height="30"><input name="username" type="text" id="username" value="<%=session("goname")%>" size="30" /></td>
          </tr>
          <tr>
            <td height="25" align="right">评论内容:&nbsp;</td>
            <td height="25"><textarea name="msg" cols="75" rows="5"></textarea></td>
          </tr>
          <tr>
            <td height="25">&nbsp;</td>
            <td height="40">&nbsp;&nbsp;&nbsp;
                  <input type="submit" name="Submit2" value=" 提 交 " />
              &nbsp;&nbsp;&nbsp;&nbsp;
              <input type="reset" name="Submit2" value=" 重 置 " /></td>
          </tr>
        </table>
      </form></td>
      <td width="2%"></td>
    </tr>
  </tbody>
</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>
