mulu.asp

社区天地图文系统(核心:尘缘雅境图文系统) 版本: 1.0 本系统是ASP+ACCESS环境下开发成功

<!--#include file="../inc/config.asp"-->
<%if topbg=1 then %>
<script src="admin/clearevents.js"></script>
<%else%>
<%end if%>
<td class="yy" nowrap><font color="#DDE5F2">|</font> <a href="index.asp" class="yy">网站首页</a></td>
          
		  <% if B_BG=0 then %><td><!--#include file=menu.asp --></td><% else %>
		  <td class="yy" nowrap>
<%
dim menuid
dim menuname
dim menucontent
dim menuview
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from type order by typeorder"
rs.Open rs.Source,conn,1,1
i=1
Dim ArraymenuID(1000),ArraymenuName(1000)
while not rs.EOF
RecordCount=rs.RecordCount
menuid=rs("typeid")
menuname=rs("typename")
menucontent=rs("typecontent")
menuview=rs("typeview")
TdString="<font color='#DDE5F2'>|</font>&nbsp;<a href='type.asp?typeID="& menuid &" 'class=top title='"& menucontent &"' class='top'>"& menuName &"</a>" 
Response.Write TdString
ArraymenuID(i)=menuID
ArraymenuName(i)=menuName
i=i+1
rs.MoveNext
wend
rs.close
set rs=nothing
%></td><%end if%>
<td class=yy nowrap><%
dim mymenu
mymenu=basemenu
Response.Write mymenu
%></td>