O
okgxsh
Unregistered / Unconfirmed
GUEST, unregistred user!
为什么无法替换 <#yourname>
//==============================Test.htm
<html>
<body>
<p> 你好! <#yourname>欢迎来到红天娱乐工作室!</p>
</body>
</Html>
//===(建立一个web service application)===================ISAPI
procedure TWebModule1.titleHTMLTag(Sender: TObject; Tag: TTag;
const TagString: String; TagParams: TStrings; var ReplaceText: String);
begin
if TagString='yourname' then
ReplaceText:='GXSH';
end;
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
title.HTMLFile:='test_1.htm';
Response.Content:=title.Content;
end;
//==============================Test.htm
<html>
<body>
<p> 你好! <#yourname>欢迎来到红天娱乐工作室!</p>
</body>
</Html>
//===(建立一个web service application)===================ISAPI
procedure TWebModule1.titleHTMLTag(Sender: TObject; Tag: TTag;
const TagString: String; TagParams: TStrings; var ReplaceText: String);
begin
if TagString='yourname' then
ReplaceText:='GXSH';
end;
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
title.HTMLFile:='test_1.htm';
Response.Content:=title.Content;
end;