<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<%
 '=========================================================
' File: party_index.asp
' Version:3.0
' Date: 2005-11-3
' 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
'=========================================================
dim action,psex,partuser
response.buffer=true
psex=checkStr(trim(Request("psex")))
stats="约会广场"
call nav()
if founderr then
	call head_var("","")
	call Mslove_error()
else
	call head_var("约会广场","party_index.asp")
call tumppages()'翻页处理
strFileName="party_index.asp?"
call main()
if founderr then call Mslove_error()
end if
call activeonline()
call footer()

sub main()%>
<script language="JavaScript" src="inc/Mymodify.js"></script>
<TABLE height=42 cellSpacing=0 cellPadding=0 width=100% align=center border=0 class=tableborder1>
  <TBODY>
    <TR> 
      <TD width=15 align=left bgcolor="#eaf3d8"> <P>&nbsp;</P></TD>
      <TD width=732 align=middle bgcolor="#eaf3d8" class=nav_css> <a href="partylist.asp?action=showpro&Province=北京">北京</a> 
        | <a href="partylist.asp?action=showpro&Province=上海">上海</a> | <a href="partylist.asp?action=showpro&Province=深圳">深圳</a> 
        | <a href="partylist.asp?action=showpro&Province=重庆">重庆</a> | <a href="partylist.asp?action=showpro&Province=天津">天津</a> 
        | <a href="partylist.asp?action=showpro&Province=广东">广东</a> | <a href="partylist.asp?action=showpro&Province=河北">河北</a> 
        | <a href="partylist.asp?action=showpro&Province=山西">山西</a> | <a href="partylist.asp?action=showpro&Province=内蒙">内蒙</a> 
        | <a href="partylist.asp?action=showpro&Province=辽宁">辽宁</a> | <a href="partylist.asp?action=showpro&Province=吉林">吉林</a> 
        | <a href="partylist.asp?action=showpro&Province=江苏">江苏</a> | <a href="partylist.asp?action=showpro&Province=浙江">浙江</a> 
        | <a href="partylist.asp?action=showpro&Province=安徽">安徽</a> | <a href="partylist.asp?action=showpro&Province=福建">福建</a> 
        | <a href="partylist.asp?action=showpro&Province=江西">江西</a> | <a href="party_more.asp">更多省市</a><BR></TD>
      <TD width=13 align=left bgcolor="#eaf3d8">&nbsp;</TD>
    </TR>
    <TR vAlign=top> 
      <TD align=left colSpan=3 height=2><IMG height=2 
      src="Skins/Default/party/diqu_25.gif" 
width=750></TD>
    </TR>
  </TBODY>
</TABLE>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="25%" height="450" valign="top"> 
      <table width="94%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="166"><IMG height=312 
            src="Skins/Default/party/dating_index_03.jpg" 
            width=190></td>
        </tr>
        <tr> 
          <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="6%" bgcolor="#21b084">&nbsp;</td>
                <td width="89%" bgcolor="#d5f9ed">
