asp_search_result_clt.pas

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

                         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_right:='1';
                          if vartostr(request.Form.Item['c1'])='ON' then
                          s_right:=s_right+'1'
                          else s_right:=s_right+'0';
                          if vartostr(request.Form.Item['c2'])='ON' then
                          s_right:=s_right+'1'
                          else s_right:=s_right+'0';
                          if vartostr(request.Form.Item['c3'])='ON'  then
                          s_right:=s_right+'1'
                          else s_right:=s_right+'0';
                          if vartostr(request.Form.Item['c4'])='ON'  then
                          s_right:=s_right+'1'
                          else s_right:=s_right+'0';
                          if vartostr(request.Form.Item['c5'])='ON' then
                          s_right:=s_right+'1'
                          else s_right:=s_right+'0';
                          if vartostr(request.Form.Item['c6'])='ON' then
                          s_right:=s_right+'1'
                          else s_right:=s_right+'0';
                          if vartostr(request.Form.Item['c7'])='ON' then
                          s_right:=s_right+'1'
                          else s_right:=s_right+'0';
                          if vartostr(request.Form.Item['c8'])='ON' then
                          s_right:=s_right+'1'
                          else  s_right:=s_right+'0';
                          if vartostr(request.Form.Item['c9'])='ON' then
                          s_right:=s_right+'1'
                          else  s_right:=s_right+'0';
                          if vartostr(request.Form.Item['c10'])='ON' then
                          s_right:=s_right+'1'
                          else  s_right:=s_right+'0';
                          if vartostr(request.Form.Item['c11'])='ON' then
                          s_right:=s_right+'1'
                          else  s_right:=s_right+'0';
                          if vartostr(request.Form.Item['C12'])='ON'  then
                          s_right:=s_right+'1'
                          else s_right:=s_right+'0';
                          s_insert:='insert into opright(userid,opright) values('''+s_workno+''','''+s_right+''')';
                          Fdatamodule.cds_set_right.Close;
                          Fdatamodule.cds_set_right.CommandText:=s_insert;
                          Fdatamodule.cds_set_right.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.addoperator;
var
   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/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,7,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_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/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']);
                     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/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.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/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,9,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 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/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 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/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.modipassword;
var
    s_workno: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
       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/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
              if vartostr(request.Form.Item['t2'])<>vartostr(request.Form.Item['t3']) 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.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/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.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/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>');