基于asp的客户关系管理系统

基于asp的客户关系管理系统内容摘要：

‘需求周期 rs(SetTime)=now() ‘创建时间 rs(EditTime)=now() ‘修改时间 rs(SetName)=session(admin_name) ‘创建人 – 9 – ()‘弹出成功对话框 end if% 3．客户信 息修改 在显示客户详细信息页面，用户可以浏览、修改其客户的详细信息。 进行客户详细信息浏览和修改的页面设计效果如图 6 所示： 图 6 客户信息修改页面设计效果 在客户信息修改页面，用户可以浏览客户详细的信息，也可以修改客户的信息（当用户有修改的权限时，那么用户可以进行修改，至于用户权限的实现，将在后面的章节中进行讲解）。 当用户单击【修改】按钮后，修改的数据将被提交到本页进行处理。 数据处理的代码如下： % if request(post) and (rsr(Client)=可写 or rsr(chaoji)=是 ) then set rs=() sql=select * from tb_Client where id=amp。 request(id) sql,conn,1,3 rs(ClientName)=request(ClientName) ‘添加公司名称 rs(ClientAddress)=request(ClientAddress) ‘公司地址 rs(ClientTel)=request(ClientTel) ‘公司电话 rs(ClientFax)=request(ClientFax) ‘公司传真 rs(ClientNumber)=request(ClientNumber) ‘邮政编码 rs(ClientPage)=request(ClientPage) ‘公司网址 rs(ClientEmail)=request(ClientEmail) ‘公司 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) ‘年度订单 – 10 – rs(ClientCyc)=request(ClientCyc) ‘需求周期 rs(EditTime)=now() ‘修改时间 rs(SetName)=session(admin_name) ‘创建人 ()‘弹出成功对话框 end if % 4．客户信息删除 在客户信息管理页面，用户可以点选任意一条客户信息前面的复选框，然 后单击页面下方的【删除】按钮，被选择的客户信息将被删除。 客户信息删除主要是根据传递的参数（本例中的参数为客户信息的 id），将数据库中对应 id的客户信息和其他和客户相关的信息全部删除，程序代码如下： % call client 39。 验证是否有删除客户信息的权限 if request(del) then kid=Split(Request(del),) ‘分解字符串成数组 for i=0 to ubound(kid) sqld=delete from tb_Client where id=amp。 clng(kid(i))39。 删除客户信息 (sqld) sqll=delete from tb_Linkman where LinkmanClient=amp。 clng(kid(i))39。 删除客户的联系人信息 (sqll) sqlp=delete from tb_Pact where PactClient=amp。 clng(kid(i))39。 删除客户的合同信息 (sqlp) sqlp=delete from tb_Feedback where FeedbackClient=amp。 clng(kid(i))39。 删除客户反馈信息 (sqlp) sqlp=delete from tb_Product where ProductProvider=amp。 clng(kid(i))39。 删除客户的产品信息 (sqlp) next if request(p)= then 39。 返回用户操作页 () else (?p=amp。 request(p)) end if else (script language=javascriptalert(39。 请选择要删除的信息39。 )。 location=39。 javascript:(1)39。 /script) end if% 联系人信息管理设计 联系人信息管理的主要功能包括显示 /查询、添加、修 改和删除联系人信息 4 个部分。 用户可 – 11 – 以通过功能导航进入联系人信息管理页面，页面设计效果如图 7 所示。 图 7 联系人信息管理页面设计效果 1．联系人信息显示 /查询 用户可以在联系人信息管理页面中的查询部分，输入一定的查询条件进行联系人信息的查询。 用户在查询部分输入条件后，单击【查询】按钮，用户添加的查询条件将被提交给本页，本页则将根据用户提交的表单信息对数据库进行检索，并将结果集通过操作区输出到浏览器中。 查询代码如下： % if request(post) then if request(tiao)=模糊查询 then’ 联系人模糊查询 set rs=() sql=select * from tb_Linkman where amp。 request(sel)amp。 like 39。 %amp。 request(search)amp。 %39。 order by id desc sql,conn,1,1 else ‘联系人精确查询 set rs=() sql=select * from tb_Linkman where amp。 request(sel)amp。 =39。 amp。 request(search)amp。 39。 order by id desc sql,conn,1,1 end if else’ 默认状态下显示联系人列表 set rs=() sql=select * from tb_Linkman order by id desc sql,conn,1,1 end if % 分页代码请参考 节中介绍的客户信息显示 /查询中的相关代码。 也可在查看客户的详细信息中，单击“联系人信息”，就会产生此客户的联系人列表，传参代码如下： a href=?post=trueamp。 sel=LinkmanClientamp。 search=%=rsx(id)%amp。 dd=dd联系人信息 /a 2．联系人信息添加 联系人信息添加的主要功能是添加客户的联系人信息。 在查询页面中单击【添加】按钮 ，在展示区中会显示添加页面。 在添写表单选择所属客户时， – 12 – 所属客户是在数据库中直接读取出来的。 其代码如下： % set rsc=() sqlc=select * from tb_Client order by id desc sqlc,conn,1,1 if not then % select name=LinkmanClient id=LinkmanClient % for i=1 to and not % option value=%=rsc(id)%%=rsc(ClientName)%/option % next% /select % else (没有客户信息，请 a href=39。 39。 target=39。 bo39。 添加 /a) end if% 添加联系人页面的运行结果如图 8 所示。 图 8 添加联系人的页面运行结果 也可在客户的详细信息中单击【新建】按钮，在此添加用户不用选择所属客户，直接就会生成所属客户，主要是根据传递的参数（本例中的参数为客户信息的 id），传参代码如下： a href=?id=%=rsx(id)%span class=style2新建 /span/a 其显示代码如下： % set rsc=() sqlc=select * from tb_Client where id=amp。 request(id)amp。 order by id desc sqlc,conn,1,1 (rsc(ClientName)) % – 13 – 3．联系人信息修改 联系人信息修改的主要功能是用户修改联系人信息，方便用户和客户之间的联系和沟通。 在显示联系人详细信息页面，用户可以更改其联系人的信息。 联系人信息修改页面运行结果如图 9 所示。 图 9 联系人信息修改页面运行结果 4．联系人信息删除 联系人信息 删除的主要功能是删除联系人的信息。 ，其程序代码如下： % kid=Split(Request(del),) ‘分解字符串成数组 (正在删除 ...) for i=0 to ubound(kid) sqld=delete from tb_Linkman where id=amp。 clng(kid(i)) ‘删除指定的记录 (sqld) next % 合同信息管理 合同信息管理设计主要包括显示 /查询、添加、修改和删除合同信息 4个部分。 用 户可以通过功能导航进入合同信息管理页面，页面设计效果如图 10 所示。 图 10 合同信息管理页面的运行结果 1．合同信息显示 /查询 用户可以在合同信息管理页面中的查询部分，输入一定的查询条件，进行合同信息的查询。 用户在查询部分输入查询条件后，单击【查询】按钮，用户所添加的查询条件将被提交给本页，本页将根据用户提交的表单信息对数据库进行检索，并将结果集通过操作区输出到浏览器中。 合同信息查询程序代码如下： % – 14 – if request(post) then if request(tiao)=模糊查询 then‘模糊查询合同信息 set rs=() sql=select * from tb_Pact where amp。 request(sel)amp。 like 39。 %amp。 request(search)amp。 %39。 order by id desc sql,conn,1,1 else’精确查询合同信息 set rs=() sql=select * from tb_Pact where amp。 request(sel)amp。 =39。 amp。 request(search)amp。 39。 order by id desc sql,conn,1,1 end if else’ 默认状态下显示的合同信息 set rs=() sql=select * from tb_Pact order by id desc sql,conn,1,1 end if % 合同信息显示 /查询页面运行结果如图 11 所示。 图 11 合同信息显示 /查询页面运行结果 也可在查看客户的详细信息中，单击“合同信息”，就会产生此客户的合同列表，传参代码如下： a href=?post=tr。