<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<%
 '=========================================================
' File: usermarry.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("征婚信息","usermarry.asp")
call tumppages()'翻页处理
strFileName="usermarry.asp?"
Select Case Trim(Request("action"))
	Case "add"
		Stats="发布征婚"
		Call add()
	Case "addsave"
		Stats="保存征婚"
		Call addsave()
	Case "edit"
		Stats="修改征婚"
		Call edit()
	Case "editsave"
		Stats="保存修改"
		Call editsave()
	Case "dele"
		Stats="删除记录"
		Call deldata()
End Select
if founderr then call Mslove_error()
end if
call activeonline()
call footer()

sub add()
dim yousend
sql="select MID from [Ms_Marry] where Username='"&trim(membername)&"'"
set rs=conn.execute(sql)
if not (rs.eof and rs.bof) then
yousend=1
else
yousend=0
end if
rs.close
if yousend=1 then
	ErrMsg=ErrMsg+"<Br>"+"<li>对不起，你已经发布征婚信息，请不要三心二意。"
   	FoundErr=True
end if
if Not ChkPost then'查检提交数据
	ErrMsg=ErrMsg+"<Br>"+"<li>您提交的数据不合法，请不要从外部提交发言。"
   	FoundErr=True
end if
if FoundErr=True then exit sub
%>
<script language="JavaScript" src="inc/Mymodify.js"></script>
<table width="100%" align=center cellpadding=3 cellspacing=1 class=tableborder1>
  <form action="?action=addsave" method=POST name="theForm">
    <tr> 
      <th height="28" colspan="2" align="center"  class=tablebody1>发布征婚信息</th>
    </tr>
    <tr align="center"> 
      <td height="27" colspan="2"  class=tablebody2>择偶条件</td>
    </tr>
    <tr> 
      <td width="31%" align="right"  class=tablebody1>年　　龄：</td>
      <td width="69%"  class=tablebody1><select name="Minage" class="put" id="select">
          <option value="16">16 </option>
          <option value="17">17 </option>
          <option value="18" selected>18 </option>
          <option value="19">19 </option>
          <option value="20">20 </option>
          <option value="21">21 </option>
          <option value="22">22 </option>
          <option value="23">23 </option>
          <option value="24">24 </option>
          <option value="25">25 </option>
          <option value="26">26 </option>
          <option value="27">27 </option>
          <option value="28">28 </option>
          <option value="29">29 </option>
          <option value="30">30 </option>
          <option value="31">31 </option>
          <option value="32">32 </option>
          <option value="33">33 </option>
          <option value="34">34 </option>
          <option value="35">35 </option>
          <option value="36">36 </option>
          <option value="37">37 </option>
          <option value="38">38 </option>
          <option value="39">39 </option>
          <option value="40">40 </option>
          <option value="41">41 </option>
          <option value="42">42 </option>
          <option value="43">43 </option>
          <option value="44">44 </option>
          <option value="45">45 </option>
          <option value="46">46 </option>
          <option value="47">47 </option>
          <option value="48">48 </option>
          <option value="49">49 </option>
          <option value="50">50 </option>
          <option value="51">51 </option>
          <option value="52">52 </option>
          <option value="53">53 </option>
          <option value="54">54 </option>
          <option value="55">55 </option>
          <option value="56">56 </option>
          <option value="57">57 </option>
          <option value="58">58 </option>
          <option value="59">59 </option>
          <option value="60">60 </option>
        </select>
        到 
        <select name="Maxage" class="put" id="select">
          <option value="16">16 </option>
          <option value="17">17 </option>
          <option value="18">18 </option>
          <option value="19">19 </option>
          <option value="20">20 </option>
          <option value="21">21 </option>
          <option value="22">22 </option>
          <option value="23">23 </option>
          <option value="24">24 </option>
          <option value="25">25 </option>
          <option value="26" selected>26 </option>
          <option value="27">27 </option>
          <option value="28">28 </option>
          <option value="29">29 </option>
          <option value="30">30 </option>
          <option value="31">31 </option>
          <option value="32">32 </option>
          <option value="33">33 </option>
          <option value="34">34 </option>
          <option value="35">35 </option>
          <option value="36">36 </option>
          <option value="37">37 </option>
          <option value="38">38 </option>
          <option value="39">39 </option>
          <option value="40">40 </option>
          <option value="41">41 </option>
          <option value="42">42 </option>
          <option value="43">43 </option>
          <option value="44">44 </option>
          <option value="45">45 </option>
          <option value="46">46 </option>
          <option value="47">47 </option>
          <option value="48">48 </option>
          <option value="49">49 </option>
          <option value="50">50 </option>
          <option value="51">51 </option>
          <option value="52">52 </option>
          <option value="53">53 </option>
          <option value="54">54 </option>
          <option value="55">55 </option>
          <option value="56">56 </option>
          <option value="57">57 </option>
          <option value="58">58 </option>
          <option value="59">59 </option>
          <option value="60">60 </option>
        </select>
        岁</td>
    </tr>
	<%if Cint(Codeshow(11))=1 then%>
    <tr>
      <td width="31%" align="right"  class=tablebody1>验 证 码：</td>
      <td  class=tablebody1><input type="text" name="codestr" maxlength="4" size="4">&nbsp;<%=GetCode()%></td>
    </tr>
	<%end if%>
    <tr> 
      <td align="right"  class=tablebody1>身　　高：</td>
      <td  class=tablebody1><select size="1" name="height">
          <option value=无所谓>--无所谓--</option>
          <option value=150厘米以下>150厘米以下</option>
          <option value=151-160厘米>151-160厘米</option>
          <option VALUE=161-170厘米 selected>161-170厘米</option>
          <option value=171-175厘米>171-175厘米</option>
          <option value=176-180厘米>176-180厘米</option>
          <option value=181-185厘米>181-185厘米</option>
          <option value=186-190厘米>186-190厘米</option>
          <option value=191-195厘米>191-195厘米</option>
          <option value=196厘米以上>196厘米以上</option>
        </select></td>
    </tr>
    <tr> 
      <td align="right"  class=tablebody1>婚姻状况：</td>
      <td  class=tablebody1> <input name="marital" type="checkbox" id="marital" value="未婚">
        未婚 
        <input name="marital" type="checkbox" id="marital" value="已婚">
        已婚 
        <input name="marital" type="checkbox" id="marital" value="离异">
        离异 
        <input name="marital" type="checkbox" id="marital" value="丧偶">
        丧偶</td>
    </tr>
    <tr> 
      <td align="right"  class=tablebody1>收入水平：</td>
      <td align="left"  class=tablebody1><select name=income>
          <option value=不限制 selected>不限制</option>
          <option value=1000以下>1000以下</option>
          <option value=1000-2000>1000-2000</option>
          <option value=2000-3000>2000-3000</option>
          <option value=3000-4000>3000-4000</option>
          <option value=4000-5000>4000-5000</option>
          <option value=5000-6000>5000-6000</option>
          <option value=6000-7000>6000-7000</option>
          <option value=7000-10000>7000-10000</option>
          <option value=10000以上>10000以上</option>
        </select>
        元</td>
    </tr>
    <tr> 
      <td align="right"  class=tablebody1>学　　历：</td>
      <td align="left"  class=tablebody1><select size=1 name=education>
          <option value=不要求 selected>不要求</option>
          <option value=小学>小学</option>
          <option value=初中>初中</option>
          <option value=高中>高中</option>
          <option value=中专>中专</option>
          <option value=大专>大专</option>
          <option value=大学>大学</option>
          <option value=硕士>硕士</option>
          <option value=博士>博士</option>
          <option value=其它>其它</option>
        </select></td>
    </tr>
    <tr> 
      <td align="right"  class=tablebody1>所在地区：</td>
      <td align="left"  class=tablebody1><input type=text name=province size=12> 
        <select name="selectp" onChange="selectcityarea('selectp','selectc','theForm');theForm.province.value=this.value;">
          <option value="0" selected>请选择..</option>
        </select> </td>
    </tr>
    <tr> 
      <td align="right"  class=tablebody1>城　　市：</td>
      <td align="left"  class=tablebody1><input type=text name=city size=12> <select name="selectc" onChange="theForm.city.value=this.value;">
          <option value="0" selected>请选择..</option>
        </select></td>
    </tr>
    <tr> 
      <td align="right"  class=tablebody1>爱情寄语：</td>
      <td align="left"  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>
        不能大于200个字符。</td>
    </tr>
    <tr align="center"> 
      <td height="25" colspan="2"  class=tablebody1> <input class=2 type=Submit value="保存" name=Submit> 
        &nbsp; <input class=2 type="reset" name="Clear" value="清除"></td>
    </tr>
    <tr> 
      <td colspan="2" align="left"  class=tablebody1> <p><font color="#FF0000">注意：</font><br>
          　　1、您的征婚材料请到<a href="modifyfd.asp" target="_blank">交友资料</a>中修改，然后在这里只提交征婚对象的条件。<br>
          　　2、请认真填写择友要求，不要在此输入一些与征婚/征友无关的信息，征婚/征友信息请务必详细填写，以达到自我宣传的最好效果。</p></td>
    </tr>
  </form>
