📄 main.asp
字号:
<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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -