request.asp

宁波娱乐在线城市,丰富的内容版块

<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="../tools.asp"-->
<!--#include file="../inc/conn2.asp"-->
<Script language="javascript">
window.resizeTo(screen.availWidth,screen.availHeight); 
</script>
<% 
ID = trim(request("ID"))
if Request.Cookies("NC")="" or Request.Cookies("NC")="访客" then
		Response.Write("对不起，您不是社区用户，请先注册！")
        Response.End
end if%>


<%
if ID="" then
%>
<script language="VBScript">
  MsgBox "您好像忘记要向谁求婚了！*^^*"
  history.back()
</script>
<%
else

UserName = Request.Cookies("NC")

set User = Server.CreateObject("ADODB.RecordSet")
User.Open "Select * From HY Where NC='" & ID & "'",conn,0,1
set iUser = Server.CreateObject("ADODB.RecordSet")
iUser.Open "Select * From HY Where NC='" & UserName & "'",conn,0,1

if user.eof then
%>
<script language="VBScript">
  MsgBox "好像没有这个人哦！是不是写错名字了？"
  history.back()
</script>
<%
elseif User("XB")=iUser("XB") then
%>
<script language="VBScript">
  MsgBox "都说不要搞同性恋咯！不行、不行！"
  history.back()
</script>
<%
elseif User("HaveMarry") or iUser("HaveMarry") then
%>
<script language="VBScript">
  MsgBox "有没有搞错？我们不给重婚的！不可以结几次婚的！"
  history.back()
</script>
<%
else
sql = "Insert Into Church(Zhui,BZhui) Values('"
sql = sql & UserName & "','" & ID & "')"
conn.Execute(sql)

sql = "Insert Into LY (NC,ID,NR,ZT,SJ,LB) Values('"
sql = sql & ID & "',"&Request.Cookies("ID")&",'"& UserName & "向你求婚！更详细的资料请到婚证处查询" & "',0,'"&ConvertDateTime(Now())&"',0)"
conn.Execute(sql)
%>
<script language="VBScript">
  MsgBox "已经帮你求婚了！耐心一点等待答复吧！祝你成功！：）"
  window.parent.location.replace("CHURCH.ASP")
</script>
<%
end if

User.close
Set User = Nothing
iUser.close
Set iUser = Nothing
conn.close
Set conn = Nothing

end if
%>