ASP网页编程之ASP+ACCESS完成的无穷级目次树
缺点：正版成本价格贵（盗版就不说了）、不够安全，大多数服务器用windows系统，没有linux安全下载地点：http://www.ckuyun.com/download/treemenu.rar关头代码：
<%
setconn=server.createobject("ADODB.CONNECTION")
connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};"
conn.openconnstr
functionmenu(id)
setrs=server.CreateObject("adodb.recordset")
sql="select*frommenuwhereid1="&id&"orderbyurl,id"
rs.opensql,conn,1,1
ifrs.recordcount=0then
rs.close
setrs=nothing
exitfunction
endif
response.write("<tableborder=0cellspacing=0cellpadding=0>")
i=1
whilenotrs.eof
iflen(rs("url"))>0then
ifi=rs.recordcountthen
menutype="file1"
else
menutype="file"
endif
menuname="<ahref="&rs("url")&"target=_blank>"&rs("menuname")&"</a>"
else
ifi=rs.recordcountthen
menutype="menu3"
listtype="list1"
&rs("id")&"))if(style.display==){style.display=none;this.className=menu3;}else{style.display=;this.className=menu4;}"
else
menutype="menu1"
listtype="list"
&rs("id")&"))if(style.display==){style.display=none;this.className=menu1;}else{style.display=;this.className=menu2;}"
endif
menuname=rs("menuname")
endif
%>
<tr>
<tdclass="<%=menutype%>"><%=menuname%></td>
</tr>
<%iflen(rs("url"))<3then%>
<trid="id<%=rs("id")%>"style="display:none">
<tdclass="<%=listtype%>"><%menu(rs("id"))%></td>
</tr>
<%
endif
rs.movenext
i=i+1
wend
response.write("</table>")
rs.close
setrs=nothing
endfunction
%>
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<title>=========无穷级目次树=========http://www.ckuyun.com</title>
<styletype="text/css">
<!--
.menu1{
background-image:url(folder1.gif);
background-repeat:no-repeat;
height:17px;
left:32px;
padding-left:32px;
cursor:hand;
}
.menu2{
background-image:url(folder2.gif);
background-repeat:no-repeat;
height:17px;
left:32px;
padding-left:32px;
cursor:hand;
}
.menu3{
background-image:url(folder3.gif);
background-repeat:no-repeat;
height:17px;
left:32px;
padding-left:32px;
cursor:hand;
}
.menu4{
background-image:url(folder4.gif);
background-repeat:no-repeat;
height:17px;
left:32px;
padding-left:32px;
cursor:hand;
}
.list{
padding-left:20px;
background-image:url(list.gif);
background-repeat:repeat-y;
}
.list1{
padding-left:20px;
}
.file{
background-image:url(file.gif);
background-repeat:no-repeat;
height:16px;
cursor:hand;
padding-left:32px;
}
.file1{
background-image:url(file1.gif);
background-repeat:no-repeat;
height:16px;
cursor:hand;
padding-left:32px;
}
body{
font-size:9pt;
color:#000000;
background-color:#FFFFFF;
}
a:link{
font-size:9pt;
color:#000000;
text-decoration:none;
}
a:visited{
font-size:9pt;
color:#000000;
text-decoration:none;
}
a:hover{
font-size:9pt;
color:#0000FF;
text-decoration:none;
position:relative;
right:1px;
bottom:1px;
}
a:active{
font-size:9pt;
color:#000000;
text-decoration:none;
}
-->
</style>
</head>
<body>
<ahref="http://www.ckuyun.com/"target="_blank">http://www.ckuyun.com/</a>供应最新下载《<ahref="menu.asp">办理</a>》<br>
<%
menu0
conn.close
setconn=nothing
%>
</body>
</html>
Access是一种桌面数据库，只适合数据量少的应用，在处理少量数据和单机访问的数据库时是很好的，效率也很高。但是它的同时访问客户端不能多于4个。access数据库有一定的极限，如果数据达到100M左右，很容易造成服务器iis假死，或者消耗掉服务器的内存导致服务器崩溃。 Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点) ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。
页:
[1]