作者:手机用户新常态 | 来源:互联网 | 2022-02-23 02:32
Content Linking组件应用示范
<%
Set Link=Server.CreateObject("MSWC.NextLink")
lcount=Link.GetListCount("conlink.txt")
' 用GetListCount方法确定在conlink.txt中有多少条超链.
Dim i
For i=1 to lcount
" >
<%=Link.GetNthDescription("conlink.txt", i) %>
<% Next %>
' 用GetNthURL、GetNthDescription方法逐一将存储在conlink.txt 文件的URL和文本信息读出并显示给客户端浏览器,循环执行.