📄 user_pay_net_save.asp

📁 电影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_net.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=25 '一个月25元黄金会员
 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")="在线支付" then
id=rs("id")
response.cookies("id9988")=id
response.cookies("id9988").expires=now()+5
%>
<body>
<p>连接中......</p>
<form action="user_pay_net_send.asp" method="POST" name="post" id="n">
<input type="hidden" name="epayClientOrderNum" value="<%=id%>">
<input type="hidden" name="epayClientOrderAmount" value="<%=paymoney%>00">
</form>
<script>
setTimeout('n.submit()',1) 
</script>
</body>
<%end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -