rs("ClientTel")=request("ClientTel") ‘公司电话
rs("ClientFax")=request("ClientFax") ‘公司传真
rs("ClientNumber")=request("ClientNumber") ‘邮政编码
rs("ClientPage")=request("ClientPage") ‘公司网址
rs("ClientEmail")=request("ClientEmail") ‘公司email
rs("ClientCountry")=request("ClientCountry") ‘所属国家/地区
rs("ClientHabitude")=request("ClientHabitude") ‘公司性质
rs("ClientSize")=request("ClientSize") ‘公司规模
rs("ClientCity")=request("ClientCity") ‘所属城市
rs("ClientPay")=request("ClientPay") ‘结款方式
rs("ClientCredit")=request("ClientCredit") ‘结款信用
rs("ClientList")=request("ClientList") ‘最高订单‘
rs("ClientYear")=request("ClientYear") ‘年度订单
rs("ClientCyc")=request("ClientCyc") ‘需求周期
rs("EditTime")=now() ‘修改时间
rs("SetName")=session("admin_name") ‘创建人
rs.update
rs.close
response.Write("<script language=java script>alert('客户信息修改成功')</script>")‘弹出成功对话框
end if
%>
4．客户信息删除
在客户信息管理页面，用户可以点选任意一条客户信息前面的复选框，然后单击页面下方的【删除】按钮，被选择的客户信息将被删除。
客户信息删除主要是根据传递的参数（本例中的参数为客户信息的id），将数据库中对应id的客户信息和其他和客户相关的信息全部删除，程序代码如下：
<%
call client '验证是否有删除客户信息的权限
if request("del")<>"" then
kid=Split(Request("del"),",") ‘分解字符串成数组
for i=0 to ubound(kid)
sqld="delete from tb_Client where id="&clng(kid(i))'删除客户信息
conn.execute(sqld)
sqll="delete from tb_Linkman where LinkmanClient="&clng(kid(i))'删除客户的联系人信息
conn.execute(sqll)
sqlp="delete from tb_Pact where PactClient="&clng(kid(i))'删除客户的合同信息
conn.execute(sqlp)
sqlp="delete from tb_Feedback where FeedbackClient="&clng(kid(i))'删除客户反馈信息
conn.execute(sqlp)
sqlp="delete from tb_Product where ProductProvider="&clng(kid(i))'删除客户的产品信息
conn.execute(sqlp)
next
if request("p")="" then '返回用户操作页
response.Redirect("KeHu_KeHu.asp")
else
response.Redirect("KeHu_KeHu.asp?p="&request("p"))
end if
else
response.Write("&
首页 上一页 1 2 3 4 5 6 7 下一页 尾页 3/11/11
ASP客户关系管理系统(三)由毕业论文网（www.huoyuandh.com）会员上传。
