不行啊,看看是不是我的定义里有错误
<%sub k1index_article()
'============================================================文章
sql="select top "&indexarticle&" art_id,cat_id,art_title,art_date,art_count from k1art order by art_date DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof%>
<%sql="select cat_id,cat_name from k1a_cat where cat_id="&rs("cat_id")
set rscat=server.createobject("adodb.recordset")
rscat.open sql,conn,1,1%>
<img src=img/none.gif border=0><img src=img/i4.gif border='0'>
<a href="javascript:art('k1showart.asp?art_id=<%=rs("art_id")%>&cat_id=<%=rs("cat_id")%>')" title="文章标题:
<%=left(rs("art_title"),10)%><br>发表时间:<%=rs("art_date")%><br>阅读次数:<%=rs("art_count")%>次<br>所属分类:
<%=rscat("cat_name")%>"><font color="000000"><%=left(rs("art_title"),16)%></font></a><font size="1.8" color="000000">
<%=rs("art_date")%></font><%
sjc=date-rs("art_date")
if sjc<2 then
response.write "<IMG src='img/01.GIF' border=0>"
end if
%><br>
<%
rs.movenext
loop
if rs.eof and rs.bof then%>暂时没有影音
<%end if
rs.close
set rs=nothing
end sub