新客网WWW.XKER.COM:致力做中国最专业的网络学院!
学院: 操作系统 - 网络应用 - 服务器 - 网络安全 - 工具软件 - 办公软件 - Web开发 - 数据库 - 网页设计 - 图形图像 - 媒体动画 - 硬件学堂 - 存储频道 - QQ专区
您的位置:首页 > 软件开发 > Web开发 > Asp教程 > 正文:MSWC.NextLink的使用方法

MSWC.NextLink的使用方法

新客网 XKER.COM 2004-05-14 来源: 收藏本文
在源码公开中用到了 Content Linking 组件,目的在于通过线性排列顺序列表来管理网页和网址间的超文本链接。如果你对这种解释有疑惑,看看 这里 ,我可没有一条一条加链接哟。
源.码

第一步 内容链接顺序说明的文本文件,也就是“网页或网址的线性排列顺序文件”
( Content Linking List File ),看看 列表文件 。
第二步 首页内嵌程序
‹%
Set Mylink=Server.CreateObject("MSWC.NextLink")
file="list.txt"
Count=Mylink.GetListCount(file)

for i=1 to Count
url=Mylink.GetNthURL(file,i)
description=Mylink.GetNthDescription(file,i)
%›
‹a href="‹%=url%›"›%=description%›‹/a›
‹% next %›s


第三步 各分页内嵌程序
‹%
Set Mylink=Server.CreateObject("MSWC.NextLink")
file="list.txt"
Count=Mylink.GetListCount(file)

if Mylink.GetListIndex(file)>1 then
Response.Write "‹a href=" & Mylink.GetPreviousURL(file) & ">"_
& "上一篇" & "‹/a›"
End if
if Mylink.GetListIndex(file)‹Count-1 then
Response.Write "‹a href=" & Mylink.GetNextURL(file) & ">"_
& "下一篇" & "‹/a›"
End if
Response.Write "‹a href=" & Mylink.GetNthURL(file,Count) & ">"_
& "源码首页" & "‹/a›"
%›

说.明

Content Linking List File 格式分为三列,列与列之间必须以 [Tab] 分隔。
网页或网址的 URL [描述文字[附加说明]]
网页或网址的 URL 参数表示所要链接的网页或网址,相对、绝对路径都可以。
描述文字参数是显示给用户的说明文字。
附加说明参数不会显示给用户,注解而已。
Content Linking 组件是 ASP 内置的重要组件,建立组件的语法为:
Set ObjectName=Server.CreateObject("MSWC.NextLink")

Content Linking 的组件方法说明
方 法 格 式 说 明
GetListCount Int = GetListCount ( *.txt ) 页面个数
GetListIndex Int = GetListIndex ( *.txt ) 当前页面的顺序值
GetNthURL string = GetNthURL ( *.txt , i ) 指定位置页面的地址
GetNthDescription string = GetNthDescription ( *.txt , i ) 指定位置页面的描述
GetNextURL string = GetNextURL ( *.txt ) 下一个页面的地址
GetNextDescription string = GetNextDescription ( *.txt ) 下一个页面的描述
GetPreviousURL string = GePrevioustURL ( *.txt ) 上一个页面的地址
GetPreviousDescription string = GetPreviousDescription ( *.txt ) 上一个页面的描述

注.意
1 列表文件中记录的排列顺序,注意这个程序是将首页位置放在最后,循环起始和次数就会
因此不同。
2 GetNthURL 和 GetNthDescription 方法是取得指定位置页面的地址或描述,首页是显示
所有记录,所以用了循环函数。
3 你是否注意 IE 浏览窗口中标题的描述是页面的主题呢?声明,我是很懒的人,不会逐条
的链接。这里用到了 GetListIndex 和 GetNthDescription 方法,对照上表中方法的说
明你就会明白。
‹%
list=Mylink.GetListIndex(file)
title=Mylink.GetNthDescription(file,list)
%›
‹title›‹% =title %›‹/title›
收藏】 【评论】 【推荐】 【投稿】 【打印】 【关闭
发表评论
要记得去论坛讨论,点击注册新会员匿名评论
评论内容:不能超过250字,需审核后才会公布,请自觉遵守互联网相关政策法规。
阅读排行
随机推荐
实用信息推荐