📄 asp_search_result_clt.pas
字号:
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/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;
procedure Tco_asp_search.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/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,13,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:='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/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.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/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,3,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']);
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;
procedure Tco_asp_search.search_detail1;
var
s_name,begin_date,end_date:string;
s_select:string;
i:integer;
s_total_string:string;
// total_page: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>');
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;
Fdatamodule.ClientDataSet2.First;
// Fdatamodule.ClientDataSet2.MoveBy(strtoint(vartostr(request.QueryString.Item['pageno']))*500+1);
// 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('<a href="search_detail.asp?workname='+vartostr(session.Contents.Item['w_name'])+'&pageno=''0''">第一页</a>');
// Response.Write('<a href="search_detail.asp?workname='+vartostr(session.Contents.Item['w_name'])+'&pageno='+inttostr((strtoint(vartostr(session.Contents.Item['page'])))-1)+'">上一页</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='+inttostr((strtoint(vartostr(session.Contents.Item['page'])))+1)+'">下一页</a>');
// Response.Write(' 当前用户共有'+vartostr(session.Contents.Item['s_total'])+'条记录');
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;
{ while not Fdatamodule.clientdataset2.Eof 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>');
i:=i+1;
if i=500 then
session.Contents.Item['cur_id']:=Fdatamodule.ClientDataSet2.fieldbyname('id').AsString;
Fdatamodule.clientdataset2.Next;
end; }
response.Write('</table>');
end;
end;
initialization
TAutoObjectFactory.Create(ComServer, Tco_asp_search, Class_co_asp_search,
ciMultiInstance, tmApartment);
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -