ASP VBScript + Javascript 以字符串方式二级联显示文件夹

王朝asp·作者佚名  2006-12-22
窄屏简体版  字體: |||超大  

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>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航