代码一
<table cellspacing="1" cellpadding="0" align="center" class="tableBorder1">
<tr>
<th align="left"> <img src="Skins/Default/minus.gif" width="15" height="15"><a href=""> {$BoardType}</a></th>
</tr>
</table>
代码二
<table width="266" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="266" height="20" valign="top">$name}</td>
</tr>
</table>
说明：下面的代码我想把代码二循环5次然后放进代码一面红色的{$BoardType}区域中，（两组代码同在数据库中）
<% Public Sub Forumid(id)
TempStr = page_bbs(1)'//上面第二段代码在数据库中的名称
for i=0 to 5
TempStr = Replace(TempStr,"{$topic}","名称")
Response.Write TempStr
TempStr=""
next
End Sub%> 这段代码读第二组代码
<%
Tmp = page_bbs(0)'//上面第一段代码在数据库中的名称
Tmp = Replace(Tmp,"{$ShowForum}",MyBBS.Forumid(1))
Response.Write Tmp
Tmp=""
%> 这段代码读第一组代码并显示出来
正常情况下应该代码二应该循环5次后显示在第一段代码中然后输出
问题出在第一循环不了，只显示一条
问题二，即使循环了也在上面显示
