間違えてたことが結構ありました

diff --git a/WebModuleUnit1.dfm b/WebModuleUnit1.dfm
index e4ae3d6..b9d27df 100644 (file)
--- a/WebModuleUnit1.dfm
+++ b/WebModuleUnit1.dfm
@@ -404,7 +404,8 @@ object TWebModule1: TTWebModule1
   object alert: TDataSetPageProducer
     HTMLDoc.Strings = (
       '<tr><td>'
-      '<p>[ <#dbname>-<#posnum> ]<#date>'
+      '<p><a href=/jump?db=<#dbname>&num=<#posnum>>'
+      '    [ <#dbname>-<#posnum> ]</a><#date>'
       '<p><#article></td><td><#request>'
       '</td><tr>')
     DataSet = DataModule1.FDTable4
@@ -430,7 +431,7 @@ object TWebModule1: TTWebModule1
       '  <#content>'
       '<textarea name=request></textarea>'
       '<input type=submit>'
-      '<p style=text-align:center><a href=/index<#query>>'#25147#12427'</a>'
+      '<p style=text-align:center><a href=/jump<#query>>'#25147#12427'</a>'
       '</form>'
       '</body></html>')
     OnHTMLTag = mailHTMLTag

diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas
index ec20525..be1ee40 100644 (file)
--- a/WebModuleUnit1.pas
+++ b/WebModuleUnit1.pas
@@ -141,6 +141,8 @@ begin
     s := TStringList.Create;
     try
       s.Text := articles.Content;
+      for i := 1 to 2 do
+          s.Delete(1);
       for i := s.count - 1 downto 0 do
         if Copy(s[i], 1, 18) = '<section id=master' then
         begin
@@ -370,7 +372,7 @@ begin
   if TagString = 'content' then
     ReplaceText := articles.Content
   else if TagString = 'query' then
-    ReplaceText := '?' + Request.Query + '#' + Request.QueryFields.Values['num']
+    ReplaceText := '?' + Request.Query
   else if TagString = 'number' then
     ReplaceText := Request.QueryFields.Values['num'];
 end;