<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<!--#include file=inc/Email.asp-->
<%
 '=========================================================
' File: mylove.asp
' Version:3.0
' Date: 2005-10-21
' 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("爱情宣言","mylove.asp")
%>
<table width="100%" align=center cellpadding=3 cellspacing=1 class=tableborder1>
  <tr align="center"> 
    <th width=12% height=25 id=tabletitlelink><a href="mylove.asp">爱情宣言</a></th>
    <th width=11% id=tabletitlelink><a href="mylove.asp?action=agree">虚拟婚姻法</a></th>
    <th width=11% id=tabletitlelink><a href="mylove.asp?action=maradd&Typeid=1">我要结婚</a></th>
    <th width=11% id=tabletitlelink><a href="mylove.asp?action=marcrtl">发布管理</a></th>
    <th width=11% id=tabletitlelink><a href="mylove.asp?action=marqa&Typeid=2">我要求爱</a></th>
    <th width=11% id=tabletitlelink><a href="mylove.asp?action=marjs">接收管理</a></th>
    <th width=11% id=tabletitlelink>帮助</th>
  </tr>
</table>
<%
call tumppages()'翻页处理
strFileName="mylove.asp?"
Select Case Trim(Request("action"))
	Case "agree"
		Stats="虚拟婚姻法则"
		Call agree()
	case "maradd"
		Stats="我要结婚"
		Call maradd()
	case "maraddsave"
		Stats="保存结婚信息"
		Call maraddsave()
	Case "marcrtl"
		Stats="发布管理"
		Call marcrtl()
	Case "marqa"
		Stats="我要求爱"
		Call maradd()
	Case "marjs"
		Stats="接收管理"
		Call marjs()
	Case "view"
		Stats="查看宣言"
		Call view()
	Case "发布操作"
		Stats="发布操作"
		Call marcx()
	Case "接收操作"
		Stats="接收操作"
		Call jsctrl()
	case else
	call main()
End Select
if founderr then call Mslove_error()
end if
call activeonline()
call footer()

sub main()%>
<table width="100%" align=center cellpadding=3 cellspacing=1 class=tableborder1>
  <tr align="left"> 
    <td height="32" colspan="4" class=tablebody2><a href="mylove.asp?list=1">恋爱公告</a> 
      | <a href="mylove.asp?list=2">结婚公告</a></td>
  </tr>
  <tr align="center"> 
    <td width="17%" height="28" class=tablebody2><strong>追求人</strong> </td>
    <td width="44%" class=tablebody1><strong>爱情表白</strong></td>
    <td width="18%" class=tablebody2><strong>被追求人</strong></td>
    <td width="21%" class=tablebody1><strong>时间</strong></td>
  </tr>
  <%dim list
  list=request("list")
  if list="" then
  list=1
  end if
	set rs=server.createobject("adodb.recordset")
	if list=1 then
    sql="select * from Ms_mylove where Checked=1 and typeid="&list&""
	else
	sql="select * from Ms_mylove where Checked=1 and typeid="&list&""
	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)
%>
  <tr align="center"> 
    <td width="17%" height="26" align="center" class=tablebody2><a href=dispuser.asp?username=<%=rs("Username")%>><%=rs("Username")%></a></td>
    <td width="44%" align="left" class=tablebody1><%=rs("Title")%></td>
    <td width="18%" align="center" class=tablebody2><a href=dispuser.asp?username=<%=rs("Mylover")%>><%=rs("Mylover")%></a></td>
    <td align="center" class=tablebody1><%=rs("Addtime")%></td>
  </tr>
   <%page_count=page_count+1
  rs.movenext
  loop
  else
  response.Write("<tr align=""center""><td colspan=""4"" align=""center"" class=tablebody1>无记录</td></tr>")
  end if
  %>
  <tr align="center"> 
    <td colspan="4" align="left" class=tablebody1><%if totalrec>0 then
		  	call showpage(strFileName)
		  end if%></td>
  </tr>
</table>
<%rs.close
end sub

