<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<%
 '=========================================================
' File: partylist.asp
' Version:3.0
' Date: 2005-8-29
' 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
dim retypeid,cityname,Province
response.buffer=true
action=Trim(Request("action"))
psex=checkStr(trim(Request("psex")))
if action="" then
stats="所有约会"
elseif action="sesex" then
if psex=0 then
stats="向女士发出的约会邀请"
elseif psex=1 then
stats="向男士发出的约会邀请"
elseif psex=2 then
stats="向所有发出的约会邀请"
end if
elseif action="partme" then
stats="邀请我参加的约会"
elseif action="over" then
stats="已结束的约会"
elseif action="youpart" then
partuser=checkStr(trim(Request("partuser")))
stats=""&partuser&"会员所有约会"
elseif action="listtype" then
stats="该类所有约会"
retypeid=checkStr(trim(Request("typeid")))
retypeid=cint(retypeid)
elseif action="showcity" then
stats="该城市所有约会"
cityname=checkStr(trim(Request("cityname")))
elseif action="showpro" then
stats="该省所有约会"
Province=checkStr(trim(Request("Province")))
end if

call nav()
if not founduser then
	Errmsg=Errmsg+"<br>"+"<li>您还没有登陆，无查询权限。"
	founderr=true
end if

if founderr then
	call head_var("","")
	call Mslove_error()
else
	call head_var("约会广场","party_index.asp")
call tumppages()'翻页处理
strFileName="partylist.asp?"
call main()
if founderr then call Mslove_error()
end if
call activeonline()
call footer()

sub main()%>
<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> 北京 | 上海 | 广州 
        | 深圳 | 武汉 | 杭州 | 成都 | 重庆 | 西安 | 天津 | 南京 | 沈阳 | 长沙 | 济南 | 港澳 | 台湾 | 更多省市<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="100%" align=center cellpadding=3 cellspacing=1 class=tableborder1>
  <tr> 
    <td width="35%" height="31" align="center"  class=tablebody2>约会名称</td>
    <td width="9%" align="center"  class=tablebody2>城市</td>
    <td width="11%" align="center"  class=tablebody2>昵称</td>
    <td width="10%" align="center"  class=tablebody2>约会日期</td>
    <td width="7%" align="center"  class=tablebody2>性　质</td>
    <td width="13%" align="center"  class=tablebody2>要　求</td>
    <td width="9%" align="center"  class=tablebody2>约会/响应</td>
    <td width="6%" align="center"  class=tablebody2>人气</td>
  </tr>
  <%dim Pid,City,Minage,Maxage,Typeid,parsex
  set rs=server.createobject("adodb.recordset")
  if action="" then
  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"
  elseif action="sesex" and psex<>"" then
  sql="select pid,Title,City,username,Maxnum,Userjoin,Minage,Maxage,Parsex,PartyDate,Typeid,hits,Addtime from Ms_party where Checked=1 and Parsex="&psex&" order by addtime desc"
  elseif action="partme" then
  sql="select pid,Title,City,username,Maxnum,Userjoin,Minage,Maxage,Parsex,PartyDate,Typeid,hits,Addtime from Ms_party where Partname='"&trim(membername)&"' order by addtime desc"
  elseif action="over" then
  sql="select pid,Title,City,username,Maxnum,Userjoin,Minage,Maxage,Parsex,PartyDate,Typeid,hits,Addtime from Ms_party where Checked=2 or Checked=3 order by addtime desc"
  elseif action="youpart" then
  sql="select pid,Title,City,username,Maxnum,Userjoin,Minage,Maxage,Parsex,PartyDate,Typeid,hits,Addtime from Ms_party where username='"&partuser&"' order by addtime desc"
  elseif action="listtype" then
  sql="select pid,Title,City,username,Maxnum,Userjoin,Minage,Maxage,Parsex,PartyDate,Typeid,hits,Addtime from Ms_party where Typeid="&retypeid&" order by addtime desc"
  elseif action="showcity" then
  sql="select pid,Title,City,username,Maxnum,Userjoin,Minage,Maxage,Parsex,PartyDate,Typeid,hits,Addtime from Ms_party where City='"&cityname&"' order by addtime desc"
  elseif action="showpro" then
  sql="select pid,Title,City,username,Maxnum,Userjoin,Minage,Maxage,Parsex,PartyDate,Typeid,hits,Addtime from Ms_party where Province='"&Province&"' order by addtime desc"
  end if
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"  class=tablebody1><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"  class=tablebody1><%=city%></td>
    <td align="center"  class=tablebody1><a href=dispuser.asp?username=<%=rs("username")%>><%=rs("username")%></a></td>
    <td align="center"  class=tablebody1><%=datevalue(rs("PartyDate"))%></td>
    <td align="center"  class=tablebody1><%if Typeid=1 then
	response.write("征友")
	elseif Typeid=2 then
	response.write("恋人")
	elseif Typeid=3 then
	response.write("节日")
	elseif Typeid=4 then
	response.write("纪念")
	elseif Typeid=5 then
	response.write("旅游")
	else
	response.write("其它")
	end if%></td>
    <td align="center"  class=tablebody1><%if parsex=2 then
	response.Write("无要求")
	elseif parsex=1 then
	response.Write("男")
	else
	response.Write("女")
	end if%>
      (<%=rs("Minage")%>-<%=rs("Maxage")%>)</td>
    <td align="center"  class=tablebody1><%=rs("Maxnum")%> / <font color=red><%=rs("Userjoin")%></font></td>
    <td align="center"  class=tablebody1><%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 height="28" colspan="8" align="center"  class=tablebody1> <%if totalrec>0 then
		  	call showpage(strFileName)
		  end if%></td>
  </tr>
  <tr> 
    <td colspan="8" align="left"  class=tablebody1>&nbsp;</td>
  </tr>
</table>
<%rs.close
end sub
%>   
</body>
</html> 