</table>

<%end sub

sub addsave()''保存提交数据
if Not ChkPost then'查检提交数据
	ErrMsg=ErrMsg+"<Br>"+"<li>您提交的数据不合法，请不要从外部提交发言。"
   	FoundErr=True
end if
if Cint(Codeshow(11))=1 then
	if Not CodeIsTrue() then
		errmsg=errmsg+"<br>"+"<li>验证码校验失败，请返回刷新页面后再输入验证码。"
		founderr=true
	end if
end if
if GroupSetting(196)=0 then
	ErrMsg=ErrMsg+"<Br>"+"<li>对不起，你没有权限发布征婚信息，请升级为VIP会员。"
   	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
dim Marinfo,Marage
if Request.Form("Minage")<Request.Form("Maxage") then
Marage=checkStr(Request.Form("Minage"))&"|||"&checkStr(Request.Form("Maxage"))
else
Marage=checkStr(Request.Form("Maxage"))&"|||"&checkStr(Request.Form("Minage"))
end if
if Request.Form("province")="" then
		errmsg=errmsg+"<br>"+"<li>请选择择偶对象所在省份！"
		founderr=true
end if
if Request.Form("city")="" then
		errmsg=errmsg+"<br>"+"<li>请选择择偶对象所在城市！"
		founderr=true
