checkspinfo.asp

企业进销存管理系统

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
spname=trim(request("spname"))
jc=trim(request("jc"))
cd=trim(request("cd"))
dw=trim(request("dw"))
gg=trim(request("gg"))
bz=trim(request("bz"))
ph=trim(request("ph"))
pzwh=trim(request("pzwh"))
gysname=trim(request("gysname"))
memo=trim(request("memo"))
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
set myrs=server.createobject("adodb.recordset")
set rec=server.createobject("adodb.recordset")
conn.open application("dsn")
sql="select id from tab_spinfo"
rs.open sql,conn,1,3
   if not rs.eof then 
sql="select max(id) as id from tab_spinfo"
myrs.open sql,conn,1,3
str=myrs("id")
spid=cint(mid(str,3,4))+1
spid="sp"&spid
else
spid="sp1001"
   end if
sql="insert into tab_spinfo(id,spname,jc,cd,dw,gg,bz,ph,pzwh,gysname,memo) values('"&spid&"','"&spname&"','"&jc&"','"&cd&"','"&dw&"','"&gg&"','"&bz&"','"&ph&"','"&pzwh&"','"&gysname&"','"&memo&"')"
rec.open sql,conn,1,3
%> 
<script language="javascript">
	alert("商品信息添加成功！");
	window.location.href="spinfo.asp";
</script>