Develop and Download Open Source Software

mybbs

Browse Subversion Repository

/[bbs-as-pbbs]/WebModuleUnit1.pas

Diff of /WebModuleUnit1.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 16 by yamat0jp, Tue Sep 27 20:57:24 2016 UTC revision 17 by yamat0jp, Wed Sep 28 14:30:22 2016 UTC
# Line 615  begin Line 615  begin
615    begin    begin
616      FDTable2.CreateTable(false, [tpTable]);      FDTable2.CreateTable(false, [tpTable]);
617      FDTable2.Active := True;      FDTable2.Active := True;
     {  
       if (Request.ServerPort = 80) or (Request.ServerPort = 443) then  
       s := 'http://' + String(Request.Host)  
       else  
       s := 'http://' + String(Request.Host) + ':' +  
       IntToStr(Request.ServerPort);  
     }  
618      FDTable2.AppendRecord([Request.ScriptName, 'pbbs clone',      FDTable2.AppendRecord([Request.ScriptName, 'pbbs clone',
619        '<center><font size=5 face=Verdana color=gray><b>P-BBS CLONE</b></font></center>',        '<h1 align=center style=font:Verdana;color:gray;font-weight:bold>P-BBS CLONE</h1>',
620        'admin', 'あほ,ばか,死ね,<style,<script,<link', false]);        'admin', 'あほ,ばか,死ね,<style,<script,<link', false]);
621      m := TResourceStream.Create(HInstance, 'setup', RT_RCDATA);      m := TResourceStream.Create(HInstance, 'setup', RT_RCDATA);
622      try      try
Legend:
Removed from v.16  
changed lines
  Added in v.17
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help