当前位置：网学 > 编程文档 > ASP.net > 正文

分享ASP网页开发过程中的小技巧

作者：用户投稿来源：网络发布时间： 13/01/07

ASP是Microsoft公司推出的一种用以取代通用网关接口的技术，英文全称Active Server Pages。它是一个Web服务器端的运行环境。ASP本身包含了VBScript和javascript引擎，使得脚本可以直接嵌入HTML中。现将我们在ASP运用过程中的几个小技巧与大家分享。

一、新闻栏

大多数网页上有新闻栏，用以显示最近新闻的主题，点击此主题即可查看详细报道。倘若每天都一条条写在网页上，再依次建立链接太过麻烦。如何让其可以根据文件自动更新呢？

1．预备工作

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

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)<mystr(j+1) then  
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%>  
<a href="file:///D:/ASP/news/<%=file(j)%>.htm" target="new_window"><%=file(j)%> </a>  
<%  
j=j+1  
loop  
%>