📄 left.asp

📁 ASPTest 网络基础网页设计
💻 ASP
字号:
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>终端列表</title>
</head>

<body topmargin="0" leftmargin="0" background="MusicBG.gif">

<!-- #include file="cnOpen.asp" -->

<% 
Dim rsTerm,rsBuss,rsLine
Dim i
Set rsTerm = Server.CreateObject("ADODB.RecordSet")
Set rsBuss = Server.CreateObject("ADODB.RecordSet")
Set rsLine = Server.CreateObject("ADODB.RecordSet")
%>
<APPLET CODEBASE="./" NAME="JNaviTree" ARCHIVE="JAVATreeF.jar" CODE="JAVATreeF.class" WIDTH="180" HEIGHT="400">
  <PARAM NAME="CopyRight" VALUE="(c)1997-2000 AUSCOMP (www.auscomp.com)">
  <PARAM NAME="PROXY" VALUE="No">
  <PARAM NAME="FONT" VALUE="Arial; PLAIN;12">
  <PARAM NAME="BACKGROUND" VALUE="255,255,255">
  <PARAM NAME="FOREGROUND" VALUE="0,0,0">
  <PARAM NAME="SELBACKGROUND" VALUE="0,0,255">
  <PARAM NAME="SELFOREGROUND" VALUE="255,255,255">
  <PARAM NAME="TOOLTIPBACKCOLOR" VALUE="255,255,0">
  <PARAM NAME="TOOLTIPFORECOLOR" VALUE="0,0,0">
  <PARAM NAME="LINECOLOR" VALUE="0,0,0">
  <PARAM NAME="LEAFCOLOR" VALUE="0,0,0">
  <PARAM NAME="FOLDERCCOLOR" VALUE="0,0,0">
  <PARAM NAME="FOLDEROCOLOR" VALUE="0,0,0">
  <PARAM NAME="MOUSEOVERFRAMECOLOR" VALUE="0,0,0">
  <PARAM NAME="MOUSEOVER" VALUE="255,0,0">
  <PARAM NAME="BORDER" VALUE="No">
  <PARAM NAME="TOOLTIP" VALUE="Yes">
  <PARAM NAME="DOUBLECLICK" VALUE="No">
  <PARAM NAME="AUTOEXPAND" VALUE="No">
  <PARAM NAME="STYLE" VALUE="AXBA">
  <PARAM NAME="BACKGROUNDIMAGE" VALUE="MusicBG.gif">
  <PARAM NAME="FOLDER_CLOSED" VALUE="BookC.gif">
  <PARAM NAME="FOLDER_OPEN" VALUE="BookO.gif">
  <PARAM NAME="LEAF" VALUE="Leaf.gif">
  
  <PARAM NAME="I0" VALUE="按行业分; None; None; 0; folder ; folder ; ;None; None; NO;NO;;">
  
  <%
  '遍历行业信息，形成按行业划分用户的节点和子节点
  rsBuss.Open "SELECT DISTINCT BussName FROM TermTable",cn
  Do While Not rsBuss.Eof
    i = i+1
    %>
    <PARAM NAME="I<%=i%>" VALUE="<%=rsBuss(0)%>; None; None; 1; folder ; folder ; ;None; None; NO;NO;;">
    <%
    rsTerm.Open "SELECT TermName FROM TermTable WHERE BussName='"&rsBuss(0)&"'",cn
    Do While Not rsTerm.Eof
      i = i+1
      %>
      <PARAM NAME="I<%=i%>" VALUE="<%=rsTerm(0)%>; None; None; 2; leaf ; leaf ; ;DateType.asp?Name=<%=rsTerm(0)%>&Type=Term; Top; NO;NO;;">
      <%
      rsTerm.MoveNext
    Loop
    rsTerm.Close
    i=i+1
    %>
    <PARAM NAME="I<%=i%>" VALUE="<%=rsBuss(0)%>合计; None; None; 2; leaf ; leaf ; ;DateType.asp?Name=<%=rsBuss(0)%>&Type=Buss; Top; NO;NO;;">
    <%
    rsBuss.MoveNext
  Loop
  rsBuss.Close
  %>
  
  <% 
  i = i+1 
  %>
  <PARAM NAME="I<%=i%>" VALUE="按线路分; None; None; 0; folder ; folder ; ;None; None; NO;NO;;">
  <%
  '遍历线路信息，形成按线路划分用户的节点和子节点
  rsLine.Open "SELECT DISTINCT LineName FROM TermTable",cn
  Do While Not rsLine.Eof
    i = i+1
    %>
    <PARAM NAME="I<%=i%>" VALUE="<%=rsLine(0)%>; None; None; 1; folder ; folder ; ;None; None; NO;NO;;">
    <%
    rsTerm.Open "SELECT TermName FROM TermTable WHERE LineName='"&rsLine(0)&"'",cn
    Do While Not rsTerm.Eof
      i = i+1
      %>
      <PARAM NAME="I<%=i%>" VALUE="<%=rsTerm(0)%>; None; None; 2; leaf ; leaf ; ;DateType.asp?Name=<%=rsTerm(0)%>&Type=Term; Top; NO;NO;;">
      <%
      rsTerm.MoveNext
    Loop
    rsTerm.Close
    i=i+1
    %>
    <PARAM NAME="I<%=i%>" VALUE="<%=rsLine(0)%>合计; None; None; 2; leaf ; leaf ; ;DateType.asp?Name=<%=rsLine(0)%>&Type=Line; Top; NO;NO;;">
    <%
    rsLine.MoveNext
  Loop
  rsLine.Close
  %>
  
  <%
  i = i+1
  %>
  <PARAM NAME="I<%=i%>" VALUE="用户列表; None; None; 0; folder ; folder ; ;None; None; NO;NO;;">
  <%
  '遍历全部终端，形成列表输出
  rsTerm.Open "SELECT TermName FROM TermTable",cn
  Do While Not rsTerm.Eof
    i = i+1
    %>
    <PARAM NAME="I<%=i%>" VALUE="<%=rsTerm(0)%>; None; None; 1; leaf ; leaf ; ;DateType.asp?Name=<%=rsTerm(0)%>&Type=Term; Top; NO;NO;;">
    <%
    rsTerm.MoveNext
  Loop
  rsTerm.Close
  i=i+1
  %>
  <PARAM NAME="I<%=i%>" VALUE="系统合计; None; None; 1; leaf ; leaf ; ;DateType.asp?Name=系统合计&Type=All; Top; NO;NO;;">
</APPLET>
<%
Set rsBuss = Nothing
Set rsLine = Nothing
Set rsTerm = Nothing
%>

<!-- #include file="cnClose.asp" -->

</body>

</html>
⌨️ 快捷键说明

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