asp_search_result_clt.~pas

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

              response.Write('<a href="http://'+Fdatamodule.ClientDataSet2.fieldbyname('desthost').AsString+'">'+Fdatamodule.ClientDataSet2.fieldbyname('desthost').AsString+'</a>');
              response.Write('</td>');
              response.Write('<td width="200">');
              response.Write(Fdatamodule.ClientDataSet2.fieldbyname('processingtime').AsString);
              response.Write('</td>');
              response.Write('<td width="200">');
              response.Write(datetostr(Fdatamodule.clientdataset2.fieldbyname('logdate').AsDateTime)+' '+timetostr(Fdatamodule.clientdataset2.fieldbyname('logtime').AsDateTime));
              response.Write('</td>');
              response.Write('<td width="2500">');
              response.Write('<a href="'+Fdatamodule.clientdataset2.fieldbyname('uri').AsString+'">'+Fdatamodule.clientdataset2.fieldbyname('uri').AsString+'</a>');
              response.Write('</td>');
              response.Write('</tr>');
              i:=i+1;
              if i=500 then
                  exit;
              Fdatamodule.clientdataset2.Next;
       end;
              response.Write('</table>');
     end;

end;

procedure Tco_asp_search3.search_user;
var
   s_workno,s_name,s_bm_name:string;
   s_select:string;
begin
    if vartostr(session.Contents.Item['qjh1'])='' then
    begin
        Response.Write('<p><img border="0" src="image/8420.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,11,1)='0' then
        begin
                Response.Write('<p><img border="0" src="image/8420.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']);
                s_name:=vartostr(request.Form.Item['t2']);
               // s_bm_name:=vartostr(request.Form.Item['t3']);
                s_bm_name:=copy(vartostr(request.Form.Item['t3']),1,4);
                s_select:='select a.userid  userid,b.name  name,b.bm_name bm_name,create_date,isgl from swyh a  ,vinternet b where a.userid=b.workno';
                if s_workno<>'' then
                s_select:=s_select+'  and a.userid='''+s_workno+'''';
                if s_name<>'' then
                s_select:=s_select+' and b.name='''+s_name+'''';
                if (s_bm_name<>'') and (s_bm_name<>'全部') then
                s_select:=s_select+' and bm_code='''+s_bm_name+'''';
               // s_select:='select userid,username,bm_name,create_date,isgl from swyh where 1=1';
               // if s_workno<>'' then
               // s_select:=s_select+'  and userid='''+s_workno+'''';
               // if s_name<>'' then
                //s_select:=s_select+' and username='''+s_name+'''';
                //if (s_bm_name<>'') and (s_bm_name<>'全部部门') then
               // s_select:=s_select+' and bm_name='''+s_bm_name+'''';
                Fdatamodule.cds_general2.Close;
                Fdatamodule.cds_general2.CommandText:=s_select;
                Fdatamodule.cds_general2.Open;
                Fdatamodule.cds_general2.First;
                Response.Write('<p><img border="0" src="image/8420.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="760">');
                response.Write('<tr>');
                response.Write('<td width="190">');
                response.Write('工号');
                response.Write('</td>');
                response.Write('<td width="190">');
                response.Write('姓名');
                response.Write('</td>');
                response.Write('<td width="190">');
                response.Write('部门');
                response.Write('</td>');
                response.Write('<td>');
                response.Write('创建日期');
                response.Write('</td>');
                response.Write('<td>');
                response.Write('是否过滤');
                response.Write('</td>');
                response.Write('</tr>');
                while not Fdatamodule.cds_general2.Eof do
                begin
                    response.Write('<tr>');
                    response.Write('<td width="190">');
                    response.Write(Fdatamodule.cds_general2.fieldbyname('userid').AsString);
                    response.Write('</td>');
                    response.Write('<td width="190">');
                    response.Write(Fdatamodule.cds_general2.fieldbyname('name').AsString);                    response.Write('</td>');
                    response.Write('<td>');
                    response.Write(Fdatamodule.cds_general2.fieldbyname('bm_name').AsString);
                    response.Write('</td>');
                    response.Write('<td>');
                    response.Write(Fdatamodule.cds_general2.fieldbyname('create_date').AsString);
                    response.Write('</td>');
                    response.Write('<td>');
                    if  trim(Fdatamodule.cds_general2.FieldByName('isgl').AsString)='0'  then
                    response.Write('否')
                    else  response.Write('是');
                    //response.Write(Fdatamodule.cds_general2.fieldbyname('isgl').asstring);
                    response.Write('</td>');
                    response.Write('</tr>');
                    Fdatamodule.cds_general2.Next;
                end;
                response.Write('</table>');
        end;
    end;

end;
procedure Tco_asp_search3.dellog;
var
   begin_date,end_date:string;
   s_del:string;
begin
    if vartostr(session.Contents.Item['qjh1'])='' then
    begin
        Response.Write('<p><img border="0" src="image/8420.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,12,1)='0' then
        begin
                 Response.Write('<p><img border="0" src="image/8420.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
            begin_date:=vartostr(request.Form.Item['t1']);
            end_date:=vartostr(request.Form.Item['t2']);
            s_del:='delete from webproxylog1 where 1=1';
            if begin_date<>'' then
            s_del:=s_del+' and logdate>='''+begin_date+'''';
            if end_date<>'' then
            s_del:=s_del+' and logdate<='''+end_date+'''';
            Fdatamodule.cds_general2.Close;
            Fdatamodule.cds_general2.CommandText:=s_del;
            Fdatamodule.cds_general2.Execute;
            Response.Write('<p><img border="0" src="image/8420.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;

procedure Tco_asp_search3.setgl;
var
   s_workno:string;
   s_del:string;

begin
    if vartostr(session.Contents.Item['qjh1'])='' then
    begin
        Response.Write('<p><img border="0" src="image/8420.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,13,1)='0' then
       begin
               Response.Write('<p><img border="0" src="image/8420.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/8420.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:='update swyh  set isgl=''1'' 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/8420.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_search3.cxqx;
var
     s_insert:string;
     s_workno,s_qx:string;
begin
     if vartostr(session.Contents.Item['qjh1'])='' then
     begin
          Response.Write('<p><img border="0" src="image/8420.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,3,1)='0' then
          begin
                Response.Write('<p><img border="0" src="image/8420.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']);
                s_qx:=vartostr(request.Form.Item['T2']);
                s_insert:='insert into szcxqx(userid,qxsign) values(:puserid,:pqxsign)';
                fdatamodule.ClientDataSet1.Close;
                fdatamodule.ClientDataSet1.CommandText:=s_insert;
                fdatamodule.ClientDataSet1.Params.ParamByName('puserid').AsString:=trim(s_workno);
                fdatamodule.ClientDataSet1.Params.ParamByName('pqxsign').AsString:=trim(s_qx);
                fdatamodule.ClientDataSet1.Execute;
                Response.Write('<p align="center">此用户已过滤</p>');
          end;
     end;
end;

initialization
  TAutoObjectFactory.Create(ComServer, Tco_asp_search3, Class_co_asp_search3,
    ciMultiInstance, tmApartment);
end.