%
{$I ../../inc/public._ps}
var
I, J: Integer;
S,T, tbN, ln1, ln2, ln3: String;
F: TCTMetaField;
col: Integer;
begin
tbN:=GetLabelText(CurTable);
%>
${tbN}
全部
热门
最近
<%
for J:=0 to 9 do
begin
col := 0;
ln1 := '';
ln2 := '';
ln3 := '';
for I:=0 to CurTable.MetaFields.Count-1 do
begin
F:=CurTable.MetaFields.Items[I];
if not F.CanDisplay('grid') then
Continue;
S:=F.GenDemoData(1, '', nil);;
//T := T+'"'+F.Name+'": "'+S+'"'
T := S;
if col=0 then
ln1 := T
else if col<=2 then
ln2 := Trim(ln2 + ' '+T)
else if col <=4 then
ln3 := Trim(ln3 + ' '+T);
col := col + 1;
end;
%>