1 then
response.write "您的操作权限不够！"
response.end
end if
%>
dayer=request("day")
if dayer=30 or dayer=90 then
oklook=1
elseif dayer=180 or dayer=270 then
oklook=2
elseif dayer=365 or dayer=181 or dayer=31 or dayer=730 then
oklook=3
elseif dayer=36500 then
oklook=4
elseif dayer=150 or dayer=200 or dayer=250 or dayer=300 or dayer=400 or dayer=800 or dayer=1000 or dayer=1500 then
oklook=0
end if
paymoney=request("paymoneyj")
no=request("not")
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")=oklook
rs("day")=dayer
rs("paymoney")=paymoney
rs.update
next
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "car.asp"
%>
