有关下拉框中数据相互传递的问题!

<html>
<head>
<title> New Document </title>
<script language="JavaScript">
<!--
function doit(frm)
{
var opt;opt = new Option;
opt.value = 'd';
opt.text = 'ddd';
frm.xxx.add(opt);
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF">
<form method=post action="">
<select name="xxx">
<option value="a">aaa
<option value="b">bbb
<option value="c">ccc
</select>
<input type=button onclick="doit(this.form)" value="DoIt">
</form>
</body>
</html>

解决方案 »

  1.   

    用vbscript吧！！对于这种更好用！
      

  2.   

    <%@ Language=VBScript %>
    <!--#include file="../inc/adovbs.inc"-->
    <%
     set conn=server.CreateObject("adodb.connection")
     conn.Open "zouxian"
    %>
    <html>
    <head>
    <title>....计算机管理系统</title>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <style type="text/css">
    <!--
    .content {font-size: 10pt; font-color:#FFFFFF;}
    .content1 {font-size: 10pt; font-color:#000000;; color: #000000}
    .contentb {font-size: 14pt; font-color:#FFFFFF;}
    .contentb1 {font-size: 14pt; font-color:#000000;; color: #000000}
    td {font-size: 12px; }
    .input1 {font-family: Arial; font-size: 10px; border: 1 solid #999999;background-color: #cccccc;}
    .input2 {font-family: 宋体; font-size: 13px; border:2 solid #FFFFFF;background-color: #CCCCCC;}
    textarea {font-size: 12px; color:#000000; background-color: #E9F3FE; border: 1 solid #000000; overflow: auto; }
    .input_text  { background-color: #E9F3FE; color: #000000; font-size: 12px; 
                   border: 1 solid #000000 }
    .input_button { background-color: #cccccc; color: #000000; font-size: 12px; 
                   border: 1 solid #333333 }
             
    a {text-decoration:none; }
    a:hover {text-decoration:underline; }
    .table {  border-style: outset; border-top-width: thin; border-right-width: thin; border-bottom-width: thin; border-left-width: thin}
    -->
    </style>
    </head><body  text="#000000" bgcolor="#CCCCCC" background="../images/bg.gif">
    <!-- #include file="../inc/INCLUDE.inc" -->
    <br>
    <br>
    <table width="752" border="0" align="center" cellspacing="0">
        <tr> 
    <script language = "JavaScript">
    var onecount;
    onecount=0;
    subcat = new Array();
    <%
    dim index
    index=0
    set  jizu=server.CreateObject("adodb.recordset")
         jizusql="select * from jizu order by id "
         jizu.Open jizusql,conn,1,3,adCmdText
         if jizu.RecordCount>0 then
         do while not jizu.EOF 
         %>
         subcat[<%=index%>] = new Array("<%=trim(jizu("name"))%>","<%=trim(jizu("pid"))%>","<%=trim(jizu("id"))%>");
    <%
           index=index+1  
           jizu.movenext
           loop
     end if 
     %>
    onecount=<%=index+1%>;
    function changelocation(locationid)
        {
        document.searchform.jizu.length = 0;     var locationid=locationid;
        var i;
        for (i=0;i < onecount; i++)
            {
                if (subcat[i][1] == locationid)
                { 
                    document.searchform.jizu.options[document.searchform.jizu.length] = new Option(subcat[i][0], subcat[i][2]);
                }        
            }
            
        }    
        
     //////////////////////////////////////////////////////
     
     var twocount;
    twocount=0;
    subcat1 = new Array();
    <%
    dim index1
    index1=0
    set  system=server.CreateObject("adodb.recordset")
         systemsql="select * from system order by id "
         system.Open systemsql,conn,1,3,adCmdText
         if system.RecordCount>0 then
         do while not system.EOF 
         %>
    subcat1[<%=index1%>] = new Array("<%=trim(system("name"))%>","<%=trim(system("jid"))%>","<%=trim(system("id"))%>");
    <%
           index1=index1+1  
           system.movenext
           loop
     end if 
     %>
    twocount=<%=index1+1%>;
    function changesystem(locationid)
        {
        document.searchform.system.length = 0;     var locationid=locationid;
        var i;
        for (i=0;i < twocount; i++)
            {
                if (subcat1[i][1] == locationid)
                { 
                    document.searchform.system.options[document.searchform.system.length] = new Option(subcat1[i][0], subcat1[i][2]);
                }        
            }
            
        }    
        //////////////////////////////   
         var threecount;
    threecount=0;
    subcat2 = new Array();
    <%
    dim index2
    index2=0
    set  equip=server.CreateObject("adodb.recordset")
         equipsql="select * from equipment order by id "
         equip.Open equipsql,conn,1,3,adCmdText
         if equip.RecordCount>0 then
         do while not equip.EOF 
         %>
    subcat2[<%=index2%>] = new Array("<%=trim(equip("name"))%>","<%=trim(equip("xid"))%>","<%=trim(equip("id"))%>");
    <%
           index2=index2+1  
           equip.movenext
           loop
     end if 
     %>
    threecount=<%=index2+1%>;
    function changeequip(locationid)
        {
        document.searchform.equip.length = 0;     var locationid=locationid;
        var i;
        for (i=0;i < threecount; i++)
            {
                if (subcat2[i][1] == locationid)
                { 
                    document.searchform.equip.options[document.searchform.equip.length] = new Option(subcat2[i][0], subcat2[i][2]);
                }        
            }
            
        }
        ///////////////////////
    </script>      <form name="searchform" method="post" action="search.asp">
            <td valign="middle" align="center"> 功率组 
              <select name="power" class="input_text" onChange="changelocation(document.searchform.power.options[document.searchform.power.selectedIndex].value)">
                <option value="">-请选择-</option>
                <%
                set power=server.CreateObject("adodb.recordset")
                powersql="select * from power order by id "
                power.Open powersql,conn,1,3,adCmdText
                if power.RecordCount>0 then
                   do while not power.EOF 
                %>
                <option value="<%=power("id")%>"><%=trim(power("ptype"))%></option>
                <%   
                    power.MoveNext 
                    loop  
                end if   
                %>
              </select>
              &nbsp;机组 
              <select name="jizu" class="input_text" onChange="changesystem(document.searchform.jizu.options[document.searchform.jizu.selectedIndex].value)">
                <option value="">-请选择-</option>
              </select>
              &nbsp;系统 
              <select name="system" class="input_text" onChange="changeequip(document.searchform.system.options[document.searchform.system.selectedIndex].value)">
                <option value="">-请选择-</option>
              </select>
              &nbsp;设备名 
             <select name="equip" class="input_text">
                <option value="">-请选择-</option>
              </select>
              &nbsp;加油点 
              <input type="text" name="point" size="10" class="input_text">
            &nbsp;
            <select name="type" class="input_text">
              <option value="1" selected>中文名</option>
              <option value="2">英文名</option>
              <option value="3">编号</option>
            </select>
            &nbsp; 
            <input type="submit" name="Submit" value="搜索" class="input_button">
            </td>
          </form>
        </tr>
      </table><table width="753" border="1" bgcolor="#999999" bordercolor="#CCCCCC" cellpadding="2" cellspacing="1" height="233" class="contentb1" align="center">
      <tr align="center" valign="middle" bgcolor="#B4B4B4" bordercolor="#CCCCCC"> 
        <td colspan="2" height="18" class="contentb1">搜索结果</td>
      </tr>
      
        <%    if Request.Form("page")="" then
           pagenow=1
        else
           pagenow=cint(Request.Form("pagenow"))
           if trim(Request.Form("page"))="上一页" then
               pagenow=pagenow-1
           end if
           if trim(Request.Form("page"))="下一页" then
               pagenow=pagenow+1
           end if   
        end if        
        dim mresult
        mresult=""
        mpower=trim(Request.Form("power"))
        mjizu=trim(Request.Form("jizu"))
        msystem=trim(Request.Form("system"))
        mequip=trim(Request.Form("equip"))
        mpoint=trim(Request.Form("point"))
        mtype=trim(Request.Form("type"))
        
        dim sql
        sql=""
        if mpoint<>"" then
           if mtype=1 then
           sql=sql&"select * from addpoint where cname='"&mpoint&"' " 
           end if
           if mtype=2 then
           sql=sql&"select * from addpoint where ename='"&mpoint&"' " 
           end if
           if mtype=3 then
           sql=sql&"select * from addpoint where serial='"&mpoint&"' " 
           end if
           
           if mequip<>"" then
              sql=sql&" and sid="&mequip
              mresult=mresult&"equipp"
           end if
              if msystem<>"" then
                 sql=sql&" and xid="&msystem
                 mresult=mresult&"equipp"
              end if
                  if mjizu<>"" then
                     sql=sql&" and jid="&mjizu
                     mresult=mresult&"equipp"
                  end if
                      if mpower<>"" then
                         sql=sql&" and pid="&mpower
                         mresult=mresult&"equipp"
                      end if
        end if
        '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        if mpoint="" then
           if mequip<>"" then
              sql=sql&"select * from addpoint where sid="&mequip
              mresult=mresult&"equipp"
            end if
            
           if mequip="" then
              if msystem<>"" then
                 sql=sql&"select * from equipment where xid="&msystem
                 mresult=mresult&"equip" 
                  else
                  if mjizu<>"" then
                     sql=sql&"select * from equipment where jid="&mjizu
                    mresult=mresult&"equip"
                  else
                     if mpower<>"" then
                     sql=sql&"select * from equipment where pid="&mpower
                     mresult=mresult&"equip"
                     else
                     mresult=mresult&""
                     end if
                  end if
              end if
            end if
        end if      
        %>
        <tr bordercolor="#CCCCCC" bgcolor="#CCCCCC"> 
        <td valign="top" > 
          <%if mresult="" then%>
          <br><br><p align="center">请输入查询条件！</p> 
          <%
        else
        sql=sql&" order by serial"
        set rs=server.CreateObject("adodb.recordset")
        rs.open sql,conn,1,3,adCmdText
        if rs.RecordCount=0 then 
        %>
          <br><br>
          <p align="center"> 没有您所要搜索的结果！ </p>
          <%
        else
         rs.pagesize=2
     inttotal=cint(rs.pagecount)
     rs.AbsolutePage=pagenow
    %>
         <table width="100%" border="1" cellspacing="1" bgcolor="#CCCCCC" bordercolor="#999999" cellpadding="0">
            <form method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>">
            <tr bgcolor="#CCCCCC"> 
                <td bgcolor="#CCCCCC" height="15" align="center" valign="middle"> 
                  一共有<%=rs.RecordCount%>条您搜索的记录 -- [<%=pagenow%>/<%=inttotal%>].&nbsp;&nbsp;&nbsp;&nbsp; 
                  <input type="hidden" name="power" value="<%=mpower%>">
              <input type="hidden" name="jizu" value="<%=mjizu%>">
              <input type="hidden" name="system" value="<%=msystem%>">
              <input type="hidden" name="equip" value="<%=mequip%>">
              <input type="hidden" name="point" value="<%=mpoint%>">
              <input type="hidden" name="pagenow" value="<%=pagenow%>">
              <input type="submit" name="page"  value="上一页" class="input_button" <%if pagenow=1 then%>disabled<%end if%>>&nbsp;&nbsp;&nbsp;
              <input type="submit" name="page" value="下一页" class="input_button" <%if pagenow=inttotal then%>disabled<%end if%> id=submit1>&nbsp;&nbsp;&nbsp;
              </td>
            </tr>
            </form>
          </table>
        <% dim i
        if mresult="equip" then
         
             i=0
            do while not rs.EOF and i<2
             set rs1=server.CreateObject("adodb.recordset")
             sql1="select * from system where id="&rs("xid")
             rs1.open sql1,conn,1,3,adCmdText
             msystem=trim(rs1("name"))
             rs1.close
             set rs2=server.CreateObject("adodb.recordset")
             sql2="select * from jizu where id="&rs("jid")
             rs2.open sql2,conn,1,3,adCmdText
             mjizu=trim(rs2("name"))   
             rs2.Close
             set rs3=server.CreateObject("adodb.recordset")
             sql3="select * from power where id="&rs("pid")
             rs3.open sql3,conn,1,3,adCmdText
             mpower=trim(rs3("ptype"))   
             rs3.Close 
         %>
         
          <br>
          <table width="100%" border="1" cellspacing="1">
            <tr bgcolor="#A8A8A8"> 
              <td height="17" colspan="6"><font color="#000099">所属： --> <%=mpower%> 
                --> <%=mjizu%> --> <%=msystem%></font></td>
            </tr>
            <tr> 
              <td height="8" width="11%">设备编号</td>
              <td height="8" width="16%" bgcolor="#EEEEEE"><%=trim(rs("serial"))%>&nbsp;</td>
              <td height="44" rowspan="3" width="7%" align="center">技术<br>
                参数</td>
              <td height="44" rowspan="3" width="40%" bgcolor="#EEEEEE"><%=trim(rs("param"))%>&nbsp;</td>
              <td height="80" rowspan="5" width="7%" align="center">润滑<br>
                部位</td>
              <td height="80" rowspan="5" width="19%" bgcolor="#EEEEEE">
              <%
                     set rs4=server.CreateObject("adodb.recordset")
                     sql4="select * from addpoint where sid="&rs("id")&" order by serial" 
                     rs4.Open sql4,conn,1,3,adCmdText
                     if not (rs4.BOF and rs4.EOF) then
                        do while not rs4.EOF 
                     %>
                     ◇<a href="queryequip.asp?subid=o<%=trim(rs4("id"))%>" target="_parent"><%=trim(rs4("cname"))%></a><br>
                     <%
                     rs4.MoveNext 
                     loop
                     else
                     Response.Write "无"
                     end if
                     rs4.Close
                     set rs4=nothing
                     %>
              
              </td>
            </tr>
            <tr> 
              <td height="17" width="11%">设备名字型号</td>
              <td height="17" width="16%" bgcolor="#EEEEEE"><%=trim(rs("name"))%>&nbsp;</td>
            </tr>
            <tr> 
              <td height="17" width="11%">制造单位</td>
              <td height="17" width="16%" bgcolor="#EEEEEE"><%=trim(rs("manufacturer"))%>&nbsp;</td>
            </tr>
            <tr> 
              <td height="17" width="11%">润滑用油/脂</td>
              <td height="17" colspan="3" bgcolor="#EEEEEE"><%=trim(rs("oil"))%>&nbsp;</td>
            </tr>
            <tr> 
              <td height="17" width="11%">备注</td>
              <td height="17" colspan="3" bgcolor="#EEEEEE"><%=trim(rs("re"))%>&nbsp;</td>
            </tr>
          </table>
         <% i=i+1
            rs.MoveNext 
            loop
        end if
        end if
        end if
        if mresult="equipp" then
        
            i=0
            do while not rs.EOF and i<2
             set rs1=server.CreateObject("adodb.recordset")
             sql1="select * from system where id="&rs("xid")
             rs1.open sql1,conn,1,3,adCmdText
             msystem=trim(rs1("name"))
             rs1.close
             set rs2=server.CreateObject("adodb.recordset")
             sql2="select * from jizu where id="&rs("jid")
             rs2.open sql2,conn,1,3,adCmdText
             mjizu=trim(rs2("name"))   
             rs2.Close
             set rs3=server.CreateObject("adodb.recordset")
             sql3="select * from power where id="&rs("pid")
             rs3.open sql3,conn,1,3,adCmdText
             mpower=trim(rs3("ptype"))   
             rs3.Close 
             set rs4=server.CreateObject("adodb.recordset")
             sql4="select * from equipment where id="&rs("sid")
             rs4.open sql4,conn,1,3,adCmdText
             mequip=trim(rs4("name"))   
             rs4.Close 
             
        %>
          <br>
          <table width="100%" border="1" height="37" align="center" cellspacing="1">
            <tr> 
              <td height="18" colspan="9" bgcolor="#A8A8A8">所属：<font color="#000099">所属：山东省邹县发电长 
                --> <%=mpower%> --> <%=mjizu%> --> <%=msystem%> --> <%=mequip%></font></td>
            </tr>
            <tr> 
              <td height="14" colspan="2">润滑部位编号</td>
              <td height="-1" width="95" bgcolor="#EEEEEE"><%=rs("serial")%>&nbsp;</td>
              <td height="-2" colspan="2">第一次加油量</td>
              <td height="-2" width="85" bgcolor="#EEEEEE"><%=rs("firstnum")%>&nbsp;</td>
              <td height="16" rowspan="5" width="56">润滑剂名</td>
              <td height="0" width="92">说明书推荐</td>
              <td height="-2" bgcolor="#EEEEEE" width="194"><%=rs("smoil")%>&nbsp;</td>
            </tr>
            <tr> 
              <td height="35" rowspan="2" width="54">润滑部位</td>
              <td height="18" width="36">中文名</td>
              <td height="18" width="95" bgcolor="#EEEEEE"><%=rs("cname")%>&nbsp;</td>
              <td height="3" rowspan="2" width="31">补油 </td>
              <td height="18" width="52">周期</td>
              <td height="18" width="85" bgcolor="#EEEEEE"><%=rs("fillcyc")%>&nbsp;</td>
              <td height="18" width="92">目前正在使用</td>
              <td height="18" bgcolor="#EEEEEE" width="194"><%=rs("usingoil")%>&nbsp;</td>
            </tr>
            <tr> 
              <td height="18" width="36">英文名</td>
              <td height="0" width="95" bgcolor="#EEEEEE"><%=rs("ename")%>&nbsp;</td>
              <td height="1" width="52">数量</td>
              <td height="1" width="85" bgcolor="#EEEEEE"><%=rs("fillnum")%>&nbsp;</td>
              <td height="1" width="92">本所推荐</td>
              <td height="1" bgcolor="#EEEEEE" width="194"><%=rs("tjoil")%>&nbsp;</td>
            </tr>
            <tr> 
              <td height="18" colspan="2">加油方式</td>
              <td height="18" width="95" bgcolor="#EEEEEE"><%=rs("addmanner")%>&nbsp;</td>
              <td height="15" rowspan="2" width="31">换油</td>
              <td height="5" width="52">周期</td>
              <td height="5" width="85" bgcolor="#EEEEEE"><%=rs("changecyc")%>&nbsp;</td>
              <td height="3" width="92">核实后实际选用</td>
              <td height="5" bgcolor="#EEEEEE" width="194"><%=rs("realoil")%>&nbsp;</td>
            </tr>
            <tr> 
              <td height="14" colspan="2">润滑方式</td>
              <td height="14" width="95" bgcolor="#EEEEEE"><%=rs("lubmanner")%>&nbsp;</td>
              <td height="14" width="52">数量</td>
              <td height="14" width="85" bgcolor="#EEEEEE"><%=rs("changenum")%>&nbsp;</td>
              <td height="14" width="92">润滑剂生产厂</td>
              <td height="14" bgcolor="#EEEEEE" width="194"><%=rs("oilmanu")%>&nbsp;</td>
            </tr>
            <tr> 
              <td height="3" colspan="2">检查周期</td>
              <td height="3" bgcolor="#EEEEEE"><%=rs("checkcyc")%>&nbsp;</td>
              <td height="3" colspan="2">分工负责</td>
              <td height="3" bgcolor="#EEEEEE"><%=rs("duty")%>&nbsp;</td>
              <td height="3" colspan="2">润滑部位参数</td>
              <td height="3" bgcolor="#EEEEEE"><%=rs("param")%>&nbsp;</td>
            </tr>
            <tr> 
              <td height="13" colspan="2"> 
                所属班组
                </td>
              <td height="13" bgcolor="#EEEEEE"><%=rs("class")%>&nbsp;</td>
              <td height="13" colspan="2">备注</td>
              <td height="13" bgcolor="#EEEEEE" colspan="4"><%=rs("re")%>&nbsp;</td>
            </tr>
          </table>
          <br>
          <%
          i=i+1
          rs.MoveNext 
          loop
          end if%>
        </td>
      </tr>
    </table></body>
    </html>
    <%
     conn.Close
     set conn=nothing
    %><%@ Language=VBScript %>
    <!--#include file="../inc/adovbs.inc"-->
    <%
     set conn=server.CreateObject("adodb.connection")
     conn.Open "zouxian"
    %>
    <html>
    <head>
    <title>山东省邹县发电厂设备润滑计算机管理系统</title>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <style type="text/css">
    <!--
    .content {font-size: 10pt; font-color:#FFFFFF;}
    .content1 {font-size: 10pt; font-color:#000000;; color: #000000}
    .contentb {font-size: 14pt; font-color:#FFFFFF;}
    .contentb1 {font-size: 14pt; font-color:#000000;; color: #000000}
    td {font-size: 12px; }
    .input1 {font-family: Arial; font-size: 10px; border: 1 solid #999999;background-color: #cccccc;}
    .input2 {font-family: 宋体; font-size: 13px; border:2 solid #FFFFFF;background-color: #CCCCCC;}
    textarea {font-size: 12px; color:#000000; background-color: #E9F3FE; border: 1 solid #000000; overflow: auto; }
    .input_text  { background-color: #E9F3FE; color: #000000; font-size: 12px; 
                   border: 1 solid #000000 }
    .input_button { background-color: #cccccc; color: #000000; font-size: 12px; 
                   border: 1 solid #333333 }
             
    a {text-decoration:none; }
    a:hover {text-decoration:underline; }
    .table {  border-style: outset; border-top-width: thin; border-right-width: thin; border-bottom-width: thin; border-left-width: thin}
    -->
    </style>
    </head><body  text="#000000" bgcolor="#CCCCCC" background="../images/bg.gif">
    <!-- #include file="../inc/INCLUDE.inc" -->
    <br>
    <br>
    <table width="752" border="0" align="center" cellspacing="0">
        <tr> 
    <script language = "JavaScript">
    var onecount;
    onecount=0;
    subcat = new Array();
    <%
    dim index
    index=0
    set  jizu=server.CreateObject("adodb.recordset")
         jizusql="select * from jizu order by id "
         jizu.Open jizusql,conn,1,3,adCmdText
         if jizu.RecordCount>0 then
         do while not jizu.EOF 
         %>
         subcat[<%=index%>] = new Array("<%=trim(jizu("name"))%>","<%=trim(jizu("pid"))%>","<%=trim(jizu("id"))%>");
    <%
           index=index+1  
           jizu.movenext
           loop
     end if 
     %>
    onecount=<%=index+1%>;
    function changelocation(locationid)
        {
        document.searchform.jizu.length = 0;     var locationid=locationid;
        var i;
        for (i=0;i < onecount; i++)
            {
                if (subcat[i][1] == locationid)
                { 
                    document.searchform.jizu.options[document.searchform.jizu.length] = new Option(subcat[i][0], subcat[i][2]);
                }        
            }
            
        }    
        
     //////////////////////////////////////////////////////
     
     var twocount;
    twocount=0;
    subcat1 = new Array();
    <%
    dim index1
    index1=0
    set  system=server.CreateObject("adodb.recordset")
         systemsql="select * from system order by id "
         system.Open systemsql,conn,1,3,adCmdText
         if system.RecordCount>0 then
         do while not system.EOF 
         %>
    subcat1[<%=index1%>] = new Array("<%=trim(system("name"))%>","<%=trim(system("jid"))%>","<%=trim(system("id"))%>");
    <%
           index1=index1+1  
           system.movenext
           loop
     end if 
     %>
    twocount=<%=index1+1%>;
    function changesystem(locationid)
        {
        document.searchform.system.length = 0;     var locationid=locationid;
        var i;
        for (i=0;i < twocount; i++)
            {
                if (subcat1[i][1] == locationid)
                { 
                    document.searchform.system.options[document.searchform.system.length] = new Option(subcat1[i][0], subcat1[i][2]);
                }        
            }
            
        }    
        //////////////////////////////   
         var threecount;
    threecount=0;
    subcat2 = new Array();
    <%
    dim index2
    index2=0
    set  equip=server.CreateObject("adodb.recordset")
         equipsql="select * from equipment order by id "
         equip.Open equipsql,conn,1,3,adCmdText
         if equip.RecordCount>0 then
         do while not equip.EOF 
         %>
    subcat2[<%=index2%>] = new Array("<%=trim(equip("name"))%>","<%=trim(equip("xid"))%>","<%=trim(equip("id"))%>");
    <%
           index2=index2+1  
           equip.movenext
           loop
     end if 
     %>
    threecount=<%=index2+1%>;
    function changeequip(locationid)
        {
        document.searchform.equip.length = 0;     var locationid=locationid;
        var i;
        for (i=0;i < threecount; i++)
            {
                if (subcat2[i][1] == locationid)
                { 
                    document.searchform.equip.options[document.searchform.equip.length] = new Option(subcat2[i][0], subcat2[i][2]);
                }        
            }
            
        }
        ///////////////////////
    </script>      <form name="searchform" method="post" action="search.asp">
            <td valign="middle" align="center"> 功率组 
              <select name="power" class="input_text" onChange="changelocation(document.searchform.power.options[document.searchform.power.selectedIndex].value)">
                <option value="">-请选择-</option>
                <%
                set power=server.CreateObject("adodb.recordset")
                powersql="select * from power order by id "
                power.Open powersql,conn,1,3,adCmdText
                if power.RecordCount>0 then
                   do while not power.EOF 
                %>
                <option value="<%=power("id")%>"><%=trim(power("ptype"))%></option>
                <%   
                    power.MoveNext 
                    loop  
                end if   
                %>
              </select>
              &nbsp;机组 
              <select name="jizu" class="input_text" onChange="changesystem(document.searchform.jizu.options[document.searchform.jizu.selectedIndex].value)">
                <option value="">-请选择-</option>
              </select>
              &nbsp;系统 
              <select name="system" class="input_text" onChange="changeequip(document.searchform.system.options[document.searchform.system.selectedIndex].value)">
                <option value="">-请选择-</option>
              </select>
              &nbsp;设备名 
             <select name="equip" class="input_text">
                <option value="">-请选择-</option>
              </select>
              &nbsp;加油点 
              <input type="text" name="point" size="10" class="input_text">
            &nbsp;
            <select name="type" class="input_text">
              <option value="1" selected>中文名</option>
              <option value="2">英文名</option>
              <option value="3">编号</option>
            </select>
            &nbsp; 
            <input type="submit" name="Submit" value="搜索" class="input_button">
            </td>
          </form>
        </tr>
      </table><table width="753" border="1" bgcolor="#999999" bordercolor="#CCCCCC" cellpadding="2" cellspacing="1" height="233" class="contentb1" align="center">
      <tr align="center" valign="middle" bgcolor="#B4B4B4" bordercolor="#CCCCCC"> 
        <td colspan="2" height="18" class="contentb1">搜索结果</td>
      </tr>
      
        <%    if Request.Form("page")="" then
           pagenow=1
        else
           pagenow=cint(Request.Form("pagenow"))
           if trim(Request.Form("page"))="上一页" then
               pagenow=pagenow-1
           end if
           if trim(Request.Form("page"))="下一页" then
               pagenow=pagenow+1
           end if   
        end if        
        dim mresult
        mresult=""
        mpower=trim(Request.Form("power"))
        mjizu=trim(Request.Form("jizu"))
        msystem=trim(Request.Form("system"))
        mequip=trim(Request.Form("equip"))
        mpoint=trim(Request.Form("point"))
        mtype=trim(Request.Form("type"))
        
        dim sql
        sql=""
        if mpoint<>"" then
           if mtype=1 then
           sql=sql&"select * from addpoint where cname='"&mpoint&"' " 
           end if
           if mtype=2 then
           sql=sql&"select * from addpoint where ename='"&mpoint&"' " 
           end if
           if mtype=3 then
           sql=sql&"select * from addpoint where serial='"&mpoint&"' " 
           end if
           
           if mequip<>"" then
              sql=sql&" and sid="&mequip
              mresult=mresult&"equipp"
           end if
              if msystem<>"" then
                 sql=sql&" and xid="&msystem
                 mresult=mresult&"equipp"
              end if
                  if mjizu<>"" then
                     sql=sql&" and jid="&mjizu
                     mresult=mresult&"equipp"
                  end if
                      if mpower<>"" then
                         sql=sql&" and pid="&mpower
                         mresult=mresult&"equipp"
                      end if
        end if
        '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        if mpoint="" then
           if mequip<>"" then
              sql=sql&"select * from addpoint where sid="&mequip
              mresult=mresult&"equipp"
            end if
            
           if mequip="" then
              if msystem<>"" then
                 sql=sql&"select * from equipment where xid="&msystem
                 mresult=mresult&"equip" 
                  else
                  if mjizu<>"" then
                     sql=sql&"select * from equipment where jid="&mjizu
                    mresult=mresult&"equip"
                  else
                     if mpower<>"" then
                     sql=sql&"select * from equipment where pid="&mpower
                     mresult=mresult&"equip"
                     else
                     mresult=mresult&""
                     end if
                  end if
              end if
            end if
        end if      
        %>
        <tr bordercolor="#CCCCCC" bgcolor="#CCCCCC"> 
        <td valign="top" > 
          <%if mresult="" then%>
          <br><br><p align="center">请输入查询条件！</p> 
          <%
        else
        sql=sql&" order by serial"
        set rs=server.CreateObject("adodb.recordset")
        rs.open sql,conn,1,3,adCmdText
        if rs.RecordCount=0 then 
        %>
          <br><br>
          <p align="center"> 没有您所要搜索的结果！ </p>
          <%
        else
         rs.pagesize=2
     inttotal=cint(rs.pagecount)
     rs.AbsolutePage=pagenow
    %>
         <table width="100%" border="1" cellspacing="1" bgcolor="#CCCCCC" bordercolor="#999999" cellpadding="0">
            <form method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>">
            <tr bgcolor="#CCCCCC"> 
                <td bgcolor="#CCCCCC" height="15" align="center" valign="middle"> 
                  一共有<%=rs.RecordCount%>条您搜索的记录 -- [<%=pagenow%>/<%=inttotal%>].&nbsp;&nbsp;&nbsp;&nbsp; 
                  <input type="hidden" name="power" value="<%=mpower%>">
              <input type="hidden" name="jizu" value="<%=mjizu%>">
              <input type="hidden" name="system" value="<%=msystem%>">
              <input type="hidden" name="equip" value="<%=mequip%>">
              <input type="hidden" name="point" value="<%=mpoint%>">
              <input type="hidden" name="pagenow" value="<%=pagenow%>">
              <input type="submit" name="page"  value="上一页" class="input_button" <%if pagenow=1 then%>disabled<%end if%>>&nbsp;&nbsp;&nbsp;
              <input type="submit" name="page" value="下一页" class="input_button" <%if pagenow=inttotal then%>disabled<%end if%> id=submit1>&nbsp;&nbsp;&nbsp;
              </td>
            </tr>
            </form>
          </table>
        <% dim i
        if mresult="equip" then
         
             i=0
            do while not rs.EOF and i<2
             set rs1=server.CreateObject("adodb.recordset")
             sql1="select * from system where id="&rs("xid")
             rs1.open sql1,conn,1,3,adCmdText
             msystem=trim(rs1("name"))
             rs1.close
             set rs2=server.CreateObject("adodb.recordset")
             sql2="select * from jizu where id="&rs("jid")
             rs2.open sql2,conn,1,3,adCmdText
             mjizu=trim(rs2("name"))   
             rs2.Close
             set rs3=server.CreateObject("adodb.recordset")
             sql3="select * from power where id="&rs("pid")
             rs3.open sql3,conn,1,3,adCmdText
             mpower=trim(rs3("ptype"))   
             rs3.Close 
         %>
         
          <br>
          <table width="100%" border="1" cellspacing="1">
            <tr bgcolor="#A8A8A8"> 
              <td height="17" colspan="6"><font color="#000099">所属：山东省邹县发电长 --> <%=mpower%> 
                --> <%=mjizu%> --> <%=msystem%></font></td>
            </tr>
            <tr> 
              <td height="8" width="11%">设备编号</td>
              <td height="8" width="16%" bgcolor="#EEEEEE"><%=trim(rs("serial"))%>&nbsp;</td>
              <td height="44" rowspan="3" width="7%" align="center">技术<br>
                参数</td>
              <td height="44" rowspan="3" width="40%" bgcolor="#EEEEEE"><%=trim(rs("param"))%>&nbsp;</td>
              <td height="80" rowspan="5" width="7%" align="center">润滑<br>
                部位</td>
              <td height="80" rowspan="5" width="19%" bgcolor="#EEEEEE">
              <%
                     set rs4=server.CreateObject("adodb.recordset")
                     sql4="select * from addpoint where sid="&rs("id")&" order by serial" 
                     rs4.Open sql4,conn,1,3,adCmdText
                     if not (rs4.BOF and rs4.EOF) then
                        do while not rs4.EOF 
                     %>
                     ◇<a href="queryequip.asp?subid=o<%=trim(rs4("id"))%>" target="_parent"><%=trim(rs4("cname"))%></a><br>
                     <%
                     rs4.MoveNext 
                     loop
                     else
                     Response.Write "无"
                     end if
                     rs4.Close
                     set rs4=nothing
                     %>
              
              </td>
            </tr>
            <tr> 
              <td height="17" width="11%">设备名字型号</td>
              <td height="17" width="16%" bgcolor="#EEEEEE"><%=trim(rs("name"))%>&nbsp;</td>
            </tr>
            <tr> 
              <td height="17" width="11%">制造单位</td>
              <td height="17" width="16%" bgcolor="#EEEEEE"><%=trim(rs("manufacturer"))%>&nbsp;</td>
            </tr>
            <tr> 
              <td height="17" width="11%">润滑用油/脂</td>
              <td height="17" colspan="3" bgcolor="#EEEEEE"><%=trim(rs("oil"))%>&nbsp;</td>
            </tr>
            <tr> 
              <td height="17" width="11%">备注</td>
              <td height="17" colspan="3" bgcolor="#EEEEEE"><%=trim(rs("re"))%>&nbsp;</td>
            </tr>
          </table>
         <% i=i+1
            rs.MoveNext 
            loop
        end if
        end if
        end if
        if mresult="equipp" then
        
            i=0
            do while not rs.EOF and i<2
             set rs1=server.CreateObject("adodb.recordset")
             sql1="select * from system where id="&rs("xid")
             rs1.open sql1,conn,1,3,adCmdText
             msystem=trim(rs1("name"))
             rs1.close
             set rs2=server.CreateObject("adodb.recordset")
             sql2="select * from jizu where id="&rs("jid")
             rs2.open sql2,conn,1,3,adCmdText
             mjizu=trim(rs2("name"))   
             rs2.Close
             set rs3=server.CreateObject("adodb.recordset")
             sql3="select * from power where id="&rs("pid")
             rs3.open sql3,conn,1,3,adCmdText
             mpower=trim(rs3("ptype"))   
             rs3.Close 
             set rs4=server.CreateObject("adodb.recordset")
             sql4="select * from equipment where id="&rs("sid")
             rs4.open sql4,conn,1,3,adCmdText
             mequip=trim(rs4("name"))   
             rs4.Close 
             
        %>
          <br>
          <table width="100%" border="1" height="37" align="center" cellspacing="1">
            <tr> 
              <td height="18" colspan="9" bgcolor="#A8A8A8">所属：<font color="#000099">所属：山东省邹县发电长 
                --> <%=mpower%> --> <%=mjizu%> --> <%=msystem%> --> <%=mequip%></font></td>
            </tr>
            <tr> 
              <td height="14" colspan="2">润滑部位编号</td>
              <td height="-1" width="95" bgcolor="#EEEEEE"><%=rs("serial")%>&nbsp;</td>
              <td height="-2" colspan="2">第一次加油量</td>
              <td height="-2" width="85" bgcolor="#EEEEEE"><%=rs("firstnum")%>&nbsp;</td>
              <td height="16" rowspan="5" width="56">润滑剂名</td>
              <td height="0" width="92">说明书推荐</td>
              <td height="-2" bgcolor="#EEEEEE" width="194"><%=rs("smoil")%>&nbsp;</td>
            </tr>
            <tr> 
              <td height="35" rowspan="2" width="54">润滑部位</td>
              <td height="18" width="36">中文名</td>
              <td height="18" width="95" bgcolor="#EEEEEE"><%=rs("cname")%>&nbsp;</td>
              <td height="3" rowspan="2" width="31">补油 </td>
              <td height="18" width="52">周期</td>
              <td height="18" width="85" bgcolor="#EEEEEE"><%=rs("fillcyc")%>&nbsp;</td>
              <td height="18" width="92">目前正在使用</td>
              <td height="18" bgcolor="#EEEEEE" width="194"><%=rs("usingoil")%>&nbsp;</td>
            </tr>
            <tr> 
              <td height="18" width="36">英文名</td>
              <td height="0" width="95" bgcolor="#EEEEEE"><%=rs("ename")%>&nbsp;</td>
              <td height="1" width="52">数量</td>
              <td height="1" width="85" bgcolor="#EEEEEE"><%=rs("fillnum")%>&nbsp;</td>
              <td height="1" width="92">本所推荐</td>
              <td height="1" bgcolor="#EEEEEE" width="194"><%=rs("tjoil")%>&nbsp;</td>
            </tr>
            <tr> 
              <td height="18" colspan="2">加油方式</td>
              <td height="18" width="95" bgcolor="#EEEEEE"><%=rs("addmanner")%>&nbsp;</td>
              <td height="15" rowspan="2" width="31">换油</td>
              <td height="5" width="52">周期</td>
              <td height="5" width="85" bgcolor="#EEEEEE"><%=rs("changecyc")%>&nbsp;</td>
              <td height="3" width="92">核实后实际选用</td>
              <td height="5" bgcolor="#EEEEEE" width="194"><%=rs("realoil")%>&nbsp;</td>
            </tr>
            <tr> 
              <td height="14" colspan="2">润滑方式</td>
              <td height="14" width="95" bgcolor="#EEEEEE"><%=rs("lubmanner")%>&nbsp;</td>
              <td height="14" width="52">数量</td>
              <td height="14" width="85" bgcolor="#EEEEEE"><%=rs("changenum")%>&nbsp;</td>
              <td height="14" width="92">润滑剂生产厂</td>
              <td height="14" bgcolor="#EEEEEE" width="194"><%=rs("oilmanu")%>&nbsp;</td>
            </tr>
            <tr> 
              <td height="3" colspan="2">检查周期</td>
              <td height="3" bgcolor="#EEEEEE"><%=rs("checkcyc")%>&nbsp;</td>
              <td height="3" colspan="2">分工负责</td>
              <td height="3" bgcolor="#EEEEEE"><%=rs("duty")%>&nbsp;</td>
              <td height="3" colspan="2">润滑部位参数</td>
              <td height="3" bgcolor="#EEEEEE"><%=rs("param")%>&nbsp;</td>
            </tr>
            <tr> 
              <td height="13" colspan="2"> 
                所属班组
                </td>
              <td height="13" bgcolor="#EEEEEE"><%=rs("class")%>&nbsp;</td>
              <td height="13" colspan="2">备注</td>
              <td height="13" bgcolor="#EEEEEE" colspan="4"><%=rs("re")%>&nbsp;</td>
            </tr>
          </table>
          <br>
          <%
          i=i+1
          rs.MoveNext 
          loop
          end if%>
        </td>
      </tr>
    </table></body>
    </html>
    <%
     conn.Close
     set conn=nothing
    %>
      

  3.   

    谢谢jokeboy_1981()和：　sdtashenjie(sdtashenjie)　
       分已送出