end if
if checkStr(Request.Form("Content"))="" or strLength(Request.Form("Content"))>200 then
		errmsg=errmsg+"<br>"+"<li>爱情寄语不为空长度不大于200个字符"
		founderr=true
end if
if founderr=true then exit sub
Marinfo=Marage&"|||"&checkStr(Request.Form("height"))&"|||"&checkStr(Request.Form("marital"))&"|||"&checkStr(Request.Form("income"))&"|||"&checkStr(Request.Form("education"))&"|||"&checkStr(Request.Form("province"))&"|||"&checkStr(Request.Form("city"))&"|||"&checkreal(checkStr(Request.Form("Content")))
set rs=server.createobject("adodb.recordset")''保存入库
sql="select * from [Ms_Marry] where Username='"&trim(membername)&"'"
rs.open sql,conn,1,3
if not (rs.eof and rs.bof) then
		errmsg=errmsg+"<br>"+"<li>您已发布征婚信息，请不要重复发布！"
		founderr=true
		exit sub
else
rs.addnew
rs("Username")=trim(membername)
rs("Marinfo")=Marinfo
rs("Addtime")=Now()
if Myvip>1 then
rs("Checked")=1
end if
rs.update
rs.close
conn.execute("update Ms_setup set Marrynum=Marrynum+1 where Cid=1")
sucmsg=sucmsg+"<br>"+"<li><b>恭喜您，您已成功发布征婚信息。</b>"
call Mslove_suc()
end if
end sub

sub edit()
dim Marinfo,id
id=checkStr(Request("id"))
if id="" or isnumeric(id)=false then
	ErrMsg=ErrMsg+"<Br>"+"<li>您没有修改权限，请与管理员联系。"
   	FoundErr=True
