user_pay_save.asp

电影ASP文件

<!--#include file="../film_conn.asp"-->
<!-- #include file="user_session.asp" -->
<!-- #include file="../set_url.asp" -->
<%
 if trim(request("money"))="" or trim(request("giveme"))="" then
 response.redirect "user_pay_other.asp"
 response.end
 end if
 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")
 rs.close
 if request("money")=30 then
 paymoney=10 '一个月10元普通会员
 ipsdate="1"
 oklook=1
 elseif request("money")=90 then
 paymoney=30 '三个月30元普通会员
 ipsdate="3"
 oklook=1
 elseif request("money")=180 then
 paymoney=60 '六个月60元白银会员
 ipsdate="6"
 oklook=2
 elseif request("money")=31 then
 paymoney=30 '一个月30元黄金会员
 ipsdate="1"
 oklook=3
 elseif request("money")=360 then
 paymoney=100 '一年100元黄金会员
 ipsdate="12"
 oklook=3
 elseif request("money")=730 then
 paymoney=180 '两年180元黄金会员
 ipsdate="24"
 oklook=3
 elseif request("money")=36000 then
 paymoney=380 '永久性380元钻石会员
 ipsdate="1200"
 oklook=4
 end if

dim rs
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.update
response.cookies("server")="ok"

if request("giveme")<>"在线支付" and request("giveme")<>"手机支付" then
response.redirect "user_pay_ok.asp?id1="&userid&"&id2="&paymoney&""
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>