(1)、建一个文件夹，起名为"news"，假设存于D:/WebSite/目录下；

(2)、把每条新闻的详细内容写入文件，且此文件的命名形式为：x (newstime).htm。其中x为此条新闻的主题，newstime为此条新闻发布的时间（按年-月-日顺序写）。为什么要这样写呢？看了下面的算法思想和源程序就知道了。

2．算法思想：对于news文件夹中的文件，依据它们文件名中新闻发布的时间（即括号内的内　　容），从大到小排序。这样一来，最新的新闻排在最上面，只要在网页相应位置显示 news文件夹中最上面的若干个文件名，因为文件名的命名方式如1中所述，就可以在新闻栏中显示最新新闻了。

3．源程序段(用VBScript编写的)

以下为引用的内容：
<%
Dim fs, f, f1, fc, filenum
dim count
dim i,j,t1,t2
dim file(100)
dim mystr(100)                  '标志文件中日期的字符串
count=0
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("D:/ASP/news ")
Set fc = f.Files
           for each f1 in fc
                 count=count+1                  '计文件个数
                 file(count)=fs.getbasename(f1)                  '标记文件基名
                 mypos=InStr(1, file(count), "(")            ')在文件基名中的位置
                 '文件基名中的日期字符串
                 mystr(count) = Mid(file(count), mypos + 1, Len(file(count)) - (mypos + 1))
           next
     for i=1 to count
         for j=1 to count-i
         if mystr(j)           t1=file(j)
           file(j)=file(j+1
           file(j+1)=t1
            t2=mystr(j)
            mystr(j)=mystr(j+1)
            mystr(j+1)=t2
         end if
         next
     next
j=1
if count<10 then          '新闻栏中共显示10条新闻
 temcount=count
else
 temcount=10
end if
do while j<=temcount%>
<%=file(j)%>
<%
j=j+1
loop
%>
　　
4．新闻栏内容更新：

[1] [2] [3] 下一页