<% '检查有几条新留言 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 if rs("merry")<>0 then Call Error("呵呵，人家都已经结婚了，你来迟啰！") end if rs.close set rs=nothing set rss=Server.CreateObject("ADODB.Recordset") ssqll="select * from marry where [reuserid]=" & myid &" and [userid]=" & id & " and [about]='J' and [op]=0 order by id desc" rss.open ssqll,conn,1,2 if not rss.eof then Call Error("人家已经向你求婚了，你们两情相悦啊！
") end if rss.close set rss=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")="J" 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 [userid]=" & myid & " and [about]='J' and [op]=0 order by id desc" objgbrs.open ssql,conn,1,1 if not objgbrs.eof then Call Error("你已经登记过了，请给些耐性等待一下吧。相信对方会被你感动的！上帝也会祝福你的！") end if Response.write "请输入求婚对象的会员ID号，别弄错了哦，呵呵。
" Response.write "" 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 "