ASP网页编程之ASP完成布局化枚举并检察某路径下一切文...
楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。<!网页ASP代码，可完成布局化枚举并检察某路径下一切文件，可用于静态天生网站舆图，详细案例请看我的主页舆图:http://freehost08.websamba.com/hzhzhz/sitemap.htm><!作者:同济黄正http://websamba.com/hzhzhz/使用请说明出处>
<style此款式表须保存>
<!--
u.{background-color:FEDC76;cursor:hand;}
a{background-color:97EF53;}
font{padding-bottom:0;padding-top:0;margin-bottom:0;margin-top:0;}
-->
</style>
<title>本站文件舆图</title>
<body>
<spanid=shhistyle="text-align:right;width:20%;position:absolute;bottom:0">
<ahref=#style=background-color:red>Hide/Show=></a>
</span>
<divid=rightfstyle="height:100%;width:80%;position:absolute;right:0;top:0">
<iframealign=rightname="right"scrolling=autostyle="height:100%;width:100%;"src="about:blank"></iframe>
</div>
<basetarget="right">
<Scriptlanguage=VBScript>
<!--
Subwindow_onscroll()
rightf.style.pixelTop=document.body.scrollTop
shhi.style.top=document.body.clientHeight+document.body.scrollTop-30
EndSub
subDoFold(index)显现与埋没某节点的历程
dimitm
setitm=eval("divfold"&index)
ifitm.style.display="none"then
itm.style.display=""
else
itm.style.display="none"
endif
setitm=document.all(itm.sourceIndex-2)
ifitm.innerText="0"then
itm.innerText="1"
else
itm.innerText="0"
endif
setitm=document.all("itmjj"&index)
ifnotitmisnothingthen
ifitm.innerText="+"then
itm.innerText="-"
else
itm.innerText="+"
endif
endif
endsub
-->
</Script>
<%
------ASP程序段--------------------------------------
setFso=Server.CreateObject("Scripting.FileSystemObject")服务器须撑持FSO
dimpath,mappath
ifrequest("path")=""then
path=""须先设置好想要检察的文件夹的称号，即path=路径称号，比方要检察http://websamba.com/hzhzhz/时,设置path="hzhzhz"
else
path=request("path")能够云云设置:<ahref="dirpath.asp?path=hzhzhz">..
endif
mappath=Server.MapPath("/"&path)
ifFso.folderexists(mappath)=falsethen
response.write"路径:http://"&Request.ServerVariables("HTTP_HOST")&"/"&path&"不存在!"
response.end
endif
dimTf
tf=0
SubDirThisFolder(Fo,strHead)递回历程，程序作者:同济黄正http://websamba.com/hzhzhz/
ifnotfso.FolderExists(Fo)thenexitsub
dimfoN,fiN,Tt
SetFolde=Fso.GetFolder(Fo)
foN=Folde.SubFolders.count
fiN=Folde.files.count
Tt="<ulab=""包括"&foN&"个子文件夹,"&fiN&"个子文件""onclick=Dofold("&tf&")>"
iffoNthenTt=tt&"<qid=itmjj"&tf&">+</q>"
tt=tt&"<fontface=Wingdings>0</font>"相似图标的字符
iflen(strHead)then
iffiN>0then
Response.Writeleft(strHead,len(strHead)-1)&"├"&Tt&Folde.name&"</u><br>"
else
Response.Writeleft(strHead,len(strHead)-1)&"├"&Tt&Folde.name&"</u><br>"
endif
else
Response.Write""&Tt&Folde.path&"</u><br>"
endif
Response.Write"<spanid=divfold"&tf&"style=""display:none"">"
tf=tf+1
IffoNThen
i=0
ForEachFolInFolde.SubFolders
isLastFol=(i=foN-1)
iffiN>0then
 
在实现ERP等高端的ASP应用时，用户需要提供核心的经营资料，需要ASP商有很高的信用度。楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。 ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的? ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题： 作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。 学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。 ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题：
页:
[1]