📄 church.asp
字号:
<!-- #include file = "../BBSLib.asp" -->
<!--#include file="../inc/conn2.asp"-->
<Script language="javascript">
window.resizeTo(screen.availWidth,screen.availHeight);
</script>
<%
if Request.Cookies("NC")="" or Request.Cookies("NC")="访客" then
Response.Write("对不起，您不是社区用户，请先注册！")
Response.End
end if%>
<%
UserName = Request.Cookies("NC")
if (UCase(Request.Cookies("NC")) = UCase(Application("NC"))) then
conn.Execute("delete from Church where Time < DATEADD('d',-30,'"&ConvertDateTime(now())&"')")
end if
set Zhui = Server.CreateObject("ADODB.RecordSet")
Zhui.open "Select * From Church Where Zhui='" & UserName & "'",conn,0,1
set BZhui = Server.CreateObject("ADODB.RecordSet")
BZhui.open "Select * From Church Where BZhui='" & UserName & "'",conn,0,1
set User = Server.CreateObject("ADODB.RecordSet")
User.open "Select * From HY Where NC='" & UserName & "'",conn,0,1
%>
<html>
<head>
<title>婚证处</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="style.css">
<script ID="clientEventHandlersJS" LANGUAGE="javascript">
<!--
function ShowGRZL(nc) {
l = screen.width/2-500/2;
t = screen.height/2-250/2;
window.open('../grzl.asp?NC='+nc,'fGRZL','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=500,height=250,left='+l+',top='+t);
}//-->
</script>
</head>
<body bgcolor="#FFFEF4" >
<table width="85%" border="1" cellspacing="0" cellpadding="10" align="center" bordercolordark="#FFFFFF" bordercolorlight="#000000">
<tr bgcolor="#FFFAE1">
<td bgcolor="#FFFAE1"><br><font color=red>说明：<br>
1、双方结婚后，可使双方经验、魅力各加250点，房屋变为可共享物品。<br><br>
2、离婚必须经双方同意后方可执行，可以通过发帖或向管理员留言申请离婚；<br>
离婚后，双方经验、魅力各减400点，房屋自动脱离关系，望深思！</font><br><br></td>
</tr>
</table>
<table width="85%" border="1" cellspacing="0" cellpadding="0" align="center" bordercolordark="#FFFFFF" bordercolorlight="#000000">
<tr bgcolor="#FFFAE1" align="center">
<td width="70%" bgcolor="#FFFAE1"><b>婚姻介绍所</b></td>
<td>您的伴侣：<% if User("HaveMarry") then%> <a href="javascript:ShowGRZL('<%=User("MarryWith")%>')"><%=User("MarryWith")%></a>
<%else%>无<%end if%></td>
</tr>
</table>
<table width="85%" border="1" cellspacing="0" cellpadding="5" align="center" bordercolordark="#FFFFFF" bordercolorlight="#000000">
<tr align="center">
<td width="50%">你正在追求的人</td>
<td width="50%">正在追求你的人</td>
</tr>
<tr align="center">
<td valign="top" width="50%">
<%
if not Zhui.eof then
do while not Zhui.eof
%>
<%=Zhui("BZhui")%>
<a href="request_del.asp?id=<%=Zhui("BZhui")%>">停止追求</a><br>
<%
Zhui.MoveNext
Loop
Else%>
<b>你没有追求别人！</b>
<%End if%>
</td>
<td valign="top" width="50%">
<%
if not BZhui.eof then
do while not BZhui.eof%>
<%=BZhui("Zhui")%>
<a href="request_refuse.asp?id=<%=BZhui("Zhui")%>">拒绝</a>
<a href="request_accept.asp?id=<%=BZhui("Zhui")%>">同意</a><br>
<%
BZhui.MoveNext
Loop
Else%>
<b>没有人追求你！</b>
<%End if%>
</td>
</tr>
</table>
<p align="center"><a href="marry_new.asp">最新结婚的人</a> <a href="marry_request.asp">求婚记录</a><%=IIF(UCase(Application("NC")) = UCase(Request.Cookies("NC"))," <a href=UNCHURCH.ASP>办理离婚</a>","")%></p>
<%if User("XB")=2 then%>
<%else%>
<form method="post" action="request.asp">
<table width="85%" border="1" cellspacing="0" cellpadding="0" align="center" bordercolordark="#FFFFFF" bordercolorlight="#000000">
<tr align="center">
<td>我要求婚！我要向
<input type="text" name="ID" size="16">
<input type="submit" name="Submit" value="求婚">
！<br>
<font color="#FF0000">（请在上面输入您想要求婚对象的 ID，注意，我们现在不支持同性恋的求婚！）</font></td>
</tr>
</table>
</form>
<%end if%>
</body>
</html>
<%
Zhui.close
Set Zhui = Nothing
BZhui.close
Set BZhui = Nothing
User.close
Set User = Nothing
conn.close
Set conn = Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -