📄 admin_menu_type.asp
字号:
<%
sub menu_type()
dim m_sort,m_type,n_sort,n_type,tmpstyle
i=0
n_sort=-1
sql="select m_id,m_sort,m_name,m_url,m_open from admin_menu where m_hidden=1 order by m_sort,m_order"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
tmpstyle=""
m_sort=rs("m_sort")
if cint(n_sort)=cint(m_sort) then
response.write vbcrlf&" <tr><td>"&img_admin("s_arrow","")&" <a href='"&rs("m_url")&"'>"&rs("m_name")&"</a></td></tr>"
else
if i>0 then
%>
<tr><td height=3></td></tr>
</table>
</td></tr>
<tr>
<td class=m_end width=4><img height=2 width=4 src="images/admin/menu_endleft.gif"></td>
<td width=* background="images/admin/menu_endbg.gif"></td>
<td class=m_end width=4><img height=2 width=4 src="images/admin/menu_endright.gif"></td>
</tr>
</table>
<%
response.write ukong
end if
if rs("m_open")=false then tmpstyle=" style=""display:none;"""
%>
<table cellspacing=0 cellpadding=0 class=m_table>
<tr>
<td class=m_td width=4><img height=25 width=4 src="images/admin/menu_topleft.gif"></td>
<td class=m_td width=* background="images/admin/menu_topbg.gif" align=center onclick="javascript:left_menu('left_<%response.write m_sort%>');">≡ <%response.write rs("m_name")%> ≡</td>
<td class=m_td width=4><img height=25 width=4 src="images/admin/menu_topright.gif"></td>
</tr>
<tr id=left_<%response.write m_sort%> <%response.write tmpstyle%>><td class=m_tr colspan=3 background="images/admin/menu_bg.gif" align=center>
<table cellspacing=1 cellpadding=2 class=m_table2>
<tr><td height=3></td></tr>
<%
n_sort=m_sort
end if
rs.movenext
i=i+1
loop
rs.close
if i>0 then
%>
<tr><td height=3></td></tr>
</table>
</td></tr>
<tr>
<td class=m_end width=4><img height=2 width=4 src="images/admin/menu_endleft.gif"></td>
<td width=* background="images/admin/menu_endbg.gif"></td>
<td class=m_end width=4><img height=2 width=4 src="images/admin/menu_endright.gif"></td>
</tr>
</table>
<%
response.write ukong
end if
%>
<script language=javascript>
<!--
function left_menu(meval)
{
var left_n=eval(meval);
if (left_n.style.display=="none")
{ eval(meval+".style.display='';"); }
else
{ eval(meval+".style.display='none';"); }
}
-->
</script>
<%
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -