<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<%
 '=========================================================
' File: klatch.asp
' Version:3.0
' Date: 2005-8-19
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 Xmrxw.Com All rights reserved.
' Web: http://www.xmrxw.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579　Msn：zdlmicr@hotmail.com
'=========================================================
response.buffer=true
stats="聚会大厅"
call nav()
if founderr then
	call head_var("","")
	call Mslove_error()
else
	call head_var("聚会大厅","klatch.asp")
%>
<%
call tumppages()'翻页处理
strFileName="klatch.asp?"
call main()
end if
call activeonline()
call footer()

sub main()%>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center border=0>
  <TBODY>
  <TR> 
      <TD colSpan=2><IMG height=140 
      src="Skins/Default/klatch/activity_pic05.jpg" width=245><IMG 
      src="Skins/Default/klatch/activity_pic02.jpg" width="256" height="140"><IMG height=140 
      src="Skins/Default/klatch/activity_pic03.jpg" width=249></TD>
  </TR>
  <TR> 
    <TD vAlign=center align=left width=498 background=Skins/Default/klatch/bg.gif 
    height=43> <TABLE cellSpacing=0 cellPadding=0 width="98%" border=0>
        <FORM action=klatchlist.asp method=post>
          <TBODY>
            <TR> 
              <TD width=11><IMG height=29 src="Skins/Default/klatch/border_01.gif" 
          width=11></TD>
                <TD width="387" align=middle background=Skins/Default/klatch/bg_02.gif>聚会城市： 
                  <input name="City" type="text" id="City" size="10">
                  聚会类别 
                  <SELECT id=typeid name=typeid>
                    <option value="1">周末闲聊</option>
                    <option value="2" selected>酒吧畅饮</option>
                    <option value="3">郊外远足</option>
                    <option value="4">游戏切磋</option>
                    <option value="5">逛街看戏</option>
                    <option value="6">白领聚会</option>
                    <option value="7">网站聚会</option>
                  </SELECT>
                  <input name="action" type="hidden" id="action" value="search"> 
                </TD>
              <TD width="65" background=Skins/Default/klatch/bg_02.gif><INPUT type=image 
            src="Skins/Default/klatch/but_search.gif" name=Submit></TD>
              <TD width=26><IMG height=29 src="Skins/Default/klatch/border_02.gif" 
          width=19></TD>
            </TR>
        </TBODY></FORM>
      </TABLE></TD>
    <TD vAlign=top align=right width=252 background=Skins/Default/klatch/bg.gif 
      rowSpan=2><IMG height=120 src="Skins/Default/klatch/activity_pic04.jpg" 
  width=249></TD>
  </TR>
  <TR> 
    <TD background=Skins/Default/klatch/bg.gif> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
          <TR> 
            <TD align=middle> <TABLE cellSpacing=0 cellPadding=0 width=145 border=0>
                <TBODY>
                  <TR> 
                    <TD><IMG height=9 src="Skins/Default/klatch/border_03.gif" 
              width=145></TD>
                  </TR>
                  <TR> 
                      <TD align=middle bgColor=#fcfefd><IMG height=100 src="Skins/Default/klatch/act_pic01.gif" 
                  width=133 border=0></TD>
                  </TR>
                  <TR> 
                    <TD><IMG height=15 src="Skins/Default/klatch/border_04.gif" 
              width=145></TD>
                  </TR>
                </TBODY>
              </TABLE></TD>
            <TD> <TABLE cellSpacing=0 cellPadding=0 width=145 border=0>
                <TBODY>
                  <TR> 
                    <TD><IMG height=9 src="Skins/Default/klatch/border_03.gif" 
              width=145></TD>
                  </TR>
                  <TR> 
                    <TD align=middle bgColor=#ffffff><IMG height=100 
                  src="Skins/Default/klatch/act_pic02.jpg" width=133></TD>
                  </TR>
                  <TR> 
                    <TD><IMG height=15 src="Skins/Default/klatch/border_04.gif" 
              width=145></TD>
                  </TR>
                </TBODY>
              </TABLE></TD>
            <TD> <TABLE cellSpacing=0 cellPadding=0 width=145 border=0>
                <TBODY>
                  <TR> 
                    <TD><IMG height=9 src="Skins/Default/klatch/border_03.gif" 
              width=145></TD>
                  </TR>
                  <TR> 
                    <TD align=middle bgColor=#ffffff><IMG height=100 
                  src="Skins/Default/klatch/act_pic02.jpg" width=133></TD>
                  </TR>
                  <TR> 
                    <TD><IMG height=15 src="Skins/Default/klatch/border_04.gif" 
              width=145></TD>
                  </TR>
                </TBODY>
              </TABLE></TD>
          </TR>
        </TBODY>
      </TABLE></TD>
  </TR>
  <TR> 
    <TD background=Skins/Default/klatch/bg_03.gif colSpan=2><IMG height=15 
      src="Skins/Default/klatch/bg_03.gif" width=1></TD>
  </TR></TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center bgColor=#f2f4f1 
border=0>
  <TBODY>
    <TR> 
      <TD align=middle width=760> <TABLE cellSpacing=0 cellPadding=0 width=727 bgColor=#ffffff border=0>
          <TBODY>
            <TR> 
              <TD align=middle width=704> <TABLE cellSpacing=0 cellPadding=0 width="98%" border=0>
                  <TBODY>
                    <TR> 
                      <TD vAlign=top width=322> <TABLE cellSpacing=0 cellPadding=0 width=322 border=0>
                          <TBODY>
                            <TR> 
                              <TD colSpan=3><IMG height=79 
                        src="Skins/Default/klatch/table_title01.gif" width=322></TD>
                            </TR>
                            <TR> 
                              <TD width=19 background=Skins/Default/klatch/table_bg01.gif><IMG 
                        height=3 src="Skins/Default/klatch/table_bg01.gif" width=19></TD>
                              <TD width=287>
							  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                  <%set rs=server.createobject("adodb.recordset")
	sql="select top 4 Title,Kid,Username,City,hits,Joinnum from [Ms_klatch] where typeid=1 and Checked=1"
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof
%>
								  <tr>
                                    <td><TABLE cellSpacing=1 cellPadding=3 width="100%" 
border=0>
                                        <TBODY>
                                          <TR> 
                                            <TD><IMG src="Skins/Default/klatch/con_cion1.gif" width="6" height="7"> 
                                              聚会主题:<A 
                              href="klview.asp?id=<%=rs("Kid")%>" 
                              target=_blank><%=rs("Title")%></A> 城市:<%=rs("City")%></TD>
                                          </TR>
                                          <TR> 
                                            <TD>发起人: <A 
                              href="dispuser.asp?username=<%=rs("Username")%>" 
                              target=_blank><%=rs("Username")%></A> 人气:<%=rs("Hits")%> 报名:<%=rs("Joinnum")%> </TD>
                                          </TR>
                                        </TBODY>
                                      </TABLE></td>
                                  </tr>
<%rs.movenext
loop
else
response.Write("本类无活动")
end if
rs.close%>
                                </table>
                                
                              </TD>
                              <TD width=27 background=Skins/Default/klatch/table_bg02.gif><IMG 
                        height=3 src="Skins/Default/klatch/table_bg02.gif" width=27></TD>
                            </TR>
                            <TR> 
                              <TD colSpan=3><IMG height=11 
                        src="Skins/Default/klatch/table_bot.gif" 
                  width=322></TD>
                            </TR>
                          </TBODY>
                        </TABLE>
                        <BR></TD>
                      <TD vAlign=bottom align=middle><IMG height=35 
                  src="Skins/Default/klatch/table_line2.gif" width=5></TD>
                      <TD vAlign=top align=right width=322> <TABLE cellSpacing=0 cellPadding=0 width=325 border=0>
                          <TBODY>
                            <TR> 
                              <TD colSpan=3><IMG height=79 
                        src="Skins/Default/klatch/table_title02.gif" width=322></TD>
                            </TR>
                            <TR> 
                              <TD width=19 background=Skins/Default/klatch/table_bg01.gif><IMG 
                        height=3 src="Skins/Default/klatch/table_bg01.gif" width=19></TD>
                              <TD width=278><table width="100%" border="0" cellspacing="0" cellpadding="0">
                                  <%set rs=server.createobject("adodb.recordset")
	sql="select top 4 Title,Kid,Username,City,hits,Joinnum from [Ms_klatch] where typeid=2 and Checked=1"
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof
%>
                                  <tr> 
                                    <td><TABLE cellSpacing=1 cellPadding=3 width="100%" 
