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

📄 history_party.asp

📁 广东交友源程序
💻 ASP
📖 第 1 页 / 共 2 页
字号:
        </tr>
        <tr align=middle> 
          <td class=c1 height=30><a class=a_party
            href="party_index.asp?zone_id=6" onMouseOver="showTooltip('dHTMLToolTip',event, '(河南省、湖北省、湖南省)', '#ffff99','#000000','#000000','10000')">华中地区</a> 
          </td>
        </tr>
        <tr align=middle> 
          <td class=c1 height=30><a class=a_party
            href="party_index.asp?zone_id=7" onMouseOver="showTooltip('dHTMLToolTip',event, '(广东省、海南省、广西)', '#ffff99','#000000','#000000','10000')">华南地区</a> 
          </td>
        </tr>
        <tr align=middle> 
          <td class=c1 height=30><a class=a_party
            href="party_index.asp?zone_id=8" onMouseOver="showTooltip('dHTMLToolTip',event, '(贵州省、四川省、云南省、西藏)', '#ffff99','#000000','#000000','10000')">西南地区</a> 
          </td>
        </tr>
        <tr align=middle> 
          <td class=c1 height=30><a class=a_party
            href="party_index.asp?zone_id=9" onMouseOver="showTooltip('dHTMLToolTip',event, '(台湾省、香港、澳门、美国、加拿大、澳大利亚、欧洲、其它国家)', '#ffff99','#000000','#000000','10000')">其它地区</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> <img src="../../image/love_image/images/spacer.gif" width="1" height="81" alt=""></td>
  </tr>
  <tr> 
    <td colspan="11" background="../../image/love_image/images/WANGYOUJUHUI_28.gif" height="33"> 
      <table width="99%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="7%">&nbsp;</td>
          <td width="93%">网友自发聚会历史</td>
        </tr>
      </table>
    </td>
    <td> <img src="../../image/love_image/images/spacer.gif" width="1" height="33" alt=""></td>
  </tr>
  <tr> 
    <td colspan="11" background="../../image/love_image/images/WANGYOUJUHUI_29.gif" height="42"> 
      <table width="99%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="7%">&nbsp;</td>
          <td width="93%"> 
            <%zone_id=Request("zone_id")
		sql="select * from party  where is_history=1 "
	   
	       if zone_id=1 then
				sql=sql&" and province in('北京','上海','天津','重庆')"
				zone="直辖市(北京、上海、天津、重庆)"
			elseif zone_id=2 then
				sql=sql&" and province in('黑龙江省','吉林省','辽宁省')"
				zone="东北地区(黑龙江省、吉林省、辽宁省)"
			elseif zone_id=3 then
				sql=sql&" and province in('河北省','内蒙古','山西省')"
				zone="华北地区(河北省、内蒙古、山西省)"
			elseif zone_id=4 then
				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
	
	 rs_zone.PageSize=15
if session("currentpage")="" then
	session("currentpage")=1
end if

if Request("move")=1 then
	session("currentpage")=1
end if
if Request("move")=2 then
	session("currentpage")=session("currentpage")-1
end if
if Request("move")=3 then
	session("currentpage")=session("currentpage")+1
end if
if Request("move")=4 then
	session("currentpage")=rs_zone.PageCount
