unrequest.asp

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

<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="../tools.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%>

<%
ID1 = trim(request("ID1"))
ID2 = trim(request("ID2"))

if ID1="" or ID2="" then
%>
<script language="VBScript">
  MsgBox "您好像忘记要办理谁的离婚手续了！*^^*"
  history.back()
</script>
<%
else

set rs1 = Server.CreateObject("ADODB.RecordSet")
rs1.Open "Select * From HY Where NC='" & ID1 & "'",conn,0,1

set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open "Select * From HY Where NC='" & ID2 & "'",conn,0,1

if rs1.eof or rs2.eof then
rs1.close
set rs1=nothing
rs2.close
set rs2=nothing
%>
<script language="VBScript">
  MsgBox "好像没有这个人哦！是不是写错名字了？"
  history.back()
</script>
<%
else
rs1.close
set rs1=nothing
rs2.close
set rs2=nothing


set rs=server.createobject("adodb.recordset")
strsql="select ID from HY where NC='"& Application("NC") & "'"
rs.open strsql,conn,1,1
adminid=rs("ID")
rs.close
set rs=nothing


set User = Server.CreateObject("ADODB.RecordSet")
User.Open "Select * From HY Where NC='" & ID1 & "'",conn,3,3
set iUser = Server.CreateObject("ADODB.RecordSet")
iUser.Open "Select * From HY Where NC='" & ID2 & "'",conn,3,3

User("HaveMarry") = false
User("MarryCheck") = false
User("MarryWith") = null
User("MarryTime") = null
User.Update
User.Close

iUser("HaveMarry") = false
iUser("MarryCheck") = false
iUser("MarryWith") = null
iUser("MarryTime") = null
iUser.Update
iUser.Close

conn.Execute("Update HY set JYZ=JYZ-400,ML=ML-400 Where NC='" & ID1& "' or NC='" & ID2 &"'")

sql1 = "Insert Into LY (NC,ID,NR,ZT,SJ,LB) Values('"
sql1 = sql1 & ID1 & "',"& adminid &",'"& "您和"& ID2 & "离婚手续已办理成功！" & "',0,'"&ConvertDateTime(Now())&"',0)"
conn.Execute(sql1)

sql2 = "Insert Into LY (NC,ID,NR,ZT,SJ,LB) Values('"
sql2 = sql2 & ID2 & "',"& adminid &",'"& "您和"& ID1 & "离婚手续已办理成功！" & "',0,'"&ConvertDateTime(Now())&"',0)"
conn.Execute(sql2)


Set User = Nothing
Set iUser = Nothing
conn.close
Set conn = Nothing
%>
<script language="VBScript">
  MsgBox "离婚手续已办理成功！"
  window.parent.location.replace("marry_new.asp")
</script>
<%
end if
end if
%>