tagに代入した文字列がローカル変数だった手違いを直す

footerを一度clearしてから使う

diff --git a/WebModuleUnit1.dfm b/WebModuleUnit1.dfm
index 54b2374..c674804 100644 (file)
--- a/WebModuleUnit1.dfm
+++ b/WebModuleUnit1.dfm
@@ -208,8 +208,6 @@ object WebModule1: TWebModule1
         FieldName = 'DATE'
       end>
     Footer.Strings = (
-      '<input type=submit value='#21066#38500#12377#12427'><input type=reset value='#12522#12475#12483#12488'>'
-      '</form>'
       '')
     MaxRows = 30
     DataSet = DataModule1.FDTable2
@@ -1835,7 +1833,7 @@ object WebModule1: TWebModule1
       '    <label><p>'#12497#12473#12527#12540#12489#12398#22793#26356
       
         '      <input type="password" style="HEIGHT: 23px; WIDTH: 85px" n' +
-        'ame="pass" value="<#password>">'
+        'ame="pass">'
       '      </p>'
       '    </label>'
       '    <p>'

diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas
index c9a13a2..047fe31 100644 (file)
--- a/WebModuleUnit1.pas
+++ b/WebModuleUnit1.pas
@@ -106,6 +106,7 @@ type
   private
     { private \90é\8c¾ }
     ss: TStringList;
+    tagstr: string;
     procedure pages(count: Integer; var page: Integer);
     function hash(str: string): string;
     function mente: Boolean;
@@ -636,18 +637,14 @@ begin
   i := StrToIntDef(s, -1);
   pages(DataModule1.FDTable2.RecordCount, i);
   index.Tag := i;
-  s := '/admin';
-  Self.Tag := Integer(@s);
+  tagstr := '/admin';
+  Self.Tag := Integer(@tagstr);
   i := footer.HTMLDoc.Add
     ('<p style=text-align:center><a href="/index?db=<#dbnum>">\96ß\82é</a>');
   admin.header.Text := adhead.Content;
-  if admin.Tag = 0 then
-    admin.footer.Insert(3, footer.Content)
-  else
-  begin
-    admin.footer.Delete(3);
-    admin.footer.Insert(3, footer.Content);
-  end;
+  admin.Footer.Clear;
+  admin.Footer.Add('<input type=submit value=\8dí\8f\9c\82·\82é><input type=reset value=\83\8a\83Z\83b\83g></form>');
+  admin.Footer.Add(footer.Content);
   admin.Tag := DataModule1.FDTable2.RecNo;
   footer.HTMLDoc.Delete(i);
   Response.ContentType := 'text/html;charset=utf-8';
@@ -797,8 +794,8 @@ begin
   int := StrToIntDef(Request.QueryFields.Values['num'], -1);
   pages(DataModule1.FDTable2.RecordCount, int);
   index.Tag := int;
-  s := '/index';
-  Self.Tag := Integer(@s);
+  tagstr := '/index';
+  Self.Tag := Integer(@tagstr);
   Response.ContentType := 'text/html; charset="utf-8"';
   if mente = false then
     Response.Content := index.Content;
@@ -870,7 +867,6 @@ procedure TWebModule1.WebModule1logoutAction(Sender: TObject;
   Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
 var
   s: string;
-  v: Variant;
 begin
   with Response.Cookies.Add do
   begin