| 130 |
|
|
| 131 |
begin |
begin |
| 132 |
count := FDTable3.FieldByName('count').AsInteger; |
count := FDTable3.FieldByName('count').AsInteger; |
| 133 |
home := 'http://' + FDTable2.FieldByName('home').AsString; |
home := FDTable2.FieldByName('home').AsString; |
| 134 |
if position <= -1 then |
if position <= -1 then |
| 135 |
begin |
begin |
| 136 |
s1 := '最新%d件の記事を表示<br><center>Pages : [<b>'; |
s1 := '最新%d件の記事を表示<br><center>Pages : [<b>'; |
| 171 |
s: TDataSetPageProducer; |
s: TDataSetPageProducer; |
| 172 |
begin |
begin |
| 173 |
if TagString = 'home' then |
if TagString = 'home' then |
| 174 |
ReplaceText := 'http://' + FDTable2.FieldByName('home').AsString; |
ReplaceText := FDTable2.FieldByName('home').AsString; |
| 175 |
if (TagString = 'title') or (TagString = 'title2') then |
if (TagString = 'title') or (TagString = 'title2') then |
| 176 |
ReplaceText := FDTable2.FieldByName(TagString).AsString; |
ReplaceText := FDTable2.FieldByName(TagString).AsString; |
| 177 |
if TagString = 'username' then |
if TagString = 'username' then |
| 581 |
IntToStr(Request.ServerPort); |
IntToStr(Request.ServerPort); |
| 582 |
} |
} |
| 583 |
if Request.ScriptName <> '' then |
if Request.ScriptName <> '' then |
| 584 |
s := Request.Host + Request.ScriptName + '/' |
s := 'http://' + Request.Host + Request.ScriptName + '/' |
| 585 |
else |
else |
| 586 |
s := Request.Host + '/'; |
s := 'http://' + Request.Host + '/'; |
| 587 |
FDTable2.AppendRecord([s, 'pbbs clone', |
FDTable2.AppendRecord([s, 'pbbs clone', |
| 588 |
'<center><font size=5 face=Verdana color=gray><b>P-BBS CLONE</b></font></center>', |
'<center><font size=5 face=Verdana color=gray><b>P-BBS CLONE</b></font></center>', |
| 589 |
'admin', 'あほ,ばか,死ね', false]); |
'admin', 'あほ,ばか,死ね', false]); |
Parent Directory
Revision Log
Patch