<TABLE cellSpacing=0 cellPadding=0 width=138 align=center 
                  border=0>
                    <TBODY>
                      <TR> 
                        <TD height=20><IMG height=4 
                        src="Skins/Default/party/dating_index_43.jpg" 
                        width=4 align=absMiddle>&nbsp;<a href="partylist.asp?action=listtype&typeid=1">征友-温馨浪漫</a></TD>
                      </TR>
                      <TR> 
                        <TD><IMG height=1 
                        src="Skins/Default/party/dating_index_41.jpg" 
                        width=138></TD>
                      </TR>
                      <TR> 
                        <TD height=20><IMG height=4 
                        src="Skins/Default/party/dating_index_43.jpg" 
                        width=4 align=absMiddle>&nbsp;<a href="partylist.asp?action=listtype&typeid=2">恋人-鹊桥相会</a></TD>
                      </TR>
                      <TR> 
                        <TD><IMG height=1 
                        src="Skins/Default/party/dating_index_41.jpg" 
                        width=138></TD>
                      </TR>
                      <TR> 
                        <TD height=20><IMG height=4 
                        src="Skins/Default/party/dating_index_43.jpg" 
                        width=4 align=absMiddle>&nbsp;<a href="partylist.asp?action=listtype&typeid=3">节日-共度佳节</a></TD>
                      </TR>
                      <TR> 
                        <TD><IMG height=1 
                        src="Skins/Default/party/dating_index_41.jpg" 
                        width=138></TD>
                      </TR>
                      <TR> 
                        <TD height=20><IMG height=4 
                        src="Skins/Default/party/dating_index_43.jpg" 
                        width=4 align=absMiddle>&nbsp;<a href="partylist.asp?action=listtype&typeid=4">纪念-回忆往昔</a></TD>
                      </TR>
                      <TR> 
                        <TD><IMG height=1 
                        src="Skins/Default/party/dating_index_41.jpg" 
                        width=138></TD>
                      </TR>
                      <TR> 
                        <TD height=20><IMG height=4 
                        src="Skins/Default/party/dating_index_43.jpg" 
                        width=4 align=absMiddle>&nbsp;<a href="partylist.asp?action=listtype&typeid=5">旅游-拥抱自然</a></TD>
                      </TR>
                      <TR> 
                        <TD><IMG height=1 
                        src="Skins/Default/party/dating_index_41.jpg" 
                        width=138></TD>
                      </TR>
                      <TR> 
                        <TD height=20><IMG height=4 
                        src="Skins/Default/party/dating_index_43.jpg" 
                        width=4 align=absMiddle>&nbsp;<a href="partylist.asp?action=listtype&typeid=6">其它-谈天说地</a></TD>
                      </TR>
                      <TR> 
                        <TD><IMG height=1 
                        src="Skins/Default/party/dating_index_41.jpg" 
                        width=138></TD>
                      </TR>
                    </TBODY>
                  </TABLE>
                </td>
                <td width="5%" bgcolor="#21b084">&nbsp;</td>
              </tr>
            </table></td>
        </tr>
        <tr>
          <td><IMG height=106 
            src="Skins/Default/party/dating_index_28.jpg" 
            width=190 border=0> </td>
        </tr>
      </table>
    </td>
    <td width="75%" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 <form action="search.asp?action=psearch" method=POST name="parForm">
        <tr>
          <td height="260" align="right" valign="top" background="Skins/Default/party/dating_index_04.jpg"> 
            <table width="75%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="21">&nbsp;</td>
              </tr>
                <tr> 
                  <td height="28"><img src="Skins/Default/party/dating_index_38.jpg" width="10" height="14"> 
                    <strong><font color="#94BD33">请输入发起人：</font></strong> 
                    <input name="partname" type="text" id="partname" size="20" maxlength="20">
                  </td>
                </tr>
              <tr> 
                  <td height="25"><img src="Skins/Default/party/dating_index_39.jpg" width="9" height="13"> 
                    <strong><font color="#94BD33">今天想进行：</font></strong></td>
              </tr>
              <tr> 
                  <td height="25">&nbsp;&nbsp;<a href="partylist.asp?action=listtype&typeid=1">征友-温馨浪漫</a>　<a href="partylist.asp?action=listtype&typeid=2">恋人-鹊桥相会</a>　<a href="partylist.asp?action=listtype&typeid=3">节日-共度佳节</a><br>
                    &nbsp;&nbsp;<a href="partylist.asp?action=listtype&typeid=4">纪念-回忆往昔</a>　<a href="partylist.asp?action=listtype&typeid=5">旅游-拥抱自然</a>　<a href="partylist.asp?action=listtype&typeid=6">其它-谈天说地</a></td>
              </tr>
              <tr> 
                  <td height="33"><img src="Skins/Default/party/dating_index_40.jpg" width="9" height="13"> 
                    <strong><font color="#94BD33">本地约会信息：</font></strong></td>
              </tr>
              <tr> 
                <td height="41"><table cellspacing=0 cellpadding=3 width="100%" border=0>
                      <tbody>
                        <tr> 
                          <td height="15" align=left> 性　别： 
                            <select name=Gender id="Gender">
							<option value="" selected></option>
                              <option value="1">男性</option>
                              <option value="0">女性</option>
                              <option value="2">不限</option>
                            </select>
                            类型： 
                            <input name="Ispublic" type="radio" value="0">
                            公开 
                            <input type="radio" name="Ispublic" value="1">
                            单独 </td>
                        </tr>
                        <tr> 
                          <td height="15" align=left>所在省份： 
                            <input type=text name=province size=12> <select name="selectp" onChange="selectcityarea('selectp','selectc','parForm');parForm.province.value=this.value;">
                              <option value="0" selected>请选择..</option>
                            </select> <br>
                            约会城市： 
                            <input type=text name=city size=12> <select name="selectc" onChange="parForm.city.value=this.value;">
                              <option value="0" selected>请选择..</option>
                            </select>
                            （*省份城市必选）</td>
                        </tr>
                        <tr> 
                          <td height="34" align=left> 约会日期： 
                            <input name=Partydate type=text onfocus="show_cele_date(Partydate,'','',Partydate)" size="20"> 
                            <INPUT name="Input2" type=image 
                        onclick=javascript:searchByArea() 
                        src="Skins/Default/party/dating_index_37.jpg" 
                        align=absMiddle width="42" height="18"> </td>
                        </tr>
                  </table></td>
              </tr>
            </table></td>
        </tr>
		 </form>
        <tr> 
          <td><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#69b0da">
              <tr>
                <td width="2%" align="left" valign="top"><img src="Skins/Default/party/dating_index_07.jpg" width="4" height="4"></td>
                <td width="96%">&nbsp;</td>
                <td width="2%" align="right" valign="top"><img src="Skins/Default/party/dating_index_09.jpg" width="3" height="4"></td>
              </tr>
              <tr>
                <td>&nbsp;</td>
                <td><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
                    <tr> 
                      <td width="1%" align="left" valign="top" height=5><img src="Skins/Default/party/dating_index_33.jpg"></td>
                      <td width="97%" height=5></td>
                      <td width="1%" align="right" valign="top"  height=5><img src="Skins/Default/party/dating_index_35.jpg" width="4" height="5"></td>
                    </tr>
                    <tr> 
                      <td colspan="3"><table width="100%" align=center cellpadding=3 cellspacing=0>
                          <tr> 
                            <td width="44%" height="26" align="center" bgcolor="#FFFFFF">约会名称</td>
                            <td width="15%" align="center" bgcolor="#FFFFFF">城市</td>
                            <td width="16%" align="center" bgcolor="#FFFFFF">约会日期</td>
                            <td width="15%" align="center" bgcolor="#FFFFFF">约会/响应</td>
                            <td width="10%" align="center" bgcolor="#FFFFFF">人气</td>
                          </tr>
						  <TR> 
                            <TD colspan=5 height="1" background="Skins/Default/party/dating_index_41.jpg"></TD>
                      </TR>
                          <%dim Pid,City,Minage,Maxage,Typeid,parsex
  set rs=server.createobject("adodb.recordset")
  sql="select pid,Title,City,username,Maxnum,Userjoin,Minage,Maxage,Parsex,PartyDate,Typeid,hits,Addtime from Ms_party where Checked=1 order by addtime desc"
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
call rspages()
do while not rs.eof and page_count<Cint(MaxPerPage)
Pid=rs("Pid")
City=rs("City")
Typeid=rs("Typeid")
parsex=rs("Parsex")%>
                          <tr> 
                            <td height="28" bgcolor="#FFFFFF"><a href=partyshow.asp?Pid=<%=pid%> title=浏览约会内容><%=rs("Title")%></a> 
                              <%if datediff("d",rs("Addtime"),date())<=1 then
