📄 left.asp

📁 基于IIS+ASP的
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="error.asp"-->
<%
'johnson code 
user=session("user")
pwd=session("pwd")
chkuser user,pwd
sql="select  * from menu where cp>0 order by cp "
set rs=conn.execute(sql)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="">
<style type=text/css>
body  {  margin:0px; font:normal 12px 宋体; }
table  { border:0px; }
td  { font:normal 12px 宋体; }
img  { vertical-align:bottom; border:0px; }
a  { font:normal 12px 宋体; color:#215DC6; text-decoration:none; }
a:hover  { color:#428EFF }
.sec_menu  { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#D6DFF7; }
.menu_title  { }
.menu_title span  { position:relative; top:2px; left:8px; color:#215DC6; font-weight:bold; }
.menu_title2  { }
.menu_title2 span  { position:relative; top:2px; left:8px; color:#428EFF; font-weight:bold; }
</style>
<script language=javascript>
function menuShow(obj,maxh,obj2)
{
  if(obj.style.pixelHeight<maxh)
  {
    obj.style.pixelHeight+=maxh/20;
    obj.filters.alpha.opacity+=5;
    obj2.background="images/title_bg_hide.gif";
    if(obj.style.pixelHeight==maxh/10)
      obj.style.display='block';
    myObj=obj;
    myMaxh=maxh;
    myObj2=obj2;
    setTimeout('menuShow(myObj,myMaxh,myObj2)','2');
  }
}
function menuHide(obj,maxh,obj2)
{
  if(obj.style.pixelHeight>0)
  {
    if(obj.style.pixelHeight==maxh/20)
      obj.style.display='none';
    obj.style.pixelHeight-=maxh/20;
    obj.filters.alpha.opacity-=5;
    obj2.background="images/title_bg_show.gif";
    myObj=obj;
    myMaxh=maxh
    myObj2=obj2;
    setTimeout('menuHide(myObj,myMaxh,myObj2)','1');
  }
  else
    if(whichContinue)
      whichContinue.click();
}
function menuChange(obj,maxh,obj2)
{
  if(obj.style.pixelHeight)
  {
    menuHide(obj,maxh,obj2);
    whichOpen='';
    whichcontinue='';
  }
  else
    if(whichOpen)
    {
      whichContinue=obj2;
      whichOpen.click();
    }
    else
    {
      menuShow(obj,maxh,obj2);
      whichOpen=obj2;
      whichContinue='';
    }
}
</script>
<base target=main>
</head>

<body background="images/sky2.gif" onselectstart="return false;" ondragstart="return false;" >
<div align="right">
  <table width=112 height="1%" align=right cellpadding=0 cellspacing=0>
    <tr style="cursor:hand;"> 
      <td height=42 valign=bottom><img src=images/title.gif width=112 height=38></td>
    </tr>
	<%
	tmpmenu=""
	tmpi=2
	tmpmenu="menu"&tmpi
	'response.Write(tmpmenu)
	while not rs.eof
	idd=tmpi-1
	sql2="select * from menu where cp=0  and class="&idd&" order by class,rdclass asc" 
	set rs2=server.CreateObject("ADODB.recordset")
	rs2.open sql2,conn,1,3
	tmph=rs2.RecordCount
    tmph=int(tmph)
	if tmph/2<>tmph\2  then
       tmph=tmph+1
	end if
	tmph=tmph*30 'height
	%>
    <tr style="cursor:hand;"> 
      <td valign=top><table cellpadding=0 cellspacing=0 width=112 align=center>
          <tr style="cursor:hand;"> 
            <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background=images/title_bg_show.gif id=menuTitle<%=tmpi%> onclick="menuChange(<%=tmpmenu%>,<%=tmph%>,menuTitle<%=tmpi%>);"> 
              <span><%=left(rs("title"),6)%></span> </td>
          </tr>
          <tr>  
            <td> <div class=sec_menu style="width:112;height:0;filter:alpha(Opacity=0);display:none;" id=menu<%=tmpi%>> 
                <table cellpadding=0 cellspacing=0 align=center width=135 style="position:relative;top:10px;">
				  <% 
				  
				  while not rs2.eof 
				  %>
				  <tr> 
                    <td height=20><a href="<%=trim(rs2("links"))%>?idd=<%=rs2("rdclass")%>&pid=<%=rs2("class")%>" target="main" onfocus=this.blur();><img src=images/icon<%=idd%>.gif> 
                      <%=left(rs2("title"),6)%></a> </td>
                  </tr>
				  <%
				  rs2.movenext
				  wend
				  rs2.close
				  %>
                  
                </table>
              </div></td>
          </tr>
        </table></td>
    </tr>
	<%
	tmpi=tmpi+1
	tmpmenu="menu"&tmpi
	rs.movenext
	wend
	rs.close
	set rs=nothing
	%>
    <tr style="cursor:hand;"> 
      <td valign=top> <table cellpadding=0 cellspacing=0 width=112 align=center>
          <tr style="cursor:hand;"> 
            <td height=26 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background=images/title_bg_quit.gif> 
              <a href="logout.asp"  target="_top"><span>退出系统</span></a> </td>
          </tr>
        </table></td>
    </tr>
  </table>
  <script language=javascript>
  var whichOpen='';
  var whichContinue='';
</script>
</div>
</body>

</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -