<%@ Language=VBScript %><html>
<head>
<title>缘分的天空</title>
<link rel="stylesheet" href="../../images/css.css" type="text/css">
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</head>
<body leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">
<SCRIPT LANGUAGE=javascript>
//<!--
	function sss(URL)
	{
		newwin=window.open('','_blank','fullscreen=0,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0');
		if(document.all){
		newwin.moveTo(200,40 )
		newwin.resizeTo(400,400 );
		}
		newwin.location=URL
		newwin.focus();
	}

	
//-->
</SCRIPT>
<object runat="server" id="conn1" progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>
<%
	if Application("mytoday")="" or  Application("mytoday")<>date  then
	'if Application("mytoday")=date  then
	set rs_1=server.CreateObject ("ADODB.recordset")
   rs_1.Supports (adUpdate)
     sql="select * from party where is_history=0"
     rs_1.Open sql,conn1,2,3
	while not rs_1.EOF
		 if rs_1("end_date")<date then
		 
		 rs_1("is_history")=1
		  end_date=rs_1("end_date")
		  
		  end if
		  rs_1.MoveNext
		  
	wend
	
	Application("mytoday")=date
	end if
	
    
	
%>

<!--#include file="top.asp" -->



<br>
<table cellSpacing="0" cellPadding="0" width="770"  border="0" align="center">
 <tr>
    <td height="20" align="left"> <a href="../../default.asp">首页</a> -&gt;网友聚会 </td>
      </tr>
 </table> 
<%set rs1=server.CreateObject ("ADODB.recordset")
  
     sql="select * from party where weight=1 and is_history=0"
     rs1.Open sql,conn1,3
     if rs1.RecordCount<>0 then
		sys_party_name=rs1("party_name")
		sys_party_content=rs1("party_content")
		sys_id=rs1("id")
     end if
     
     %>
<% if rs1.RecordCount<>0 then %>
<table cellSpacing="0" cellPadding="0" width="770" align="center" border="0">
  <tbody>
  <tr>
    <td>
      <div align="center"><img height="27" src="images/klatch_t_zxjh.gif" width="738"></div></td></tr>
  <tr>
    <td>
      <table cellSpacing="0" cellPadding="0" width="100%" border="0">
        <tbody>
        <tr>
          <td vAlign="top" width="70%">
            <div align="right">
            <table cellSpacing="0" cellPadding="0" width="90%" align="center" border="0">
              <tbody>
              <tr>
                <td height="35">
                  <div align="center"><b><font color="#ff9933" size="3"><%=sys_party_name%></font></b></div></td></tr>
              <tr>
                <td> 
                 <a href="party_2.asp?id=<%=sys_id%>" target="_blank"><%=sys_party_content%></a></td></tr></tbody></table></div></td>
          <td width="30%">
            
   <%set rs=server.CreateObject ("ADODB.recordset")
    
   sql="select * from public_note  where object=1 order by time desc"
   rs.Open sql,conn1,3
  if rs.RecordCount<>0 then
	
	public_note=rs("public_note")
	
	
  end if
 %>             
            <table cellSpacing="0" cellPadding="0" width="218" border="0">
              <tbody>
              
              <tr>
                <td><img height="23" src="images/klatch_board_top.gif" width="218"></td></tr>
              <tr>
                <td background="images/klatch_board_mid.gif">
                  <table cellSpacing="0" cellPadding="0" width="90%" align="center" border="0">
                    <tbody>
                    <tr>
                      <td><%=public_note%></td></tr>
                    <tr>
                      <td vAlign="top" height="150">
                        <br><br></td></tr></tbody></table></td></tr>
              <tr background="images/klatch_board_mid.gif">
                <td><img height="12" src="images/klatch_board_bot.gif" width="218">
                </td></tr>
                </tbody></table>
             </td></tr></tbody></table>
             </td></tr></tbody></table>

