📄 asp_search_result_clt.pas
字号:
Fdatamodule.cds_general1.CommandText:=s_select;
Fdatamodule.cds_general1.Open;
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="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_search3.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/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,4,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>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_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/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.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/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,5,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:='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/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.deldata;
begin
end;
procedure Tco_asp_search3.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/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,6,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 opright 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_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/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.addoperator;
var
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -