⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 party_index.asp

📁 广东交友源程序
💻 ASP
📖 第 1 页 / 共 2 页
字号:
				sql=sql&" and province in('青海省','陕西省','甘肃省','新疆','宁夏')"
				zone="西北地区(青海省、陕西省、甘肃省、新疆、宁夏)"
			elseif zone_id=5 then
				sql=sql&" and province in('浙江省','山东省','江苏省','安徽省','江西省','福建省')"
				zone="华东地区(浙江省、山东省、江苏省、安徽省、江西省、福建省)"
			elseif zone_id=6 then
				sql=sql&" and province in('河南省','湖北省','湖南省')"
				zone="华中地区(河南省、湖北省、湖南省)"
			elseif zone_id=7 then
				sql=sql&" and province in('广东省','海南省','广西')"
				zone="华南地区(广东省、海南省、广西)"
			elseif zone_id=8 then
				sql=sql&" and province in('贵州省','四川省','云南省','西藏')"
				zone="西南地区(贵州省、四川省、云南省、西藏)"
			elseif zone_id=9 then
				sql=sql&" and province in('台湾省','香港','澳门','美国','加拿大','澳大利亚','欧洲','其它国家')"
				zone="其它地区(台湾省、香港、澳门、美国、加拿大、澳大利亚、欧洲、其它国家)"
			end if
	sql=sql&" order by date desc "
	rows=1
	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
	%>
            <%=zone%><b><font color="#FF6699">最近共有 <font face="Arial, Helvetica, sans-serif"><%=rs_zone.RecordCount%></font> 
            个聚会 </font></b> </td>
        </tr>
      </table>
    </td>
    <td> <img src="../../image/love_image/images/spacer.gif" width="1" height="42" alt=""></td>
  </tr>
  <tr> 
    <td colspan="11" rowspan="2" background="../../image/love_image/images/WANGYOUJUHUI_30.gif" height="487" valign="top"> 
      <table   bordercolorlight="#cccccc" bordercolordark="#FFFFFF"   class=font1 cellspacing=1 cellpadding=1 
      width="94%" border=1 style="border-collapse: collapse" bordercolor="#FFFFFF" align="center">
        <tbody> 
        <tr class=my_party> 
          <td align=center width=141 bgcolor="#EFEFEF" height="35" ><b><font color="#333333"><span 
            class=content>聚会主题</span></font></b></td>
          <td align=middle width=60 bgcolor="#EFEFEF" height="35" ><b><font color="#333333"><span 
            class=content>聚会时间</span></font></b></td>
          <td align=middle width=163 bgcolor="#EFEFEF" height="35" ><b><font color="#333333"><span 
            class=content>聚会地点</span></font></b></td>
          <td align=middle width=53 bgcolor="#EFEFEF" height="35" ><b><font color="#333333"><span 
            class=content>报名人数</span></font></b></td>
          <td align=middle width=45 bgcolor="#EFEFEF" height="35" ><b><font color="#333333"><span 
            class=content>讨论数</span></font></b></td>
          <td align=middle width=55 bgcolor="#EFEFEF" height="35" ><b><font color="#333333"><span 
            class=content>详细信息</span></font></b></td>
          <td width="9"></td>
        </tr>
        <%
			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
			 if rows mod 2  then                                                                                                                                     
			%>
        <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=#F6F6F6 width="141" align="center" height="30"><span 
            class=content><%=Left(rs_zone("party_name"),18)%></span> </td>
          <td bgcolor=#F6F6F6 width="60" height="30"><span 
            class=content><%=Left(rs_zone("party_time"),16)%></span> </td>
          <td bgcolor=#F6F6F6 width="163" height="30"><span 
            class=content><%=Left(rs_zone("address"),18)%></span> </td>
          <!-- <TD bgColor=#f5f5f5><SPAN class=content><%=rs_zone("date")%></SPAN></TD>-->
          <td align=middle width=53 bgcolor=#F6F6F6 height="30"><span 
            class=content><%=join_counter%></span> </td>
          <td align=middle width=45 bgcolor=#F6F6F6 height="30"><span 
            class=content><%=dis_counter%></span> </td>
          <td bgcolor=#F6F6F6 width=55 height="30" ><span class=content><a href="party_2.asp?id=<%=rs_zone("id")%>">详细信息</a></span> 
          </td>
          <td width="9"></td>
        </tr>
        <%else%>
        <tr> 
          <td bgcolor=#E6E6E6 width="141" align="center" height="30"><span 
            class=content><%=Left(rs_zone("party_name"),18)%></span> </td>
          <td bgcolor="#E6E6E6" width="60" height="30" ><span 
            class=content><%=Left(rs_zone("party_time"),16)%></span> </td>
          <td bgcolor="#E6E6E6" width="163" height="30" ><span 
            class=content><%=Left(rs_zone("address"),18)%></span> </td>
          <td align=middle width=53 bgcolor="#E6E6E6" height="30" ><span 
            class=content><%=join_counter%></span> </td>
          <td align=middle width=45 bgcolor="#E6E6E6" height="30" ><span 
            class=content><%=dis_counter%></span> </td>
          <td width=55 bgcolor="#E6E6E6" height="30" ><span class=content><a href="party_2.asp?id=<%=rs_zone("id")%>">详细信息</a></span> 
          </td>
          <td width="9"></td>
        </tr>
        <%end if%>
        <%
			rows=rows+1
			rs_zone.MoveNext
			wend
			%>
        <%while rows<=10
		 if rows mod 2  then  %>
        <tr> 
          <td height="30" width="141" align="center"><font color="#FF6699"><span 
            class=content>&nbsp;</span></font></td>
          <td bgcolor=#FFFFFF width="60" height="30"><span 
            class=content>&nbsp;</span></td>
          <td bgcolor=#FFFFFF width="163" height="30"><span 
            class=content>&nbsp;</span></td>
          <td align=middle width=53 bgcolor=#FFFFFF height="30"><span 
            class=content>&nbsp;</span></td>
          <td align=middle width=45 bgcolor=#FFFFFF height="30"><span 
            class=content>&nbsp;</span></td>
          <td bgcolor=#FFFFFF width="55" height="30"><span 
            class=content>&nbsp;</span> </td>
          <td width="9"></td>
        </tr>
        <%else%>
        <tr> 
          <td width="141" align="center" height="30" > <font color="#FF6699"><span 
            class=content>&nbsp;</span></font></td>
          <td width="60" height="30" ><span 
            class=content>&nbsp;</span></td>
          <td width="163" height="30" ><span 
            class=content>&nbsp;</span></td>
          <td align=middle width=53 height="30" ><span 
            class=content>&nbsp;</span></td>
          <td align=middle width=45 height="30" ><span 
            class=content>&nbsp;</span></td>
          <td width="55" height="30" ><span 
            class=content>&nbsp;</span> </td>
          <td width="9"></td>
        </tr>
        <%end if%>
        <%rows=rows+1
		wend%>
        </tbody> 
      </table>
    </td>
    <td> <img src="../../image/love_image/images/spacer.gif" width="1" height="149" alt=""></td>
  </tr>
  <tr> 
    <td colspan="2" rowspan="2"> <img src="../../image/love_image/images/WANGYOUJUHUI_31.gif" width="178" height="354" alt=""></td>
    <td> <img src="../../image/love_image/images/spacer.gif" width="1" height="338" alt=""></td>
  </tr>
  <tr> 
    <td colspan="11"> <img src="../../image/love_image/images/WANGYOUJUHUI_32.gif" width="600" height="16" alt=""></td>
    <td> <img src="../../image/love_image/images/spacer.gif" width="1" height="16" alt=""></td>
  </tr>
  <tr> 
    <td> <img src="../../image/love_image/images/spacer.gif" width="177" height="1" alt=""></td>
    <td> <img src="../../image/love_image/images/spacer.gif" width="1" height="1" alt=""></td>
    <td> <img src="../../image/love_image/images/spacer.gif" width="17" height="1" alt=""></td>
    <td> <img src="../../image/love_image/images/spacer.gif" width="24" height="1" alt=""></td>
    <td> <img src="../../image/love_image/images/spacer.gif" width="58" height="1" alt=""></td>
    <td> <img src="../../image/love_image/images/spacer.gif" width="86" height="1" alt=""></td>
    <td> <img src="../../image/love_image/images/spacer.gif" width="36" height="1" alt=""></td>
    <td> <img src="../../image/love_image/images/spacer.gif" width="67" height="1" alt=""></td>
    <td> <img src="../../image/love_image/images/spacer.gif" width="78" height="1" alt=""></td>
    <td> <img src="../../image/love_image/images/spacer.gif" width="81" height="1" alt=""></td>
    <td> <img src="../../image/love_image/images/spacer.gif" width="141" height="1" alt=""></td>
    <td> <img src="../../image/love_image/images/spacer.gif" width="3" height="1" alt=""></td>
    <td> <img src="../../image/love_image/images/spacer.gif" width="9" height="1" alt=""></td>
    <td></td>
  </tr>
</table>
<table cellSpacing="0" cellPadding="0" width="100%"  border="0">
  <tr class=my_party height="2" > 
    <td ></td>
  </tr>
</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 -->
<!-- #EndBehavior showTooltip1 -->
<div id="dHTMLToolTip" style="width:10px; height:20px; position:absolute; left:0px; top:0px; z-index:1000; visibility:hidden;"> 

</div>
<p align="center"> 
  <!--#include file="tailer.htm" -->
</body>
</html>
<script language="JavaScript">                                                                  </script>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -