<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>
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>