ASP网页设计用ASP完成树形目次视图

只看该作者 · 发表于 2015-2-3 23:39:23

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

因为现在数据库都使用标准的SQL语言对数据库进行管理，所以如果是标准SQL语言，两者基本上都可以通用的。SQL Server还有更多的扩展，可以用存储过程，数据库大小无极限限制。视图 Windows操作体系中的资本办理器是微软公司十分胜利的文件办理软件。它的右边是全部文件体系的树形视图，右侧是以后目次的文件（夹）列表，为文件办理供应了一个操作复杂、利用便利的用户界面。然而，微软公司的IE阅读器却没有供应相相似的功效，假如能经由过程基于阅读器/Web办事器架构为用户供应一个与Windows 的资本办理器相相似的近程文件办理东西，将会极大中央便用户的利用。基于这类思索，笔者用ASP手艺完成了一个与 Windows 的资本办理器相相似的近程文件阅读器。本文引见个中目次的树形视图、文件列表视图和文件搜刮三个次要的局部的完成办法。
Default.asp文件
此文件是主文件，用来机关全部界面的框架。
<html>
<head><title>接待惠临</title></head>
<frameset rows=“80,20＊” framespacing=“0”>
<frame name=“pMain” scrolling=“auto”noresize
target=“contents” marginwidth=“1”marginheight=“1” src=“pMian.htm”>
<frameset cols=“230,530”>
<frame name=“pTreeView” src=“pTreeView.asp?
VFdPath=<％=Request(“VFdPath”)％>＆Mflag=”scrolling=“1” marginwidth=“1” marginheight=“1” noresize auto“1”>
<frame name=“pListView” src=“pListView.asp?
VFdPath=<％=Request(“VFdPath”)％>” scrolling=“1” marginwidth=“1”marginheight=“1” noresize auto“1”>
</frameset><noframes><body>
<p>因为您的阅读器不撑持此网页框架，所以您没法阅读此网页</p>
</body> </noframes></frameset></html>
pTreeView.asp文件
此文件次要担任目次树形视图的生成。其中心函数为FoldOpen()，担任呼应用户对目次的操作，如翻开一个文件夹等。三个参数的申明以下：
●sflups：以后的相对虚拟途径；
●rsfd：以后物理途径；
●dep：以后途径深度（用来记录递归深度）。
在此函数中还挪用了另外一个函数UnMapPath()，它将前往物理途径所对应的虚拟途径（注：在本文的法式中，一切同享文件都被映照到虚拟目次gpdir下）。
<％
vfd = Request.QueryString(“VfdPath”)
Mflag = Request.QueryString(“Mflag”)
Server.ScriptTimeout = 500
On Error Resume Next
Set obfs = Server.CreateObject
(“Scripting.FileSystemObject”)
Set obfd=obfs.GetFolder(Server.MapPath(“/gpdir”) )
oblength = Len(obfd.path)
Function UnMapPath( Path )
S=Mid( Path, oblength＋1)
UnMapPath = WordStr( S, “\”, “/”)
End Function
Function FoldOpen(sflups,rsfd,dep)
sPic=“<img border=0 src=http://www.163design.net/a/q/““PIC/pSub.gif””
width=16 height=16>"
if dep <> 0 then
spib=“<a href=““pTreeView.asp?VFdPath=”
＆ “/gpdir/” ＆ UnMapPath(rsfd.Path)
else
spib=“<a href=““pTreeView.asp?VFdPath=” ＆ “/gpdir” ＆ UnMapPath(rsfd.Path)
end if
spib=spib ＆ “＆Mflag=”
spib=spib ＆ “c”” TARGET=““pTreeView””>”
Response.Write spib ＆ sPic ＆ “</a>”
sPic=“<img border=0 src=http://www.163design.net/a/q/““PIC/pOpen.gif”” width=16 height=16>” ＆ rsfd.Name
spib=“<a href=““pListView.asp?VFdPath=”
if dep <> 0 then
spib=spib ＆ “/gpdir/” ＆ UnMapPath
(rsfd.Path) ＆ “““ TARGET=””pListView””>”
else
spib=spib ＆ “/gpdir” ＆ UnMapPath(rsfd.Path) ＆ “““ TARGET=””pListView””>”
end if
Response.Write spib ＆ sPic ＆ “</a></TD></TR>”
for each sfd in rsfd.SubFolders
Response.Write “<TR><TD class=p9 height=16 width=““100％””>”
for cn=0 to dep
Response.Write “<img border=0 src=http://www.163design.net/a/q/““PIC/pline.gif”” width=16 height=16>”
Next
if sfd.SubFolders.count>0 then
if InStr(1, sflups,“/gpdir/” ＆ UnMapPath(sfd.Path), vbTextCompare) <> 1 then
sPic=“<img border=0 src=““PIC/
pAdd.gif”” width=16 height=16>”
spib=“<a href=““pTreeView.asp?VFdPath=” ＆ “/gpdir/” ＆ UnMapPath(sfd.Path)
spib=spib ＆ “＆Mflag=”
spib=spib ＆ “o”””
spib=spib ＆ “TARGET=““pTreeView””>”
Response.Write spib ＆ sPic ＆ “</a>”
sPic=“<img border=0 src=http://www.163design.net/a/q/““PIC/pClose.gif”” width=16 height=16>” ＆ sfd.Name
Response.Write “<a href=““pListView
.asp?VFdPath=” ＆ “/gpdir/” ＆ UnMapPath(sfd.Path) ＆ “““ TARGET=””pListView” ”>” ＆ sPic ＆ “</a></TD></TR>”
else
scdep=dep＋1
FoldOpen sflups, sfd, scdep
end if
else
Response.Write “<img border=0 src=http://www.163design.net/a/q/““PIC/pmline.gif” ” width=16 height=16>”
sPic=“<img border=0 src=http://www.163design.net/a/q/““PIC/pClose.gif”
”width=16 height=16>” ＆ sfd.Name
Response.Write “<a href=““pListView.asp?
VFdPath=” ＆ “/gpdir/” ＆ UnMapPath(sfd.Path) ＆ “““TARGET=””pListView””>” ＆ sPic ＆ “</a></TD></TR>”
end if
next
End Function
％>
<html>
<head><title>文件夹</title>
<base target=“main”></head>
<body bgcolor=“＃008080” text=“＃FFFFFF”>
<TABLE align=left border=0 cellPadding=0 cellSpacing=0 width=“100％”>
<TR> <TD width=“100％”>
<img border=“0” src=http://www.163design.net/a/q/“PIC/pFolder.gif”>
</TD></TR><TR>
<TD height=16 width=“100％”>
</p>  由于ASP还是一种Script语言所没除了大量使用组件外，没有办法提高其工作效率。它必须面对即时编绎的时间考验，同时我们还不知其背后的组件会是一个什么样的状况；

