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
' <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>'
private
{ private \90é\8c¾ }
ss: TStringList;
+ tagstr: string;
procedure pages(count: Integer; var page: Integer);
function hash(str: string): string;
function mente: Boolean;
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';
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;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
s: string;
- v: Variant;
begin
with Response.Cookies.Add do
begin