border=0>
                                        <TBODY>
                                          <TR> 
                                            <TD><IMG src="Skins/Default/klatch/con_cion1.gif" width="6" height="7"> 
                                              聚会主题:<A 
                              href="klview.asp?id=<%=rs("Kid")%>" 
                              target=_blank><%=rs("Title")%></A> 城市:<%=rs("City")%></TD>
                                          </TR>
                                          <TR> 
                                            <TD>发起人: <A 
                              href="dispuser.asp?username=<%=rs("Username")%>" 
                              target=_blank><%=rs("Username")%></A> 人气:<%=rs("Hits")%> 
                                              报名:<%=rs("Joinnum")%> </TD>
                                          </TR>
                                        </TBODY>
                                      </TABLE></td>
                                  </tr>
                                  <%rs.movenext
loop
else
response.Write("本类无活动")
end if
rs.close%>
                                </table> </TD>
                              <TD width=28 background=Skins/Default/klatch/table_bg02.gif><IMG 
                        height=3 src="Skins/Default/klatch/table_bg02.gif" width=27></TD>
                            </TR>
                            <TR> 
                              <TD colSpan=3><IMG height=11 
                        src="Skins/Default/klatch/table_bot.gif" 
                  width=322></TD>
                            </TR>
                          </TBODY>
                        </TABLE>
                        <BR></TD>
                    </TR>
                    <TR align=middle> 
                      <TD colSpan=3><IMG height=13 src="Skins/Default/klatch/table_line1.gif" 
                  width=240></TD>
                    </TR>
                    <TR> 
                      <TD vAlign=top rowSpan=2> <TABLE cellSpacing=0 cellPadding=0 width=322 border=0>
                          <TBODY>
                            <TR> 
                              <TD colSpan=3><IMG height=79 
                        src="Skins/Default/klatch/table_title03.gif" width=322></TD>
                            </TR>
                            <TR> 
                              <TD width=19 background=Skins/Default/klatch/table_bg01.gif><IMG 
                        height=3 src="Skins/Default/klatch/table_bg01.gif" width=19></TD>
                              <TD width=287><table width="100%" border="0" cellspacing="0" cellpadding="0">
                                  <%set rs=server.createobject("adodb.recordset")
	sql="select top 4 Title,Kid,Username,City,hits,Joinnum from [Ms_klatch] where typeid=3 and Checked=1"
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof
%>
                                  <tr> 
                                    <td><TABLE cellSpacing=1 cellPadding=3 width="100%" 
border=0>
                                        <TBODY>
                                          <TR> 
                                            <TD><IMG src="Skins/Default/klatch/con_cion1.gif" width="6" height="7"> 
                                              聚会主题:<A 
                              href="klview.asp?id=<%=rs("Kid")%>" 
                              target=_blank><%=rs("Title")%></A> 城市:<%=rs("City")%></TD>
                                          </TR>
                                          <TR> 
                                            <TD>发起人: <A 
                              href="dispuser.asp?username=<%=rs("Username")%>" 
                              target=_blank><%=rs("Username")%></A> 人气:<%=rs("Hits")%> 
                                              报名:<%=rs("Joinnum")%> </TD>
                                          </TR>
                                        </TBODY>
                                      </TABLE></td>
                                  </tr>
                                  <%rs.movenext
