dinggousave.asp

汽车销售集团网站汽车销售集团网站汽车销售集团网站汽车销售集团网站

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file=DataBase/conn.asp-->
<% 
if request("name")<>"" and request("counts")<>"" and request("payment")<>"" and request("color")<>"" and request("enterprise")<>"" and request("address")<>"" and request("area")<>"" and request("dealer")<>"" and request("linkman")<>""and request("phone")<>""and request("fax")<>""and request("email")<>""and request("phost")<>""and request("remark")<>"" then  '判断订单中有没有未填写的项
	set rs=server.CreateObject("adodb.recordset") 
	sql="select * from tb_dd "
	rs.open sql,conn,1,3                    '1,3代表可以进行添加、修改或删除，1,1代表只可以进行查询
	'添加数据
	rs.addnew
	rs("name")=request("name")              
	rs("counts")=request("counts")
	rs("payment")=request("payment")
	rs("color")=request("color")
	rs("EnterpriseName")=request("enterprise")
	rs("address")=request("address")
	rs("area")=request("area")
	rs("dealer")=request("dealer")
	rs("linkman")=request("linkman")
	rs("phone")=request("phone")
	rs("fax")=request("fax")
	rs("email")=request("email")
	rs("PhoneNumber")=request("phost")
	rs("remark")=request("remark")
	rs("IssueDate")=date()
	rs("Whether")="未授理"
	
	rs.update
	rs.close
	response.Write("<script language=javascript>alert('订单提交成功');window.close()</script>")
else 
	response.Write("<script language=javascript>alert('请把信息填写完整');location='javascript:history.go(-1)'</script>") '如果有未填写的项目，用js提示 
end if
%>
    <style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
-->
    </style>
 </p>