浅析ASP内置组件(9)

原作者:admin 添加时间:2007-08-24 原文发表:2007-08-24 人气:37 来源：www

本文章共5056字，分10页，当前第9页，快速翻页：

-----------------------------------------------------------------------------------------------------------------------------------------------

本文提示：《浅析ASP内置组件(9)》是本站编辑们为广大网友精选的实用文章，本文阐述了关于文章的相关理论，相对来说专业性强，但是本文只是针对于某个问题提出的见解与论述，未必能辐射到相关问题的方方面面，所以本文处理问题的方法仅仅为您提供一些参考。更多问题请查阅学习中国网其他栏目哦.

-----------------------------------------------------------------------------------------------------------------------------------------------

　　然后，以wuf28.asp为例说明如何自动实现上一章和下一章跳转。

<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<html><head><title>这个链接要注意</title></head>
<body>

<% '每个文件都包含下面这句, 就实现了自动链接%>

</body></html>

　　这里最后一句加上去就可以实现自动跳转，核心在wuf29.asp中。

<%
Dim NextLink, rank
Set NextLink = Server.CreateObject ("MSWC.NextLink")
'当前的链接在 urllist.txt 中位于第几个
rank = NextLink.GetListIndex ("urllist.txt")
Response.Write "<hr>"

If (rank > 1) Then 'rank = 1 不存在前一页
Response.Write "|<a href=""" & NextLink.GetPreviousURL("urllist.txt") & """>上一章</a>|"
End If

If (rank < NextLink.GetListCount("urllist.txt")) Then 'rank在最后, 则没有下一页
Response.Write "|<a href=""" & NextLink.GetNextURL("urllist.txt") & """>下一章</a>|"