checkgysinfo.asp

企业进销存管理系统 企业级别的进销存管理系统

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
gysname=trim(request("gysname"))
jc=trim(request("jc"))
address=trim(request("address"))
bianma=trim(request("bianma"))
tel=trim(request("tel"))
fax=trim(request("fax"))
lian=trim(request("lian"))
ltel=trim(request("ltel"))
yh=trim(request("yh"))
mail=trim(request("mail"))
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_gysinfo"
rs.open sql,conn,1,3
if not rs.eof then
sql="select max(id) as id from tab_gysinfo"
myrs.open sql,conn,1,3
str=myrs("id")
gysid=cint(mid(str,4,4))+1
gysid="gys"&gysid
else
gysid="gys1001"
end if 
sql="insert into tab_gysinfo(id,name,jc,address,bianma,tel,fax,lian,ltel,yh,mail) values('"&gysid&"','"&gysname&"','"&jc&"','"&address&"','"&bianma&"','"&tel&"','"&fax&"','"&lian&"','"&ltel&"','"&yh&"','"&mail&"')"
rec.open sql,conn,1,3
%>
<script language="javascript">
	alert("供应商信息添加成功！");
	window.location.href="gysinfo.asp";
</script>