end if
if session("currentpage")<1 then
session("currentpage")=1
end if
if session("currentpage")>rs_zone.PageCount then
session("currentpage")=rs_zone.PageCount
end if

	if rs_zone.RecordCount<>0 then
	rows=1
	rs_zone.AbsolutePage=session("currentpage")
	end if
	%>
            <%=zone%>共有<%=rs_zone.RecordCount%>个历史聚会 </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" align="center"  >
        <tbody> 
        <tr class=my_party> 
          <td align=middle width=120 height="35" ><span 
            class=content>聚会主题</span></td>
          <td align=middle width=100 height="35" ><span 
            class=content>聚会时间</span></td>
          <td align=middle width=130 height="35" ><span 
            class=content>聚会地点</span></td>
          <td align=middle width=50 height="35" ><span 
            class=content>报名人数</span></td>
          <td align=middle width=50 height="35" ><span 
            class=content>讨论数</span></td>
          <td align=middle width=68 height="35" ><span 
            class=content>详细信息</span></td>
      
        </tr>
        <%
			while not rs_zone.EOF and rows<=rs_zone.PageSize 
				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=#f5f5f5 height="30" width="120"><span 
            class=content><%=Left(rs_zone("party_name"),18)%></span></td>
          <td bgcolor=#f5f5f5 height="30" width="100"><span 
            class=content><%=Left(rs_zone("party_time"),16)%></span></td>
          <td bgcolor=#f5f5f5 height="30" width="130"><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=50 bgcolor=#f5f5f5 height="30"><span 
            class=content><%=join_counter%></span></td>
          <td align=middle width=50 bgcolor=#f5f5f5 height="30"><span 
            class=content><%=dis_counter%></span></td>
          <td bgcolor=#f5f5f5 width=68 height="30" ><span class=content><a href="party_2.asp?id=<%=rs_zone("id")%>">详细信息</a></span> 
          </td>
          </tr>
        <%else%>
        <tr> 
          <td bgcolor=#f5f5f5 height="30" width="120"><span 
            class=content><%=Left(rs_zone("party_name"),18)%></span></td>
          <td height="30" width="100" ><span 
            class=content><%=Left(rs_zone("party_time"),16)%></span></td>
          <td height="30" width="130" ><span 
            class=content><%=Left(rs_zone("address"),18)%></span></td>
          <td align=middle width=50 height="30" ><span 
            class=content><%=join_counter%></span></td>
          <td align=middle width=50 height="30" ><span 
            class=content><%=dis_counter%></span></td>
          <td width=68 height="30" ><span class=content><a href="party_2.asp?id=<%=rs_zone("id")%>">详细信息</a></span> 
          </td>
        </tr>
        <%end if%>
        <%
			rows=rows+1
			rs_zone.MoveNext
			wend
			%>
        <%while rows<=10
		 if rows mod 2  then  %>
        <tr> 
          <td bgcolor=#f5f5f5 height="30" width="120"><span 
            class=content>&nbsp;</span></td>
          <td bgcolor=#f5f5f5 height="30" width="100"><span 
            class=content>&nbsp;</span></td>
          <td bgcolor=#f5f5f5 height="30" width="130"><span 
            class=content>&nbsp;</span></td>
          <td align=middle width=50 bgcolor=#f5f5f5 height="30"><span 
            class=content>&nbsp;</span></td>
          <td align=middle width=50 bgcolor=#f5f5f5 height="30"><span 
            class=content>&nbsp;</span></td>
          <td bgcolor=#f5f5f5 height="30" width="68"><span 
            class=content>&nbsp;</span> </td>
       
        </tr>
        <%else%>
        <tr> 
          <td height="30" width="120" ><span 
            class=content>&nbsp;</span></td>
          <td height="30" width="100" ><span 
            class=content>&nbsp;</span></td>
          <td height="30" width="130" ><span 
            class=content>&nbsp;</span></td>
          <td align=middle width=50 height="30" ><span 
            class=content>&nbsp;</span></td>
          <td align=middle width=50 height="30" ><span 
            class=content>&nbsp;</span></td>
          <td height="30" width="68" ><span 
            class=content>&nbsp;</span> </td>
         
        </tr>
        <%end if%>
        <%rows=rows+1
		wend%>
        <tr > 
          <td colspan=8 bgcolor=#f5f5f5 align=center height="30"> 
            <%'if session("currentpage")>1then %>
            <a href="history_party.asp?move=1&zone_id=<%=zone_id%>">首页</a>  <a href="history_party.asp?move=2&zone_id=<%=zone_id%>">上一页</a> 
            <%'end if%>
            <%'if session("currentpage")<rs_zone.PageCount  then %>
            <a href="history_party.asp?move=3&zone_id=<%=zone_id%>">下一页</a>  <a href="history_party.asp?move=4&zone_id=<%=zone_id%>">末页</a> 
            <%'end if %>
          </td>
        </tr>
        <tr > 
          <td colspan=8 align=center height="30"> 第<%=session("currentpage")%>页/共<%=rs_zone.PageCount%>页 
          </td>
        </tr>
        </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>

  </tr>
</table>

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



⌨️ 快捷键说明

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