asp_search_result_clt.~pas

公司内部监控员工上网记录的系统

                       s_select:=s_select+'  and  b.logdate>='''+vartostr(request.Form.Item['t3'])+'''';
                       if  vartostr(request.Form.Item['t4'])<>''  then
                       s_select:=s_select+'   and  b.logdate<='''+vartostr(request.Form.Item['t4'])+'''';
                       s_select:=s_select+' group by a.workno,a.name,a.bm_name';
                   end  else  if  s_qx='科'  then
                   begin
                       s_select:='select a.workno  as  workno,a.name  as name,a.bm_name as bm_name,(sum(b.processingtime)/60000+1) as processingtime,sum(b.bytesrecvd)  as  bytesrecvd,sum(b.bytessent) as  bytessent';
                       s_select:=s_select+'  from vcontact a,webproxylog1 b,vtmp c where a.workno=b.clientusername  and a.workno=c.userid and c.isgl=''0'' and  a.bm_code  like  '''+copy(s_bm_code,1,3)+'%''';
                       if trim(vartostr(request.Form.Item['t1']))<>'' then
                       begin
                          s_workno:='nbzh\'+trim(vartostr(request.Form.Item['t1']));
                          s_select:=s_select+' and  a.workno='''+s_workno+'''';
                       end;
                       if trim(vartostr(request.Form.Item['t2']))<>'全部部门' then
                       begin
                           s_select:=s_select+'  and  a.bm_code='''+trim(copy(vartostr(request.Form.Item['t2']),1,4))+'''';
                       end;
                       if  vartostr(request.Form.Item['t3'])<>'' then
                       s_select:=s_select+'  and  b.logdate>='''+vartostr(request.Form.Item['t3'])+'''';
                       if  vartostr(request.Form.Item['t4'])<>''  then
                       s_select:=s_select+'   and  b.logdate<='''+vartostr(request.Form.Item['t4'])+'''';
                       s_select:=s_select+'  group by a.workno,a.name,a.bm_name';
                   end   else
                   begin
                        Response.Write('<p><img border="0" src="image/logo1.jpg" width="256" height="80"> <img border="0" src="image/title.jpg" width="480" height="80"></p>');
                        Response.Write('<p align="center"> </p>');
                        Response.Write('<p align="center"> </p>');
                        Response.Write('<p align="center">你还未分配查询权限</p>');
                   end;
                   Fdatamodule.cds_general1.Close;
                   Fdatamodule.cds_general1.CommandText:=s_select;
                   Fdatamodule.cds_general1.Open;
                   Response.Write('<p><img border="0" src="image/logo1.jpg" width="256" height="80"> <img border="0" src="image/title.jpg" width="480" height="80"></p>');
                   Response.Write('<p align="center"> </p>');
                   response.Write('<table border="1" width="850">');
                   response.Write('<tr>');
                   response.Write('<td  width="120">');
                   response.Write('工号');
                   response.Write('</td>');
                   response.Write('<td  width="100">');
                   response.Write('姓名');
                   response.Write('</td>');
                   response.Write('<td width="200">');
                   response.Write('部门');
                   response.Write('</td>');
                   response.Write('<td width="200">');
                   response.Write('上网时间总量(分)');
                   response.Write('</td>');
                   response.Write('<td width="150">');
                   response.Write('收到字节数');
                   response.Write('</td>');
                   response.Write('<td width="150">');
                   response.Write('发送字节数');
                   response.Write('</td>');
                   response.Write('</tr>');
                   Fdatamodule.cds_general1.First;
                   while not Fdatamodule.cds_general1.Eof do
                   begin
                        response.Write('<tr>');
                        response.Write('<td width="150">');
                        response.Write('<a href="search_detail.asp?workname='+Fdatamodule.cds_general1.fieldbyname('workno').AsString+'&pageno=1">'+Fdatamodule.cds_general1.fieldbyname('workno').AsString+'</a>');
                        session.Contents.Item['w_name']:=Fdatamodule.cds_general1.fieldbyname('workno').AsString;
                        response.Write('</td>');
                        response.Write('<td width="150">');
                        response.Write(Fdatamodule.cds_general1.fieldbyname('name').AsString);
                        response.Write('</td>');
                        response.Write('<td width="250">');
                        response.Write(Fdatamodule.cds_general1.fieldbyname('bm_name').AsString);
                        response.Write('</td>');
                        response.Write('<td width="250">');
                        response.Write(Fdatamodule.cds_general1.fieldbyname('processingtime').AsString);
                        response.Write('</td>');
                        response.Write('<td width="150">');
                        response.Write(Fdatamodule.cds_general1.fieldbyname('bytesrecvd').AsString);
                        response.Write('</td>');
                        response.Write('<td width="150">');
                        response.Write(Fdatamodule.cds_general1.fieldbyname('bytessent').AsString);
                        response.Write('</td>');
                        response.Write('</tr>');
                        Fdatamodule.cds_general1.Next;
                   end;
              end;
        end;
end;

procedure Tco_asp_search.adduser;
var
   s_workno,s_workname,s_department:string;
   s_insert:string;
begin
   if vartostr(session.Contents.Item['qjh1'])='' then
   begin
      Response.Write('<p><img border="0" src="image/logo1.jpg" width="256" height="80"> <img border="0" src="image/title.jpg" width="480" height="80"></p>');
      Response.Write('<p align="center"> </p>');
      Response.Write('<p align="center"> </p>');
      Response.Write('<p align="center">您未登入系统，请登入</p>');
   end else
   begin
        Fdatamodule.ClientDataSet2.Close;
        Fdatamodule.ClientDataSet2.CommandText:='select opright  from opright where userid='''+trim(vartostr(session.Contents.Item['qjh1']))+'''';
        Fdatamodule.ClientDataSet2.Open;
        if copy(Fdatamodule.ClientDataSet2.fieldbyname('opright').AsString,4,1)='0' then
        begin
               Response.Write('<p><img border="0" src="image/logo1.jpg" width="256" height="80"> <img border="0" src="image/title.jpg" width="480" height="80"></p>');
               Response.Write('<p align="center"> </p>');
               Response.Write('<p align="center"> </p>');
               Response.Write('<p align="center">您没有权限操作此模块</p>');
        end  else
        begin
               s_workno:=vartostr(request.Form.Item['t1']);
               Fdatamodule.cds_general2.Close;
               Fdatamodule.cds_general2.CommandText:='select userid from swyh where userid='''+s_workno+'''';
               Fdatamodule.cds_general2.Open;
               if Fdatamodule.cds_general2.RecordCount>0 then
               begin
                     Response.Write('<p><img border="0" src="image/logo1.jpg" width="256" height="80"> <img border="0" src="image/title.jpg" width="480" height="80"></p>');
                     Response.Write('<p align="center"> </p>');
                     Response.Write('<p align="center"> </p>');
                     Response.Write('<p align="center">此工号已存在，请输其它的工号</p>');
               end else
               begin
                     s_workname:=vartostr(request.Form.Item['t2']);
                     s_department:=vartostr(request.Form.Item['t3']);
                     s_insert:='insert into swyh(userid,username,bm_name) values('''+s_workno+''', '''+s_workname+''','''+s_department+''')';
                     Fdatamodule.cds_adduser.Close;
                     Fdatamodule.cds_adduser.CommandText:=s_insert;
                     Fdatamodule.cds_adduser.Execute;
                     Response.Write('<p><img border="0" src="image/logo1.jpg" width="256" height="80"> <img border="0" src="image/title.jpg" width="480" height="80"></p>');
                     Response.Write('<p align="center"> </p>');
                     Response.Write('<p align="center"> </p>');
                     Response.Write('<p align="center">新用户添加完成</p>');
                end;
        end;
   end;
end;

procedure Tco_asp_search.deluser;
var
   s_workno:string;
   s_del:string;

begin
   if vartostr(session.Contents.Item['qjh1'])='' then
   begin
        Response.Write('<p><img border="0" src="image/logo1.jpg" width="256" height="80"> <img border="0" src="image/title.jpg" width="480" height="80"></p>');
        Response.Write('<p align="center"> </p>');
        Response.Write('<p align="center"> </p>');
        Response.Write('<p align="center">您未登入系统，请登入</p>');
   end else
   begin
        Fdatamodule.ClientDataSet2.Close;
        Fdatamodule.ClientDataSet2.CommandText:='select opright  from opright where userid='''+trim(vartostr(session.Contents.Item['qjh1']))+'''';
        Fdatamodule.ClientDataSet2.Open;
        if copy(Fdatamodule.ClientDataSet2.fieldbyname('opright').AsString,5,1)='0' then
        begin
               Response.Write('<p><img border="0" src="image/logo1.jpg" width="256" height="80"> <img border="0" src="image/title.jpg" width="480" height="80"></p>');
               Response.Write('<p align="center"> </p>');
               Response.Write('<p align="center"> </p>');
               Response.Write('<p align="center">您没有权限操作此模块</p>');
        end  else
        begin
                s_workno:=vartostr(request.Form.Item['t1']);
                Fdatamodule.cds_general2.Close;
                Fdatamodule.cds_general2.CommandText:='select userid from swyh where userid='''+s_workno+'''';
                Fdatamodule.cds_general2.Open;
                if Fdatamodule.cds_general2.RecordCount<1 then
                begin
                     Response.Write('<p><img border="0" src="image/logo1.jpg" width="256" height="80"> <img border="0" src="image/title.jpg" width="480" height="80"></p>');
                     Response.Write('<p align="center"> </p>');
                     Response.Write('<p align="center"> </p>');
                     Response.Write('<p align="center">此用户不存在</p>');
                end else
                begin
                      s_del:='delete from swyh where userid='''+s_workno+'''';
                      Fdatamodule.cds_deluser.Close;
                      Fdatamodule.cds_deluser.CommandText:=s_del;
                      Fdatamodule.cds_deluser.Execute;
                      Response.Write('<p><img border="0" src="image/logo1.jpg" width="256" height="80"> <img border="0" src="image/title.jpg" width="480" height="80"></p>');
                      Response.Write('<p align="center"> </p>');
                      Response.Write('<p align="center"> </p>');
                      Response.Write('<p align="center">此用户已删除</p>');
                end;
        end;
   end;

end;

procedure Tco_asp_search.deldata;

begin

end;

procedure Tco_asp_search.set_right;
var
   s_right:string;
   s_workno:string;
   s_insert:string;

begin
    if  vartostr(session.Contents.Item['qjh1'])=''  then
    begin
          response.Write('<p><img border="0" src="image/logo1.jpg"  width="256"  height="80"><img border="0" src="image/title.jpg" width="480" height="80"></p>');
          response.Write('<p  align="center"></p>');
          response.Write('<p  align="center"></p>');
          response.Write('<p  align="center">您未登入系统,请登入</p>');
    end  else
    begin
           Fdatamodule.ClientDataSet2.Close;
           Fdatamodule.ClientDataSet2.CommandText:='select opright  from opright where userid='''+trim(vartostr(session.Contents.Item['qjh1']))+'''';
           Fdatamodule.ClientDataSet2.Open;
           if copy(Fdatamodule.ClientDataSet2.fieldbyname('opright').AsString,6,1)='0' then
           begin
                        Response.Write('<p><img border="0" src="image/logo1.jpg" width="256" height="80"> <img border="0" src="image/title.jpg" width="480" height="80"></p>');
                        Response.Write('<p align="center"> </p>');
                        Response.Write('<p align="center"> </p>');
                        Response.Write('<p align="center">您没有权限操作此模块</p>');
           end  else
           begin
                     s_workno:=vartostr(request.Form.Item['t1']);
                     Fdatamodule.cds_general2.Close;
                     Fdatamodule.cds_general2.CommandText:='select userid from opright where userid='''+s_workno+'''';
                     Fdatamodule.cds_general2.Open;
                     if Fdatamodule.cds_general2.RecordCount>0 then
                     begin