loop
else
response.Write("本类无活动")
end if
rs.close%>
                                </table> </TD>
                              <TD width=27 background=Skins/Default/klatch/table_bg02.gif><IMG 
                        height=3 src="Skins/Default/klatch/table_bg02.gif" width=27></TD>
                            </TR>
                            <TR> 
                              <TD colSpan=3><IMG height=11 
                        src="Skins/Default/klatch/table_bot.gif" 
                  width=322></TD>
                            </TR>
                          </TBODY>
                        </TABLE>
                        <BR></TD>
                      <TD vAlign=top align=middle><IMG height=35 
                  src="Skins/Default/klatch/table_line2.gif" width=5></TD>
                      <TD vAlign=top align=right rowSpan=2> <TABLE cellSpacing=0 cellPadding=0 width=322 border=0>
                          <TBODY>
                            <TR> 
                              <TD colSpan=3><IMG height=79 
                        src="Skins/Default/klatch/table_title04.gif" width=322></TD>
                            </TR>
                            <TR> 
                              <TD width=19 background=Skins/Default/klatch/table_bg01.gif><IMG 
                        height=3 src="Skins/Default/klatch/table_bg01.gif" width=19></TD>
                              <TD width=287><table width="100%" border="0" cellspacing="0" cellpadding="0">
                                  <%set rs=server.createobject("adodb.recordset")
	sql="select top 4 Title,Kid,Username,City,hits,Joinnum from [Ms_klatch] where typeid=4 and Checked=1"
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof
%>
                                  <tr> 
                                    <td><TABLE cellSpacing=1 cellPadding=3 width="100%" 
border=0>
                                        <TBODY>
                                          <TR> 
                                            <TD><IMG src="Skins/Default/klatch/con_cion1.gif" width="6" height="7"> 
                                              聚会主题:<A 
                              href="klview.asp?id=<%=rs("Kid")%>" 
                              target=_blank><%=rs("Title")%></A> 城市:<%=rs("City")%></TD>
                                          </TR>
                                          <TR> 
                                            <TD>发起人: <A 
                              href="dispuser.asp?username=<%=rs("Username")%>" 
                              target=_blank><%=rs("Username")%></A> 人气:<%=rs("Hits")%> 
                                              报名:<%=rs("Joinnum")%> </TD>
                                          </TR>
                                        </TBODY>
                                      </TABLE></td>
                                  </tr>
                                  <%rs.movenext
loop
else
response.Write("本类无活动")
end if
rs.close%>
                                </table> </TD>
                              <TD width=27 background=Skins/Default/klatch/table_bg02.gif><IMG 
                        height=3 src="Skins/Default/klatch/table_bg02.gif" width=27></TD>
                            </TR>
                            <TR> 
                              <TD colSpan=3><IMG height=11 
                        src="Skins/Default/klatch/table_bot.gif" 
                  width=322></TD>
                            </TR>
                          </TBODY>
                        </TABLE>
                        <BR></TD>
                    </TR>
                    <TR> 
                      <TD vAlign=bottom align=middle><IMG height=35 
                  src="Skins/Default/klatch/table_line2.gif" width=5></TD>
                    </TR>
                    <TR align=middle> 
                      <TD colSpan=3><IMG height=13 src="Skins/Default/klatch/table_line1.gif" 
                  width=240></TD>
                    </TR>
                    <TR> 
                      <TD vAlign=top> <TABLE cellSpacing=0 cellPadding=0 width=322 border=0>
                          <TBODY>
                            <TR> 
                              <TD colSpan=3><IMG height=79 
                        src="Skins/Default/klatch/table_title05.gif" width=322></TD>
                            </TR>
                            <TR> 
                              <TD width=19 background=Skins/Default/klatch/table_bg01.gif><IMG 
                        height=3 src="Skins/Default/klatch/table_bg01.gif" width=19></TD>
                              <TD width=287><table width="100%" border="0" cellspacing="0" cellpadding="0">
                                  <%set rs=server.createobject("adodb.recordset")
	sql="select top 4 Title,Kid,Username,City,hits,Joinnum from [Ms_klatch] where typeid=5 and Checked=1"
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof
%>
                                  <tr> 
                                    <td><TABLE cellSpacing=1 cellPadding=3 width="100%" 
