<% set myobj=server.createobject("mswc.nextlink") %> ''建立 Content Linking 组件

<%

j=0

FOR i=1 to myobj.getlistcount("list.txt")

'获取文件 urllist.txt 中链接数目

url1=myobj.getnthurl("list.txt",i) '取得超链接

explain=myobj.getnthdescription("list.txt",i) ''取得文字描述

下面我是控制在表格里面显示

if j mod 3=0 then

Response.Write "

"

else

Response.Write ""

end if

next

%>

" else Response.Write "	" end if %> > <% response.write explain %> <% j=j + 1 if j mod 3=0 then Response.Write "

说明：list.txt里面的文件格式为:前面为链接地址，后面为描述，链接url地址和描述之间用 Tab 键分隔。如果文件很多，你可以用dir * >>list.txt 获取所有的路径及文件名，然后在word里面打开，再得用alt 键进行列选，就很方便了。