PP1
ageProductor
Query_Master:Query;
procedure TWebModule1.WebModule1PP1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
//var i :integer;
begin
Response.Content :=pp1.Content;
PP1.HTMLDoc.Clear ;
PP1.HTMLDoc.Add('***');
//删掉了一段 自己写表头
Query_master.Close;
Query_master.Active :=False;
Query_master.ParamByName('name').asstring :=
request.QueryFields.Values['name'];
Query_master.ParamByName('zzmm').AsString :=
Request.QueryFields.Values ['zzmm'];
Query_master .ParamByName ('dgree').AsString :=
Request .QueryFields.Values ['degree'];
Query_master .ParamByName ('major').AsString :=
Request .QueryFields.Values ['major'];
Query_master .ParamByName ('college').AsString :=
Request .QueryFields .Values ['college'];
Query_master .ParamByName ('sex').AsString :=
Request.QueryFields .Values ['sex'];
query_master .Open;
query_master.Active :=true;
Query_master.First ;
while not Query_master.Eof do
begin
pp1.htmldoc.Add('*****');
.....
//把表中的项加入
Query_master.Next ;
end;
Query_master.active:=false;
Query_master.Close;
// 写表尾
Html看不见
end;