ISAPI程序问题:我的模板文件(HTM)中有<#TITLE><#CONTENT><#IMAGE>

[jixian]

我的模板文件(HTM)中有<#TITLE><#CONTENT><#IMAGE>
如何在pageproducer的OnHTMLTag方法中,将其替换为ADOQuery1->FieldsByName("Title")
ADOQuery1->FieldsByName("Content")ADOQuery1->FieldsByName("Image")?

BCB中的例子:
void __fastcall TMyModule::ImageHTMLTag(TObject *Sender, TTag Tag, AnsiString TagString, TStrings TagParams, AnsiString &ReplaceText)
{
int ImageID;

switch (Tag)
{
case tgImage://编译出错未定义的变量????????????????????怎样检查模板文件中的标记?
ImageID = StrToInt(TagParams->Values["ImageID"]);
if (ImageTable->FindKey(ARRAYOFCONST((ImageID))))
{
ReplaceText = AnsiString("<IMG SRC=") +
ImageTable->FieldByName("Filename")->AsString +
AnsiString(" ALT=") +
ImageTable->FieldByName("Description")->AsString +
AnsiString(">");
}

else
ReplaceText = "(Unknown Image)"
break;
case tgTable:
ReplaceText = DataSetTableProducer1->Content();
break;
}
}
怎样检查模板文件中的标记?

[jixian]

up

[jixian]

都不感兴趣？？

[BCB]

上面例子我看得累，我把我自已曾编过的东东给你参考参考
void __fastcall TForm1::PageProducer1HTMLTag(TObject *Sender, TTag Tag,
const AnsiString TagString, TStrings *TagParams,
AnsiString &ReplaceText)
{
ReplaceText="";
if (TagString=="date")
ReplaceText=Now().FormatString("yyyy'年'mm'月'dd'日'");
else
if (TagString=="page")
ReplaceText=String(DataModule1->Table1->RecNo);
else
if (TagString=="f")
{
if (DataModule1->Table1->Active)
{
String zdn=TagParams->Values["v"].Trim();
if (!zdn.IsEmpty())
{
String zdn1=Memo1->Lines->Values[zdn];
if (!zdn1.IsEmpty())
zdn=zdn1;
TField *zd=DataModule1->Table1->FindField(zdn);
if (zd!=NULL)
ReplaceText=zd->AsString;
}
}
}
else
if (TagString=="e")
{
String zdn=TagParams->Values["v"].Trim();
if (!zdn.IsEmpty())
{
zdn=Memo1->Lines->Values[zdn];
if (!zdn.IsEmpty())
ReplaceText=zdn;
}
}
int l0=ReplaceText.Length();
if (l0>0)
{
int l=TagParams->Values["l"].ToIntDef(0);
if (l>0 && l>l0)
ReplaceText+=AnsiString::StringOfChar(' ',l-l0);
}
}

[jixian]

ok