<input name="IsIndexImg" type="checkbox" id="IsIndexImg" onClick="javascript:ChkIsPic();" value="1" <%If Article.IsIndexImg Then%>checked="checked"<%End If%>>

上面是在发表文章时,打上勾就代表启用分类图片略缩图.
在首页代码中,并没有调用这个,我要在首页的什么地方,加入怎么样的代码,才能调用这个分类略缩图呀...

下面是首页一段代码.

<%
Sql="select ID,SortName,gotoURL from Ok3w_Class where ChannelID=" & ChannelID & " and ParentID=0 and gotoURL='' order by OrderID"
Set oRs = Conn.Execute(Sql)
Do While Not oRs.Eof
%>
  <tr>
<%For i=1 To 2%> 
    <td valign="top"<%If i<>2 Then%> width="50%" style="padding-right:8px;"<%End If%>>
<%If Not oRs.Eof Then%>
<table border="0" cellspacing="0" cellpadding="0" class="dragTable" width="100%">
  <tr>
    <td class="head"><h3 class="L"></h3>
        <span class="TAG"><a href="<%=Page_URL(ChannelID,oRs("ID"),"")%>" target="_blank"><%=oRs("SortName")%></a></span> <span class="more"><a href="<%=Page_URL(ChannelID,oRs("ID"),"")%>" target="_blank">更多...</a></span></td>
    </tr>
  <tr>
    <td class="middle"><table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin:5px 0px 5px 0px;">
    <td width="46%"><div align="left"></div></td>
      <tr>
        <td><%Call Ok3w_Article_List(oRs("ID"),8,1,17,False,False,False,"",False,"new")%><%If Article.IsIndexImg Then%></td>
      </tr>
    </table></td>
  </tr>
</table>
<%
oRs.MoveNext
End If%>    </td>
<%Next%>   
  </tr>
<%
Loop
oRs.Close
Set oRs = Nothing
%>
</table>