只看该作者 · 发表于 2015-2-4 04:53:43

学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

只看该作者 · 发表于 2015-2-9 16:00:03

Session:这个存储跟客户端会话过程的数据，默认20分钟失效

只看该作者 · 发表于 2015-2-25 21:23:37

我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

只看该作者 · 发表于 2015-3-7 00:43:24

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

只看该作者 · 发表于 2015-3-7 05:36:40

Session:这个存储跟客户端会话过程的数据，默认20分钟失效

只看该作者 · 发表于 2015-3-7 10:40:03

Session:这个存储跟客户端会话过程的数据，默认20分钟失效

只看该作者 · 发表于 2015-3-14 23:57:40

还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

只看该作者 · 发表于 2015-3-15 09:41:27

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

只看该作者 · 发表于 2015-3-18 18:47:02

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

只看该作者 · 发表于 2015-3-21 15:37:27

以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

只看该作者 · 发表于 2015-3-29 01:28:58

用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。

只看该作者 · 发表于 2015-3-30 19:45:34

掌握asp的特性而且一定要知道为什么。

只看该作者 · 发表于 2015-4-1 07:47:04

ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。

只看该作者 · 发表于 2015-4-10 06:52:59

最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

只看该作者 · 发表于 2015-4-13 23:26:28

你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

只看该作者 · 发表于 2015-4-26 02:10:59

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

仓酷云 · 发表于 2015-5-4 05:38:37

ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

只看该作者 · 发表于 2015-5-12 08:36:37

以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

		自动登录	找回密码
密码			立即注册

[学习教程] ASP网页设计用ASP完成树形目次视图

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子