user_order_save.asp

电影ASP文件

<!--#include file="../film_conn.asp"-->
<!--#include file="session.asp"-->
<!--#include file="../set_url.asp"-->
<%Response.Buffer=true%>
<%
money=request("moneygj")
oklook=request("oklookdf")
add=request("add")
del=request("del")
%>
<%
if add<>"" then
set rs=server.createobject("adodb.recordset")
sql="select money,starlook,oklook from users where userid='"&request("userid")&"'"
rs.open sql,conn,1,3

rs("starlook")=now()
if rs("money")-now()<1 then
rs("money")=now() + money
rs("oklook")=oklook
else
rs("money")=rs("money") + money
rs("oklook")=oklook
end if
rs.update

conn.execute"delete from buy where id="&request("id")
if request("askmejoin")<>"" then
set rs=server.createobject("adodb.recordset")
sql="select getmoney,payno,oklook from users where userid='"&request("askmejoin")&"'"
rs.open sql,conn,1,3
if rs("oklook")=0 or rs("oklook")=1 then
give=1
elseif rs("oklook")=2 then
give=2
elseif rs("oklook")=3 then
give=3
elseif rs("oklook")=4 then
give=4
end if
rs("getmoney")=cint(rs("getmoney"))+request("paymoney")/10*give
rs("payno")=cint(rs("payno"))+1
rs.update
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect"user_order.asp"
response.end
end if

if del<>"" then
conn.execute"delete from buy where userid='"&request("userid")&"' and id="&request("id")&""
conn.close
set conn=nothing
response.redirect"user_order.asp"
response.end
end if
%>