moneysave.asp

千年免费电影系统 V3.0版 在程序上借鉴了很多优秀电影系统的功能

<!--#include file="articleconn.asp"-->
<!--#include file="security.asp"-->
<%if session("flag")>1 then
    response.write "<br><p align=center>您的操作权限不够！</p>"
    response.end
end if



set rs=server.createobject("adodb.recordset")
sql="select* from setmoney where id=1"
rs.open sql,conn,1,3
rs("pmoney")=Replace(request("pmoney"), "'", "''")
rs("bmoney")=Replace(request("bmoney"), "'", "''")
rs("hmoney")=Replace(request("hmoney"), "'", "''")
rs("zmoney")=Replace(request("zmoney"), "'", "''")
rs("p150")=Replace(request("p150"), "'", "''")
rs("p200")=Replace(request("p200"), "'", "''")
rs("p250")=Replace(request("p250"), "'", "''")
rs("p350")=Replace(request("p350"), "'", "''")
rs("p400")=Replace(request("p400"), "'", "''")
rs("p500")=Replace(request("p500"), "'", "''")
rs("p1000")=Replace(request("p1000"), "'", "''")
rs("p1500")=Replace(request("p1500"), "'", "''")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect"setmoney.asp"

%>