Left = 240
Top = 192
end
- object login: TDataSetPageProducer
- HTMLDoc.Strings = (
- '<!DOCTYPE HTML>'
- ' <head>'
- ' <meta charset=utf-8>'
- ' <title>'#12525#12464#12452#12531'</title>'
- ' </head>'
- ' <body>'
- '<#pr>'
- ' <p style=text-align:center>'#31649#29702#32773#29992#12525#12464#12452#12531#30011#38754
- '</p>'
- ' <br>'
- ' <form action=<#uri>/login method="post">'
- ' <p style=text-align:center>'
- ' <input type=text name=record value=<#database>>'
- ' '#9' <input style=height:25px type="password" name="password">'
- ' <input type="submit" value="'#12525#12464#12452#12531'">'
- ' </p>'
- ' </form>'
-
- ' <p style=text-align:center><br><a href=<#uri>/ >TOP'#12408#31227#21205'</a>' +
- '</p>'
- ' </body>'
- '</html>')
- OnHTMLTag = loginHTMLTag
- Left = 304
- Top = 144
- end
object js1: TPageProducer
HTMLDoc.Strings = (
'$(function(){'
Size = 80
end
end
+ object login: TPageProducer
+ HTMLDoc.Strings = (
+ '<!DOCTYPE HTML>'
+ ' <head>'
+ ' <meta charset=utf-8>'
+ ' <title>'#12525#12464#12452#12531'</title>'
+ ' </head>'
+ ' <body>'
+ '<#pr>'
+ ' <p style=text-align:center>'#31649#29702#32773#29992#12525#12464#12452#12531#30011#38754
+ '</p>'
+ ' <br>'
+ ' <form action=<#uri>/login method="post">'
+ ' <p style=text-align:center>'
+ ' <input type=text name=record value=<#database>>'
+ ' '#9' <input style=height:25px type="password" name="password">'
+ ' <input type="submit" value="'#12525#12464#12452#12531'">'
+ ' </p>'
+ ' </form>'
+
+ ' <p style=text-align:center><br><a href=<#uri>/ >TOP'#12408#31227#21205'</a>' +
+ '</p>'
+ ' </body>'
+ '</html>')
+ OnHTMLTag = loginHTMLTag
+ Left = 296
+ Top = 96
+ end
end
css3: TPageProducer;
css4: TPageProducer;
header: TDataSetPageProducer;
- login: TDataSetPageProducer;
js1: TPageProducer;
js2: TPageProducer;
js3: TPageProducer;
FDTable5ID: TIntegerField;
FDTable5NAME: TWideStringField;
FDTable5SOURCE: TBlobField;
+ login: TPageProducer;
procedure indexHTMLTag(Sender: TObject; Tag: TTag; const TagString: string;
TagParams: TStrings; var ReplaceText: string);
procedure WebModule1indexpageAction(Sender: TObject; Request: TWebRequest;
procedure TWebModule1.loginHTMLTag(Sender: TObject; Tag: TTag;
const TagString: string; TagParams: TStrings; var ReplaceText: string);
+var
+ i: integer;
begin
if TagString = 'pr' then
ReplaceText := promotion
else if TagString = 'uri' then
- ReplaceText := Request.ScriptName;
+ ReplaceText := Request.ScriptName
+ else if TagString = 'database' then
+ begin
+ i:=StrToIntDef(Request.QueryFields.Values['db'],-1);
+ if FDTable1.Locate('dbnum',i) = true then
+ ReplaceText:=FDTable1.FieldByName('database').AsString;
+ end;
end;
procedure TWebModule1.masterHTMLTag(Sender: TObject; Tag: TTag;