<%end if%>
<!--网友自发的聚会-->
<script language="javascript">
<!--
//Begin dHTML Toolltip Timer
var tipTimer;
//End dHTML Toolltip Timer

function locateObject(n, d) { //v3.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=locateObject(n,d.layers[i].document); return x;
}

function hideTooltip(object)
{
if (document.all)
{
	locateObject(object).style.visibility="hidden"
	locateObject(object).style.left = 1;
	locateObject(object).style.top = 1;
return false
}
else if (document.layers)
{
	locateObject(object).visibility="hide"
	locateObject(object).left = 1;
	locateObject(object).top = 1;
	return false
}
else
	return true
}

function showTooltip(object,e, tipContent, backcolor, bordercolor, textcolor, displaytime)
{
	window.clearTimeout(tipTimer)
	
	if (document.all)
		{
			locateObject(object).style.top=document.body.scrollTop+event.clientY+20
			
			locateObject(object).innerHTML='<table style="font-family: Tahoma, Arial, Helvetica, sans-serif; font-size: 11px; border: '+bordercolor+'; border-style: solid; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px; background-color: '+backcolor+'" width="10" border="0" cellspacing="1" cellpadding="1"><tr><td nowrap><font style="font-family: Tahoma, Arial, Helvetica, sans-serif; font-size: 11px; color: '+textcolor+'">'+unescape(tipContent)+'</font></td></tr></table> '

			if ((e.x + locateObject(object).clientWidth) > (document.body.clientWidth + document.body.scrollLeft))
				{	
					locateObject(object).style.left = (document.body.clientWidth + document.body.scrollLeft) - locateObject(object).clientWidth-10;
				}
			else
			{
			locateObject(object).style.left=document.body.scrollLeft+event.clientX
			}
		locateObject(object).style.visibility="visible"
		tipTimer=window.setTimeout("hideTooltip('"+object+"')", displaytime);
		return true;
		}
	else if (document.layers)
		{
		locateObject(object).document.write('<table width="10" border="0" cellspacing="1" cellpadding="1"><tr bgcolor="'+bordercolor+'"><td><table width="10" border="0" cellspacing="0" cellpadding="2"><tr bgcolor="'+backcolor+'"><td nowrap><font style="font-family: Tahoma, Arial, Helvetica, sans-serif; font-size: 11px; color: '+textcolor+'">'+unescape(tipContent)+'</font></td></tr></table></td></tr></table>')
		locateObject(object).document.close()
		locateObject(object).top=e.y+20

		if ((e.x + locateObject(object).clip.width) > (window.pageXOffset + window.innerWidth))
			{
				locateObject(object).left = window.innerWidth - locateObject(object).clip.width-10;
			}
		else
			{
			locateObject(object).left=e.x;
			}
		locateObject(object).visibility="show"
		tipTimer=window.setTimeout("hideTooltip('"+object+"')", displaytime);
		return true;
	}
	else
	{
		return true;
	}
}
//-->
</script>
<!-- #BeginBehavior showTooltip1 -->
<div id="dHTMLToolTip" style="width:10px; height:20px; position:absolute; left:0px; top:0px; z-index:1000; visibility:hidden;">
    <p>&nbsp;</p>
