say_system.asp

来自「大榕树网络文章管理系统」· ASP 代码 · 共 25 行

<%
'=====================================================================
'功能：成长物语栏中的菜单显示
'参数：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
%>