<!-- #include file="../common/include/con_help.asp" -->
<!--#include file="q_marry_conn.asp"-->

<%
tit="恋爱婚姻礼堂"
call web_head(0,0,2,0,0)
call marry_nav()
Call main()

call web_end(0,0)



sub main()

%>
<DIV ALIGN="center">
<TABLE CELLSPACING="1"  WIDTH="760" BACKGROUND="images/q_plus/marry/b01.jpg" BORDERCOLORLIGHT="#FFc7d1" BORDER="1" BORDERCOLORDARK="#FFc7d1" STYLE="border-collapse: collapse">
			<!-- MSTableType="nolayout" -->
			<TR>
				<TD HEIGHT="30" VALIGN="top" ALIGN="center" WIDTH="100%">
				<FONT FACE="隶书" SIZE="5" COLOR="#FFc7d1">恋爱事务处公告</FONT></TD>
			</TR>
			<TR>
				<TD HEIGHT="200"><%loveqiu()%></TD>
			</TR>
			</TABLE>

</DIV>
<p></p>
<DIV ALIGN="center">
<TABLE CELLSPACING="1"   WIDTH="760" BACKGROUND="images/q_plus/marry/b01.jpg" BORDERCOLORLIGHT="#FFc7d1" BORDER="1" BORDERCOLORDARK="#FFc7d1" STYLE="border-collapse: collapse">
			<!-- MSTableType="nolayout" -->
						<TR>
				<TD HEIGHT="30" ALIGN="center">
				<FONT FACE="隶书" SIZE="5" COLOR="#FFc7d1">婚姻事务处公告</FONT></TD>
			</TR>
			<TR>
				<TD HEIGHT="200"><%marryqiu()%>　</TD>
			</TR>
</TABLE>

</DIV>

<%
end sub




sub loveqiu()

set rsm=server.createobject("adodb.recordset")
sqlm="select * from m_love  Order By addtime Desc"
rsm.open sqlm,connj,1,3				
if rsm.eof or rsm.bof then
	
%>.....:::当前还没有人表白哦,赶快向你的心上人<a href=q_marry_court.asp?action=loveqiu>表白</a>吧！！:::....<%

else

   
   i=0
do while (not rsm.eof) and i<20
   i=i+1
          if rsm("love")=0 then %>
                              &nbsp;&nbsp;&nbsp;&nbsp; 
					<a href=../user/view.asp?username=<%=rsm("forname")%> target=_blank title=查看<%=rsm("forname")%>的资料><font color=blue><%=rsm("forname")%></font></a>
					于<%=rsm("addtime")%>向
					<a href=../user/view.asp?username=<%=rsm("toname")%> target=_blank title=查看<%=rsm("toname")%>的资料><font color="#FF0000"><%=rsm("toname")%></font></a>
					表白,祝好运！
					<br>		
		<%elseif rsm("love")=1 then %>
					&nbsp;&nbsp;&nbsp;&nbsp; 
					<a href=../user/view.asp?username=<%=rsm("toname")%> target=_blank title=查看<%=rsm("toname")%>的资料><font color=blue><%=rsm("toname")%></font></a>
					于<%=rsm("oktime")%>接受了
					<a href=../user/view.asp?username=<%=rsm("forname")%> target=_blank title=查看<%=rsm("forname")%>的资料><font color="#FF0000"><%=rsm("forname")%></font></a>
					的表白,祝福他们吧！
					<br>
	
					<%
		elseif rsm("love")=2 then %>
		                 &nbsp;&nbsp;&nbsp;&nbsp;
		                 <a href=../user/view.asp?username=<%=rsm("toname")%> target=_blank title=查看<%=rsm("toname")%>的资料><font color="#FF0000"><%=rsm("toname")%></font></a>
					于<%=rsm("addtime")%>拒绝了
					<a href=../user/view.asp?username=<%=rsm("forname")%> target=_blank title=查看<%=rsm("forname")%>的资料><font color=blue><%=rsm("forname")%></font></a>
					的表白,不如意事常八九！
					<br>
					<%
            elseif rsm("love")=3 then %>
	  	                  &nbsp;&nbsp;&nbsp;&nbsp; 
					<a href=../user/view.asp?username=<%=rsm("forname")%> target=_blank title=查看<%=rsm("forname")%>的资料><font color=blue><%=rsm("forname")%></font></a>
					于<%=rsm("addtime")%>向
					<a href=../user/view.asp?username=<%=rsm("toname")%> target=_blank title=查看<%=rsm("toname")%>的资料><font color="#FF0000"><%=rsm("toname")%></font></a>
					表白,没有得到回应,遗憾！
					<br>
	      <%elseif rsm("love")=4 then %>
	  	                  &nbsp;&nbsp;&nbsp;&nbsp; 
					<a href=../user/view.asp?username=<%=rsm("forname")%> target=_blank title=查看<%=rsm("forname")%>的资料><font color=blue><%=rsm("forname")%></font></a>
					于<%=rsm("fentime")%>向
					<a href=../user/view.asp?username=<%=rsm("toname")%> target=_blank title=查看<%=rsm("toname")%>的资料><font color="#FF0000"><%=rsm("toname")%></font></a>
					提出分手,遗憾！
					<br>
            <%elseif rsm("love")=5 then %>
	  	                  &nbsp;&nbsp;&nbsp;&nbsp;
	  	                  <a href=../user/view.asp?username=<%=rsm("toname")%> target=_blank title=查看<%=rsm("toname")%>的资料><font color="#FF0000"><%=rsm("toname")%></font></a>
					于<%=rsm("fentime")%>向
					<a href=../user/view.asp?username=<%=rsm("forname")%> target=_blank title=查看<%=rsm("forname")%>的资料><font color=blue><%=rsm("forname")%></font></a>
					提出分手,遗憾！
					<br>
            <%elseif rsm("love")=6 then %>
	  	                  &nbsp;&nbsp;&nbsp;&nbsp;
	  	                  <a href=../user/view.asp?username=<%=rsm("toname")%> target=_blank title=查看<%=rsm("toname")%>的资料><font color="#FF0000"><%=rsm("toname")%></font></a>和
					<a href=../user/view.asp?username=<%=rsm("forname")%> target=_blank title=查看<%=rsm("forname")%>的资料><font color=blue><%=rsm("forname")%></font></a>
					于<%=rsm("fentime")%>分手,遗憾！
					<br>
            
					
					<%
            end if
		rsm.movenext
		loop
	
        
           %>
           <tr><TD ALIGN="right">
            共有<%=rsm.RecordCount%>条记录!<A HREF="q_marry_List.asp">点击</A>查看详细..
           </TD></tr>
          <%  		
       
