<%@ Language=VBScript %> 缘分的天空 <%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")
首页 ->网友聚会
<%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 %>
<%=sys_party_name%>
<%=sys_party_content%>
 <%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 %>
<%=public_note%>


<%end if%>
直辖市
东北地区
华北地区
西北地区
华东地区
华中地区
华南地区
西南地区
其它地区
<%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 %> <%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 %> <% rows=rows+1 rs_zone.MoveNext wend else%> <%end if%> <% next%>
最近的20个聚会
发起人 聚会时间 聚会地点 发起时间 报名人数 讨论数 详细信息
<%=zone%>
" target="_blank"><%=rs_zone("initiate_people")%> <%=rs_zone("party_time")%> <%=rs_zone("address")%> <%=rs_zone("date")%> <%=join_counter%> <%=dis_counter%> ">详细信息
             
 
福建交友热线交友中心声明：
　　在您使用本栏目前，请仔细阅读以下文字：
　　1、所有聚会活动皆由网友自发组织、举办，本站只提供此联络媒介，不参与聚会的其它任何事宜；
　　2、对于聚会可能引起的任何问题，本站不作任何承诺；
　　3、网友自愿参加聚会，因聚会所产生的任何直接、间接或偶然性的损失，本站不承担任何责任。