<%
dim userip,id
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
if Replace(request.cookies("userid"), "'", "''")="" or Replace(request.cookies("password"), "'", "''")="" then
response.write""
response.end
end if
set rs=server.createobject("adodb.recordset")
rs.open "select * from buy where userid='"&request.cookies("userid")&"'" ,conn,1,1
if not rs.eof then
response.write"你已下过订单了，请不要重复再下！
如果您要升级为其他等级会员，请先与我们联系，谢谢！"
rs.close
elseif request("money")=30 and request("vip")="普通会员" then
rs.close
response.write"普通会员至少要买2个月以上哦！"
elseif request("money")=15 and request("vip")<>"普通会员" then
rs.close
response.write"只有普通会员才有免费试用！"
else
rs.close
set rs=server.createobject("adodb.recordset")
rs.open "select * from users where userid='"&request.cookies("userid")&"' and password='"&request.cookies("password")&"'" ,conn,1,1
askmejoin=rs("askmejoin")
money=request("money")
giveme=request("giveme")
myname=rs("name")
userid=rs("userid")
email=rs("email")
vip=request("vip")
rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from setmoney where id=1"
rs.open sql,conn,1,3
pmoney=rs("pmoney")
bmoney=rs("bmoney")
hmoney=rs("hmoney")
zmoney=rs("zmoney")
rs.close
if request("money")=60 and request("vip")="普通会员" then
paymoney=pmoney*2
ipsdate="1"
oklook=1
vipdown=false
elseif request("money")=180 and request("vip")="普通会员" then
paymoney=pmoney*6
ipsdate="1"
oklook=1
vipdown=false
elseif request("money")=365 and request("vip")="普通会员" then
paymoney=pmoney*12
ipsdate="1"
oklook=1
vipdown=false
elseif request("money")=30 and request("vip")="白银会员" then
paymoney=bmoney
ipsdate="6"
oklook=2
vipdown=false
elseif request("money")=60 and request("vip")="白银会员" then
paymoney=bmoney*2
ipsdate="6"
oklook=2
vipdown=false
elseif request("money")=180 and request("vip")="白银会员" then
paymoney=bmoney*6
ipsdate="1"
oklook=2
vipdown=false
elseif request("money")=365 and request("vip")="白银会员" then
paymoney=bmoney*12
ipsdate="12"
oklook=2
vipdown=true
elseif request("money")=30 and request("vip")="黄金会员" then
paymoney=hmoney
ipsdate="6"
oklook=3
vipdown=false
elseif request("money")=60 and request("vip")="黄金会员" then
paymoney=hmoney*2
ipsdate="6"
oklook=3
vipdown=false
elseif request("money")=180 and request("vip")="黄金会员" then
paymoney=hmoney*6
ipsdate="1"
oklook=3
vipdown=true
elseif request("money")=365 and request("vip")="黄金会员" then
paymoney=hmoney*7
ipsdate="12"
oklook=3
vipdown=true
elseif request("money")=36000 or request("vip")="钻石会员" then
paymoney=zmoney '一百年450元钻石会员
ipsdate="1200"
money=36000
oklook=4
vipdown=true
end if
set rs=server.createobject("adodb.recordset")
sql="select * from users where userid='"&request("userid")&"'"
rs.open sql,conn,1,3
rs("pay")=0
rs("userip")=userip
rs.update
rs.close
dim rs
set rs=server.createobject("adodb.recordset")
sql="select * from pay where id=1"
rs.open sql,conn,1,3
urlback=rs("urlback")
code=rs("code")
payusername=rs("username")
paypassword=rs("password")
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
rs.open "select * from buy",conn,1,3
rs.addnew
rs("askmejoin")=askmejoin
rs("name")=myname
rs("oklook")=oklook
rs("paymoney")=paymoney
rs("userid")=userid
rs("email")=email
rs("giveme")=giveme
rs("money")=money
rs("pay")=0
rs("baoyue")=1
rs("vip")=vip
rs.update
rs.close
sql="select id from buy where userid='"&request("userid")&"'"
rs.open sql,conn,1,3
payid=rs("id")
response.cookies("server")="ok"
%>
<%if request("giveme")="在线支付" then%>
续费
520电影院会员续费在线支付
<%elseif request("giveme")="手机支付" then%>
会员续费
520电影网会员续费手机支付
续费
520电影院会员续费在线支付
<%elseif request("giveme")="银行汇款" then%>
您好<%=userid%>，你所购买的会员等级是:<%=vip%>
您所购买的会员期限是：
<%if request("money")=15 then%>
15天免费试用
<%elseif request("money")=30 then%>
1个月
<%elseif request("money")=60 then%>
2个月
<%elseif request("money")=180 then%>
半年
<%elseif request("money")=365 then%>
1年
<%elseif request("money")=3600 or request("vip")="钻石会员" then%>
永久
<%end if%>
您应付的金额是：<%=paymoney%>元
请在汇款前给我们来信：chenjunwpk@163.com给我们，或者直接在QQ(39116998）里与我们联系，当我们收到
汇款后，将马上为您开通！
注意：所提交的订单如果在一星期内还没汇款过来或者与我们联系的话，此订单将作废！
<%else%>
您好<%=userid%>，通过发展下线，您免费获得的会员等级是: <%=vip%>
您所获得的会员期限是：
<%if request("money")=15 then%>
15天免费试用
<%elseif request("money")=30 then%>
1个月
<%elseif request("money")=60 then%>
2个月
<%elseif request("money")=180 then%>
半年
<%elseif request("money")=365 then%>
1年
<%elseif request("money")=3600 or request("vip")="钻石会员" then%>
永久
<%end if%>
520电影院非常感谢您对本站的大力支持，请继续努力，谢谢！
<%end if%>
<%end if%>