end if
rsm.close
set rsm=nothing
set sqlm=nothing
end sub




sub marryqiu()

set rsm=server.createobject("adodb.recordset")
sqlm="select * from m_marry  Order By addtime Desc"
rsm.open sqlm,connj,1,3				
if rsm.eof or rsm.bof then
	
%>.....:::当前还没有人表白哦,赶快向你的心上人<a href=q_marry_court.asp?action=marryqiu>表白</a>吧！！:::....<%
   else
   i=0
do while (not rsm.eof) and i<20
   i=i+1
          if rsm("marry")=0 then %>
                              &nbsp;&nbsp;&nbsp;&nbsp; 
					<a href=../user/view.asp?username=<%=rsm("forname")%> target=_blank title=查看<%=rsm("forname")%>的资料><font color=blue><%=rsm("forname")%></font></a>
					于<%=rsm("addtime")%>向
					<a href=../user/view.asp?username=<%=rsm("toname")%> target=_blank title=查看<%=rsm("toname")%>的资料><font color="#FF0000"><%=rsm("toname")%></font></a>
					求婚,祝好运！
					<br>		
		<%elseif rsm("marry")=1 then %>
					&nbsp;&nbsp;&nbsp;&nbsp; 
					<a href=../user/view.asp?username=<%=rsm("toname")%> target=_blank title=查看<%=rsm("toname")%>的资料><font color=blue><%=rsm("toname")%></font></a>
					于<%=rsm("oktime")%>接受了
					<a href=../user/view.asp?username=<%=rsm("forname")%> target=_blank title=查看<%=rsm("forname")%>的资料><font color="#FF0000"><%=rsm("forname")%></font></a>
					的求婚,祝福他们吧！
					<br>
	
					<%
		elseif rsm("marry")=2 then %>
		                 &nbsp;&nbsp;&nbsp;&nbsp;
		                 <a href=../user/view.asp?username=<%=rsm("toname")%> target=_blank title=查看<%=rsm("toname")%>的资料><font color="#FF0000"><%=rsm("toname")%></font></a>
					于<%=rsm("oktime")%>拒绝了
					<a href=../user/view.asp?username=<%=rsm("forname")%> target=_blank title=查看<%=rsm("forname")%>的资料><font color=blue><%=rsm("forname")%></font></a>
					的求婚,不如意事常八九！
					<br>
					<%
            elseif rsm("marry")=3 then %>
	  	                  &nbsp;&nbsp;&nbsp;&nbsp; 
					<a href=../user/view.asp?username=<%=rsm("forname")%> target=_blank title=查看<%=rsm("forname")%>的资料><font color=blue><%=rsm("forname")%></font></a>
					于<%=rsm("addtime")%>向
					<a href=../user/view.asp?username=<%=rsm("toname")%> target=_blank title=查看<%=rsm("toname")%>的资料><font color="#FF0000"><%=rsm("toname")%></font></a>
					求婚,没有得到回应,遗憾！
					<br>
	      <%elseif rsm("marry")=4 then %>
	  	                  &nbsp;&nbsp;&nbsp;&nbsp; 
					<a href=../user/view.asp?username=<%=rsm("forname")%> target=_blank title=查看<%=rsm("forname")%>的资料><font color=blue><%=rsm("forname")%></font></a>
					于<%=rsm("fentime")%>向
					<a href=../user/view.asp?username=<%=rsm("toname")%> target=_blank title=查看<%=rsm("toname")%>的资料><font color="#FF0000"><%=rsm("toname")%></font></a>
					提出离婚,遗憾！
					<br>
            <%elseif rsm("marry")=5 then %>
	  	                  &nbsp;&nbsp;&nbsp;&nbsp;
	  	                  <a href=../user/view.asp?username=<%=rsm("toname")%> target=_blank title=查看<%=rsm("toname")%>的资料><font color="#FF0000"><%=rsm("toname")%></font></a>
					于<%=rsm("fentime")%>向
					<a href=../user/view.asp?username=<%=rsm("forname")%> target=_blank title=查看<%=rsm("forname")%>的资料><font color=blue><%=rsm("forname")%></font></a>
					提出离婚,遗憾！
					<br>
            <%elseif rsm("marry")=6 or rsm("marry")=7 then %>
	  	                  &nbsp;&nbsp;&nbsp;&nbsp;
	  	                  <a href=../user/view.asp?username=<%=rsm("toname")%> target=_blank title=查看<%=rsm("toname")%>的资料><font color="#FF0000"><%=rsm("toname")%></font></a>和
					<a href=../user/view.asp?username=<%=rsm("forname")%> target=_blank title=查看<%=rsm("forname")%>的资料><font color=blue><%=rsm("forname")%></font></a>
					于<%=rsm("oktime")%>离婚,遗憾！
					<br>	
			<%elseif rsm("marry")=8 then %>
	  	                  &nbsp;&nbsp;&nbsp;&nbsp;
	  	                  <a href=../user/view.asp?username=<%=rsm("toname")%> target=_blank title=查看<%=rsm("toname")%>的资料><font color="#FF0000"><%=rsm("toname")%></font></a>和
					<a href=../user/view.asp?username=<%=rsm("forname")%> target=_blank title=查看<%=rsm("forname")%>的资料><font color=blue><%=rsm("forname")%></font></a>
					于<%=rsm("oktime")%>结婚,祝他们幸福！
					<br>
			<%elseif rsm("marry")=9 then
			
                           if  rsm("oktime")<now() then %>
	  	                  &nbsp;&nbsp;&nbsp;&nbsp;
	  	                  <a href=../user/view.asp?username=<%=rsm("toname")%> target=_blank title=查看<%=rsm("toname")%>的资料><font color="#FF0000"><%=rsm("toname")%></font></a>和
					<a href=../user/view.asp?username=<%=rsm("forname")%> target=_blank title=查看<%=rsm("forname")%>的资料><font color=blue><%=rsm("forname")%></font></a>
					于<%=rsm("oktime")%>举行婚礼,现在婚礼进行中,大家快去祝福他们吧！
					<br>			
					       <%  else %>
					       &nbsp;&nbsp;&nbsp;&nbsp;
	  	                  <a href=../user/view.asp?username=<%=rsm("toname")%> target=_blank title=查看<%=rsm("toname")%>的资料><font color="#FF0000"><%=rsm("toname")%></font></a>和
					<a href=../user/view.asp?username=<%=rsm("forname")%> target=_blank title=查看<%=rsm("forname")%>的资料><font color=blue><%=rsm("forname")%></font></a>
					将于<%=rsm("oktime")%>举行婚礼,目前婚礼筹备中,祝他们幸福！
					<br>	   

                        <%end if		
            end if
		rsm.movenext
		loop
           %>
           <tr><TD ALIGN="right">
            共有<%=rsm.RecordCount%>条记录<A HREF="q_marry_List.asp">点击</A>查看详细..
           </TD></tr>
          <%  		
       
end if
rsm.close
set rsm=nothing
set sqlm=nothing
end sub


%>


