<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %><% Response.ContentType="text/vnd.wap.wml; charset=utf-8" %><%
'=========================================================
'
'产品名称：Kelink WAP自助建站系统
'版权所有：Kelink Soft
'程序制作：Weefic
'技术联系：QQ:85403498
'Copyright 2005-2007 Kelink.Com - All Rights Reserved.
'
'========================================================
Response.Expires = -1
response.buffer = True
response.cachecontrol = "Private"
IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if IP="" then IP = Request.ServerVariables("REMOTE_ADDR")'获取来访ip
%>
<%
siteid = trim(siteid)
userid = trim(userid)
classid = trim(request("classid"))
if classid="" then classid="0" end if
if isnumeric(siteid) then
siteid = int(siteid)
else
siteid = 0
end if
if isnumeric(userid) then
userid = int(userid)
else
userid = 0
end if
select case request("action")
case "index"
call index()'婚姻首页
case "propose"
call propose()
case "proposego"
call proposego()
case "proposelist"
call proposelist()
case "seek"
call seek()
case "seekgo"
call seekgo()
case "seeklist"
call seeklist()
case "seekdetail"
call seekdetail()
case "myhouse"
call myhouse()
case "mycar"
call mycar()
case "receivepropose"
call receivepropose()
case "flagpropose"
call flagpropose()
case "sendpropose"
call sendpropose()
case "marrylist"
call marrylist()
case "divorce"
call divorce()
case "divorcego"
call divorcego()
case else
call index()
end select
sub index()'首页页面
dim rs
sql="select count(id) from wap_message where isnew=1 and siteid="&siteid&" and touserid="&userid
set rs=conn.execute(sql)
if not rs.eof then
mm=rs(0)
end if
rs.Close
set rs=nothing
dim headurl
if Trim(Request.QueryString)<>"" then
headurl=replace(Request.ServerVariables("URL")&"?" & Trim(Request.QueryString),"&","&")
session("headurl")=headurl
end if
response.Write("
" & vbnewline)
response.Write(" " & vbnewline)
response.Write(time() & " ")
response.Write("欢迎你 " & nickname & " " & vbnewline)
response.Write("您有"&mm&"条新信息！ ")
'-----------------------
response.Write("+最新征婚信息 " & vbnewline)
set rs = server.CreateObject("adodb.recordset")
rs.open "SELECT top 5 * FROM wap_marry_seek WHERE (DATEDIFF(day, time, GETDATE()) < 8) AND (siteid = " & siteid & ") AND (state = 0) ORDER BY id DESC",conn,1,2
totalrecord = rs.recordcount
if totalrecord = 0 then
response.Write("暂没有征婚发布! " & vbnewline)
else
count=1
do while (not rs.eof)
response.Write(count & "." & rs("title") & " ")
rs.movenext
count=count+1
loop
end if
rs.close
set rs=nothing
'=======================
response.Write("+恋爱殿堂 ")
response.Write("我要求婚.我要征婚 ")
response.Write("求婚列表.征婚列表 ")
response.Write("恋爱殿堂.我要离婚 ")
response.Write("+个人资产 ")
response.Write("我的房子.我的汽车 ")
response.Write("我收到的请求 ")
response.Write("我发出的请求 ")
if managerlvl="00" or managerlvl="01" then
response.Write(" 站长管理设置 " & vbnewline)
end if
response.Write(" 返回上级 " & vbnewline)
response.Write("返回首页" & vbnewline)
response.Write("
")
closeconn
response.End()
end sub
'我要求婚
sub propose()
dim rs
dim marry_proposemoney
set rs = server.CreateObject("adodb.recordset")
rs.open "SELECT * FROM wap_fun_setting WHERE siteid = " & siteid,conn,1,2
if rs.eof then
marry_proposemoney = 1314
rs.addnew
rs("siteid") = siteid
rs.update
else
marry_proposemoney = rs("marry_proposemoney")
end if
rs.close
randomize
ranNum=int(900*rnd)+100
response.Write("
")
set rs = nothing
closeconn
response.End()
end sub
sub proposego()
dim rs
dim doid,lovesay,errormsg
dim marry_proposemoney
doid = trim(request("doid"))
lovesay = trim(tohtm(request("lovesay")))
if isnumeric(doid) then
doid = int(doid)
else
doid = 0
end if
if len(lovesay) = 0 then
lovesay = "无"
end if
conn.execute("UPDATE wap_marry_propose SET state = 1 WHERE (DATEDIFF(day,requesttime,GETDATE()) > 7)")
set rs = server.CreateObject("adodb.recordset")
response.Write("
" & vbnewline)
rs.open "SELECT * FROM wap_fun_setting WHERE siteid = " & siteid,conn,1,2
if rs.eof then
marry_proposemoney = 1314
rs.addnew
rs("siteid") = siteid
rs.update
else
marry_proposemoney = rs("marry_proposemoney")
end if
rs.close
if (userid = doid) then
response.Write("不可以向自己求婚! ")
elseif int(marry_proposemoney) > int(cstr(money)) then
response.Write("对不起,你的余额不足! ")
else
rs.open "SELECT * FROM [user] WHERE siteid = " & siteid & " AND userid = " & doid,conn,1,2
if rs.eof then
response.Write("未找到对方! ")
response.Write("1.返回重新输入 ")
'response.Write("2.从我的好友选择 ")
rs.close
else
rs.close
rs.open "SELECT * FROM wap_marry_relationship WHERE (userid = " & doid & " OR userid = " & userid & " OR marryid = " & doid & " OR marryid = " & userid & " ) AND siteid = " & siteid,conn,1,2
if not rs.eof then
if (rs("userid") = userid) or (rs("marryid") = userid) then
response.Write("你已经结婚了,不能重复提交请求!请先离婚。 ")
else
response.Write("对方已经结婚了,加油吧! ")
end if
rs.close
else
rs.close
rs.open "SELECT * FROM wap_marry_propose WHERE userid = " & userid & " AND siteid = " & siteid & " AND (DATEDIFF(day,requesttime,GETDATE()) < 8) AND state = 0 ORDER BY requesttime DESC",conn,1,2
if not rs.eof then
response.Write("对不起,7天内不可以重复发出请求! ")
else
rs.addnew
rs("siteid") = siteid
rs("userid") = userid
rs("requestedid") = doid
rs("lovesay") = lovesay
rs.update
'这里是添加系统消息、扣取费用
conn.execute("insert into wap_message(siteid,userid,nickname,title,content,touserid,issystem)values("&siteid&","&siteid&",'系统消息','会员:"&nickname&" 向你爱情表白','表白内容:"&lovesay&"，[url="&http_start&"fun/marry.asp?siteid="&siteid&"&classid="&classid&"&action=receivepropose&sid=[sid]]点击查看[/url]',"&doid&",0)")
'你收到结婚请求,点击这里查看")
conn.execute("UPDATE [user] SET money = money - " & marry_proposemoney & " WHERE siteid = " & siteid & " AND userid = " & userid)
Conn.Execute("insert into wap_bankLog select '" & siteid & "','" & userid & "','结婚求爱','-" & marry_proposemoney & "',money,'" & userid & "','" & nickname & "','','" & IP & "',getdate() ,null from [user] where userid=" & userid & " and siteid=" & siteid)
response.Write("发送请求成功! ")
end if
rs.close
end if
end if
end if
response.Write("婚姻首页 ")
response.Write("返回上级 " & vbnewline)
response.Write("返回首页" & vbnewline)
response.Write("
")
set rs = nothing
closeconn
response.End()
end sub
sub proposelist()
saveurl()
dim rs
dim page,pagesz,totalrecord,totalpages,count
page = request("page")
pagesz = 10
count = 1
if isnumeric(page) then
page = int(page)
if page < 1 then
page = 1
end if
else
page = 1
end if
set rs = server.CreateObject("adodb.recordset")
response.Write("
" & vbnewline)
rs.open "SELECT wap_marry_propose.id, wap_marry_propose.siteid, wap_marry_propose.userid, wap_marry_propose.requestedid, wap_marry_propose.requesttime, wap_marry_propose.lovesay, wap_marry_propose.state, user1.nickname AS nick1, user2.nickname AS nick2 FROM wap_marry_propose INNER JOIN [user] AS user1 ON wap_marry_propose.userid = user1.userid INNER JOIN [user] AS user2 ON wap_marry_propose.requestedid = user2.userid WHERE (wap_marry_propose.siteid = " & siteid & ") AND (wap_marry_propose.state = 0) AND (DATEDIFF(day, wap_marry_propose.requesttime, GETDATE()) < 8) ORDER BY wap_marry_propose.id DESC",conn,1,2
totalrecord = rs.recordcount
totalpages = (totalrecord-1) \ pagesz + 1
if page > totalpages then
page = totalpages
end if
if totalrecord = 0 then
response.Write("暂没有爱情表白! " & vbnewline)
else
if not rs.eof or not rs.bof then
rs.move((page-1)*pagesz)
do while (not rs.eof) and (count =< pagesz)
response.Write(count+(page-1)*pagesz & "." & rs("nick1") & "对" & rs("nick2") & "说:" & rs("lovesay") & " " & vbnewline)
rs.movenext
count = count + 1
loop
end if
end if
response.Write("---------- " & vbnewline)
response.Write("共" & totalrecord & "条,第" & page & "/" & totalpages & "页 " & vbnewline)
if totalrecord <> 0 then
if page < totalpages then
response.Write("下一页.")
end if
if page <> 1 then
response.Write("上一页")
end if
response.Write(" " & vbnewline)
if totalpages > 1 then
response.Write("转到该页 " & vbnewline)
end if
end if
rs.close
response.Write("婚姻首页 ")
response.Write("返回上级 " & vbnewline)
response.Write("返回首页" & vbnewline)
response.Write("
")
set rs = nothing
closeconn
response.End()
end sub
sub receivepropose()
dim rs
dim page,pagesz,totalrecord,totalpages,count
page = request("page")
pagesz = 10
count = 1
if isnumeric(page) then
page = int(page)
if page < 1 then
page = 1
end if
else
page = 1
end if
set rs = server.CreateObject("adodb.recordset")
response.Write("
" & vbnewline)
rs.open "SELECT wap_marry_propose.id, wap_marry_propose.siteid, wap_marry_propose.userid, wap_marry_propose.requestedid, wap_marry_propose.requesttime, wap_marry_propose.lovesay, wap_marry_propose.state, user1.nickname AS nick1, user2.nickname AS nick2 FROM wap_marry_propose INNER JOIN [user] AS user1 ON wap_marry_propose.userid = user1.userid INNER JOIN [user] AS user2 ON wap_marry_propose.requestedid = user2.userid WHERE (wap_marry_propose.siteid = " & siteid & ") AND (wap_marry_propose.state = 0) AND (wap_marry_propose.requestedid = " & userid & ") AND (DATEDIFF(day, wap_marry_propose.requesttime, GETDATE()) < 8) ORDER BY wap_marry_propose.id DESC",conn,1,2
totalrecord = rs.recordcount
totalpages = (totalrecord-1) \ pagesz + 1
if page > totalpages then
page = totalpages
end if
response.Write("我收到的爱情表白: ")
if totalrecord = 0 then
response.Write("你暂没有收到爱情表白! " & vbnewline)
else
rs.move((page-1)*pagesz)
do while (not rs.eof) and (count =< pagesz)
response.Write(count+(page-1)*pagesz & "." & rs("nick1") & "对你说:" & rs("lovesay") & "(" & rs("requesttime") & ") " & vbnewline)
response.Write("[接受][拒绝] ")
rs.movenext
count = count + 1
loop
end if
response.Write("---------- " & vbnewline)
response.Write("共" & totalrecord & "条,第" & page & "/" & totalpages & "页 " & vbnewline)
if totalrecord <> 0 then
if page < totalpages then
response.Write("下一页.")
end if
if page <> 1 then
response.Write("上一页")
end if
response.Write(" " & vbnewline)
if totalpages > 1 then
response.Write("转到该页 " & vbnewline)
end if
end if
rs.close
response.Write("婚姻首页 ")
response.Write("返回上级 " & vbnewline)
response.Write("返回首页" & vbnewline)
response.Write("
")
set rs = nothing
closeconn
response.End()
end sub
sub flagpropose()
dim rs,rs1
dim id
id = request.QueryString("id")
flag = request.QueryString("flag")
if isnumeric(id) then
id = int(id)
else
id = 0
end if
set rs = server.CreateObject("adodb.recordset")
set rs1 = server.CreateObject("adodb.recordset")
response.Write("")
response.Write("
" & vbnewline)
rs.open "SELECT id, state, userid, lovesay FROM wap_marry_propose WHERE (siteid = " & siteid & ") AND (requestedid = " & userid & ") AND (state = 0) AND (DATEDIFF(day, requesttime, GETDATE()) < 8)",conn,1,2
if rs.eof then
response.Write("你暂没有收到爱情表白! " & vbnewline)
else
rs1.open "SELECT id, siteid, userid, marryid, lovesay, marrytime FROM wap_marry_relationship WHERE (siteid = " & siteid & ") AND (userid = " & userid & ") OR (siteid = " & siteid & ") AND (marryid = " & userid & ") OR (siteid = " & siteid & ") AND (userid = " & rs("userid") & ") OR (siteid = " & siteid & ") AND (marryid = " & rs("userid") & ")",conn,1,2
if not rs1.eof then'理论上不会发生
response.Write("内部错误,该请求已被取消! ")
else
if flag = "1" then '接受
rs("state") = 1
rs.update
rs1.addnew
rs1("siteid") = siteid
rs1("userid") = rs("userid")
rs1("marryid") = userid
rs1("lovesay") = rs("lovesay")
rs1.update
conn.execute("UPDATE wap_marry_propose SET state = 1 WHERE siteid = " & siteid & " AND (userid = " & userid & " OR requestedid = " & userid & ")")
conn.execute("insert into wap_message(siteid,userid,nickname,title,content,touserid,issystem)values("&siteid&","&siteid&",'系统消息','会员:"&nickname&" 同意跟你结婚了','同意时间:"&now&"，[url="&http_start&"fun/marry.asp?siteid="&siteid&"&classid="&classid&"&action=marrylist&sid=[sid]]点击查看[/url]',"&rs("userid")&",0)")
response.Write("接受成功! ")
else
rs("state") = 1
rs.update
response.Write("拒绝成功! ")
conn.execute("insert into wap_message(siteid,userid,nickname,title,content,touserid,issystem)values("&siteid&","&siteid&",'系统消息','会员:"&nickname&" 拒绝同你结婚','时间:"&now&"',"&rs("userid")&",0)")
end if
end if
rs1.close
end if
response.Write("点击这里返回 ")
response.Write("婚姻首页 ")
response.Write("返回上级 " & vbnewline)
response.Write("返回首页" & vbnewline)
response.Write("
")
set rs = nothing
set rs1 = nothing
closeconn
response.End()
end sub
sub sendpropose()
dim rs
dim page,pagesz,totalrecord,totalpages,count
page = request("page")
pagesz = 10
count = 1
if isnumeric(page) then
page = int(page)
if page < 1 then
page = 1
end if
else
page = 1
end if
set rs = server.CreateObject("adodb.recordset")
response.Write("
" & vbnewline)
rs.open "SELECT wap_marry_propose.id, wap_marry_propose.siteid, wap_marry_propose.userid, wap_marry_propose.requestedid, wap_marry_propose.requesttime, wap_marry_propose.lovesay, wap_marry_propose.state, user1.nickname AS nick1, user2.nickname AS nick2 FROM wap_marry_propose INNER JOIN [user] AS user1 ON wap_marry_propose.userid = user1.userid INNER JOIN [user] AS user2 ON wap_marry_propose.requestedid = user2.userid WHERE (wap_marry_propose.siteid = " & siteid & ") AND (wap_marry_propose.userid = " & userid & ") AND (DATEDIFF(day, wap_marry_propose.requesttime, GETDATE()) < 8) ORDER BY wap_marry_propose.id DESC",conn,1,2
totalrecord = rs.recordcount
totalpages = (totalrecord-1) \ pagesz + 1
if page > totalpages then
page = totalpages
end if
response.Write("我发送的爱情表白: ")
if totalrecord = 0 then
response.Write("你暂没有发送爱情表白! " & vbnewline)
else
rs.move((page-1)*pagesz)
do while (not rs.eof) and (count =< pagesz)
response.Write(count+(page-1)*pagesz & ".你对" & rs("nick2") & "说:" & rs("lovesay") & " ")
response.Write("状态:")
if int(rs("state")) = 0 then
response.Write("未阅 ")
else
response.Write("已阅 ")
end if
rs.movenext
count = count + 1
loop
end if
response.Write("---------- " & vbnewline)
response.Write("共" & totalrecord & "条,第" & page & "/" & totalpages & "页 " & vbnewline)
if totalrecord <> 0 then
if page < totalpages then
response.Write("下一页.")
end if
if page <> 1 then
response.Write("上一页")
end if
response.Write(" " & vbnewline)
if totalpages > 1 then
response.Write("转到该页 " & vbnewline)
end if
end if
rs.close
response.Write("婚姻首页 ")
response.Write("返回上级 " & vbnewline)
response.Write("返回首页" & vbnewline)
response.Write("
")
set rs = nothing
closeconn
response.End()
end sub
'我要征婚
sub seek()
dim rs
dim marry_seekmoney,marry_seektitle,marry_seekcontent
set rs = server.CreateObject("adodb.recordset")
rs.open "SELECT * FROM wap_fun_setting WHERE siteid = " & siteid,conn,1,2
if rs.eof then
marry_seekmoney = 1314
marry_seektitle = "我要征婚"
marry_seekcontent = "征婚内容"
rs.addnew
rs("siteid") = siteid
rs.update
else
marry_seekmoney = rs("marry_proposemoney")
marry_seektitle = rs("marry_seektitle")
marry_seekcontent = rs("marry_seekcontent")
end if
rs.close
response.Write("
")
set rs = nothing
closeconn
response.End()
end sub
sub seekgo()
dim rs
dim title,content,property_money,property_experience
dim marry_seekmoney
title = trim(tohtm(request.Form("title")))
content = trim(tohtm(request.Form("content")))
property_money = request.Form("property_money")
property_experience = request.Form("property_experience")
if isnumeric(property_money) then
property_money = int(property_money)
else
property_money = 100
end if
if isnumeric(property_experience) then
property_experience = int(property_experience)
else
property_experience = 100
end if
conn.execute("UPDATE wap_marry_seek SET state = 1 WHERE (DATEDIFF(day,time,GETDATE()) > 7)")
set rs = server.CreateObject("adodb.recordset")
response.Write("
" & vbnewline)
rs.open "SELECT * FROM wap_fun_setting WHERE siteid = " & siteid,conn,1,2
if rs.eof then
marry_seekmoney = 1314
rs.addnew
rs("siteid") = siteid
rs.update
else
marry_seekmoney = rs("marry_seekmoney")
end if
rs.close
if len(title) = 0 then
response.Write("征婚标题不能为空,请返回重新输入! ")
elseif len(content) = 0 then
response.Write("征婚内容不能为空,请返回重新输入! ")
elseif int(marry_seekmoney) > int(cstr(money)) then
response.Write("对不起,你的余额不足! ")
else
rs.open "SELECT top 1 * FROM wap_marry_seek",conn,1,2
rs.addnew
rs("siteid") = siteid
rs("userid") = userid
rs("title") = title
rs("content") = content
rs("property_money") = property_money
rs("property_experience") = property_experience
rs.update
rs.close
conn.execute("UPDATE [user] SET money = money - " & marry_seekmoney & " WHERE siteid = " & siteid & " AND userid = " & userid)
Conn.Execute("insert into wap_bankLog select '" & siteid & "','" & userid & "','发布征婚','-" & marry_seekmoney & "',money,'" & userid & "','" & nickname & "','','" & IP & "',getdate() ,null from [user] where userid=" & userid & " and siteid=" & siteid)
response.Write("发布成功! ")
end if
response.Write("婚姻首页 ")
response.Write("返回上级 " & vbnewline)
response.Write("返回首页" & vbnewline)
response.Write("
")
set rs = nothing
closeconn
response.End()
end sub
'征婚列表
sub seeklist()
dim rs
dim page,pagesz,totalrecord,totalpages,count
page = request("page")
pagesz = 10
count = 1
if isnumeric(page) then
page = int(page)
if page < 1 then
page = 1
end if
else
page = 1
end if
set rs = server.CreateObject("adodb.recordset")
response.Write("
" & vbnewline)
rs.open "SELECT * FROM wap_marry_seek WHERE (DATEDIFF(day, time, GETDATE()) < 8) AND (siteid = " & siteid & ") AND (state = 0) ORDER BY id DESC",conn,1,2
totalrecord = rs.recordcount
totalpages = (totalrecord-1) \ pagesz + 1
if page > totalpages then
page = totalpages
end if
if totalrecord = 0 then
response.Write("暂没有征婚发布! " & vbnewline)
else
rs.move((page-1)*pagesz)
do while (not rs.eof) and (count =< pagesz)
response.Write(count+(page-1)*pagesz & "." & rs("title") & "("&rs("time")&") ")
rs.movenext
count = count + 1
loop
end if
response.Write("---------- " & vbnewline)
response.Write("共" & totalrecord & "条,第" & page & "/" & totalpages & "页 " & vbnewline)
if totalrecord <> 0 then
if page < totalpages then
response.Write("下一页.")
end if
if page <> 1 then
response.Write("上一页")
end if
response.Write(" " & vbnewline)
if totalpages > 1 then
response.Write("转到该页 " & vbnewline)
end if
end if
rs.close
response.Write("婚姻首页 ")
'response.Write("返回上级 " & vbnewline)
response.Write("返回首页" & vbnewline)
response.Write("
")
set rs = nothing
closeconn
response.End()
end sub
sub seekdetail()
saveurl()
dim rs
dim page,seekid
page = request("page")
seekid = request("id")
if isnumeric(seekid) then
seekid = int(seekid)
else
seekid = 0
end if
set rs = server.CreateObject("adodb.recordset")
rs.open "SELECT wap_marry_seek.id, wap_marry_seek.siteid, wap_marry_seek.userid, wap_marry_seek.title, wap_marry_seek.[content], wap_marry_seek.time, wap_marry_seek.property_money, wap_marry_seek.property_experience, wap_marry_seek.state, user1.nickname FROM wap_marry_seek INNER JOIN [user] AS user1 ON wap_marry_seek.userid = user1.userid WHERE (DATEDIFF(day, wap_marry_seek.time, GETDATE()) < 8) AND (wap_marry_seek.siteid = " & siteid & ") AND (wap_marry_seek.state = 0) AND (wap_marry_seek.id = " & seekid & ")",conn,1,2
response.Write("
")
set rs = nothing
closeconn
response.End()
end sub
sub myhouse()
response.Redirect(replace(http_start & "fun/house.asp?siteid=" & siteid & "&classid=" & classid & "&action=" & jid2,"&","&"))
end sub
sub mycar()
response.Redirect(replace(http_start & "fun/car.asp?siteid=" & siteid & "&classid=" & classid & "&action=" & jid2,"&","&"))
end sub
sub marrylist()
saveurl()
dim rs
dim page,pagesz,totalrecord,totalpages,count
page = request("page")
pagesz = 10
count = 1
if isnumeric(page) then
page = int(page)
if page < 1 then
page = 1
end if
else
page = 1
end if
set rs = server.CreateObject("adodb.recordset")
response.Write("
" & vbnewline)
rs.open "SELECT wap_marry_relationship.id, wap_marry_relationship.userid, wap_marry_relationship.marryid, wap_marry_relationship.lovesay, wap_marry_relationship.marrytime, user_1.nickname, [user].nickname AS nickname1 FROM wap_marry_relationship INNER JOIN [user] ON wap_marry_relationship.siteid = [user].siteid AND wap_marry_relationship.marryid = [user].userid INNER JOIN [user] AS user_1 ON wap_marry_relationship.siteid = user_1.siteid AND wap_marry_relationship.userid = user_1.userid WHERE (wap_marry_relationship.siteid = " & siteid & ") ORDER BY wap_marry_relationship.id DESC",conn,1,2
totalrecord = rs.recordcount
totalpages = (totalrecord-1) \ pagesz + 1
if page > totalpages then
page = totalpages
end if
if totalrecord = 0 then
response.Write("目前没有已在婚恋中的用户! " & vbnewline)
else
rs.move((page-1)*pagesz)
do while (not rs.eof) and (count =< pagesz)
response.Write(count+(page-1)*pagesz & "." & rs("nickname") & "与" & rs("nickname1") & "相恋中(" & formatdatetime(rs("marrytime"),2) & ") ")
rs.movenext
count = count + 1
loop
end if
response.Write("---------- " & vbnewline)
response.Write("共" & totalrecord & "条,第" & page & "/" & totalpages & "页 " & vbnewline)
if totalrecord <> 0 then
if page < totalpages then
response.Write("下一页.")
end if
if page <> 1 then
response.Write("上一页")
end if
response.Write(" " & vbnewline)
if totalpages > 1 then
response.Write("转到该页 " & vbnewline)
end if
end if
rs.close
response.Write("婚姻首页 ")
response.Write("返回上级 " & vbnewline)
response.Write("返回首页" & vbnewline)
response.Write("
")
set rs = nothing
closeconn
response.End()
end sub
sub divorce()
saveurl()
dim rs
set rs = server.CreateObject("adodb.recordset")
response.Write("
" & vbnewline)
rs.open "SELECT wap_marry_relationship.id, wap_marry_relationship.userid, wap_marry_relationship.marryid, wap_marry_relationship.lovesay, wap_marry_relationship.marrytime, [user].nickname, user_1.nickname AS nickname1 FROM wap_marry_relationship INNER JOIN [user] ON wap_marry_relationship.userid = [user].userid AND wap_marry_relationship.siteid = [user].siteid INNER JOIN [user] AS user_1 ON wap_marry_relationship.userid = user_1.userid AND wap_marry_relationship.siteid = user_1.siteid WHERE (wap_marry_relationship.siteid = " & siteid & ") AND (wap_marry_relationship.userid = " & userid & ") OR (wap_marry_relationship.siteid = " & siteid & ") AND (wap_marry_relationship.marryid = " & userid & ")",conn,1,2
if rs.eof then
response.Write("你暂没结婚,无法离婚! ")
else
if rs("userid") = userid then
response.Write("你决定" & rs("nickname1") & "离婚吗? ")
else
response.Write("你决定" & rs("nickname") & "离婚吗? ")
end if
response.Write("离婚后,你和Ta的关系将会解除! ")
end if
response.Write("确认离婚 ")
rs.close
response.Write(" 婚姻首页 ")
response.Write("返回上级 " & vbnewline)
response.Write("返回首页" & vbnewline)
response.Write("
")
set rs = nothing
closeconn
response.End()
end sub
sub divorcego()
dim rs
set rs = server.CreateObject("adodb.recordset")
response.Write("
" & vbnewline)
rs.open "SELECT id, userid, marryid, lovesay, marrytime FROM wap_marry_relationship WHERE (siteid = " & siteid & ") AND (userid = " & userid & ") OR (siteid = " & siteid & ") AND (marryid = " & userid & ")",conn,1,2
if rs.eof then
response.Write("你暂没结婚,无法离婚! ")
else
touserid=rs("userid")
marryid=rs("marryid")
if Cstr(touserid)<>Cstr(userid) then
marryid=touserid
end if
rs.delete
rs.update
response.Write("离婚成功! ")
conn.execute("insert into wap_message(siteid,userid,nickname,title,content,touserid,issystem)values("&siteid&","&siteid&",'系统消息','会员:"&nickname&" 跟你离婚了','时间:"&now&"',"&marryid&",0)")
end if
rs.close
response.Write(" 婚姻首页 ")
response.Write("返回上级 " & vbnewline)
response.Write("返回首页" & vbnewline)
response.Write("