欢迎来到站长教程网!
兔子CDN

ASP编程

当前位置:主页 > 网络编程 > ASP编程 >

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

时间:2020-09-09|栏目:ASP编程|点击:

********************** (一) 打开记录集,创建数组,把记录集的值赋给数组.
<% 
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编程

下一篇:提供个 全免杀海洋2006asp木马 下载

本文标题:编写一个含二级目录的源码(Asp+JavaScript)

本文地址:www.dtcnnet.com/asp/27940.html

您可能感兴趣的文章

广告投放 | 联系我们 | 版权申明

重要申明:本站所有的文章、图片、评论等,均由网友发表或上传并维护或收集自网络,属个人行为,与本站立场无关。

如果侵犯了您的权利,请与我们联系,我们将在24小时内进行处理、任何非本站因素导致的法律后果,本站均不负任何责任。

联系QQ:584415406 | 邮箱:584415406#qq.com(#换成@)

Copyright © 2015-2020 小白站长网 版权所有 苏ICP备20040415号