sub marcrtl()%>
<table width="100%" align=center cellpadding=0 cellspacing=1 class=tableborder1>
  <form action="mylove.asp" method=post name=theForm>
    <tr> 
      <td height="29" colspan="6" align="center" class=tablebody2><strong><%=Stats%></strong></td>
    </tr>
    <tr> 
      <td width="6%" height="31" align="center"  class=tablebody2><strong>已阅</strong></td>
      <td width="45%" align="center" class=tablebody1><strong>爱情表白</strong></td>
      <td width="13%" align="center" class=tablebody2><strong>对象姓名</strong></td>
      <td width="18%" align="center" class=tablebody1><strong>时间</strong></td>
      <td width="11%" align="center" class=tablebody2><strong>状态</strong></td>
      <td width="7%" align="center" class=tablebody1><strong>操作</strong></td>
    </tr>
    <%dim Checked
	set rs=server.createobject("adodb.recordset")
    sql="select * from Ms_mylove where Username='"&trim(membername)&"'"
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)
Checked=rs("Checked")
%>
    <tr> 
      <td width="6%" height="28" align="center"  class=tablebody2><%if rs("flag")=1 then
	response.Write("<font color=blue>已阅</font>")
	else
	response.Write("<font color=red>未阅</font>")
	end if%></td>
      <td width="45%" height="28" align="left" class=tablebody1><a href="mylove.asp?action=view&typeid=<%=rs("typeid")%>&id=<%=rs("id")%>"><%=rs("Title")%></a>&nbsp;
        <%if rs("typeid")=1 then
	response.write("<font color=#999999>[求婚]</font>")
	else
	response.write("<font color=#999999>[求爱]</font>")
	end if%></td>
      <td width="13%" height="28" align="center" class=tablebody2><a href=dispuser.asp?username=<%=rs("Mylover")%>><%=rs("Mylover")%></a></td>
      <td width="18%" height="28" align="center" class=tablebody1><%=rs("Addtime")%></td>
      <td width="11%" height="28" align="center" class=tablebody2><%if Checked=0 then
	response.Write("未审核")
	elseif Checked=1 then
	response.Write("<font color=red>已接受</font>")
	elseif Checked=2 then
	response.write("<font color=blue>被拒绝</font>")
	elseif Checked=3 then
	response.write("已撤销")
	elseif Checked=4 then
	response.write("离婚了")
	elseif Checked=5 then
	response.write("已分手")
	end if%></td>
      <td width="7%" height="28" align="center" class=tablebody1><input type=checkbox name=id value=<%=rs("id")%>></td>
    </tr>
    <%page_count=page_count+1
  rs.movenext
  loop
  end if
  %>
    <tr> 
      <td height="24" colspan="6" align="left" class=tablebody1><%if totalrec>0 then
		  	call showpage(strFileName)
		  end if%></td>
    </tr>
    <tr> 
      <td height="12" colspan="6" align="right" class=tablebody1> 
        <input type=checkbox name=chkall value=on onclick="CheckAll(this.form)">
        选中所有显示记录 
        <input type=submit name=action onclick="{if(confirm('确定发布管理操作吗?')){this.document.theForm.submit();return true;}return false;}" value="发布操作">
        -&gt; 
        <select name="ctrl" id="ctrl">
          <option selected>请选择动作</option>
          <option value="3">撤消</option>
          <option value="4">离婚</option>
          <option value="5">分手</option>
          <option value="0">删除</option>
        </select> </td>
    </tr>
    <tr> 
      <td height="22" colspan="6" class=tablebody1><font color="#FF0000">注意：要删除记录状态必须是拒绝，离婚状态必须是已接受时生效！</font></td>
    </tr>
  </form>
</table>
<%rs.close
end sub

