是否寫錯了
expendit(
-->
expandIt(

解决方案 »

  1.   

    谢谢楼上哥们,现提示未结束的字符串常量:行85,帮助看一下
    <%@LANGUAGE=VBSCRIPT%>
    <html>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <link rel="stylesheet" href="page.css" type="text/css">
    <style type=text/css> .parent2 {position:absolute; visibility:visible}
     .child2 {position:absolute; visibility:hide}
    </style>
    <head>
    </head>
    <body bgcolor="#FFFFFF">
    <script language="JavaScript">
    scores = new Array(20);
    var numTotal=0;
    var id="";
    NS4 = (document.layers) ? 1 : 0;
    IE4 = (document.all) ? 1 : 0;
    ver4 = (NS4 || IE4) ? 1 : 0;if (ver4) {
        with (document) { 
             write("<STYLE TYPE='text/css'>");  
             if (NS4) {
                write(".parent {position:absolute; visibility:visible}"); 
                write(".child {position:absolute; visibility:visible}");  
                write(".regular {position:absolute; visibility:visible}") 
               }
             else { 
             //  write(".child {display:none}") 
               }
            write("</STYLE>");
            }}function initIt(){ 
           divdc = document.all.tags("div"); 
           for (i=0; i<divdc.length; i++) {  
              whichEl = divdc(i);
              if (whichEl.className == "child")
                 whichEl.style.display = "none";  
             }
    }function expandit(el) {
        if (IE4) {
            whichEl1 = eval(el + "Child");
            for(i=1;i<=numTotal;i++){
            whichEl = eval(scores[i] + "Child");
            if(whichEl!=whichEl1) {whichEl.style.display = "none";}    } //for        whichEl1 = eval(el + "Child"); 
            if (whichEl1.style.display == "none") {whichEl1.style.display = "block";  }
            else { whichEl1.style.display = "none";  }
            }    
         else {
            whichEl = eval("document." + el +"Child");
        for(i=1;i<=numTotal;i++){
               whichEl =eval("document." + scores[i] + "Child");                              if(whichEl!=whichEl1) {whichEl.visibility = "hide";}
          }
            if(whichEl.visibility == "hide") { whichEl.visibility = "show"; }
               else { whichEl.visibility = "hide";  }
            arrange();
         }//end if
    }
    function arrange() { 
       nextY = document.layers[firstInd].pageY +document.layers[firstInd].document.height; 
       for (i=firstInd+1; i<document.layers.length; i++) { 
           whichEl = document.layers[i];
           if (whichEl.visibility != "hide") {  
               whichEl.pageY = nextY;
               nextY += whichEl.document.height; }  
      }
    }
    function getIndex(el) { 
       ind = null;    
       for (i=0; i<document.layers.length; i++) 
         { whichEl = document.layers[i]; 
         if (whichEl.id == el) { 
               ind = i; 
               break;        } 
        }
        return ind;}
    'onload = initIt;
    </script>
    <%
       dim ADOconn, ADOrs, sSQL,sSqlbook,RsBook,parentid,childid,parentname
       sSQL="Select * From jckind;"
       '进行数据库链接
       set ADOconn = Server.CreateObject("ADODB.Connection")
       ADOconn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("admin/jcdata.mdb")
       '执行SQL语句
       set ADOrs = ADOconn.execute(sSQL) 
       '用Recordset对象返回查询结果
       'Response.Write("教程类别列表<br>")
       if ADOrs.BOF and ADOrs.EOF then 
          Response.Write("对不起,数据库中没有记录!")
       else
          ADOrs.MoveFirst
          
          Do While Not ADOrs.EOF
             sSqlbook="Select zhuanyename From zhuanyefl where jckindid=" & ADOrs("id")
             '将根结点写出来
     parentid= "parent" &(ADOrs("id"))
     parentname=ADOrs("jckindname")
             Response.Write( "<div id='"& parentid & "' > <IMG SRC='images/plus.gif' > <a href='#' onclick='var strflag=parentElement.id;expendit(strflag)' >" &   ADOrs("jckindname")& " </a><br></div>")
             set RsBook = ADOconn.execute(sSqlbook) 
         if not RsBook.BOF and not RsBook.EOF then 
                  RsBook.MoveFirst
                  Do While Not RsBook.EOF
                  '将子结点写出来
                   childid= parentid & "_child" 
                   Response.Write("<div id='" & childid2 & "' class=child> <IMG SRC='images/blankend.GIF'> <a href='booklist.asp' target=main >" & RsBook("zhuanyename")& " </a> <br></div>")
                RsBook.MoveNext
                  loop
              end if
     ADOrs.MoveNext
          Loop
        end if
       ADOrs.close
       RsBook.close
       set RsBook=nothing
       set ADOrs = nothing
    %>
    </body>
    </html>
      

  2.   

    我这里运行不了asp
    呵呵
    好象是这里的错误
    window.onload = initIt;
      

  3.   

    Onload是正常的,当我点击时出错了,就是执行下面这一句时报的错
    onclick='var strflag=parentElement.id;expendit(strflag)
    我不知道怎么设置参数到传到函数调用
    如果将expendit(strflag)改为alert(strflag)是可以得到当前parentElement.id的值的
      

  4.   

    xiaoshi(js真痛苦!我要被炒了)你说得对,我习惯地将 onload = initIt;前加了一'应该将它经去掉或加//,现在问题不在这里了,是哪个函数有错呀
    我真的要晕死了