From 8b2859eec71b7df8fa08ff61c2257aab17ff8936 Mon Sep 17 00:00:00 2001 From: yamat0jp Date: Mon, 20 Jan 2020 12:08:28 +0900 Subject: [PATCH] =?utf8?q?alert=20=E5=BE=8C=E3=81=AE=E5=87=A6=E7=90=86?= =?utf8?q?=E3=82=92=E3=81=A1=E3=81=8C=E3=81=88=E3=81=A6=E3=81=BE=E3=81=97?= =?utf8?q?=E3=81=9F?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- WebModuleUnit1.pas | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas index 8dd197a..57edfc1 100644 --- a/WebModuleUnit1.pas +++ b/WebModuleUnit1.pas @@ -519,7 +519,7 @@ begin max := FDTable3.FieldByName('count').AsInteger; if (page > -1) and (count < max * (page - 1)) then begin - page := count div max; + page := (count div max) + 1; if count mod max = 0 then dec(page); end; @@ -919,8 +919,7 @@ begin s := '(No Comment)'; AppendRecord([i, num1, num2, Now, s]); end; - Response.SendRedirect(Format('%s/index?db=%d&num=%d#%d', - [Request.ScriptName, num1, num2, num2])) + WebModule1jumpAction(nil, Request, Response, Handled); end; end; -- 2.11.0