<html> <body> <h1> 这是第1页！ </h1> <% Set nl=Server.CreateObject("MSWC.NextLink") If (nl.GetListIndex("/text/links2.txt")>1) Then %> <a href="<%Response.Write(nl.GetPreviousURL("/text/links2.txt"))%>">上一页</a> <%End If%> <a href="<%Response.Write(nl.GetNextURL("/text/links2.txt"))%>">下一页</a> <%Set nl=nothing%> <p>本例实现了将文本信息分页显示</p> <p> <a href="/text/links2.txt"><img border="0" src="/images/example/btn_view_text.gif"></a> </p> </body> </html>
效果会显示在右边 Create by 软晨网（RuanChen.com）