go.asp

东方网而非二个渥太华归园田居获取热特热特 额外托付给忽然他突然一

<% 
   set NL=Server.CreateObject("MSWC.NextLink")    
   a3=NL.GetListIndex("list.txt")    '检索当前页在列表中的位置

   If a3>1 then
     Response.Write ("<A HREF=" & NL.GetPreviousURL("list.txt") & ">上一回</A>&nbsp;&nbsp;")    '返回页面上一项的URL，注意写在一行
   end if
   If a3<>NL.GetListCount("list.txt") then
      Response.Write ("<A HREF=" & NL.GetNextURL("list.txt") &">下一回</A>")          '返回页面下一项的URL
   end if
%>