📄 say_system.asp
字号:
<%
'=====================================================================
'功能:成长物语栏中的菜单显示
'参数:i---显示个数
'=====================================================================
sub saymenu(i)'显示菜单
dim rssc,h
set rssc=server.createobject("ADODB.Recordset")
rssc.open"select * from SayClass",conn,1,1
if rssc.eof or rssc.bof then
response.write"<li><span>还没有栏目</span></li>"
rssc.close
set rssc=nothing
else
for h=1 to i
if rssc.eof then
exit for
end if
response.write"<li><a href='say_index"&h&".asp?scname="&rssc("scname")&"'><span>"&rssc("scname")&"</span></li>"
rssc.movenext
next
end if
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -