checkspcg.asp

来自「企业进销存管理系统 企业级别的进销存管理系统」· ASP 代码 · 共 37 行

<%
if request("id")<>"" then
cgid=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="javascript">
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="javascript">
	alert("采购信息保存成功！");
	window.location.href="spcg.asp";
</script>