<%
dim fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder(Server.MapPath("news/"))
  for each x in fo.files
    'Response.Write x.DateLastModified
   'Print the name of all files in the test folder
       Response.write "<a href='news/"&x.Name & "'>" & Replace((x.Name&" Date : "& x.DateLastModified),".html","") & "</a><br>"
        '
  next

set fo=nothing
set fs=nothing
%>
เงื่อนไขคือผมอยากให้มีนเรียงลำดับจากไฟล์ที่สร้างขึ้นมาล่าสุดอยู่บนสุดน่ะครับ แต่โค้ดนี้ทำยังไงมันก็เรียงตามชื่ออยู่ดีครับ
มีอีกนิดหนึ่งครับว่าถ้าผมจะแบ่งหน้าละ 20 ไฟล์ต้องทำยังไงต่อครับ เผอิญเป็นมือสมัครเล่นครับ