sub marjs()''接收管理%>
<table width="100%" align=center cellpadding=0 cellspacing=1 class=tableborder1>
  <form action="mylove.asp" method=post name=theForm>
    <tr> 
      <td height="29" colspan="6" align="center" class=tablebody2><strong><%=Stats%></strong></td>
    </tr>
    <tr> 
      <td width="6%" height="31" align="center"  class=tablebody2><strong>已阅</strong></td>
      <td width="45%" align="center" class=tablebody1><strong>爱情表白</strong></td>
      <td width="13%" align="center" class=tablebody2><strong>对象姓名</strong></td>
      <td width="18%" align="center" class=tablebody1><strong>时间</strong></td>
      <td width="11%" align="center" class=tablebody2><strong>状态</strong></td>
      <td width="7%" align="center" class=tablebody1><strong>操作</strong></td>
    </tr>
    <%dim Checked
	set rs=server.createobject("adodb.recordset")
    sql="select * from Ms_mylove where mylover='"&trim(membername)&"'"
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)
Checked=rs("Checked")
%>
    <tr> 
      <td width="6%" height="28" align="center"  class=tablebody2><%if rs("flag")=1 then
	response.Write("<font color=blue>已阅</font>")
	else
	response.Write("<font color=red>未阅</font>")
	end if%></td>
      <td width="45%" height="28" align="left" class=tablebody1><a href="mylove.asp?action=view&typeid=<%=rs("typeid")%>&id=<%=rs("id")%>"><%=rs("Title")%></a>&nbsp;
        <%if rs("typeid")=1 then
	response.write("<font color=#999999>[求婚]</font>")
	else
	response.write("<font color=#999999>[求爱]</font>")
	end if%></td>
      <td width="13%" height="28" align="center" class=tablebody2><a href=dispuser.asp?username=<%=rs("Mylover")%>><%=rs("Mylover")%></a></td>
      <td width="18%" height="28" align="center" class=tablebody1><%=rs("Addtime")%></td>
      <td width="11%" height="28" align="center" class=tablebody2><%if Checked=0 then
	response.Write("未审核")
	elseif Checked=1 then
	response.Write("<font color=red>已接受</font>")
	elseif Checked=2 then
	response.write("<font color=blue>被拒绝</font>")
	elseif Checked=3 then
	response.write("已撤销")
	elseif Checked=4 then
	response.write("离婚了")
	elseif Checked=5 then
	response.write("已分手")
	end if%></td>
      <td width="7%" height="28" align="center" class=tablebody1><input type=checkbox name=id value=<%=rs("id")%>></td>
    </tr>
    <%page_count=page_count+1
  rs.movenext
  loop
  end if
  %>
    <tr> 
      <td height="24" colspan="6" align="left" class=tablebody1><%if totalrec>0 then
		  	call showpage(strFileName)
		  end if%></td>
    </tr>
    <tr> 
      <td height="12" colspan="6" align="right" class=tablebody1> 
        <input type=checkbox name=chkall value=on onclick="CheckAll(this.form)">
        选中所有显示记录 
        <input type=submit name=action onclick="{if(confirm('确定接收操作吗?')){this.document.theForm.submit();return true;}return false;}" value="接收操作">
        -&gt; 
        <select name="ctrl" id="ctrl">
          <option selected>请选择动作</option>
          <option value="1">接受</option>
          <option value="2">拒绝</option>
          <option value="3">撤消</option>
          <option value="4">离婚</option>
          <option value="5">分手</option>
          <option value="0">删除</option>
        </select>
      </td>
    </tr>
    <tr> 
      <td height="22" colspan="6" class=tablebody1><font color="#FF0000">注意：要删除记录状态必须是拒绝，离婚状态必须是已接受时生效！</font></td>
    </tr>
  </form>
</table>
<%rs.close
end sub

sub maradd()%>
<table width="100%" align=center cellpadding=3 cellspacing=1 class=tableborder1>
  <form action="mylove.asp?action=maraddsave" method=POST name="theForm">
    <tr> 
      <td height="32" colspan="3" align="center" class=tablebody2><strong><%=Stats%></strong></td>
    </tr>
    <tr> 
      <td width="19%" height="16" align="right"  class=tablebody1>对象姓名：</td>
      <td colspan="2"  class=tablebody1><input name="touser" type="text" id="touser" value="<%=request("touser")%>" size=20 maxlength="20"> 
        <input name="Typeid" type="hidden" id="Typeid" value="<%=request("Typeid")%>"> 
        <SELECT name=font onChange="parent.document.theForm.touser.value=options[selectedIndex].value">
          <OPTION selected value="">选择</OPTION>
          <%
set rs=server.createobject("adodb.recordset")
sql="select friend from Ms_Friend where username='"&trim(membername)&"' and Fsub=1 order by Addtime desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
          <OPTION value="<%=rs(0)%>"><%=rs(0)%></OPTION>
          <%
