简单标签，不能显示

select ID,Title,Intro,Picurl from KS_U_shangpin

[loop=12]
<div class="j_shangpuyou03">
<div class="j_shangpuyou04"></div>
<div class="j_shangpuyou05">
<a href="{$Field(ID,GetInfoUrl,113,1)}">{$Field(Title,Text,16,...,0,)}</a></div>
<div class="j_shangpuyou06"><img src="{$Field(Picurl,Text,0,...,0,)}" /></div>
<div class="j_shangpuyou07">介绍：
{$Field(Intro,Text,30,,0,)}&nbsp;&nbsp;<a href="{$Field(ID,GetInfoUrl,113,1)}">点击详情</a></div>
</div>

[/loop]

结果在显示页面只显示  {PageListStr} ，没有内容，

去死吧，标签还有什么位置啊，调用就可以了

看看看 KS.DIYCls.asp 文件，好像是从

Function ReplaceDIYFunctionLabel(SqlLabel,GetFrom)

If KS.S("ID")<>"" Then

。。。

else

应该是走的这部分， dim TempCirContent
       For I = 1 To Cint(PageNum)
            TempCirContent    = LabelContent
         For Each Match In Matches
          LoopTimes=GetLoopNum(Match.Value)   '循环次数
          CirLabelContent = Replace(Replace(Match.value,"[loop=" & LoopTimes&"]",""),"[/loop]","")
         
           TempCirContent=Replace(TempCirContent,"[loop="&LoopTimes&"]"&CirLabelContent&"[/loop]",GetCirLabelContent(CirLabelContent,KS_RS_Obj,LoopTimes),1,1)
          
          
           
          If KS_RS_Obj.Eof Then Exit For
         Next
        
        TempStr = TempStr & TempCirContent & KS.GetPrePageList(PageStyle,ItemName,PageNum,I,TotalPut,PerPageNumber)
         TempStr=TempStr & "{$PageList}" '加上分页符
        
       Next
       Application(Cstr(KS.SiteSN & "PageList")) = Replace(CleanLabel(TempStr),"$KS:Page$",vbcrlf)
       ReplaceDIYFunctionLabel="{PageListStr}"
   
      End If

标签绝对正确，好多标签都在使用了，就着一个出问题