response.write("&nbsp;<img src=images/new.gif>")
end if%>
                            </td>
                            <td align="center" bgcolor="#FFFFFF"><a href=partylist.asp?action=showcity&cityname=<%=city%>><%=city%></a></td>
                            <td align="center" bgcolor="#FFFFFF"><%=datevalue(rs("PartyDate"))%></td>
                            <td align="center" bgcolor="#FFFFFF"><%=rs("Maxnum")%> / <font color=red><%=rs("Userjoin")%></font></td>
                            <td align="center" bgcolor="#FFFFFF"> 
                              <%if rs("hits")>=Clicknums then
	response.write("<font color=red>"&rs("hits")&"</font>")
	else
	response.write(""&rs("hits")&"")
	end if%>
                            </td>
                          </tr>
                          <%page_count=page_count+1
  rs.movenext
  loop
  end if
  rs.close
  %><TR> 
                            <TD colspan=5 height="1" background="Skins/Default/party/dating_index_41.jpg"></TD>
                      </TR>
                          <tr> 
                            <td height="24" colspan="5" align="center" bgcolor="#FFFFFF"> 
                              <%if totalrec>0 then
		  	call showpage(strFileName)
		  end if%>
                            </td>
                          </tr>
                        </table></td>
                    </tr>
                    <tr> 
                      <td height=5 align="left" valign="bottom"><img src="Skins/Default/party/dating_index_34.jpg" width="3" height="4"></td>
                      <td height=5></td>
                      <td align="right" valign="bottom"><img src="Skins/Default/party/dating_index_36.jpg" width="4" height="4"></td>
                    </tr>
                  </table></td>
                <td>&nbsp;</td>
              </tr>
              <tr>
                <td align="left" valign="bottom"><img src="Skins/Default/party/dating_index_23.jpg" width="4" height="4"></td>
                <td height=10></td>
                <td align="right" valign="bottom"><img src="Skins/Default/party/dating_index_26.jpg" width="3" height="4"></td>
              </tr>
            </table></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center border=0>
  <TBODY>
    <TR> 
      <TD><BR>
        <IMG height=1 
      src="Skins/Default/party/dating_index_32.jpg" 
    width=750></TD>
    </TR>
  </TBODY>