rs.movenext
loop
rs.close
set rs=nothing
%>
        </SELECT> <br> <font color="#FF0000">可以直接输入会员名称，如果求婚对象是好友，请选择！ </font></td>
    </tr>
    <tr> 
      <td height="27" align="right"  class=tablebody1>爱情宣言：</td>
      <td colspan="2"  class=tablebody1><input name="Title" type="text" id="Title" size="30" maxlength="250"></td>
    </tr>
    <tr> 
      <td height="33" align="right"  class=tablebody1>爱情表白：</td>
      <td width="68%" height="33"  class=tablebody1><textarea name="Content" cols="60" rows="5" ID="IDContent"></textarea> 
        <a style=cursor:hand onclick="if (parseInt(IDContent.rows)-3>0)(IDContent.rows=parseInt(IDContent.rows)-3)"><img src="Skins/Default/minus.gif" unselectable="on" border='0'></a> 
        <a style=cursor:hand onclick="if (parseInt(IDContent.rows)+3>3)(IDContent.rows=parseInt(IDContent.rows)+3)"><img src="Skins/Default/plus.gif" unselectable="on" border='0'></a><br>
        不能大于400个字符。</td>
      <td width="13%" rowspan="4"  class=tablebody1><img src="Skins/Default/islove/qa.gif" width="91" height="281"></td>
    </tr>
    <tr> 
      <td height="14" align="right"  class=tablebody1>人 生 观：</td>
      <td height="14"  class=tablebody1><textarea name="loveinfo1" cols="60" rows="5" ID="loveinfo1id"></textarea> 
        <a style=cursor:hand onclick="if (parseInt(loveinfo1id.rows)-3>0)(loveinfo1id.rows=parseInt(loveinfo1id.rows)-3)"><img src="Skins/Default/minus.gif" unselectable="on" border='0'></a> 
        <a style=cursor:hand onclick="if (parseInt(loveinfo1id.rows)+3>3)(loveinfo1id.rows=parseInt(loveinfo1id.rows)+3)"><img src="Skins/Default/plus.gif" unselectable="on" border='0'></a><br>
        不能大于400个字符。</td>
    </tr>
    <tr> 
      <td height="2" align="right"  class=tablebody1>价 值 观：</td>
      <td height="2"  class=tablebody1><textarea name="loveinfo2" cols="60" rows="5" ID="loveinfo2id"></textarea> 
        <a style=cursor:hand onclick="if (parseInt(loveinfo2id.rows)-3>0)(loveinfo2id.rows=parseInt(loveinfo2id.rows)-3)"><img src="Skins/Default/minus.gif" unselectable="on" border='0'></a> 
        <a style=cursor:hand onclick="if (parseInt(loveinfo2id.rows)+3>3)(loveinfo2id.rows=parseInt(loveinfo2id.rows)+3)"><img src="Skins/Default/plus.gif" unselectable="on" border='0'></a><br>
        不能大于400个字符。</td>
    </tr>
    <tr> 
      <td height="3" align="right"  class=tablebody1>发布选项：</td>
      <td height="3"  class=tablebody1><input name=emailflag type="radio" value="0" checked>
        不通知 &nbsp; <input type="radio" name=emailflag value="1">
        邮件通知 
        <input type="radio" name=emailflag value="2">
        短信通知 
        <input type="radio" name=emailflag value="3">
        邮件和短信通知</td>
    </tr>
    <tr> 
      <td height="13" colspan="3" align="center"  class=tablebody1> <input class=2 type=Submit value="保存" name=Submit> 
        &nbsp; <input class=2 type="reset" name="Clear" value="清除"></td>
    </tr>
    <tr> 
      <td height="13" align="right"  class=tablebody1><font color="#FF0000">友情提示：</font></td>
      <td height="13" colspan="2"  class=tablebody1>1.您进入<%=webname%>爱情与婚姻游戏时，首先应该仔细阅读<%=webname%><a href="mylove.asp?action=agree" target="_blank">虚拟婚姻法</a>。 
        <br>
        2 .任何会员都有求婚/求爱，离婚/分手的权利 <br>
        3.如果对方向你求婚或求爱，您可以接受，也可以拒绝。 <br>
        4.如果您觉得为了以后的婚姻幸福有必要，可以要求去婚姻公证处进行婚姻公证。 <br>
        5.需要请朋友来庆贺，就去<%=webname%>酒楼。 <br>
        6.如果您要求离婚或分手，可以向对方提出，对方无礼拒绝，您可以向<%=webname%>法院申诉。<br> <font color="#FF0000">7.如果在向一个人求爱的时候，不能向第二个人求爱，没有得到对方的同意，都不能向其他人求爱。<br>
        8.只有取消求爱才可以向别人求爱。<br>
        9.发布爱情信息必须扣除金钱10元。</font></td>
    </tr>
  </form>
</table>
<%end sub

sub maraddsave()''保存结婚信息
if Not ChkPost then'查检提交数据
	ErrMsg=ErrMsg+"<Br>"+"<li>您提交的数据不合法，请不要从外部提交发言。"
   	FoundErr=True
end if
if Cint(GroupSetting(197))=0 then
  	errmsg=errmsg+"<br>"+"<li>您没有发布求婚信息的权限。"
	founderr=true
