ASP编程入门进阶(十四):Browser & Linking(3)

Set objNextLink = Server.CreateObject("MSWC.Nextlink")”建立Nextlink组件的连接
objNextLink.GetListCount("link.txt")”提取link.txt文件中的列表数目
objNextLink.GetNthURL("link.txt",i)”提取link.txt文件中第i行文本的连接网址
objNextLink.GetNthDescription("link.txt",i)”提取link.txt文件中第i行文本的连接文本

3,redirect.asp
也就是转向文件了。

<%
Response.Clear
Response.Redirect Request.QueryString("url")
%>


呵呵,是不是觉得还没用到“上一页”、“下一页”的功能。再来~!

4,link1.txt

1.asp    ASP编程入门进阶(一)
2.asp    ASP编程入门进阶(二)
3.asp    ASP编程入门进阶(三)
4.asp    ASP编程入门进阶(四)


主要功能是设置文本和连接

5,link1.inc

<%Set Nextlink=Server.CreateObject("MSWC.NextLink")
Response.write "当前文章索引号为" & NextLink.GetListIndex("link1.txt") & "<br>"
Response.write "上一章的标题:" & NextLink.GetPreviousDescription("link1.txt") & "<br>"
Response.write "下一章的标题:" & NextLink.GetNextDescription("link1.txt") & "<br>"
count = NextLink.GetListCount("link1.txt")
Response.write "<a href="""&NextLink.GetNthUrl("link1.txt",1)&"""&>"&"第一章"&"</a> "
Response.write "<a href="""&NextLink.GetPreviousUrl("link1.txt")&"""&>"&"上一章"&"</a> "
Response.write "<a href="""&NextLink.GetNextUrl("link1.txt")&"""&>"&"下一章"&"</a> "
Response.write "<a href="""&NextLink.GetNthUrl ("link1.txt",count)&"""&>"&"最后一章"&"</a><br>"
%>



GetListCount(目标文件名) 显示组件中包含的连接的文件数目。
GetListIndex(目标文件名) 显示当前页在这些连接文件中的前后位置索引值。
GetNextDescription(目标文件名) 显示连接文件中下一个的描述。
GetNextURL(目标文件名) 显示连接文件中的下一个文件的URL地址。
GetNthDescription(目标文件名, N) 显示连接文件中第N个网页的描述。
GetNthURL(目标文件名, N) 显示连接文件中第N个网页的文件URL地址。
GetPreviousDescription(目标文件名) 显示连接文件中前一个文件的描述。
GetPreviousURL(目标文件名) 显示连接文件中前一个文件的URL地址。

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3066.html