相关代码 |
|
if Request.Form("khname")"" then
'判断用户输入的客户信息是否存在
set rs=server.CreateObject("ADODB.RecordSet")
sql="SELECT khname FROM dbo.tab_customer WHERE khname='"&Request.Form("khname")&"'"
set rs=conn.execute(sql)
khname=request.Form("khname")
khjc=request.Form("khjc")
address=request.Form("address")
postcode=request.Form("postcode")
tel=request.Form("tel")
fax=request.Form("fax")
lxr=request.Form("lxr")
lxrtel=request.Form("lxrtel")
email=request.Form("email")
khyh=request.Form("khyh")
yhzh=request.Form("yhzh")
if rs.eof then '保存客户信息
sql_Ins="Insert into dbo.tab_customer (khname,khjc,address,postcode,tel,fax,lxr,"&_
"lxrtel,email,khyh,yhzh) values('"&khname&"','"&khjc&"','"&address&"','"&postcode&_
"','"&tel&"','"&fax&"','"&lxr&"','"&lxrtel&"','"&email&"','"&khyh&"','"&yhzh&"')"
conn.execute(sql_Ins)
response.Write("")
response.Write("alert("""&"数据保存成功！"&""");")
response.Write("")%>
alert("该客户信息已经存在！");
history.back();
end if%>
明日企业网上销售管理系统
function check()
{
if (form1.khname.value=="")
{ alert("您没有输入客户全称！");form1.khname.focus();
return;}
if (form1.address.value=="")
{alert("请输入地址！");form1.address.focus();return;}
if(form1.Email.value!="")
{if(form1.Email.value.indexOf('@',0)==-1||
form1.Email.value.indexOf('.',0)==-1)
{alert("您输入的E-mail地址无效！");form1.Email.focus();return;}
}
if (form1.tel.value=="")
{alert("请输入电话！");form1.tel.focus();return;}
if (form1.lxr.value=="")
{alert("请输入联系人姓名！");form1.lxr.focus();return;}
form1.submit();}
align="center">
客户信息登记
注：带*号项必须填写。
客户全称：
*
客户简称：
地 址：
*
邮政编码：
电 话：
*
传 真：
联 系 人：
*
联系人电话：
E-Mail：
开户银行：
银行帐号：