carsave.asp

物流管理系统,可以用于中小企业,建立自己的内部物流管理.

<%@ codepage ="936" %>
<%
if instr(session("flag_fyadmin"),"08")=0 then
response.write "<SCRIPT language=JavaScript>alert('对不起，你没有权限打开此页！');"
response.write"this.location.href='../login.asp';</SCRIPT>" 
response.end
end if
%><!--#include file="../../inc/config.asp"-->
<!--#include file="../../conn/dbconn2.asp" -->
<%
dayer=request("day")
if dayer=30 or dayer=90 then
oklook=1
elseif dayer=180 or dayer=270 then
oklook=2
elseif dayer=360 or dayer=31 then
oklook=3
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("day")=dayer
rs("paymoney")=paymoney
rs("zhuangtai")="尚未使用"
rs.update
next

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