<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<% '=========================================================
' File: marrylist.asp
' Version:3.0
' Date: 2005-10-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
'=========================================================
response.buffer=true
stats="征婚大厅"
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("征婚大厅","marrylist.asp")
call tumppages()'翻页处理
strFileName="marrylist.asp?"
call main()
end if
call activeonline()
call footer()

sub main()%>
<table border="0" align="center" cellpadding="0" cellspacing="0" class=tableborder2>
  <tr>
    <td>
	<TABLE width="100%" border=0 align=center cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF">
        <TBODY>
          <TR> 
            <TD width=112><IMG height=41 
      src="Skins/Default/marry/zhdt20050325_tu11.gif" width=210></TD>
            <TD vAlign=bottom align=right bgColor=#ffffff></TD>
          </TR>
        </TBODY>
      </TABLE></td>
  </tr>
  <tr>
    <td><TABLE cellSpacing=0 cellPadding=0 align=center border=0>
        <TBODY>
          <TR> 
            <TH class=norepeat vAlign=top scope=row 
    background=Skins/Default/marry/zhdt20050325_bg1.gif> <TABLE cellSpacing=0 cellPadding=0  border=0>
                <TBODY>
                  <TR> 
                    <TH scope=row align=right><IMG height=123 
            src="Skins/Default/marry/zhdt20050325_tu1.gif" width=210></TH>
                    <TH scope=row align=left width=200><IMG height=123 
            src="Skins/Default/marry/zhdt20050325_tu2.gif" width=200></TH>
                    <TH scope=row width=188><IMG height=123 
            src="Skins/Default/marry/zhdt20050325_tu3.gif" width=200></TH>
                    <TH align="left" scope=row><IMG height=123 
            src="Skins/Default/marry/zhdt20050325_tu4.gif" 
        width=138></TH>
                  </TR>
                </TBODY>
              </TABLE></TH>
          </TR>
        </TBODY>
      </TABLE></td>
  </tr>
  <tr>
    <td><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
        <tr>
          <td width="16" height="76">&nbsp;</td>
          <td><IMG height=114 
      src="Skins/Default/marry/zhdt20050325_tu5.gif" width=259></td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="100%" align=center cellpadding=3 cellspacing=1 class=tableborder1>
    <tr> 
      
    <td height="28" colspan="2" align="left"  class=tablebody1><a href="usermarry.asp?action=add">我要发布</a></td>
    </tr>
	<%dim userinfo,Userfriendinfo,Marinfo,marusername,id,Userheight
	set rs=server.createobject("adodb.recordset")
	sql="select m.mid,m.username,m.Marinfo,u.UserSex,u.UserPhoto,u.UserBirthday,u.UserInfo,u.Userfriends,u.Userheight from Ms_Marry m inner join Ms_user u on m.Username=u.Username where m.Checked=1 order by m.MID 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)
