<% '检查有几条新留言 dim newguest newguest = 0 IF myid > 0 THEN newguest = ForNewGuest(myid) END IF if newguest > 0 then Response.write "您有"&newguest&"条新消息
"& chr(13) end if Set objgbrs=Server.CreateObject("ADODB.Recordset") sql="select merry from users where id=" & myid objgbrs.open sql,conn,1,1 if objgbrs("merry")=0 then Call Error("晕哦，你都还没结婚呢！") end if id=Request("ids") Action=Request("Action") if Action<>"" then if id="" or IsNumeric(id)=False then Call Error("ID无效！
") end if if clng(id)=myid then Call Error("自己和自己离婚？") end if Set rs=Server.CreateObject("ADODB.Recordset") sqls="select merry from users where id=" & id rs.open sqls,conn,1,1 if rs.eof then Call Error("会员不存在！
") end if rs.close set rs=nothing set objgbrss=Server.CreateObject("ADODB.Recordset") ssql="select * from marry where [userid]=" & myid &" and [about]='J' and [op]=0" objgbrss.open ssql,conn,1,2 if not objgbrss.eof then Call Error("已经发送离婚了，请耐心等待！
") end if objgbrss.addnew objgbrss("userid")=MYID objgbrss("reuserid")=id objgbrss("about")="L" objgbrss.update objgbrss.close set objgbrss=nothing set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from [guest]",conn,1,2 rs.addnew rs("sid")=id rs("fid")=0 rs("fnr")="会员:" & myni& "ID:" & myid & "向你提出离婚，请到婚姻殿堂看看吧。" rs.update rs.close set rs=Nothing response.write "申请离婚成功!
" ELSE dim objgbrr,ssql set objgbrs=Server.CreateObject("ADODB.Recordset") ssql="select * from marry where [reuserid]=" & myid & " and [about]='L' and [op]=0 order by id desc" objgbrs.open ssql,conn,1,1 if not objgbrs.eof then Call Error("离婚已申请,系统将一个星期后自动解除你们的婚姻关系！") end if objgbrs.close set objgbrs=nothing Set objgbrs=Server.CreateObject("ADODB.Recordset") sql="select merry from users where id=" & myid objgbrs.open sql,conn,1,1 if objgbrs("merry")=0 then Call Error("晕哦，你都还没结婚呢！") end if dim username set rs1=Server.CreateObject("ADODB.Recordset") rs1.open"select name from Users where id="&objgbrs("merry"),conn,1,1 if rs1.eof then Call Error("会员不存在！
") end if username=rs1("name") rs1.close set rs1=nothing Response.write "你确定要申请离婚吗？
" Response.write "你当前的配偶:
" Response.write "配偶ID:"&objgbrs("merry")&"
" Response.write "配偶昵称:"& username &"
" Response.write "确认离婚" Response.write "" Response.write "" Response.write "" objgbrs.close set objgbrs=nothing END IF conn.close set conn=nothing response.write "
---------" response.write "
婚姻殿堂" response.write "
我的空间" response.write "
社区首页" response.write "