用链接组件轻松做交互式链接
日期：2012-05-17 浏览次数：20897 次
<html>
<title>测试</title>
<BODY>
<% set myobj=server.createobject("mswc.nextlink") %> ''建立 Content Linking 组件
<table border=1>
<%
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 "<tr><td width='250'><div align='center'>"
else
Response.Write "<td width='250'><div align='center'>"
end if
%>
<a href=rtsp://172.16.0.1/<% =url1 %> >
<% response.write explain %> </A>
<%
j=j + 1
if j mod 3=0 then
Response.Write "</td></tr>"
else
Response.Write "</td>"
end if
next
%>
<tr>
</table>
</body>
</html>
说明：list.txt里面的文件格式为:前面为链接地址，后面为描述，链接url地址和描述之间用 Tab 键分隔。如果文件很多，你可以用dir * >>list.txt 获取所有的路径及文件名，然后在word里面打开，再得用alt 键进行列选，就很方便了。
<title>测试</title>
<BODY>
<% set myobj=server.createobject("mswc.nextlink") %> ''建立 Content Linking 组件
<table border=1>
<%
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 "<tr><td width='250'><div align='center'>"
else
Response.Write "<td width='250'><div align='center'>"
end if
%>
<a href=rtsp://172.16.0.1/<% =url1 %> >
<% response.write explain %> </A>
<%
j=j + 1
if j mod 3=0 then
Response.Write "</td></tr>"
else
Response.Write "</td>"
end if
next
%>
<tr>
</table>
</body>
</html>
说明：list.txt里面的文件格式为:前面为链接地址，后面为描述，链接url地址和描述之间用 Tab 键分隔。如果文件很多，你可以用dir * >>list.txt 获取所有的路径及文件名，然后在word里面打开，再得用alt 键进行列选，就很方便了。
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
