left_menu.asp.bak

物流管理系统,可以用于中小企业,建立自己的内部物流管理.

<%
sub list_class()
DIM Obj
dim info
set Obj=createObject("DataCommon.Common")
info=Obj.GetArray("SP_NEWS_CLASS_LIST",msg)
if msg="ok" and isarray(info) then
for i=0 to ubound(info,2)
 response.write "<table width=90% border=0 cellpadding=0 cellspacing=0>"
 response.write "<tr><td width=34% height=20 align=right><img src=../../Images/Left_1_1.gif></td>"
 response.write "<td width=66% valign=bottom><a href='/manage/information/info_list.asp?classid="& info(0,i) &"&name="& info(1,i)&"'><font color=#FFFF00>"& info(1,i) &"</font></a></td>"
 response.write "</tr></table>"
next
end if
end sub
%>
<table width="150" height="100%" border="0" cellpadding="0" cellspacing="0" class="HeaderTdStyle">
  <tr> 
    <td align="center" valign="top"><table width="100%" height="24" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td align="center">功能菜单</td>
        </tr>
      </table>
      <table width="100%" height="90%" border="0" cellpadding="0" cellspacing="0" class="MenuBg">
        <tr> 
          <td align="center" valign="top"><br>
			 <table width="90%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td width="16%"><img src="../../Images/Left_1.gif" width="28" height="11"></td>
                <td width="84%" height="20"><font color="#FFFF00">信息管理</font></td>
              </tr>
            </table>
            <table width="90%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td width="34%" height="20" align="right"><img src="../../Images/Left_1_1.gif"></td>
                <td width="66%" valign="bottom"><a href="/manage/information/class_list.asp"><font color="#FFFF00">类别设置</font></a></td>
              </tr>
            </table>
			<table width="90%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td width="34%" height="20" align="right"><img src="../../Images/Left_1_1.gif"></td>
                <td width="66%" valign="bottom"><a href="/manage/information/info_add.asp"><font color="#FFFF00">信息发布</font></a></td>
              </tr>
            </table>
			<table width="90%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td width="16%"><img src="../../Images/Left_1.gif" width="28" height="11"></td>
                <td width="84%" height="20"><font color="#FFFF00">信息维护</font></td>
              </tr>
            </table>

            <%
			call list_class()
			%>	
			<table width="90%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td width="34%" height="20" align="right"><img src="../../Images/Left_1_1.gif"></td>
                <td width="66%" valign="bottom"><a href="/manage/information/info_list.asp"><font color="#FFFF00">全部信息</font></a></td>
              </tr>
            </table>
			</td>
        </tr>
      </table> </td>
  </tr>
</table>