| | 网站首页 |
<% if B_BG=0 then %>
|
<% else %>
<%
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="| "& menuName &""
Response.Write TdString
ArraymenuID(i)=menuID
ArraymenuName(i)=menuName
i=i+1
rs.MoveNext
wend
rs.close
set rs=nothing
%> |
<%end if%>
<%
dim mymenu
mymenu=basemenu
Response.Write mymenu
%> |
八闽自考 - 论坛首页
厦门南洋学院在线报名 2006-7-1
友情连接