checkkhinfo.asp

企业进销存管理系统

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
khname=trim(request("khname"))
jname=trim(request("jian"))
add=trim(request("add"))
bianma=trim(request("bianma"))
tel=trim(request("tel"))
fax=trim(request("fax"))
lian=trim(request("lian"))
ltel=trim(request("ltel"))
mail=trim(request("mail"))
xinhang=trim(request("xinhang"))
num=trim(request("num"))
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_khinfo"
rs.open sql,conn,1,3
   if not rs.eof then 
sql1="select  max(id) as id from tab_khinfo"
myrs.open sql1,conn,1,3
str=myrs("id")
khid=cint(mid(str,3,4))+1
khid="kh"&cstr(khid)
  else 
khid="kh1001"
end if
sql2="insert into tab_khinfo(id,khname,jian,address,bianma,tel,fax,lian,ltel,mail,xinhang,hao) values('"&khid&"','"&khname&"','"&jname&"','"&add&"','"&bianma&"','"&tel&"','"&fax&"','"&lian&"','"&ltel&"','"&mail&"','"&xinhang&"','"&num&"')"     
rec.open sql2,conn,1,3
%> 
<script language="javascript">
	alert("客户信息添加成功！");
	window.location.href="khinfo.asp";
</script>