<!-- #include file="setup.asp" -->
<!-- #include file="hunconn.asp" -->
<%
if Request.Cookies("username")=empty then error2("请登录后再进行操作！")
top
%>

<HTML><HEAD><TITLE>结婚殿堂</TITLE>
<table border=0 width=97% align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3><td height=25>&nbsp;<img src=images/Forum_nav.gif>&nbsp;<%ClubTree%> → <a href=hunindex.asp>结婚殿堂</a>
</td></tr></table><br>
<SCRIPT>valigntop()</SCRIPT>
<table cellspacing="1" cellpadding="4" width="730" align="center" border="0" class="a1">
<tr><td align="middle" ><a href=hunqiuhun.asp>求婚中心</a></td><td align="middle" ><a href=hunyuelao.asp>月下老人</a></td><td align="middle" ><a href=hunfa.asp>婚姻法</a></td><td align="middle" ><a href=hundeng.asp>结婚登记</a></td><td align="middle" ><a href=hunjiehun.asp>精彩酒店</a></td><td align="middle" ><a href=hunlihun.asp>离婚</a></td></tr></table>

<TABLE border=0 cellPadding=0 cellSpacing=0 width=730 align="center" height="418">
  <TBODY> 
  <TR>
    <TD vAlign=top width=519 background="images/img_marry/index_bg.jpg" height="418"><BR><BR>
      <TABLE align=center border=0 borderColor=#ff7010 cellPadding=0 
      cellSpacing=0 width=609 height="138">
        <TBODY> 
        <TR>
          <TD width="607" height="138">
            <div align="center">
              <center>
            <TABLE border=1 borderColor=#ff7010 cellPadding=0 cellSpacing=1 
            width="70%" align="right" height="75">
              <TBODY> 
              <TR>
                <TD width="15%" valign="middle" align="center" height="20"> 
                  <DIV align=center><B>追求者</B></DIV></TD>
                <TD width="15%" valign="middle" align="center" height="20"> 
                  <DIV align=center><B>意中人</B></DIV></TD>
                <TD width="20%" valign="middle" align="center" height="20"> 
                  <DIV align=center><B>登记时间</B></DIV></TD>	 
                <TD width="35%" valign="middle" align="center" height="20"> 
                  <DIV align=center><B>爱情表白</B></DIV></TD>			  
                <TD width="15%" valign="middle" align="center" height="20"> 
                  <DIV align=center><B>操作</B></DIV></TD></TR>
				  	<% 
	set rs=server.createobject("adodb.recordset")
    rs.open "select * from jie order by addtime desc",connj,3,1
  	if rs.eof then
	totalrec=0 
	currentpage=0
	  %>
              <TR>
                <TD width=21% valign="middle" align="center" height="24">还没有任何人登记结婚了呢</TD>
              </tr>
                
              <% 
				else 

		currentPage=1
		
			if currentpage=""  then
				currentpage=1
			else
If Not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Or Request("page") <=0 Then
currentPage=1
Else
currentPage=Int(Abs(Request("page")))
End if
				if err then
					currentpage=1
					err.clear
				end if
			end if

		rs.PageSize = 15
		rs.AbsolutePage=currentpage
		page_count=0
      	totalrec=rs.recordcount
		while (not rs.eof) and (not page_count = rs.PageSize)
				 %><TR>
			  	
                <TD width="15%" valign="middle" align="center" height="19">
                  <div align="center"><a href=profile.asp?username=<%=rs("username")%> target="_blank" title="查看<%=rs("username")%>的资料"><%=rs("username")%></a></div>
                </TD>
                <TD width="15%" valign="middle" align="center" height="19">
                  <div align="center"><a href=profile.asp?username=<%=rs("thename")%> target="_blank" title="查看<%=rs("thename")%>的资料"><%=rs("thename")%></a></div>
                </TD>
                <TD width="20%" valign="middle" align="center" height="19">
                  <div align="center"><%=formatdatetime(rs("addtime"),1)%></div>
                </TD>
                <TD width="35%" valign="middle" align="center" height="19">
                  <div align="left"><%=rs("content")%></div>
                </TD>
                <TD width="15%" align="center" valign="middle" height="19"><% if datediff("d",rs("year"),now())>=0 and datediff("d",rs("year"),now())<=rs("long") then %><a href=hundajiudian.asp?id=<%=rs("id")%> title="进入酒店">正在婚礼</a><%elseif datediff("d",rs("year"),now())<0 then%>已经离婚<%else%>已经婚礼<% end if %></TD>
		 </TR> <% page_count = page_count + 1
		rs.movenext
		wend
			  end if
			  
			   %>
             </TBODY></TABLE></center>
            </div>
          </TD></TR></TBODY>
		  
		  <%
		  dim endpage
	Pcount=rs.PageCount
	response.write "<table border=0 cellpadding=0 cellspacing=3 width=730 align=center>"&_
			"<tr><td valign=middle align=center nowrap>"&_
			"页次：<b>"&currentpage&"</b>/<b>"&Pcount&"</b>页"&_
			" 每页<b>15</b>条 共有<b>"&totalrec&"</b>条结婚和离婚信息</td>"&_
			"<td valign=middle nowrap><div align=right><p>分页： "

	if currentpage > 4 then
		response.write "<a href=""?page=1"">[1]</a> ..."
	end if
	if Pcount>currentpage+3 then
	endpage=currentpage+3
	else
	endpage=Pcount
	end if
	for i=currentpage-3 to endpage
	if not i<1 then
		if i = clng(currentpage) then
        response.write " <font color=red>["&i&"]</font>"
		else
        response.write " <a href=""?page="&i&""">["&i&"]</a>"
		end if
	end if
	next
	if currentpage+3 < Pcount then 
	response.write "... <a href=""?page="&Pcount&""">["&Pcount&"]</a>"
	end if
	response.write "</p></div></font></td></tr></table>"
	rs.close
	set rs=nothing
		  %>

		  
  </TBODY></TABLE>
<SCRIPT>valignbottom()</SCRIPT>
<%
htmlend
%>