“一点通”ecrm客户关系管理系统修改笔记

时间:2014/11/20 10:53:47  作者:Mho  来源:原创  查看:88883  评论:1
内容摘要:“一点通”ecrm客户关系管理系统,程序有点老,但是,思路很经典,程序也算是比较完整,从网上下载下来,在本地根目录测试,OK,完全没有问题,但是,上传到网上,放到子目录中,就不行了。


“一点通”ecrm客户关系管理系统,程序有点老,但是,思路很经典,程序也算是比较完整,从网上下载下来,在本地根目录测试,OK,完全没有问题,但是,上传到网上,放到子目录中,就不行了。因为自己对网站开发不了解,浪费了不少时间在上面。其实,问题的根本是数据库路径的问题,是个小问题,但是,我还是花了很多时间,通过不断的查资料,尝试,终于得到正确的解决方法。修改笔记写下来,以备日后查看。

修改:

1、数据库链接

把 include/PubConn.asp 中第 16 行的代码

datapath=Server.MapPath("/")+"/crmdb.mdb"

修改成为:(假设子目录是crm)

datapath=Server.MapPath("/crm/crmdb.mdb")

2、代码解密

可以使用“VBScript.Encode解密器”进行解码,提供一个推荐网址 http://www.2ey.cn/gj.asp

 

3、每页显示数据的行数

在Customer文件夹下,找到相应的文件,在代码中查找“PageSize =”,这个就是控制每页显示数据行数的变量。比如下列:

<% rs.PageSize = 2 '每页显示记录数
Page = CLng(Request("Page"))
If Page < 1 Then
Page = 1
If Page > rs.PageCount Then
Page = rs.PageCounti=page+(page-1)*(rs.PageSize-1)
rs.AbsolutePage = Page %>

4、页面刷新时间的设定

修改文件 rscontrol.asp 的头部信息<META HTTP-EQUIV="Refresh" content="5; URL=<%=linkurl%>">  ,把数字“5” 改成自己想要的数字,这个时间的单位,是 秒  。

5、“联系人明细查询”页面丰富查询功能

修改前:
“一点通”ecrm客户关系管理系统修改笔记



修改后:(增加按联系人名字查询,并且,客户栏变成下拉菜单。)
“一点通”ecrm客户关系管理系统修改笔记



代码修改记录:修改文件夹 LinkMan 中的 D_linkManbrow.asp 文件 ,先把加密的asp文件解密,然后,把以下代码

'if khmc<>"" then
'  str=str&" and ClientName like '%"&khmc&"%'"
'end if

替换成
if khmc<>"" and lxrxm<>"" then
  str=str&" and ClientName like '%"&khmc&"%' and linkman like '%"&lxrxm&"%'"
  elseif khmc<>"" and lxrxm="" then
  str=str&" and ClientName like '%"&khmc&"%'"
  elseif khmc="" and lxrxm<>"" then
  str=str&"and linkman like '%"&lxrxm&"%'"
end if

同时,把以下代码:
  <tr>                                                                  
    <td width="254" align="right" width="151" width="150" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">                 
           
     <font size="2">客户名称&nbsp; </font><input type="text" size="25" name="khmc">   
    </td>                                                                  
    <td width="172" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">                                                                        
    <input type="submit" value="查询" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1" >&nbsp; &nbsp;&nbsp;                                 
                              
    </td>                                                                                                     
 </tr>   

替换成:
  <tr>                                                                  
    <td width="250" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">                 
    <%
set rs1=server.createobject("adodb.recordset")
exec="select ClientName from D_viewlinkMan  where DepartID like '"&Session("DepartID")&"%' group by ClientName"
rs1.open exec,pubconn,1,3
%>
<span class="style8">客户名称</span>
<select name="khmc">
  <option></option>
  <% if not rs1.eof then
do while not rs1.eof and not rs1.bof
%>
  <option value="<%=rs1("ClientName")%>"><%=rs1("ClientName")%></option>
  <%
rs1.movenext
loop
rs1.close
set rs1=nothing
end if
%>
</select></td>  
     <td width="250" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">                 
           
     <font size="2">联系人姓名&nbsp; </font>
     <input type="text" size="25" name="lxrxm">    </td>                                                                
    <td width="172" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">                                                                        
    <input type="submit" value="查询" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1" >&nbsp;&nbsp;&nbsp;    </td>                                                                                                     
 </tr>   












 


相关评论

图库精选