main.asp

来自「东方网而非二个渥太华归园田居获取热特热特 额外托付给忽然他突然一」· ASP 代码 · 共 22 行

<HTML>
<BODY>
<CENTER><H2> 在线小说---鹿鼎记 </H2></CENTER>

<HR>
<UL>
<%
    set NL=Server.CreateObject("MSWC.NextLink")    '创建实例
     Count=NL.GetListCount("list.Txt")             '统计列表文件中共有几条链接
    I=1
    do while I<=count
      a1=NL.GetNthURL("list.txt",I)                '返回列表中下一页的URL
      a2=NL.GetNthDescription("list.txt",I)        '返回列表中下一页的描述
      Response.Write ("<LI><A href=" & a1 & ">" & a2 & "</A>")      '将描述做个URL链接
      I=I+1
    loop
    set NL=nothing                                 '释放NL变量

%>
</UL>
</BODY>
</HTML>