ASP客户关系管理系统(三)

址
 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客户关系管理系统(三)相关范文