<!--#include file="../Inc.asp"-->
<!--#include file="../ydzq1.asp"-->

<%

call head()
Call saycardd("婚姻殿堂")
%>

<!--#include file="../sy1.asp"-->
<img src='jh.gif' alt='.'/><br/>
<%

if myid<>0 then
mz="[url=/bbs/uinfo.asp?id="&myid&"&amp;sid=[sid]]"&myni&"[/url]"
else
mz="游客"
end if
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"进入了(url=/bbs/marry/?[标识])婚姻殿堂(/url)')")
'检查有几条新留言


  if request("action")="del" then
  conn.Execute("delete from marry Where userid=" & myid)
  response.write "取消求婚成功！"
response.write "<br/><a href=""index.asp?sid="&sid&"&amp;saytk="&saytk&""">返回</a><br/>"
response.write "</p></card></wml>"
response.end
  end if
  set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select reuserid from marry where [userid]=" & myid & " and [about]='J' and [op]=0 order by id desc",conn,1,1
if not rs.eof then
response.write "您已向ID"&rs("reuserid")&"求婚了，请给些耐性等待一下吧。相信对方会被你感动的！上帝也会祝福你的！"
response.write "<br/><a href=""index.asp?action=del&amp;sid="&sid&"&amp;saytk="&saytk&""">取消求婚</a><br/>"
  end if
rs.close
set rs=nothing

  set objgbrs1=Server.CreateObject("ADODB.Recordset")
  ssql1="select * from marry where [reuserid]=" & myid & " and [op]=0 order by id desc"
  objgbrs1.open ssql1,conn,1,1
    if objgbrs1.eof then
Response.write "请问您要办什么事务？结婚需要至少9朵玫瑰和999块钱哦<br/>"
	elseif objgbrs1("about")="J" then
Response.write "*<a href=""marrylist.asp?sid="&sid&"&amp;saytk="&saytk&""">YEAR!有人向我求婚了</a><br/>---------<br/>"
	elseif objgbrs1("about")="L" then

Response.write "*<a href=""marrynok.asp?sid="&sid&"&amp;saytk="&saytk&""">你的另一半要求离婚哦</a><br/>"
     end if

Function CreatedTextFiles(FileName,body)
'On Error Resume Next
If InStr(FileName, ":") = 0 Then FileName = Server.MapPath(FileName)
	Dim oStream
	Set oStream = CreateObject("ADODB.Stream")
	oStream.Type = 2 
	oStream.Mode = 3 
	oStream.Charset = "GB2312"
	oStream.Open
	oStream.Position = oStream.Size
	oStream.WriteText body
	oStream.SaveToFile FileName, 2
	oStream.Close
	Set oStream = Nothing
	If Err.Number <> 0 Then Err.Clear
	End Function
'================================================

dim cont_file,path_File
if myid = 0 then
path_File= Server.MapPath("/index.inc")
cont_file="游客刚刚去了[url=/bbs/marry/index.asp?sid=@@sid@@]婚姻殿堂[/url]"
Call CreatedTextFiles(path_File,cont_file)
else
path_File= Server.MapPath("/index.inc")
cont_file="[url=/bbs/uinfo.asp?sid=@@sid@@&id="&myid&"]"&myni&"[/url]去了[url=/bbs/marry/index.asp?sid=@@sid@@]婚姻殿堂[/url]"
Call CreatedTextFiles(path_File,cont_file)
end if
Response.write "<a href=""marry.asp?sid="&sid&"&amp;saytk="&saytk&""">征婚招亲</a><br/>"
Response.write "<a href=""marry.asp?sid="&sid&"&amp;saytk="&saytk&""">登记结婚</a><br/>"
Response.write "<a href=""marryno.asp?sid="&sid&"&amp;saytk="&saytk&""">我要离婚</a><br/>"
Response.write "<a href=""marryjie.asp?sid="&sid&"&amp;saytk="&saytk&""">正在登记</a><br/>"
Response.write "<a href=""marryli.asp?sid="&sid&"&amp;saytk="&saytk&""">正在离婚</a>"
objgbrs1.close
set objgbrs1=nothing
conn.close
set conn=nothing
response.write "<br/>---------"
%><!--#include file="../fanhui.asp"-->
<%
call headsay()
%>
