• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    编写一个含二级目录的源码(Asp+JavaScript)
    ********************** (一) 打开记录集,创建数组,把记录集的值赋给数组.

    Dim count
    set Rs=server.createobject("adodb.recordset")
    Sql = "select * from BookBoard order by ClassId desc"
    Rs.open Sql,cn,1,1%>
    script language = "JavaScript">
    var onecount;
    onecount=0;
    subcat = new Array();
    %count = 0
    do while not Rs.eof %>
    subcat[%=count%>] = new Array("%= trim(Rs("BoardName"))%>","%= trim(Rs("ClassId"))%>","%= trim(Rs("BoardId"))%>");
    %count = count + 1
    Rs.movenext
    loop
    Rs.close%>
    onecount=%=count%>;
    function changelocation(locationid)
    {document.form1.BoardId.length = 0; 
     var locationid=locationid;
     var i;
     for (i=0;i  onecount; i++)
    {if (subcat[i][1] == locationid)
    {document.form1.BoardId.options[document.form1.BoardId.length] = new Option(subcat[i][0], subcat[i][2]);
    }}}    
    /script>
    ********************** (二) 显示分组,并编写列表框的OnChange事件.
    %set Rs=server.CreateObject("adodb.recordset")
        Sql="select * from BookClass order by ClassId desc"
        Rs.open Sql,cn,1,1
        if Rs.eof and Rs.bof then
        response.write "请先添加总类。"
        response.end
        else%>
        select name="ClassId" onChange="changelocation(document.form1.ClassId.options[document.form1.ClassId.selectedIndex].value)">
        option selected value="">==请选择大类==/option>
        % do until Rs.eof%>
        option value="%=trim(Rs("ClassId"))%>">%=trim(Rs("ClassName"))%>/option>
         %Rs.movenext
           loop
           end if
           Rs.close
           set Rs = nothing%>
        /select>
        select name="BoardId">option selected value="">==请选择小类==/option>
        /select>
    上一篇:用asp实现网页邮箱访问的方法
    下一篇:asp下删除Access数词库中的空记录的sql语句
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    编写一个含二级目录的源码(Asp+JavaScript) 编写,一个,含,二级,目录,