客户端访问CUP占用率太高了

huangyue

1、这个做过清理了，问题还是在

2、系统日志功能确实是打开了，我关闭了还是不行？？AddSystemLog这个函数的写法确实是cSQL = 'select * from TSysLog。。不过这个的改进方法不是旧版本的么？新版本怎么改进？（我以前用久版本的时候和你沟通过，是通过加长日志表的字段来改进）？？我们的版本是3088

3、服务器的资源占用情况正常，没有出现如1和2楼的图的情况

4、用平台监控来看，没有那个时间是很长的啊？？您看下附件

zfang

2、系统日志功能确实是打开了，我关闭了还是不行？？
关闭了还不行么？那不应该的

AddSystemLog这个函数的写法确实是cSQL = 'select * from TSysLog。。不过这个的改进方法不是旧版本的么？新版本怎么改进？（我以前用久版本的时候和你沟通过，是通过加长日志表的字段来改进）？？我们的版本是3088

不是这样的改进，是按下面的改
AddSystemLog函数为下面这样
static procedure TSystemCore.AddSystemLog(AContext: TContext;AType, ADescription: string);
const
  cSQL = 'insert into TSYSLOG(FTYPE, FDESCRIPTION, FCOMPUTER, FGUID, '+
         ' FDATE, FTIME, FUSER, FUSERCaption,'+
         ' FSTATION, FDEPT, FURL, FSTATIONCation, FDEPTCation) ' +
         'values(''%s'', ''%s'', ''%s'', ''%s'', '+
         ':t1, :t2,''%s'',''%s'','+
         '''%s'',''%s'',''%s'',''%s'',''%s'')';
var
  lQuery: TQuery;
  lComputerIP: string;
  IsSystemManager: Boolean;
  lOperatorPosition: TOperatorPosition;
begin
  if not TSettingLib.GetDefaultConfig.RecordSystemLog or not (SysUtils.AnsiPos('SYSTEM', TSettingLib.GetDefaultConfig.SystemLogKinds) > 0) then
    Exit;

  lOperatorPosition := TContextUtils.FindOperatorPosition(AContext);
  if (lOperatorPosition = nil) and not Opr.IsSystemManager(TSystemCore.Operator.ID) then
    lOperatorPosition := TSystemCore.Operator.DefaultPosition;
  lComputerIP := '计算机名：'+ JSSysUtils.GetComputerName + '('+ JSSysUtils.GetLocalIPStr+ ')';

  lQuery := TQuery.Create(AContext.Owner);
  try
    lQuery.ConnectionString := cSysDatabaseConnectionString;
    if Opr.IsSystemManager(TSystemCore.Operator.ID) then
      lQuery.CommandText := SysUtils.Format(cSQL,[AType, ADESCRIPTION, lComputerIP, jsCommon.CreateGUIDStr, 'System', '系统管理员' ,'','','','',''])
    else
      lQuery.CommandText := SysUtils.Format(cSQL, [AType, ADESCRIPTION, lComputerIP, jsCommon.CreateGUIDStr,
          TSystemCore.Operator.ID, TSystemCore.Operator.DisplayName , lOperatorPosition.PositionID,
          lOperatorPosition.DeptID, lOperatorPosition.PersonMember.BizURL.URL,
          lOperatorPosition.Position.DisplayName ,lOperatorPosition.PersonMember.Parent.Parent.DisplayName]);

    with lQuery do
    begin
      Close;
      Params.ParamByName('t1').AsDate := SysSrv.SysService.Time;
      Params.ParamByName('t2').AsDateTime := SysSrv.SysService.Time;
      Execute;
    end;

  finally
    lQuery.Free;
  end;
end;

huangyue

1、确实我用System进去把系统日志功能的勾去掉了退出登陆等待一会还是冲到cpu100%
2、这个改进方法确实是以前和你沟通的时候给的，前提是还要把表里面的计算机名字段加长到255（现在我这边的环境改不了这个字段，服务已是上线运行，要和客户沟通才能这样改，要不客户就没法干活了）

要不远程看下吧？这个问题是当务之急啊！

huangyue

又一个星期了。。。问题还是没解决啊

haochunrong

我登录时间就花了接近8分钟 ，数据库服务器和业务服务器都是一般的机器，我也在论坛里找过了，做了一些优化，但是这样慢 ，之前我把服务器都装在一台机器上大，倒反比分开的还要快多了，简直无语了

huangyue

杯具啊，我这边是配置了内外网访问的，去掉外网的配置好像就不会出现这个现象了？？这该咋整呢？？

haochunrong

如果不是很需要内外网访问的话，只要内网访问了，这样安全性也提高了

huangyue

最初由 haochunrong 发布
[B]如果不是很需要内外网访问的话，只要内网访问了，这样安全性也提高了 [/B]

内网访问速度是没问题的，可是很多情况下也是要在外办公的，看来这平台对支持多IP还是有缺陷呢？？

huangyue

起步要抛弃X3了？客户因为这个问题也要抛弃这系统了。。。。是不是不能同时链接50--100个客户端？？

Herry

路过

如果确认是单ip比多IP运行速度快很多，那么把business.jsp发过去起步帮分析一下吧，
另外最好把config.justep.xml文件也发过去，有没有使用节点分布下载缓存。