按照不同条件，进入一个具有左右图文框的页面，可是每次进入，都是满足前一个条件的页面？？？？？？

procedure Twm.wmjyjxAction(Sender: TObject; Request: TWebRequest;
  Response: TWebResponse; var Handled: Boolean);
var
str1:string;
begin
        admin:=false;
        strbooktype:=request.QueryFields.Values['booktype'];
        str1:='<frameset cols="31%,*">';
        str1:=str1+'<frame name="frmleft" src="/default/tree">';
        str1:=str1+'<frame name="frmright" src="/default/treeview">';
        str1:=str1+'<noframes>';
        str1:=str1+'<body>';
        str1:=str1+'</body>';
        str1:=str1+'</noframes>';
        str1:=str1+'</frameset>';
        response.Content:=str1;
end;
procedure Twm.wmtreeAction(Sender: TObject; Request: TWebRequest;
  Response: TWebResponse; var Handled: Boolean);
var
str,str1,str2:string;
//query:string;
nodlevel:integer;
nodname:string;
begin
      str:='<html>'#13#10;
      str:=str+'<head>'#13#10;
      //str:=str+'<base target="right">'#13#10;
      str:=str+'<meta http-equiv="Content-Type" content="text/html; charset=gb2312">'#13#10;
      str:=str+'<link rel="stylesheet" href="/csscontrol.css">'#13#10;
      str:=str+'<script src=/js/setPermission.js></script>'#13#10;
      str:=str+'<STYLE>'#13#10;
      str1:='BODY {'#13#10;
      str1:=str1+'scrollbar-3dlight-color:#ffffff;'#13#10;
      str1:=str1+'scrollbar-arrow-color:#ffffff;'#13#10;
      str1:=str1+'scrollbar-base-color:#c6d3ff;'#13#10;
      str1:=str1+'scrollbar-darkshadow-color:#c6d3ff;'#13#10;
      str1:=str1+'scrollbar-face-color:c6d3ff;'#13#10;
      str1:=str1+'scrollbar-highlight-color:#c6d3ff;'#13#10;
      str1:=str1+'scrollbar-shadow-color:#ffffff;'#13#10;
      str1:=str1+'scrollbar-track-color: #ffffff;'#13#10;
      str2:='}'#13#10;
      str2:=str2+'</STYLE>'#13#10;
      str2:=str2+'</head>'#13#10;
      str2:=str2+'<BODY leftmargin="0" topmargin="0" buttonmargin="0" rightmargin="0" marginwidth="0" marginheight="0" bgcolor=#eff7ff>'#13#10;
      str2:=str2+'<SCRIPT>'#13#10;
      str2:=str2+'imgDir="/images/";'#13#10;
      str2:=str2+'setIcon("folderClose.gif");'#13#10;
      str2:=str2+'treeMenuAddItem(0, "图书馆","#");'#13#10;
      //这里增加接点。
      //query:='教育教学';
      //str2:=str2+'treeMenuAddItem(1, "教育教学","/default/treeview?booktype='+query+'");'#13#10;
      with sql5 do
      begin
        sql.Clear;
        if admin then
        begin
                sql.add('select * from tree order by id')
        end
        else
        begin
                //sql.add('select * from tree order by id')
                sql.Add('select * from tree where nodname=:A or oldnod=:B order by id');
                sql5.Params.ParamValues['A']:=strbooktype;
                sql5.Params.ParamValues['B']:=strbooktype;
        end;
        sql5.Open;
        sql5.First;
        while not sql5.Eof do
        begin
        nodlevel:=sql5.fieldbyname('nodlevel').AsInteger;
        nodname:=sql5.fieldbyname('nodname').AsString;
        str2:=str2+'treeMenuAddItem('+inttostr(nodlevel)+', "'+nodname+'","/default/treeview?booktype='+nodname+'");'#13#10;
        sql5.Next;
        end;
      end;
      str2:=str2+'initializeDocument();'#13#10;
      str2:=str2+'clickOnNode(0);'#13#10;
      //str2:=str2+'document.write("<b>hello world</b>")';
      //str2:=str2+'clickOnNode(1);'#13#10;
      //str2:=str2+'clickOnNode(2);'#13#10;
      //str2:=str2+'location.reload();'#13#10;
      //str2:=str2+'setTimeout("window.location.reload()",1000);'#13#10;
      str2:=str2+'</script>'#13#10;
      str2:=str2+'</BODY>'#13#10;
      str2:=str2+'</html>';
      sql5.Close;
      response.Content:=str+str1+str2;
end;