应网友要求，分享一下本站的最近更新这个栏目

    首页新加了一个栏目显示最新更新的十篇文章，有网友需要就分享出来，具体调用几条自己改一下下面代码中的 Top 10 就行了。

    修改方法：index.asp 文件中找到第一个 <!-- 一个循环段落开始 --> 在上一行添加代码如下：

  <div class="movelist">
  <div class="lpic"></div>
  <div>
  <span class="mbg3">
  <span class="title">最近更新</span>
  <span class="more"><a href="news.asp" style="color:#ff3300;">点击更多</a></span>
  </span>
  </div>
  <div class="lpic2"></div>
  </div>

  <div class="movies end">
  
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 10 ID,Title,Content,ClassID,TitleFontColor,DateAndTime from pcook_Article where yn = 0 order by DateAndTime desc,id desc"
rs1.open sql1,conn,1,3
If Not rs1.Eof Then
do while not (rs1.eof or err)

set rsClass=server.createobject("adodb.recordset")
sql = "select * from pcook_Class where ID="&rs1("ClassID")&""
rsClass.open sql,conn,1,1 
ClassName=rsClass("ClassName")
rsClass.close
set rsClass=nothing
%>

  <div class="vmovies">

  <div class="movernrs">
  <ul>
  <li class="titles"><span class="note"><%=FormatDate(rs1("DateAndTime"),5)%></span><a href="<%If seo=1 then%>Article_<%=rs1("ID")%>.html<%elseif seo=2 then%>Article/?<%=rs1("ID")%>.html<%elseif seo=3 then%>List.asp?ID=<%=rs1("ID")%><%elseif seo=4 then%>Article/<%=rs1("ID")%>.html<%end if%>" title="<%=rs1("title")%>" target="_blank"><font size=1>·</font><%if rs1("TitleFontColor")<>"" then Response.Write("<font style=""color:"&rs1("TitleFontColor")&""">"&left(LoseHtml(rs1("title")),20)&"</font>") else Response.Write(""&left(LoseHtml(rs1("title")),20)&"") end if%></a></li>
  </ul>
  </div>
  
  </div>
  
<%
  rs1.movenext
  loop
  end if
  rs1.close
  set rs1=nothing
%>
  </div>

    然后就是在根目录下创建一个news.asp文件了，代码我打个压缩包吧，贴上来太长了

   http://pcook.com.cn/UploadFiles/uploadfile/news.rar