相关代码为:
procedure TWebModule1.WebModule1waJoinSeminarAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
sWSID: string;
begin
//把资料新增到资料表中
............................
............................
finally // wrap up
cdsTrainees.Active := False;
cdsregJoiners.Active := False;
Response.Content := ppReplyMessage.Content;
.............
end; // try/finally
Handled := True;
Handled := True;
end;
procedure TWebModule1.ppReplyMessageHTMLTag(Sender: TObject; Tag: TTag;
const TagString: String; TagParams: TStrings; var ReplaceText: String);
//加入回传页面内容
begin
if (Tag = tgCustom) and (CompareText(TagString, sReplyMessage) = 0) then
begin
ReplaceText := ReplaceText + '<P> 谢谢您的报名,祝您有愉快的一天</P>';
end
end;