spname=request("spname")
cs=request("cs")
gg=request("gg")
bz=request("bz")
dw=request("dw")
dj=request("dj")
sl=request("sl")
je=request("je")
cgdate=request("cgdate")
memo=request("memo")
dj=cstr(dj)&"元"
sl=cstr(sl)&dw
je=cstr(je)&"元"
if spname="" or cs="" or gg="" or bz="" or dw="" or dj="0" or sl="0" or je="0" then '判断表单元素是否为空
%>
<script language="java script">
alert("您必须全部填写") //弹出提示对话框
history.back(1) //返回上一级页面
</script>
<%response.end
end if
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open application("dsn")
sql="insert into tab_cgdan(id,spname,cs,gg,bz,dw,dj,sl,je,cgdate,memo) values('"&cgid&"','"&spname&"','"&cs&"','"&gg&"','"&bz&"','"&dw&"','"&dj&"','"&sl&"','"&je&"','"&cgdate&"','"&memo&"')" '插入新记录
rs.open sql,conn,1,3
end if
%>
<script language="java script">
alert("采购信息保存成功！"); '弹出提示对话框
window.location.href="spcg.asp"; '重新定向页面
</script>
商品采购页面的运行结果如图12所示。
图12 商品采购页面的运行结果
8.2 采购查询设计
采购查询是为采购员提供的对采购信息进行查询的功能，以便跟踪采购信息的执行情况，为企业的采购决策提供依据。
用户可以通过单击菜单主导航“采购管理”/“采购查询”超链接，进入采购查询页面。该页面主要完成采购信息的检索。
采购查询页面设计效果如图13所示。
图13 采购查询页面设计效果
采购查询页面中涉及的HTML表单元素如表6所示。
表6 采购查询页面中涉及的HTML表单元素
名称 类型 含义 重要属性
myform from 表单 action="checkcgindex.asp" method="post"
flag checkbox 复选框 class="noborder" id="flag" value="1" checked
sel select 选择查询字段 <option value="spname" selected>商品名称</option>
<option value="cs">厂商</option>
tj select 选择条件运算符 <option value="=" selected>等于</option>
<option value="like">LIKE</option>>
qname text 输入查询关键字 id="qname"
subb button 【查询】按钮 onClick="send()"
flag checkbox 复选框 class="noborder" id="flag" value="2"
sdate text 起始日期 value="<%=year(date)&"-01-01"%>"
edate text 截止日期 value="<%=date()%>"
but button 【显示全部数据】按钮 onClick="window.location.href='checkcgindex.asp?type=all'"
用户可以在采购查询页面中的查询部分，输入一定的查询条件，单击【查询】按钮后，用户添加查询条件将被提交给本页，本页则将根据用户提交的表单对数据