</div>
<!-- #EndBehavior showTooltip1 -->
<TABLE WIDTH="770" ALIGN=center BORDER=0 CELLSPACING=1 CELLPADDING=1>
	<tr>
    <td height="50"  colspan=3>
      <div align="center"><img height="27" src="images/klatch_t_zfjh.gif" ></div></td></tr>
	<TR>
		    <TD vAlign=top align=middle width=120 bgColor=#deefff>
      <TABLE cellSpacing=0 cellPadding=0 width="90%" border=0>
        <TBODY>
        <TR>
          <TD height=15></TD></TR>
        <TR align=middle>
          <TD class=c1 height=30><A 
            href="party_add_party.asp"><FONT 
            color=#5286ef><IMG height=20 src="images/klatch_t_fqjh.gif" 
            width=91 border=0></FONT></A></TD></TR>
             <TR align=middle>
          <TD class=c1 height=30><a href="history_party.asp"><IMG height=20 
            src="images/klatch_t_ywjh.gif" width=91 
        border=0></a></TD></TR>
         <TR align=middle>
         <TD class=c1 height=30><A 
            href="party_add_party.asp" onMouseover="showTooltip('dHTMLToolTip',event, '（北京、上海、天津、重庆）', '#ffff99','#000000','#000000','10000')"><FONT 
            color=#5286ef>直辖市</FONT></A>
          </TD></TR>
           <TR align=middle>
         <TD class=c1 height=30><A 
            href="party_add_party.asp" onMouseover="showTooltip('dHTMLToolTip',event, '（黑龙江省、吉林省、辽宁省）', '#ffff99','#000000','#000000','10000')"><FONT 
            color=#5286ef>东北地区</FONT></A>
         </TD></TR>
           <TR align=middle>
         <TD class=c1 height=30><A 
            href="party_add_party.asp" onMouseover="showTooltip('dHTMLToolTip',event, '（河北省、内蒙古、山西省）', '#ffff99','#000000','#000000','10000')"><FONT 
            color=#5286ef>华北地区</FONT></A>
         </TD></TR>
           <TR align=middle>
         <TD class=c1 height=30><A 
            href="party_add_party.asp" onMouseover="showTooltip('dHTMLToolTip',event, '（青海省、陕西省、甘肃省、新疆、宁夏）', '#ffff99','#000000','#000000','10000')"><FONT 
            color=#5286ef>西北地区</FONT></A>
         </TD></TR>
           <TR align=middle>
         <TD class=c1 height=30><A 
            href="party_add_party.asp" onMouseover="showTooltip('dHTMLToolTip',event, '（浙江省、山东省、江苏省、安徽省、江西省、福建省）', '#ffff99','#000000','#000000','10000')"><FONT 
            color=#5286ef>华东地区</FONT></A>
         </TD></TR>
           <TR align=middle>
         <TD class=c1 height=30><A 
            href="party_add_party.asp" onMouseover="showTooltip('dHTMLToolTip',event, '（河南省、湖北省、湖南省）', '#ffff99','#000000','#000000','10000')"><FONT 
            color=#5286ef>华中地区</FONT></A>
         </TD></TR>
           <TR align=middle>
         <TD class=c1 height=30><A 
            href="party_add_party.asp" onMouseover="showTooltip('dHTMLToolTip',event, '（广东省、海南省、广西）', '#ffff99','#000000','#000000','10000')"><FONT 
            color=#5286ef>华南地区</FONT></A>
         </TD></TR>
           <TR align=middle>
         <TD class=c1 height=30><A 
            href="party_add_party.asp" onMouseover="showTooltip('dHTMLToolTip',event, '（贵州省、四川省、云南省、西藏）', '#ffff99','#000000','#000000','10000')"><FONT 
            color=#5286ef>西南地区</FONT></A>
         </TD></TR>
           <TR align=middle>
         <TD class=c1 height=30><A 
            href="party_add_party.asp" onMouseover="showTooltip('dHTMLToolTip',event, '（台湾省、香港、澳门、美国、加拿大、澳大利亚、欧洲、其它国家）', '#ffff99','#000000','#000000','10000')"><FONT 
            color=#5286ef>其它地区</FONT></A>
         </TD></TR>
      <!--  <TR align=middle>
          <TD class=c1 height=30><A 
            href="http://www.loveproxy.com/inves/vote.asp?topic_id=6"><FONT 
            color=#5286ef><IMG height=20 src="images/klatch_t_jhdc.gif" 
            width=91 border=0></FONT></A></TD></TR>
        <TR align=middle>
          <TD class=c1 height=30><A 
            href="http://www.loveproxy.com/inves/makeup.asp?topic_id=6"><IMG 
            height=20 src="images/klatch_t_wytjh.gif" width=91 
            border=0></A></TD></TR>
        <TR align=middle>
          <TD class=c1 height=30><A href="http://202.105.191.13:45563/Login" 
            target=_blank><IMG height=20 src="images/klatch_t_jhlts.gif" 
            width=91 border=0></A></TD></TR>-->
       </TBODY></TABLE>
      
        </TD>
		
		<TD align=middle width=540 valign=top>
		
		<TABLE class=font1 cellSpacing=1 borderColorDark=#ffffff cellPadding=0 
      width="100%" borderColorLight=#808080 border=1>
        <TBODY>
        <TR>
          <TD align=center bgColor=#deefff   colspan=7>
			最近的20个聚会
          </td>
         </tr>
        <TR>
          <TD align=middle width=50 bgColor=#deefff><SPAN 
            class=content>发起人</SPAN></TD>
          <TD align=middle width=100 bgColor=#deefff><SPAN 
            class=content>聚会时间</SPAN></TD>
          <TD align=middle width=130 bgColor=#deefff><SPAN 
            class=content>聚会地点</SPAN></TD>
          <TD align=middle width=70 bgColor=#deefff><SPAN 
            class=content>发起时间</SPAN></TD>
          <TD align=middle width=50 bgColor=#deefff><SPAN 
            class=content>报名人数</SPAN></TD>
          <TD align=middle width=50 bgColor=#deefff><SPAN 
            class=content>讨论数</SPAN></TD>
          <TD align=middle width=50 bgColor=#deefff><SPAN 
            class=content>详细信息</SPAN></TD></TR>
     <%for i=1 to 9
			sql="select * from party where weight=0 and is_history=0 and "
			 if i=1 then
				sql=sql&"province in('北京','上海','天津','重庆')"
				zone="直辖市（北京、上海、天津、重庆）"
			elseif i=2 then
				sql=sql&"province in('黑龙江省','吉林省','辽宁省')"
				zone="东北地区（黑龙江省、吉林省、辽宁省）"
			elseif i=3 then
				sql=sql&"province in('河北省','内蒙古','山西省')"
				zone="华北地区（河北省、内蒙古、山西省）"
			elseif i=4 then
				sql=sql&"province in('青海省','陕西省','甘肃省','新疆','宁夏')"
				zone="西北地区（青海省、陕西省、甘肃省、新疆、宁夏）"
			elseif i=5 then
				sql=sql&"province in('浙江省','山东省','江苏省','安徽省','江西省','福建省')"
				zone="华东地区（浙江省、山东省、江苏省、安徽省、江西省、福建省）"
			elseif i=6 then
				sql=sql&"province in('河南省','湖北省','湖南省')"
				zone="华中地区（河南省、湖北省、湖南省）"
			elseif i=7 then
				sql=sql&"province in('广东省','海南省','广西')"
				zone="华南地区（广东省、海南省、广西）"
			elseif i=8 then
				sql=sql&"province in('贵州省','四川省','云南省','西藏')"
				zone="西南地区（贵州省、四川省、云南省、西藏）"
			elseif i=9 then
				sql=sql&"province in('台湾省','香港','澳门','美国','加拿大','澳大利亚','欧洲','其它国家')"
				zone="其它地区（台湾省、香港、澳门、美国、加拿大、澳大利亚、欧洲、其它国家）"
			end if
	sql=sql&" order by province"
	rows=1
	sql="select top 20 * from party where weight=0 and is_history=0  "
	set rs_zone=server.CreateObject ("ADODB.recordset")
	'sql="select * from party where is_history=0 and province='"&Request("province")&"'"
	 rs_zone.Open sql,conn1,3,2
	 
     %> 
		
        <TR>
          <TD colSpan=7><SPAN class=content><FONT 
            color=#dc143c><B><%=zone%></B></FONT></SPAN></TD></TR>
       <%if rs_zone.RecordCount<>0 then
			while not rs_zone.EOF
				set rs_join=server.CreateObject ("ADODB.recordset")
				sql="select join_id from join_party where id="&rs_zone("id")
				rs_join.Open sql,conn1,3,2
				join_counter=rs_join.RecordCount
				
				set rs_dis=server.CreateObject ("ADODB.recordset")
				sql="select discuss_id from party_discuss where id="&rs_zone("id")
				rs_dis.Open sql,conn1,3,2
				dis_counter=rs_dis.RecordCount
				 
			                                                                                                                                             
			%>    
        <TR>
          <TD bgColor=#f5f5f5><SPAN class=content><a href="../show_user.asp?user_name=<%=rs_zone("initiate_people")%>" target="_blank"><%=rs_zone("initiate_people")%></a></SPAN></TD>
          <TD bgColor=#f5f5f5><SPAN 
            class=content><%=rs_zone("party_time")%></SPAN></TD>
          <TD bgColor=#f5f5f5><SPAN 
            class=content><%=rs_zone("address")%></SPAN></TD>
          <TD bgColor=#f5f5f5><SPAN 
            class=content><%=rs_zone("date")%></SPAN></TD>
          <TD align=middle width=50 bgColor=#f5f5f5><SPAN 
            class=content><%=join_counter%></SPAN></TD>
          <TD align=middle width=50 bgColor=#f5f5f5><SPAN 
            class=content><%=dis_counter%></SPAN></TD>
          <TD bgColor=#f5f5f5><SPAN class=content><a href="party_2.asp?id=<%=rs_zone("id")%>">详细信息</A></SPAN>
            </TD></TR>
         <%
			rows=rows+1
			rs_zone.MoveNext
			wend
			else%>
		<TR>
          <TD bgColor=#f5f5f5><SPAN 
            class=content>&nbsp;</SPAN></TD>
          <TD bgColor=#f5f5f5><SPAN 
            class=content>&nbsp;</SPAN></TD>
          <TD bgColor=#f5f5f5><SPAN 
            class=content>&nbsp;</SPAN></TD>
          <TD bgColor=#f5f5f5><SPAN 
            class=content>&nbsp;</SPAN></TD>
          <TD align=middle width=50 bgColor=#f5f5f5><SPAN 
            class=content>&nbsp;</SPAN></TD>
          <TD align=middle width=50 bgColor=#f5f5f5><SPAN 
            class=content>&nbsp;</SPAN></TD>
          <TD bgColor=#f5f5f5><SPAN 
            class=content>&nbsp;</SPAN>
            </TD></TR>	
			
			<%end if%>     
    <% next%>
     
            
        </TBODY></TABLE>
            
        </TD>
			    <TD vAlign=top align=middle width=120 bgColor=#deefff>
      <TABLE cellSpacing=0 cellPadding=0 width="90%" border=0>
        <TBODY>
        <TR>
          <TD height=15></TD></TR>
       
         <TR>
          <TD>
         <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD>&nbsp;</TD></TR>
        <TR>
          <TD height=25><b>福建交友热线交友中心声明：</b></TD></TR>
        <TR bgColor=#ffffff>
          <TD><font color="#000000">　　在您使用本栏目前，请仔细阅读以下文字：<BR>　　1、所有聚会活动皆由网友自发组织、举办，本站只提供此联络媒介，不参与聚会的其它任何事宜；<BR>　　2、对于聚会可能引起的任何问题，本站不作任何承诺；<BR>　　3、网友自愿参加聚会，因聚会所产生的任何直接、间接或偶然性的损失，本站不承担任何责任。</font></TD></TR>
        <TR>
          <TD height=20>&nbsp;</TD></TR></TBODY></TABLE>
                 </TD>
			</TR>
         </TBODY></TABLE>  
            
            </TD>
	</TR>
</TABLE>




<!--#include file="../../copyright.asp" -->
</body>
</html>


<script language="JavaScript">                                                                  </script>