编写一个含二级目录的源码(Asp+JavaScript)
2007-04-04 00:00
591 查看
********************** (一) 打开记录集,创建数组,把记录集的值赋给数组.
<%
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>
<%
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+JavaScript)
- 编写一个含二级目录的源码(Asp+JavaScript)
- 做了一个浏览指定文件格式的 TreeView(方便查看Source目录下的源码)
- 一个用javascript编写的表单提交的例子(包括用正则表达式对数据进行验证)
- Javascript写了一个清除“logo1_.exe”的杀毒工具(可扫描目录)
- 编写一个程序,将 d:\java目录下的所有.java 文件复制到d:\jad目录下,并将原来文件的扩展名从.java 改为.jad。
- 用JavaScript编写一个Java虚拟机?谈谈哗众取宠的BicaVM
- 用JavaScript编写一个Java虚拟机?谈谈哗众取宠的BicaVM
- 【自】JavaScript面向对象初探二:通过编写一个拖拽例子,让我们了解对象的继承
- JavaScript编写了一个计时器
- Linux网络编程一步一步学-自己编写一个HTTP协议的目录浏览和文件下载服务器
- 编写一个程序,将d:\java目录下的所有.java文件复制到d:\jad目录下,并将原来文件的扩展名从.java改为.jad
- 一个使用多线程删除指定目录及子目录下所有指定文件的Java程序(源码)
- 一个可以编写简单的JavaScript的页面
- 【自】JavaScript面向对象初探一:通过编写一个简单的Tab选项卡插件,让我们更直观的去认识面向对象的编程方式
- JavaScript 封装一个tab效果源码分享
- G2:一个由纯 javascript 编写、强大的语义化图表生成工具
- artDialog是一个基于javascript编写的对话框组件
- 一个显示地图数据,并实现简单浏览查询程序源码(SDK编写)
- 折叠面板,类似于二级目录的效果,纯css编写