request_accept.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%>


<%
ID = request("ID")
UserName = Request.Cookies("NC")

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

nTime = Now()

User("HaveMarry") = True
User("MarryCheck") = True
User("MarryWith") = UserName
User("MarryTime") = nTime
User.Update
User.Close

iUser("HaveMarry") = True
iUser("MarryCheck") = True
iUser("MarryWith") = ID
iUser("MarryTime") = nTime
iUser.Update
iUser.Close

conn.Execute("Update HY set JYZ=JYZ+250,ML=ML+250 Where NC='" & UserName & "' or NC='" & ID &"'")
conn.Execute("Delete * From Church Where BZhui='" & UserName & "' And Zhui='" & ID &"'")

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)

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

response.redirect "church.asp"

%>