asp_search_result_clt.pas

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

   s_workno,s_workname:string;
   s_insert:string;
   s_logname: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,7,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_logname:=vartostr(session.Contents.Item['qjh1']);
                Fdatamodule.cds_general2.Close;
                Fdatamodule.cds_general2.CommandText:='select userid from userinfo where userid='''+s_workno+'''';
                Fdatamodule.cds_general2.Open;
                if Fdatamodule.cds_general2.RecordCount>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_workname:=vartostr(request.Form.Item['t2']);
                     s_insert:='insert into userinfo(userid,username) values('''+s_workno+''','''+s_workname+''')';
                     Fdatamodule.cds_operator.Close;
                     Fdatamodule.cds_operator.CommandText:=s_insert;
                     Fdatamodule.cds_operator.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.deloperator;
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,9,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 userinfo 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:='delete from userinfo where userid='''+s_workno+'''';
                     Fdatamodule.cds_deloperator.Close;
                     Fdatamodule.cds_deloperator.CommandText:=s_del;
                     Fdatamodule.cds_deloperator.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.modipassword;
var
    s_workno: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
       s_workno:=vartostr(session.Contents.Item['qjh1']);
       Fdatamodule.cds_general1.Close;
       Fdatamodule.cds_general1.CommandText:='select * from userinfo where userid='''+s_workno+''' and userpassword='''+vartostr(request.Form.Item['t1'])+'''';
       Fdatamodule.cds_general1.Open;
       if Fdatamodule.cds_general1.RecordCount=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
              if vartostr(request.Form.Item['t2'])<>vartostr(request.Form.Item['t3']) 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.cds_general2.Close;
                    Fdatamodule.cds_general2.CommandText:='update userinfo set userpassword='''+vartostr(request.Form.Item['t2'])+''' where userid='''+s_workno+'''';
                    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;
end;
procedure Tco_asp_search3.search_detail;
var
   s_name,begin_date,end_date:string;
   s_select:string;
   i:integer;
   s_total_string:string;
   total_page:integer;
   n:integer;
begin
   session.Contents.Item['w_name']:=request.QueryString.Item['workname'];
  // i:=0;
   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
       s_name:=vartostr(request.QueryString.Item['workname']);
       begin_date:=vartostr(Session.Contents.Item['begin_date']);
       end_date:=vartostr(Session.Contents.Item['end_date']);
       s_total_string:='select count(id) as tmp from webproxylog1  where clientusername='''+s_name+'''';
       if trim(begin_date)<>'' then
       s_total_string:=s_total_string+' and logdate>='''+begin_date+'''';
       if  trim(end_date)<>''  then
       s_total_string:=s_total_string+' and logdate<='''+end_date+'''';
       Fdatamodule.cds_general1.Close;
       Fdatamodule.cds_general1.CommandText:=s_total_string;
       Fdatamodule.cds_general1.Open;
       session.Contents.Item['s_total']:=Fdatamodule.cds_general1.fieldbyname('tmp').AsString;
       s_select:='select    a.id as id,a.desthost as desthost,(a.processingtime/1000+1) as processingtime,a.logdate as logdate ,a.logtime as logtime';
       s_select:=s_select+' ,a.uri as uri from webproxylog1 a  where a.clientusername='''+s_name+'''';
       if begin_date<>'' then
       s_select:=s_select+' and a.logdate>='''+begin_date+'''';
       if end_date<>'' then
       s_select:=s_select+' and a.logdate<='''+end_date+'''';
       s_select:=s_select+' order by a.id';
      // s_select:='select top 30 a.id,a.desthost as desthost, a.processingtime,a.logdate as logdate ,a.logtime as logtime, a.uri as uri from webproxylog1 a  where a.clientusername=''NBZH\10799''   and   a.logdate > =''2003-11-24''  and  a.logdate<= ''2003-12-28''  order by a.id';
       Fdatamodule.clientdataset2.Close;
       Fdatamodule.clientdataset2.CommandText:=s_select;
       Fdatamodule.clientdataset2.Open;
       if (fdatamodule.ClientDataSet2.RecordCount mod 500)=0 and (trunc(fdatamodule.ClientDataSet2.RecordCount/500))  then
           total_page:=trunc(fdatamodule.ClientDataSet2.RecordCount/500)
       else  total_page:=trunc(fdatamodule.ClientDataSet2.RecordCount/500)+1;
       Fdatamodule.ClientDataSet2.First;
       n:= strtoint(request.QueryString.Item['pageno']);
       Fdatamodule.ClientDataSet2.MoveBy((n-1)*500);
       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('<a href="search_detail.asp?workname=">第一页</a>');
      // Response.Write('<a href="search_detail.asp?workname=">上一页</a>');
      // Response.Write('<a href="search_detail.asp?workname='+vartostr(session.Contents.Item['w_name'])+'">下一页</a>');
       Response.Write('<a href="search_detail.asp?workname='+vartostr(session.Contents.Item['w_name'])+'&pageno=0">第一页</a>');

       response.Write('&nbsp;&nbsp;');
       if  n=1  then
             response.Write('上一页')
       else
       Response.Write('<a href="search_detail.asp?workname='+vartostr(session.Contents.Item['w_name'])+'&pageno='+inttostr(n-1)+'">上一页</a>');
       response.Write('&nbsp;&nbsp;');
       if  n=total_page then
              response.Write('下一页')
       else
       Response.Write('<a href="search_detail.asp?workname='+vartostr(session.Contents.Item['w_name'])+'&pageno='+inttostr(n+1)+'">下一页</a>');
       response.Write('&nbsp;&nbsp;');
       Response.Write('<a href="search_detail.asp?workname='+vartostr(session.Contents.Item['w_name'])+'&pageno='+inttostr(total_page)+'">最后一页</a>');
       Response.Write('     当前用户共有'+vartostr(session.Contents.Item['s_total'])+'条记录');
      // Response.Write('<a href="search_detail.asp?workname=">最后一页</a>');
       Response.Write('<p align="center"> </p>');
       response.Write('<table border="1" width="3100">');
       response.Write('<tr>');
       response.Write('<td width="200">');
       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="2500">');
       response.Write('网址');
       response.Write('</td>');
       response.Write('</tr>');
  {     for  i:=1  to 500 do
       begin
              response.Write('<tr>');
              response.Write('<td width="200">');
              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>');
              Fdatamodule.clientdataset2.Next;
       end;  }
       i:=0;
       while not Fdatamodule.clientdataset2.Eof do
       begin
              response.Write('<tr>');
              response.Write('<td width="200">');