end if
dim touser,Content,loveinfo1,loveinfo2,Typeid,Loveinfo
dim Title,userEmails,id,Marname
touser=checkStr(Request("touser"))
Title=checkStr(Request("Title"))
Typeid=Request("Typeid")
Content=checkStr(Request("Content"))
loveinfo1=checkStr(Request("loveinfo1"))
loveinfo2=checkStr(Request("loveinfo2"))
if touser="" or strLength(touser)>20 then
errmsg=errmsg+"<br>"+"<li>对象姓名不能为空，请输入。"
	founderr=true
end if
if Title="" or strLength(Title)>250 then
errmsg=errmsg+"<br>"+"<li>爱情宣言标题不能为空长度不大于250个字符，请输入。"
	founderr=true
end if
if Content="" or strLength(Content)>400 then
errmsg=errmsg+"<br>"+"<li>爱情表白不能为空长度不大于400个字符。"
	founderr=true
else
Content=HTMLEncode(Content)
end if
if loveinfo1<>"" and strLength(loveinfo1)>400 then
errmsg=errmsg+"<br>"+"<li>人生观长度不大于400个字符，请输入。"
	founderr=true
end if
if loveinfo2<>"" and strLength(loveinfo2)>400 then
errmsg=errmsg+"<br>"+"<li>价值观长度不大于400个字符，请输入。"
	founderr=true
end if
Loveinfo=""&loveinfo1&"|||"&loveinfo2&""
sql="select Username,UserEmail from [Ms_User] where Username='"&trim(touser)&"'"
set rs=conn.execute(sql)
if not (rs.eof and rs.bof) then
userEmails=rs("UserEmail")
Marname=rs("Username")
else
errmsg=errmsg+"<br>"+"<li>对不起，系统中没有该用户名。"
	founderr=true
end if
rs.close
if Marname=trim(membername) then
errmsg=errmsg+"<br>"+"<li>搞什么，跟自己过不去啊。"
	founderr=true
end if
if Chkvalue(1,GroupSetting(201),Cint(GroupSetting(202)))=false then
	errmsg=errmsg+"<br>"+"<li>对不起，您的金币不够请确认。"
	founderr=true
end if
if Chkvalue(2,GroupSetting(203),Cint(GroupSetting(204)))=false then
	errmsg=errmsg+"<br>"+"<li>对不起，您的魅力值不够请确认。"
	founderr=true
end if
if Chkvalue(3,GroupSetting(205),Cint(GroupSetting(206)))=false then
	errmsg=errmsg+"<br>"+"<li>对不起，您的经验值不够请确认。"
	founderr=true
end if
if founderr=true then exit sub
set rs=server.createobject("adodb.recordset")
sql="select * from [Ms_mylove] where Username='"&trim(membername)&"' and typeid="&typeid&" and Checked<3"
rs.Open sql,conn,1,3
if not (rs.eof and rs.bof) then
	errmsg=errmsg+"<br>"+"<li>对不起，您不能重复发布。"
	founderr=true
else
rs.addnew()
rs("Username")=trim(membername)
rs("Typeid")=Typeid
rs("Mylover")=touser
rs("Content")=Content
rs("Loveinfo")=Loveinfo
rs("Title")=title
rs("flag")=0
rs("Addtime")=now()
rs("Checked")=0
rs.update()
id=rs("id")
rs.close
conn.execute("update Ms_user set UserWealth=UserWealth "&GroupSetting(201)&Cint(GroupSetting(202))&",UserEP=UserEP "&GroupSetting(203)&Cint(GroupSetting(204))&",UserCP=UserCP "&GroupSetting(205)&Cint(GroupSetting(206))&" where Username='"&trim(membername)&"'")

dim topic,email,mailbody,emailflag''发送邮件开始
emailflag=cint(trim(Request("emailflag")))
if emailflag=1 or emailflag=3 then
topic=""&touser&",恭喜您！有人向您发送爱情信息！"
email=userEmails
mailbody=mailbody & ""&touser&"，您好：<br>"
		mailbody=mailbody & "您在"&webname&"有人发送爱情宣言<br>"
		mailbody=mailbody & "请到以下地址浏览该爱情宣言内容。<br>"
		mailbody=mailbody & "<a href=http://"&request.servervariables("server_name")&replace(lcase(request.servervariables("script_name")),"mylove.asp","")&"mylove.asp?action=view&id="&id&"&typeid="&typeid&" target=_blank>查看内容</a>"
		if Mailtype=0 then             
		elseif Mailtype=1 then
			call jmail(email,topic,mailbody)
		elseif Mailtype=2 then
			call Cdonts(email,topic,mailbody)
		elseif Mailtype=3 then
			call aspemail(email,topic,mailbody)
		end if