marusername=rs("username")
userinfo=split(rs("UserInfo"),"|||")
Userfriendinfo=split(rs("Userfriends"),"|||")
Marinfo=split(rs("Marinfo"),"|||")
Userheight=rs("Userheight")
id=rs("mid")%>
    <tr> 
      <td width="20%" height="188" align="center"  class=tablebody1><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="128" align="center"><IFrame src="visual_show2.asp?username=<%=marusername%>&boardid=0&type=1&bgcolor=tablebody1&" width="100" height="115" marginwidth="0" marginheight="0" hspace="0" vspace="0" frameborder="0" scrolling="NO" allowtransparency="true"></iframe></td>
        </tr>
        <tr> 
          <td height="23" align="center">昵称：<%=marusername%> </td>
        </tr>
        <tr> 
          <td height="20" align="center"><a href=dispuser.asp?username=<%=marusername%> target=_blank title=查看会员资料><img src="Skins/Default/icon_001.gif" width="16" height="16" border="0" align="absmiddle"></a> 
            [<a href="dispuser.asp?username=<%=marusername%>">查看详细资料</a>]</td>
        </tr>
        <tr> 
          <td height="19" align="center"><a href=userbook.asp?action=add&ClassID=2&Touser=<%=marusername%> target=_blank title="发送站内留言"><img src="Skins/Default/icon_003.gif" width="16" height="16" border="0" align="absmiddle"></a> 
            [<a href=userbook.asp?action=add&ClassID=2&Touser=<%=marusername%> target=_blank>发送站内留言</a>]</td>
        </tr>
        <tr> 
          <td height="19" align="center"><a href="javascript:openScript('messanger.asp?action=new&touser=<%=htmlencode(marusername)%>',500,400)" title=明送秋波><img src="Skins/Default/icon_004.gif" width="16" height="16" border="0" align="absmiddle"></a> 
            [<a href="javascript:openScript('messanger.asp?action=new&touser=<%=htmlencode(marusername)%>',500,400)" title=明送秋波>明 送　秋 波</a>]</td>
        </tr>
        <tr> 
          <td height="10" align="center"><a href="friendlist.asp?action=addF&myFriend=<%=HTMLEncode(marusername)%>" target="_blank" title=加入我的最爱><img src="Skins/Default/icon_005.gif" width="16" height="16" border="0" align="absmiddle"></a> 
            [<a href="friendlist.asp?action=addF&myFriend=<%=HTMLEncode(marusername)%>" target="_blank" title=加入我的最爱>加 入　最 爱</a>]</td>
        </tr>
        <tr>
          <td height="11" align="center"><a href="photolist.asp?action=userp&username=<%=marusername%>" target="_blank" title=查看所有相册><img src="Skins/Default/icon_002.gif" width="16" height="16" border="0" align="absmiddle"></a> 
            [<a href="photolist.asp?action=userp&username=<%=marusername%>" target="_blank" title=查看所有相册>查看会员相册</a>]</td>
        </tr>
        <tr> 
          <td height="23" align="center"><a href="usermarry.asp?action=edit&id=<%=id%>">修改</a> 
            | <a href="usermarry.asp?action=dele&id=<%=id%>">删除</a> 
            | <a href="postcomp.asp?Typeid=3&page=marrylist.asp">投诉</a></td>
        </tr>
      </table> </td>
      <td width="80%"  class=tablebody1><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="33" colspan="3"><strong><font color="#660000">个人介绍</font></strong></td>
        </tr>
        <tr> 
          <td width="31%" height="20"><font color="#CC6699"><strong>性　　别：</strong><%
		  if rs("Usersex")=1 then
		  response.Write("酷哥")
		  else
		  response.Write("靓女")
		  end if%></font></td>
          <td width="35%" height="20"><font color="#CC6699"><strong>年　　龄：</strong><%=datediff("yyyy",rs("Userbirthday"),Now())%>岁</font></td>
          <td width="34%" height="20"><font color="#CC6699"><strong>所在地区：</strong><%=userinfo(4)%>&nbsp;<%=userinfo(5)%></font></td>
        </tr>
        <tr> 
          <td height="20"><font color="#CC6699"><strong>婚姻状况：</strong><%=userinfo(13)%></font></td>
          <td height="20"><font color="#CC6699"><strong>学　　历：</strong><%=userinfo(14)%></font></td>
          <td height="20"><font color="#CC6699"><strong>收入水平：</strong><%=Userfriendinfo(5)%> 元</font></td>
        </tr>
        <tr> 
          <td height="20"><font color="#CC6699"><strong>职　　业：</strong><%=userinfo(11)%></font></td>
          <td height="20"><font color="#CC6699"><strong>身　　高：</strong><%=Userheight%>CM</font></td>
          <td height="20"><font color="#CC6699"><strong>体　　重：</strong><%=Userfriendinfo(1)%>Kg</font></td>
        </tr>
        <tr> 
          <td height="20"><font color="#CC6699"><strong>健康程度：</strong><%=Userfriendinfo(0)%></font></td>
          <td height="20"><font color="#CC6699"><strong>体　　型：</strong><%=Userfriendinfo(2)%></font></td>
          <td height="20"><font color="#CC6699"><strong>住房状况：</strong><%=Userfriendinfo(7)%></font></td>
        </tr>
        <tr> 
          <td height="37" colspan="3" valign="top"><font color="#CC6699"><%=userinfo(2)%></font></td>
        </tr>
        <tr> 
          <td height="27" colspan="3"><font color="#660000"><strong>择偶要求</strong></font></td>
        </tr>
        <tr> 
          <td height="20"><font color="#CC6699"><strong>年 龄：</strong><%=Marinfo(0)%>-<%=Marinfo(1)%>岁</font></td>
          <td height="20"><font color="#CC6699"><strong>婚姻状况：</strong><%=Marinfo(3)%></font></td>
          <td height="20"><font color="#CC6699"><strong>所在地区：</strong><%=Marinfo(6)%>&nbsp;<%=Marinfo(7)%></font></td>
        </tr>
        <tr> 
          <td height="20"><font color="#CC6699"><strong>身 高：</strong><%=Marinfo(2)%></font></td>
          <td height="20"><font color="#CC6699"><strong>学 历：</strong><%=Marinfo(5)%></font></td>
          <td height="20"><font color="#CC6699"><strong>收入水平：</strong><%=Marinfo(4)%>元</font></td>
        </tr>
        <tr> 
          <td height="29" colspan="3" valign="top"><font color="#CC6699"><%=Marinfo(8)%></font></td>
        </tr>
      </table></td>
    </tr>
	<%page_count=page_count+1
  rs.movenext
  loop
  else
  response.write("<td height=""30"" align=""center""  class=tablebody1>无记录！</td>")
  end if
  rs.close%>
    <tr> 
      
    <td height="25" colspan="2" align="left"  class=tablebody1><%if totalrec>0 then
		  	call showpage(strFileName)
		  end if%></td>
    </tr>
</table>
<%
end sub
%>
</body>
</html> 