border=0>
                                        <TBODY>
                                          <TR> 
                                            <TD><IMG src="Skins/Default/klatch/con_cion1.gif" width="6" height="7"> 
                                              聚会主题:<A 
                              href="klview.asp?id=<%=rs("Kid")%>" 
                              target=_blank><%=rs("Title")%></A> 城市:<%=rs("City")%></TD>
                                          </TR>
                                          <TR> 
                                            <TD>发起人: <A 
                              href="dispuser.asp?username=<%=rs("Username")%>" 
                              target=_blank><%=rs("Username")%></A> 人气:<%=rs("Hits")%> 
                                              报名:<%=rs("Joinnum")%> </TD>
                                          </TR>
                                        </TBODY>
                                      </TABLE></td>
                                  </tr>
                                  <%rs.movenext
loop
else
response.Write("本类无活动")
end if
rs.close%>
                                </table> </TD>
                              <TD width=27 background=Skins/Default/klatch/table_bg02.gif><IMG 
                        height=3 src="Skins/Default/klatch/table_bg02.gif" width=27></TD>
                            </TR>
                            <TR> 
                              <TD colSpan=3><IMG height=11 
                        src="Skins/Default/klatch/table_bot.gif" 
                  width=322></TD>
                            </TR>
                          </TBODY>
                        </TABLE></TD>
                      <TD vAlign=top align=middle><IMG height=35 
                  src="Skins/Default/klatch/table_line2.gif" width=5></TD>
                      <TD vAlign=top align=right> <TABLE cellSpacing=0 cellPadding=0 width=322 border=0>
                          <TBODY>
                            <TR> 
                              <TD colSpan=3><IMG height=79 
                        src="Skins/Default/klatch/table_title06.gif" width=322></TD>
                            </TR>
                            <TR> 
                              <TD width=19 background=Skins/Default/klatch/table_bg01.gif><IMG 
                        height=3 src="Skins/Default/klatch/table_bg01.gif" width=19></TD>
                              <TD width=287><table width="100%" border="0" cellspacing="0" cellpadding="0">
                                  <%set rs=server.createobject("adodb.recordset")
	sql="select top 4 Title,Kid,Username,City,hits,Joinnum from [Ms_klatch] where typeid=6 and Checked=1"
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof
%>
                                  <tr> 
                                    <td><TABLE cellSpacing=1 cellPadding=3 width="100%" 
border=0>
                                        <TBODY>
                                          <TR> 
                                            <TD><IMG src="Skins/Default/klatch/con_cion1.gif" width="6" height="7"> 
                                              聚会主题:<A 
                              href="klview.asp?id=<%=rs("Kid")%>" 
                              target=_blank><%=rs("Title")%></A> 城市:<%=rs("City")%></TD>
                                          </TR>
                                          <TR> 
                                            <TD>发起人: <A 
                              href="dispuser.asp?username=<%=rs("Username")%>" 
                              target=_blank><%=rs("Username")%></A> 人气:<%=rs("Hits")%> 
                                              报名:<%=rs("Joinnum")%> </TD>
                                          </TR>
                                        </TBODY>
                                      </TABLE></td>
                                  </tr>
                                  <%rs.movenext
loop
else
response.Write("本类无活动")
end if
rs.close%>
                                </table> </TD>
                              <TD width=27 background=Skins/Default/klatch/table_bg02.gif><IMG 
                        height=3 src="Skins/Default/klatch/table_bg02.gif" width=27></TD>
                            </TR>
                            <TR> 
                              <TD colSpan=3><IMG height=11 
                        src="Skins/Default/klatch/table_bot.gif" 
                  width=322></TD>
                            </TR>
                          </TBODY>
                        </TABLE></TD>
                    </TR>
                  </TBODY>
                </TABLE>
                <BR></TD>
              <TD width=7 background=Skins/Default/klatch/bg_left.gif><IMG height=3 
            src="Skins/Default/klatch/bg_left.gif" width=7></TD>
            </TR>
            <TR> 
              <TD background=Skins/Default/klatch/bg_bottom.gif><IMG height=12 
            src="Skins/Default/klatch/bg_bottom.gif" width=13></TD>
              <TD><IMG height=12 src="Skins/Default/klatch/tangle.gif" 
      width=7></TD>
            </TR>
          </TBODY>
        </TABLE></TD>
    </TR>
  </TBODY>
</TABLE>
<%
end sub
%>   
</body>
</html> 