end if
if emailflag=2 or emailflag=3 then
	dim mtitle,messages
		mtitle="您在"&webname&"有人发送爱情宣言"
		messages=messages & "请到以下地址浏览该爱情宣言内容。<br>"
		messages=messages &"<a href=http://"&request.servervariables("server_name")&replace(lcase(request.servervariables("script_name")),"mylove.asp","")&"mylove.asp?action=view&id="&id&"&typeid="&typeid&" target=_blank>查看内容</a>"
		sql="insert into Ms_message (incept,sender,title,content,sendtime,flag,issend) values ('"&touser&"','"&trim(membername)&"','"&mtitle&"','"&messages&"',Now(),0,1)"
		conn.execute(sql)
end if
	
sucmsg=sucmsg+"<br>"+"<li><b>您已经成功向"&touser&"求婚记录。"
		call Mslove_suc()
end if
end sub

sub view()''查看宣言信息
dim id,Checked
id=checkStr(Request("id"))
if id="" or not isnumeric(id) then
errmsg=errmsg+"<br>"+"<li>参数错误。"
	founderr=true
end if
if founderr=true then exit sub
sql="select * from [Ms_mylove] where id="&id&""
set rs=conn.execute(sql)
if not (rs.eof and rs.bof) then
Checked=rs("Checked")
%>
<table width="100%" align=center cellpadding=3 cellspacing=1 class=tableborder1>
    <tr> 
      <td height="32" colspan="3" align="center" class=tablebody2><strong><%=Stats%></strong></td>
    </tr>
    <tr> 
      <td width="19%" height="29" align="right"  class=tablebody1>对象姓名：</td>
      <td colspan="2"  class=tablebody1><a href=dispuser.asp?username=<%=rs("Mylover")%>><%=rs("Mylover")%></a></td>
    </tr>
    <tr> 
      <td height="27" align="right"  class=tablebody2>爱情宣言：</td>
      <td colspan="2"  class=tablebody2><%=rs("Title")%></td>
    </tr>
    <tr> 
      
    <td height="48" align="right"  class=tablebody1>爱情表白：</td>
      
    <td height="48" colspan="2"  class=tablebody1><%=rs("Content")%></td>
    </tr>
    <tr> 
      
    <td height="44" align="right"  class=tablebody2>人 生 观：</td>
      
    <td height="44" colspan="2"  class=tablebody2><%=split(rs("Loveinfo"),"|||")(0)%></td>
    </tr>
    <tr> 
      
    <td height="41" align="right"  class=tablebody1>价 值 观：</td>
      
    <td height="41" colspan="2"  class=tablebody1><%=split(rs("Loveinfo"),"|||")(1)%></td>
    </tr>
    <tr align="center"> 
      
    <td height="27" colspan="3"  class=tablebody2>目前状态：<%if Checked=0 then
	response.Write("未审核")
	elseif Checked=1 then
	response.Write("<font color=red>已接受</font>")
	elseif Checked=2 then
	response.write("<font color=blue>被拒绝</font>")
	elseif Checked=3 then
	response.write("已撤销")
	elseif Checked=4 then
	response.write("离婚了")
	elseif Checked=5 then
	response.write("已分手")
	end if%></td>
    </tr>
    <tr> 
      <td height="13" colspan="3" align="center"  class=tablebody1>&nbsp;</td>
    </tr>
</table>
<%end if
rs.close
end sub

