ASP网页设计三层静态下拉菜单的例子
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来；写了一个三层静态读取文件夹的下拉菜单的例子，供人人参考！<%
失掉文件夹路径。注重设置文件名字
urlpath=server.mappath("ook")
setfsoBrowse=CreateObject("Scripting.FileSystemObject")
设置文件夹路径
ifRequest("path")=""then
lpath=urlpath&""
else
lpath=Request("path")&""
endif
%>
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<metahttp-equiv=PRAGMACONTENT=NO-CACHE>
<title>中国国际航空公司</title>
<linkrel="stylesheet"href="news.css">
<scriptlanguage="JavaScript1.2">
NS4=(document.layers)?1:0;
IE4=(document.all)?1:0;
ver4=(NS4||IE4)?1:0;
if(ver4){
with(document){
write("<STYLETYPE=text/css>");
if(NS4){
write(".parent{position:absolute;visibility:visible}");
write(".child{position:absolute;visibility:visible}");
write(".regular{position:absolute;visibility:visible}")
}
else{
write(".child{display:none}")
}
write("</STYLE>");
}
}
functiongetIndex(el){
ind=null;
for(i=0;i<document.layers.length;i++){
whichEl=document.layers;
if(whichEl.id==el){
ind=i;
break;
}
}
returnind;
}
functionarrange(){
nextY=document.layers.pageY+document.layers.document.height;
for(i=firstInd+1;i<document.layers.length;i++){
whichEl=document.layers;
if(whichEl.visibility!="hide"){
whichEl.pageY=nextY;
nextY+=whichEl.document.height;
}
}
}
functioninitIt(){
if(!ver4)return;
if(NS4){
for(i=0;i<document.layers.length;i++){
whichEl=document.layers;
if(whichEl.id.indexOf("Child")!=-1)whichEl.visibility="hide";
}
arrange();
}
else{
divColl=document.all.tags("DIV");
for(i=0;i<divColl.length;i++){
whichEl=divColl(i);
if(whichEl.className=="child")whichEl.style.display="none";
}
}
}
functionexpandIt(el){
if(!ver4)return;
if(IE4){
whichEl=eval(el+"Child");
if(whichEl.style.display=="none"){
whichEl.style.display="block";
}
else{
whichEl.style.display="none";
}
}
else{
whichEl=eval("document."+el+"Child");
if(whichEl.visibility=="hide"){
whichEl.visibility="show";
}
else{
whichEl.visibility="hide";
}
arrange();
}
}
onload=initIt;
</script>
</head>
<bodybgcolor="#ffffff"topmargin="0"leftmargin="0">
<tablewidth="248"border="0"cellspacing="0"cellpadding="0"align="left">
<tr>
<td>
<%
处置第一层文件目次
dimtheFolder,theSubFolders
iffsoBrowse.FolderExists(lpath)then
SettheFolder=fsoBrowse.GetFolder(lpath)
SettheSubFolders=theFolder.SubFolders
轮回输入第一层文件
i=1
ForEachxIntheSubFolders
k="KB"&i
Parent=k&"Parent"
i=i+1
%>
<divid="<%=Parent%>"class="parent"><ahref="#"><ahref="#"><%=y.Name%></a><br>
<%
处置第三层文件
twopath=onepath&y.Name&""
iffsoBrowse.FolderExists(twopath)then
SetgtheFolder=fsoBrowse.GetFolder(twopath)
SetgtheSubFolders=gtheFolder.SubFolders
Child=k&"Child"
%>
<divid="<%=Child%>"class="child">
<%
轮回输入第三层文件
ForEachzIngtheSubFolders
%>
<imgsrc="http://edu.cnzz.cn/NewsInfo/filebox.gif"width="19"height="13"><%=z.Name%><br>
<%
Next
%>
</div>
<%
endif
%>
<%
Next
%>
</div>
<%
endif
%>
<%
Next
endif
%>
</td>
</tr>
</table>
</body>
</html>
ASP脚本是采用明文（plaintext）方式来编写的。 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。 ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。 ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。 以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件) 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件
页:
[1]