有两种办法：
方法一：<td height="25" class="ziti"><strong><A HREF="prod_detail.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "prod_id=" & 12%>"><%While ((Repeat1__numRows <> 0) AND (NOT Recordset4.EOF))
if Recordset4.Fields.Item("prod_title".value12 then response.write""Recordset4.Fields.Item("prod_title".value&"" end if
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset4.MoveNext()
Wend%></A></strong></td>
方法二：把产品表里添加一个是非属性字段（是否首页显示），然后找出所有该字段值为true的就可以了。

建议你以后自己写代码，用DW自动生成的代码非常繁琐、冗长、多余。

我试了一下，出现了下面这样的问题：
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 编译器错误 错误 '800a03ee'

缺少 ')'

/index.asp，行491

Response.Write(Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "prod_id=" &146)
--------------------------------------------------------------------------------------^