ie586-1.asp

这是一个文章管理的网页源程序

<table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <% 
	sql="select top 5 " 
	sql=sql&"article.writer,article.articleid,article.title,article.dateandtime,article.hits,article.daifa,article.classid,article.Nclassid,ANclass.Nclass " 
	sql=sql&" from article,ANclass where article.Nclassid=ANclass.Nclassid and article.classid=2 and daifa=1 " 
	sql=sql&" order by article.articleid desc" 
	rs.open sql,conn,1,1 
	if rs.eof and rs.bof then 
%>
                    <tr> 
                      <td class="td1" rowspan="2">&nbsp;</td>
                    </tr>
                    <%else%>
                    <%do while not rs.eof%>
                    <tr> 
                      <td class="td1"> </td>
                    </tr>
                    <tr> 
                      <td class="td1" colspan="2">&nbsp;<a href="list.asp?id=<%=rs("articleid")%>"><%=rs("title")%></a> 
                        <%if rs("dateandtime")=date() then%> 
                        <font color=red class=font1><%=month(rs("dateandtime"))%>/<%=day(rs("dateandtime"))%>/</font>  
                        <%else%> 
                        <font color='#999999' class=font1><%=month(rs("dateandtime"))%>/<%=day(rs("dateandtime"))%>/</font>  
                        <%end if%> 
                      </td>
                    </tr>
                    <% 
	rs.movenext 
	loop 
	end if 
	rs.close
	
%>
                    <tr align="right"> 
                      <td colspan="2" class="td1"><a href="Index.asp?classid=2">更多内容&gt;&gt;</a></td>
                    </tr>
                  </table>