手机站
网通分站
电信主站
密 码:
用户名:
当前位置 : 主页>网络编程>Asp编程>列表

ASP 3.0高级编程(二十三)

来源:互联网 作者:west263.com 时间:2008-02-23
西部数码-全国虚拟主机10强!40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!

Response.Redirect Request.QueryString("url")
%>
可以在内容链接列表文件中按下述方式使用redirect.asp文件:
redirect.asp?url=http://www.cyscape.com/ CyScape BrowserHawk Web Pages
redirect.asp?url=http://www.softartisans.com/ SA fileUp Component Pages
redirect.asp?url=http://www.stonebroom.com/swindex.htm Stonebroom RegEx Pages
2. Content Linking组件的成员
Content Linking组件提供了八种方法,如表6-1所示。这些方法能够检索来自内容链接列表文件的条目,既能相对于当前页面检索条目,也可以使用索引号检索绝对条目。第一个条目的索引号是1。
表6-1 Content Linking组件的方法及说明
方 法
说 明

GetListCount(links_file)
返回文件links_file中条目的数量

GetListIndex(links_file)
返回文件links_file中当前页面的索引号

GetNextURL(links_file)
返回文件links_file中下个页面的URL

GetNextDescription(links_file)
返回文件links_file中下个页面的描述

GetPreviousURL(links_file)
返回文件links_file中前一个页面的URL

GetPreviousDescription(links_file)
返回文件links_file中前一个页面的描述

GetNthURL(links_file,n)
返回文件links_file中第n个页面的URL

GetNthDescription(links_file,n)
返回文件links_file中第n个页面的描述

如果当前页面不在内容链接列表文件中,则:
· GetListIndex返回0。
· GetNextURL和GetNextDescription返回列表文件中最后一个页面的URL和描述。
· GetPreviousURL和GetPreviousDescription返回列表文件中第一个页面的URL和描述。
3. 使用Content Linking组件
一旦创建了自己的内容链接文件,就可以把该组件添加到页面中。这里有一个典型的示例,它遍历内容链接文件中的所有条目,并且创建一个页面列表(以超链接表示页面)。
<% ' in VBScript:
Set objNextLink = Server.CreateObject("MSWC.Nextlink")
%>

<UL>
<%
'get the number of entries in the menu file
intCount = objNextLink.GetListCount("contlink.txt")
'loop through the entries
For intLoop = 1 To intCount %>
<LI>
<A HREF="<% = objNextLink.GetNthURL("contlink.txt", intLoop) %>">
<% = objNextLink.GetNthDescription("contlink.txt", intLoop) %>
</A>
<%
Next
%>
</UL>
这段代码首先创建了一个Content Linking对象。在普通的<UL>和</UL>标记之间,使用Content Linking对象的GetListCount方法查找在内容链接列表文件有多少条目。然后再遍历这些条目,对于每一个条目在页面中放入一个<LI>标记,后面跟着一个<A>标记。HREF属性的值从列表文件中使用GetNthURL方法检索得到,用作链接文本的描述使用GetNthDescription方法得到。
注意,内容列表文件和使用它的ASP页面应处在同一文件夹中。否则,应提供一个相对物理路径或一个完整的虚拟路径,如下所示:
inCount = objNextLink.GetListCount("links\contlink.txt") 'physical path
inCount = objNextLink.GetListCount("/demo/contlink.txt") 'virtual path


文章整理:西部数码--专业提供域名注册虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!