无锡图书馆招聘:帮忙注解二段程序!谢谢

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/28 16:42:34
每句后注释一下!万分感谢
一:
< %
Set Link = Server.CreateObject("MSWC.NextLink")
count = Link.GetListCount("nextlink.txt")
Dim I
For I=1 to count
%>
< ul>< li>< a href="< %= Link.GetNthURL("nextlink.txt", I) %>">
< %= Link.GetNthDescription("nextlink.txt", I) %>< /a>
< % Next %>

二:
< %
Set Link = Server.CreateObject("MSWC.NextLink")
count = Link.GetListCount("nextlink.txt")
current = link.GetListIndex("nextlink.txt")
If current > 1 Then
%>
< a href="< %= Link.GetPreviousURL("nextlink.txt") %>"> 上一页 < /a>
< %
End If
If current < count Then
%>
< a href="< %= Link.GetNextURL("nextlink.txt") %>"> 下一页 < /a>
< % End If %>

看不出来是哪中程序