d=request("id")
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所示。
