ASP VBScript + Javascript 以字符串方式二级联显示文件夹
2006-07-28 01:12
423 查看
ASP VBScript + Javascript 以字符串方式二级联显示文件夹
作用: 列出当前设置目录中的子文件夹, 再列出子文件夹的下级文件夹, 当改变一级子文件夹的时候, 动态显示隶属于其的子文件夹.
注: Javascript 以字符串方法判断级联对象, 也就是一级子文件夹的名字.
//并且在页面加载的时候以一级子文件夹选择的目标关联显示二级列表框中的内容.
shawl.qiu
2006-7-28
linenum
<%@LANGUAGE="VBSCRIPT"%>
<% option explicit
dim path:path="include/system/themes/"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 列出某文件夹中的一级子文件夹, 并加上 <option></option>
' call sGetSubfolderNameAtchOpt("include/managemain/language",sitefgstyle)
private sub sGetSubfolderNameAtchOpt(byref Path,check)
dim fso, gFolder, folder, i, fldNm
set fso=server.CreateObject("scripting.fileSystemObject")
set gFolder=fso.getFolder(server.MapPath(path))
for each folder in gFolder.subfolders
fldNm=folder.name
if check=folder.name then response.write "<option selected=""selected"" value="""&_
fldNm& """>" else response.write "<option value="""&fldNm&""">"
response.write fldNm
response.write "</option>"
next
set gFolder=nothing
set fso=nothing
end sub %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" " http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns=" http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>
<script>
var subcat;subcat = new Array(); //定义显示子类数组
<% dim fso, gFolder, varCnt, spFld, sbFld
set fso=server.CreateObject("scripting.fileSystemObject")
set gFolder=fso.getFolder(server.MapPath(path))
varCnt=0
for each spFld in gFolder.subfolders
for each sbFld in spFld.subfolders%>
subcat[<%response.write varCnt%>] = new Array("<%response.write trim(sbFld.name)%>","<%response.write trim(spFld.name)%>");
<% varCnt=varCnt+1
next
next
set gFolder=nothing
set fso=nothing %>
varCnt=<%response.write varCnt%>
function fChangeLoct(pathValue) {
document.all.sbFld.length = 0;
var pathValue=pathValue,i
for (i=0;i < varCnt; i++) {
if (subcat[i][1] == pathValue) {
document.all.sbFld.options[document.all.sbFld.length] = new Option(subcat[i][0], subcat[i][0]);
}
}
}
</script>
<body onload="fChangeLoct(document.all.spFld.options[0].value)" >
<form action="" method="post" name="formT" id="formT">
<select name="spFld" onchange="fChangeLoct(options[selectedIndex].value)">
<% call sGetSubfolderNameAtchOpt(path,"schinese") %>
</select><br />
<select name="sbFld"></select>
</form>
</body>
</html>
作用: 列出当前设置目录中的子文件夹, 再列出子文件夹的下级文件夹, 当改变一级子文件夹的时候, 动态显示隶属于其的子文件夹.
注: Javascript 以字符串方法判断级联对象, 也就是一级子文件夹的名字.
//并且在页面加载的时候以一级子文件夹选择的目标关联显示二级列表框中的内容.
shawl.qiu
2006-7-28
linenum
<%@LANGUAGE="VBSCRIPT"%>
<% option explicit
dim path:path="include/system/themes/"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 列出某文件夹中的一级子文件夹, 并加上 <option></option>
' call sGetSubfolderNameAtchOpt("include/managemain/language",sitefgstyle)
private sub sGetSubfolderNameAtchOpt(byref Path,check)
dim fso, gFolder, folder, i, fldNm
set fso=server.CreateObject("scripting.fileSystemObject")
set gFolder=fso.getFolder(server.MapPath(path))
for each folder in gFolder.subfolders
fldNm=folder.name
if check=folder.name then response.write "<option selected=""selected"" value="""&_
fldNm& """>" else response.write "<option value="""&fldNm&""">"
response.write fldNm
response.write "</option>"
next
set gFolder=nothing
set fso=nothing
end sub %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" " http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns=" http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>
<script>
var subcat;subcat = new Array(); //定义显示子类数组
<% dim fso, gFolder, varCnt, spFld, sbFld
set fso=server.CreateObject("scripting.fileSystemObject")
set gFolder=fso.getFolder(server.MapPath(path))
varCnt=0
for each spFld in gFolder.subfolders
for each sbFld in spFld.subfolders%>
subcat[<%response.write varCnt%>] = new Array("<%response.write trim(sbFld.name)%>","<%response.write trim(spFld.name)%>");
<% varCnt=varCnt+1
next
next
set gFolder=nothing
set fso=nothing %>
varCnt=<%response.write varCnt%>
function fChangeLoct(pathValue) {
document.all.sbFld.length = 0;
var pathValue=pathValue,i
for (i=0;i < varCnt; i++) {
if (subcat[i][1] == pathValue) {
document.all.sbFld.options[document.all.sbFld.length] = new Option(subcat[i][0], subcat[i][0]);
}
}
}
</script>
<body onload="fChangeLoct(document.all.spFld.options[0].value)" >
<form action="" method="post" name="formT" id="formT">
<select name="spFld" onchange="fChangeLoct(options[selectedIndex].value)">
<% call sGetSubfolderNameAtchOpt(path,"schinese") %>
</select><br />
<select name="sbFld"></select>
</form>
</body>
</html>
相关文章推荐
- javascript,无限级分类,类似windows文件夹方式显示,非ajax版,(Ie 7,firefox 2).
- asp.net 2.0 中updatePanel里执行javaScript的方式
- 使用ASP与JAVASCRIPT配合实现多个复选框数据关联显示
- JavaScript中声明全局变量的三种方式(包括显示和隐式)
- 『原创』使用ASP与JAVASCRIPT配合实现多个复选框数据关联显示
- asp.net 实现动态显示当前时间(不用javascript不考虑开销)
- Javascript与ASP.NET(一般处理程序)关于URL(get方式)传递中文乱码问题的解决方案
- 利用Javascript 与 VBscript 在asp中实现图片自动切换
- ASP.NET-C# listview控件显示文件夹内的文件名及路径
- 总结ASP.NET MVC Web Application中将数据显示到View中的几种方式
- javascript显示过长的中英文混合字符串
- Asp.net日期字符串格式化显示方法
- ASP.NET MVC显示HTML字符串
- asp (vbscript)中用正则表达式替换字符串
- Asp.net日期字符串格式化显示方法
- JavaScript italics方法入门实例(把字符串显示为斜体)
- asp.net(c#) datelist DataGrid 中截取字符串加"..." 和 鼠标放上去字符全部显示
- 总结ASP.NET MVC Web Application中将数据显示到View中的几种方式
- Asp.net日期字符串格式化显示
- 将字符串数组作为数据源以列表方式显示在对话框中