end if
if founderr=true then exit sub
set rs=server.createobject("adodb.recordset")''保存入库
if Supermaster or master or Standmaster then
sql="select Marinfo from [Ms_Marry] where MID="&id&""
else
sql="select Marinfo from [Ms_Marry] where username='"&trim(membername)&"' and MID="&id&""
end if
rs.open sql,conn,1,1
if not (rs.eof and rs.bof) then
Marinfo=rs("Marinfo")
Marinfo=split(Marinfo,"|||")%>
<table width="100%" align=center cellpadding=3 cellspacing=1 class=tableborder1>
  <form action="usermarry.asp?action=editsave" method=POST name="theForm">
    <INPUT type=hidden value=<%=id%> name=id>
    <tr> 
      <th height="28" colspan="2" align="center"  class=tablebody1>修改征婚信息</th>
    </tr>
    <tr align="center"> 
      <td height="23" colspan="2"  class=tablebody2>择偶条件</td>
    </tr>
    <tr> 
      <td width="31%" align="right"  class=tablebody1>年　　龄：</td>
      <td width="69%"  class=tablebody1><select name="Minage" class="put" id="select">
	  <option value="<%=Marinfo(0)%>" selected><%=Marinfo(0)%></option>
          <option value="16">16 </option>
          <option value="17">17 </option>
          <option value="18">18 </option>
          <option value="19">19 </option>
          <option value="20">20 </option>
          <option value="21">21 </option>
          <option value="22">22 </option>
          <option value="23">23 </option>
          <option value="24">24 </option>
          <option value="25">25 </option>
          <option value="26">26 </option>
          <option value="27">27 </option>
          <option value="28">28 </option>
          <option value="29">29 </option>
          <option value="30">30 </option>
          <option value="31">31 </option>
          <option value="32">32 </option>
          <option value="33">33 </option>
          <option value="34">34 </option>
          <option value="35">35 </option>
          <option value="36">36 </option>
          <option value="37">37 </option>
          <option value="38">38 </option>
          <option value="39">39 </option>
          <option value="40">40 </option>
          <option value="41">41 </option>
          <option value="42">42 </option>
          <option value="43">43 </option>
          <option value="44">44 </option>
          <option value="45">45 </option>
          <option value="46">46 </option>
          <option value="47">47 </option>
          <option value="48">48 </option>
          <option value="49">49 </option>
          <option value="50">50 </option>
          <option value="51">51 </option>
          <option value="52">52 </option>
          <option value="53">53 </option>
          <option value="54">54 </option>
          <option value="55">55 </option>
          <option value="56">56 </option>
          <option value="57">57 </option>
          <option value="58">58 </option>
          <option value="59">59 </option>
          <option value="60">60 </option>
        </select>
        到 
        <select name="Maxage" class="put" id="select">
		<option value="<%=Marinfo(1)%>" selected><%=Marinfo(1)%></option>
          <option value="16">16 </option>
          <option value="17">17 </option>
          <option value="18">18 </option>
          <option value="19">19 </option>
          <option value="20">20 </option>
          <option value="21">21 </option>
          <option value="22">22 </option>
          <option value="23">23 </option>
          <option value="24">24 </option>
          <option value="25">25 </option>
          <option value="26">26 </option>
          <option value="27">27 </option>
          <option value="28">28 </option>
          <option value="29">29 </option>
          <option value="30">30 </option>
          <option value="31">31 </option>
          <option value="32">32 </option>
          <option value="33">33 </option>
          <option value="34">34 </option>
          <option value="35">35 </option>
          <option value="36">36 </option>
          <option value="37">37 </option>
          <option value="38">38 </option>
          <option value="39">39 </option>
          <option value="40">40 </option>
          <option value="41">41 </option>
          <option value="42">42 </option>
          <option value="43">43 </option>
          <option value="44">44 </option>
          <option value="45">45 </option>
          <option value="46">46 </option>
          <option value="47">47 </option>
          <option value="48">48 </option>
          <option value="49">49 </option>
          <option value="50">50 </option>
          <option value="51">51 </option>
          <option value="52">52 </option>
          <option value="53">53 </option>
          <option value="54">54 </option>
          <option value="55">55 </option>
          <option value="56">56 </option>
          <option value="57">57 </option>
          <option value="58">58 </option>
          <option value="59">59 </option>
          <option value="60">60 </option>
        </select>
        岁</td>
    </tr>
	<%if Cint(Codeshow(11))=1 then%>
    <tr>
      <td width="31%" align="right"  class=tablebody1>验 证 码：</td>
      <td  class=tablebody1><input type="text" name="codestr" maxlength="4" size="4">&nbsp;<%=GetCode()%></td>
    </tr>
	<%end if%>
    <tr> 
      <td align="right"  class=tablebody1>身　　高：</td>
      <td  class=tablebody1><select size="1" name="height">
	  <option VALUE=<%=Marinfo(2)%> selected><%=Marinfo(2)%></option>
          <option value=无所谓>--无所谓--</option>
          <option value=150厘米以下>150厘米以下</option>
          <option value=151-160厘米>151-160厘米</option>
          <option VALUE=161-170厘米>161-170厘米</option>
          <option value=171-175厘米>171-175厘米</option>
          <option value=176-180厘米>176-180厘米</option>
          <option value=181-185厘米>181-185厘米</option>
          <option value=186-190厘米>186-190厘米</option>
          <option value=191-195厘米>191-195厘米</option>
          <option value=196厘米以上>196厘米以上</option>
        </select></td>
    </tr>
	<%dim theKidney,KidneyType
	KidneyType="未婚,已婚,离异,丧偶"
	theKidney=split(KidneyType, ",")%>
    <tr> 
      <td align="right"  class=tablebody1>婚姻状况：</td>
      <td  class=tablebody1>
		<%for i = 0 to ubound(theKidney)	
	   response.write "<input type=""checkbox"" name=""marital"" value="""&trim(theKidney(i))&""" "
	 
	       if instr(Marinfo(3),trim(theKidney(i)))>0 then '如果有此项性格
		   response.write "checked" 
		   end if
	  
	   response.write ">"&trim(theKidney(i))&" "
	   if ((i+1) mod 5)=0 then response.write "<br>"  '每行显示六个性格进行换行
	   next   
  %></td>
    </tr>
    <tr> 
      <td align="right"  class=tablebody1>收入水平：</td>
      <td align="left"  class=tablebody1><select name=income>
	  <option value=<%=Marinfo(4)%> selected><%=Marinfo(4)%></option>
          <option value=不限制>不限制</option>
          <option value=1000以下>1000以下</option>
          <option value=1000-2000>1000-2000</option>
          <option value=2000-3000>2000-3000</option>
          <option value=3000-4000>3000-4000</option>
          <option value=4000-5000>4000-5000</option>
          <option value=5000-6000>5000-6000</option>
          <option value=6000-7000>6000-7000</option>
          <option value=7000-10000>7000-10000</option>
          <option value=10000以上>10000以上</option>
        </select>
        元</td>
    </tr>
    <tr> 
      <td align="right"  class=tablebody1>学　　历：</td>
      <td align="left"  class=tablebody1><select size=1 name=education>
	  <option value=<%=Marinfo(5)%> selected><%=Marinfo(5)%></option>
          <option value=不要求>不要求</option>
          <option value=小学>小学</option>
          <option value=初中>初中</option>
          <option value=高中>高中</option>
          <option value=中专>中专</option>
          <option value=大专>大专</option>
          <option value=大学>大学</option>
          <option value=硕士>硕士</option>
          <option value=博士>博士</option>
          <option value=其它>其它</option>
        </select></td>
    </tr>
    <tr> 
      <td align="right"  class=tablebody1>所在地区：</td>
      <td align="left"  class=tablebody1><input type=text name=province size=12 value="<%=Marinfo(6)%>"> 
        <select name="selectp" onChange="selectcityarea('selectp','selectc','theForm');theForm.province.value=this.value;">
          <option value="0" selected>请选择..</option>
        </select> </td>
    </tr>
    <tr> 
      <td align="right"  class=tablebody1>城　　市：</td>
      <td align="left"  class=tablebody1><input type=text name=city size=12 value="<%=Marinfo(7)%>"> <select name="selectc" onChange="theForm.city.value=this.value;">
          <option value="0" selected>请选择..</option>
        </select></td>
    </tr>
    <tr> 
      <td align="right"  class=tablebody1>爱情寄语：</td>
      <td align="left"  class=tablebody1><textarea name="Content" cols="60" rows="5" id="IDContent"><%=Marinfo(8)%></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>
        不能大于200个字符。</td>
    </tr>
    <tr align="center"> 
      <td height="25" colspan="2"  class=tablebody1> <input class=2 type=Submit value="保存" name=Submit> 
        &nbsp; <input class=2 type="reset" name="Clear" value="清除"></td>
    </tr>
    <tr> 
      <td colspan="2" align="left"  class=tablebody1> <p><font color="#FF0000">注意：</font><br>
          　　1、您的征婚材料请到<a href="modifyfd.asp" target="_blank">交友资料</a>中修改，然后在这里只提交征婚对象的条件。<br>
          　　2、请认真填写择友要求，不要在此输入一些与征婚/征友无关的信息，征婚/征友信息请务必详细填写，以达到自我宣传的最好效果。</p></td>
    </tr>
  </form>
</table>
<%end if
rs.close
end sub

sub editsave()''
if Not ChkPost then'查检提交数据
	ErrMsg=ErrMsg+"<Br>"+"<li>您提交的数据不合法，请不要从外部提交发言。"
   	FoundErr=True
end if
if Cint(Codeshow(11))=1 then
	if Not CodeIsTrue() then
		errmsg=errmsg+"<br>"+"<li>验证码校验失败，请返回刷新页面后再输入验证码。"
		founderr=true
	end if
end if
dim Marinfo,Marage,id
id=checkStr(Request("id"))
if id="" or isnumeric(id)=false then
	ErrMsg=ErrMsg+"<Br>"+"<li>参数错误，请与管理员联系。"
   	FoundErr=True
end if
if Request.Form("Minage")<Request.Form("Maxage") then
Marage=checkStr(Request.Form("Minage"))&"|||"&checkStr(Request.Form("Maxage"))
else
Marage=checkStr(Request.Form("Maxage"))&"|||"&checkStr(Request.Form("Minage"))
end if
if Request.Form("province")="" then
		errmsg=errmsg+"<br>"+"<li>请选择择偶对象所在省份！"
		founderr=true
end if
if Request.Form("city")="" then
		errmsg=errmsg+"<br>"+"<li>请选择择偶对象所在城市！"
		founderr=true
end if
if checkStr(Request.Form("Content"))="" or strLength(Request.Form("Content"))>200 then
		errmsg=errmsg+"<br>"+"<li>爱情寄语不为空长度不大于200个字符"
		founderr=true
end if
if founderr=true then exit sub
Marinfo=Marage&"|||"&checkStr(Request.Form("height"))&"|||"&checkStr(Request.Form("marital"))&"|||"&checkStr(Request.Form("income"))&"|||"&checkStr(Request.Form("education"))&"|||"&checkStr(Request.Form("province"))&"|||"&checkStr(Request.Form("city"))&"|||"&checkreal(checkStr(Request.Form("Content")))
set rs=server.createobject("adodb.recordset")''保存入库
sql="select Marinfo from [Ms_Marry] where Mid="&id&""
rs.open sql,conn,1,3
if not (rs.eof and rs.bof) then
rs("Marinfo")=Marinfo
if Myvip>1 then
rs("Checked")=1
end if
rs.update
rs.close
sucmsg=sucmsg+"<br>"+"<li><b>恭喜您，您已成功修改征婚信息。</b>"
call Mslove_suc()
else
		errmsg=errmsg+"<br>"+"<li>对不起没有找到该记录"
		founderr=true
		exit sub
end if
end sub

sub deldata()'删除记录
dim id
id=checkStr(Request("id"))
if id="" or isnumeric(id)=false then
	ErrMsg=ErrMsg+"<Br>"+"<li>参数错误，请与管理员联系。"
   	FoundErr=True
end if
if FoundErr=True then exit sub
if Supermaster or master or Standmaster then
conn.execute("delete from Ms_Marry where MID="&id&"")
else
conn.execute("delete from Ms_Marry where Username='"&trim(membername)&"' and MID="&id&"")
end if
sucmsg=sucmsg+"<br>"+"<li>您已成功删除记录。"
	call Mslove_suc()
end sub
%>   
<script>
first("selectp","selectc","theForm",0,0);
</script>
</body>
</html> 
<%function checkreal(v)
dim w
if not isnull(v) then
	w=replace(v,"|||","§§§")
	checkreal=w
end if
end function%>