用链接组件轻松做交互式链接

王朝asp·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

<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 键进行列选,就很方便了。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航