carsave.asp

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

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

<%
grad=request("grad")
dayer=request("dayer")
no=request("not")
paymoney=request("paymoneyj")
set rs=server.createobject("adodb.recordset")
rs.open "select * from car",conn,1,3
for i=1 to no
randomize
p=Int((3957184629*rnd))
k=Int((6243951646*rnd))
rs.addnew
rs("carid")=p
rs("carpws")=k
rs("oklook")=grad
rs("day")=dayer
rs("paymoney")=paymoney
rs.update
next

rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "car.asp"
%>