dianji=year(date())&right("0"&month(date()),2)&right("0"&day(date()),2)
set rs1=conn.execute("select max(ddh) from bs_ddanlb where ddh like '"&dianji&"%'")
if rs1(0)>0 then
dianji=dianji & right("00" & rs1(0)+1,3)
stock_num=rs1(0)+1
response.cookies("ddh")=dianji
else
dianji=dianji & "001"
stock_num=1
response.cookies("ddh")=dianji
end if
rs1.close
set rs1=nothing
%>
dim Action
if Request.QueryString("action")="add" then
ddh=Trim(Request.Form("ddh"))
xdr=Trim(request.cookies("yhmc"))
xdrq=Trim(Request.Form("xdrq"))
jhrq=Trim(Request.Form("jhrq"))
ausd=Trim(Request.Form("ausd"))
daodd=Trim(Request.Form("daodd"))
fhd=Trim(Request.Form("fhd"))
gys=Trim(Request.Form("gys"))
cgs=Trim(Request.Form("cgs"))
shuom=Trim(Request.Form("shuom"))
if ddh"" and gys"" and cgs"" and shuom"" then
Set rs2=Server.CreateObject("Adodb.RecordSet")
rs2.open "Select * from bs_ddanlb ",conn,1,3
rs2.addnew
rs2("ddh")=dianji
rs2("xdr")=request.cookies("yhmc")
rs2("xdrq")=Request.Form("xdrq")
rs2("jhrq")=Request.Form("jhrq")
rs2("ausd")=Request.Form("ausd")
rs2("daodd")=Request.Form("daodd")
rs2("fhd")=Request.Form("fhd")
rs2("gys")=Request.Form("gys")
rs2("cgs")=Request.Form("cgs")
rs2("shuom")=Request.Form("shuom")
rs2.update
rs2.Close
set rs2=Nothing
call CloseConn()
Response.Redirect"bs_add.asp"
else
response.write"对不起你填写的内容有误或项目为空，请重新检查订单内容！"
end if
end if
%>
function CheckForm()
{
if(confirm("确定要增加此订单吗？"))
return true;
else
return false;
}
添 加 石 材 订 单
是否增加订单号为 订单的详细资料,按确定继续
订 单 号
下单日期
交货日期
结算币种
美元
人民币
发 货 地
到 达 地
供 应 商
set rs=server.createobject("adodb.recordset")
sql = "select * from baidu_client where cTrade='供应商' "
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "请添供应商资料"
else
%>
rs.movenext
do while not rs.eof
%>
rs.movenext
loop
end if
rs.close
%>
船 公 司
set rs=server.createobject("adodb.recordset")
sql = "select * from baidu_client where cTrade='船公司'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "请先添加栏目。"
else
%>
rs.movenext
do while not rs.eof
%>
rs.movenext
loop
end if
rs.close
%>
相关要求 或 说 明