</TABLE>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="75" align="center" background="Skins/Default/party/diqu_71.jpg"><SPAN class=text_gray>省级交友中心：<a href="partylist.asp?action=showpro&Province=广东">广东</a>、<a href="partylist.asp?action=showpro&Province=浙江">浙江</a>、<a href="partylist.asp?action=showpro&Province=江苏">江苏</a>、<a href="partylist.asp?action=showpro&Province=四川">四川</a>、<a href="partylist.asp?action=showpro&Province=山东">山东</a>、<a href="partylist.asp?action=showpro&Province=湖南">湖南</a>、<a href="partylist.asp?action=showpro&Province=湖北">湖北</a>、<a href="partylist.asp?action=showpro&Province=福建">福建</a>、<a href="partylist.asp?action=showpro&Province=广西">广西</a>、<a href="partylist.asp?action=showpro&Province=海南">海南</a>、<a href="partylist.asp?action=showpro&Province=台湾">台湾</a>、<a href="partylist.asp?action=showpro&Province=港澳">港澳</a>、<a href="partylist.asp?action=showpro&Province=陕西">陕西</a>、<a href="partylist.asp?action=showpro&Province=山西">山西</a>、 
      <a href="partylist.asp?action=showpro&Province=河北">河北</a>、<a href="partylist.asp?action=showpro&Province=河南">河南</a>、<BR>
      江西、贵州、云南、青海、辽宁、吉林、安徽、甘肃、宁夏、内蒙古、黑龙江、西藏、新疆</SPAN></td>
  </tr>
</table>
<script>
first("selectp","selectc","parForm",0,0);
</script> 
<%rs.close
end sub
%>
</body>
</html> 