sub agree()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class=tableborder1>
  <tr> 
    <td height="29" align="center" valign="top" class="tablebody1">&nbsp; </td>
  </tr>
  <tr>
    <td align="center" valign="top" class="tablebody1"><table width="95%" border="0" cellpadding="0" cellspacing="0" class="hei">
        <tr> 
          <td width="20" valign="top"><img src="Skins/Default/islove/111_r1_c1.gif" width="20" height="19"></td>
          <td width="539" height="19" valign="top" background="Skins/Default/islove/111_r1_c2.gif"></td>
          <td width="20" valign="top"><img src="Skins/Default/islove/111_r1_c4.gif" width="20" height="19"></td>
        </tr>
        <tr> 
          <td width="20" valign="top" background="Skins/Default/islove/111_r2_c1.gif">&nbsp;</td>
          <td valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td align="center"><font color="#ff0000" size="4"><img src="Skins/Default/islove/h1.gif" width="222" height="57"></font></td>
              </tr>
            </table>
            <font color="#000000"><strong>目录</strong></font><br>
            第一章 总 则<br>
            第二章 结 婚<br>
            第三章 家庭关系<br>
            第四章 离 婚<br>
            第五章 附 则 <br> <br>
            第一章 总 则<br>
            第一条 本法是<%=webname%>虚拟婚姻法，与现实无关，她是<%=webname%>虚拟婚姻家庭关系的基本准则。<br>
            第二条 实行婚姻自由、一夫一妻、男女平等的婚姻制度。<br>
            保护妇女的合法权益。<br>
            第三条 禁止包办、买卖婚姻和其他干涉婚姻自由的行为。禁止借婚姻索取财物。<br>
            禁止重婚。禁止家庭成员间的虐待和遗弃。<br>
            第四条 夫妻应当互相忠实，互相尊重；家庭成员间应当互相帮助，维护平等、和睦、文明的婚姻家庭关系。<br> <br>
            第二章 结 婚<br>
            第五条 结婚必须男女双方完全自愿，不许任何一方对他方加以强迫或任何第三者加以干涉。<br>
            第六条 只要<%=webname%>社会上的会员一方求婚，另一方同意，即为婚姻成立。<br>
            第七条 因胁迫结婚的，受胁迫的一方可以向<%=webname%>法院请求撤销该婚姻。受胁迫的一方撤销婚姻的请求，应当自结婚登记之日起七日 
            内提出。<br> <br>
            第三章 家庭关系<br>
            第八条 夫妻在家庭中地位平等。<br>
            第九条 夫妻双方都有使用自己用户名的权利。<br>
            第十条 夫妻双方都有参加<%=webname%>社会其他活动的自由，一方不得对他方加以限制或干涉。<br>
            第十一条 夫妻在婚姻关系存续期间所得的下列财产，归夫妻共同所有：<br>
            （一）工资；<br>
            （二）生产、经营的收益；<br>
            （三）赠与所得的财产；<br>
            （四）其他应当归共同所有的财产。<br>
            夫妻对共同所有的财产，有平等的处理权。<br>
            第十二条 结婚时，夫妻双方可以去<%=webname%>公证处公证财产。结婚后没有公证的财产的，按夫妻双方财产各半处理。<br>
            第十三条 严禁婚姻财产转移<br>
            第十四条 夫妻对婚姻关系存续期间所得的财产按公证约定归各自所有的，夫或妻一方对外所负的债务，第三人知道该约定的，以夫 或妻一方所有的财产清偿。<br>
            第十五条 夫妻有互相扶养的义务。<br>
            一方不履行扶养义务时，需要扶养的一方，有要求对方付给扶养费的权利。<br>
            第十六条 夫妻有相互继承遗产的权利。<br> <br>
            第四章 离 婚<br>
            第十七条 男女双方自愿离婚的，准予离婚。双方必须申请离婚。双方同意，即为离婚成立。<br>
            第十八条 男女一方要求离婚的，也可直接向<%=webname%>法院提出离婚诉讼。<br>
            第十九条 离婚后，男女双方自愿恢复夫妻关系的，必须重新求婚。<br>
            第二十条 离婚时，夫妻的共同财产由双方协议处理；协议不成时，由<%=webname%>法院根据公证意见或者财产的具体情况，照顾女方权益的 
            原则判决。<br>
            第二十一条 离婚时，原为夫妻共同生活所负的债务，应当共同偿还。共同财产不足清偿的，或财产归各自所有的，由双方协议清偿 ；协议不成时，由<%=webname%>法院判决。<br>
            第二十二条 离婚时，如一方生活困难，另一方应从其住房等个人财产中给予适当帮助。具体办法由双方协议；协议不成时，由<%=webname%> 
            法院判决。<br>
            第二十三条 离婚时，一方隐藏、转移、变卖、毁损夫妻共同财产，或伪造债务企图侵占另一方财产的，分割夫妻共同财产时，对隐 藏、转移、变卖、毁损夫妻共同财产或伪造债务的一方，可以少分或不分。离婚后，另一方发现有上述行为的，可以向 
            <%=webname%>法院提起诉讼，请求再次分割夫妻共同财产。<br> <br>
            第六章 附 则<br>
            第二十四条 本法自2004年6月1日起施行。 </td>
          <td width="20" valign="top" background="Skins/Default/islove/111_r2_c4.gif">&nbsp;</td>
        </tr>
        <tr> 
          <td valign="top"><img src="Skins/Default/islove/111_r3_c1.gif" width="20" height="18"></td>
          <td height="18" valign="top" background="Skins/Default/islove/111_r3_c2.gif">&nbsp;</td>
          <td valign="top"><img src="Skins/Default/islove/111_r3_c4.gif" width="20" height="18"></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="28" align="center" valign="top" class="tablebody1">&nbsp;</td>
  </tr>
</table>			
<%
end sub

sub marcx()''发布操作
dim delid,FixID,ctrl
delid=replace(request("id"),"'","")
delid=replace(delid,";","")
delid=replace(delid,"--","")
delid=replace(delid,")","")
fixid=replace(delid,",","")
fixid=Trim(replace(fixid," ",""))
ctrl=trim(request("ctrl"))
if ctrl="" then
	Errmsg=Errmsg+"<br><li>搞什么？没有选择操作动作啊。"
	founderr=true
End If
If Not IsNumeric(fixid) Then
	Errmsg=Errmsg+"<br><li>错误的参数。"
	founderr=true
End If
if delid="" or isnull(delid) then
Errmsg=Errmsg+"<li>"+"错误的参数。"
Founderr=true
end if
if founderr=true then exit sub
if ctrl=3 then
conn.execute("update Ms_mylove set Checked=3 where checked<>1 and id in("&delid&")")
sucmsg=sucmsg+"<br>"+"<li>您已成功撤销所选定的记录。"
	call Mslove_suc()
elseif ctrl=4 then
conn.execute("update Ms_mylove set Checked=4 where Checked=1 and id in("&delid&")")
sucmsg=sucmsg+"<br>"+"<li>您已成功离婚。"
	call Mslove_suc()
elseif ctrl=5 then
conn.execute("update Ms_mylove set Checked=5 where Checked=1 and id in("&delid&")")
sucmsg=sucmsg+"<br>"+"<li>您已成功分手。"
	call Mslove_suc()
elseif ctrl=0 then
conn.execute("delete from Ms_mylove where checked<>1 and id in("&delid&")")
sucmsg=sucmsg+"<br>"+"<li>您已成功删除所选定的记录。"
	call Mslove_suc()
end if
end sub


sub jsctrl()''接收管理操作
dim delid,FixID,ctrl
delid=replace(request("id"),"'","")
delid=replace(delid,";","")
delid=replace(delid,"--","")
delid=replace(delid,")","")
fixid=replace(delid,",","")
fixid=Trim(replace(fixid," ",""))
ctrl=trim(request("ctrl"))
if ctrl="" then
	Errmsg=Errmsg+"<br><li>搞什么？没有选择操作动作啊。"
	founderr=true
End If
If Not IsNumeric(fixid) Then
	Errmsg=Errmsg+"<br><li>错误的参数。"
	founderr=true
End If
if delid="" or isnull(delid) then
Errmsg=Errmsg+"<li>"+"错误的参数。"
Founderr=true
end if
if founderr=true then exit sub
if ctrl=1 then
conn.execute("update Ms_mylove set Checked=1 where Checked=0 and id in("&delid&")")
sucmsg=sucmsg+"<br>"+"<li>您已成功接受对方要求。"
	call Mslove_suc()
elseif ctrl=2 then
conn.execute("update Ms_mylove set Checked=2 where Checked=0 and id in("&delid&")")
sucmsg=sucmsg+"<br>"+"<li>您已成功拒绝对方要求。"
	call Mslove_suc()
elseif ctrl=3 then
conn.execute("update Ms_mylove set Checked=3 where checked=1 and id in("&delid&")")
sucmsg=sucmsg+"<br>"+"<li>您已成功撤销所选定的记录。"
	call Mslove_suc()
elseif ctrl=4 then
conn.execute("update Ms_mylove set Checked=4 where Checked=1 and id in("&delid&")")
sucmsg=sucmsg+"<br>"+"<li>您已成功跟对方离婚。"
	call Mslove_suc()
elseif ctrl=5 then
conn.execute("update Ms_mylove set Checked=5 where Checked=1 and id in("&delid&")")
sucmsg=sucmsg+"<br>"+"<li>您已成功跟对方分手。"
	call Mslove_suc()
elseif ctrl=0 then
conn.execute("delete from Ms_mylove where id in("&delid&")")
sucmsg=sucmsg+"<br>"+"<li>您已成功删除所选定的记录。"
	call Mslove_suc()
end if
end sub
%>
</body>
</html>