ASP教程之列出指定目次下的一切文件和目次

只看该作者 · 发表于 2015-1-16 22:44:41

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

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

x

ASP是依赖组件的，能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊！<%@LANGUAGE=VBScript%>
<%Server.ScriptTimeout=5000%>
<html>

<head>
<styleTYPE="text/CSS">
/*OutlineStyleSheet*/
ULUL{display:none;
margin-left:20pt}
</style>
<scriptLANGUAGE="JavaScript">
functioncheckParent(src,dest){
//Searchforaspecificparentofthecurrentelement
while(src!=null){
if(src.tagName==dest)returnsrc;
src=src.parentElement;
}
returnnull;
}
functionoutline(){
//Expandorcollapseifalistitemisclicked.
varopen=event.srcElement;
//MakesureclickedinsideanLI.ThistestallowsrichHTMLinsidelists.
varel=checkParent(open,"LI");
if(null!=el){
varpos=0;
//Searchforanestedlist
for(varpos=0;pos<el.children.length;pos++){
if("UL"==el.children[pos].tagName)break;
}
if(pos==el.children.length)return;
}elsereturn;
el=el.children[pos];
if("UL"==el.tagName){
//ExpandorCollapsenestedlist
if(""==el.style.display){
el.style.display="block";
el.style.listStyleImage="url(images/folder.gif)";
el.parentElement.style.listStyleImage="url(images/ofolder.gif)";
}
else
{
el.style.display="";
el.parentElement.style.listStyleImage="url(images/folder.gif)";
}
}
event.cancelBubble=true;
}
document.onclick=outline;
</script>

<basetarget="main">
<title>Folders</title>
<linkrel="stylesheet"type="text/css"href="ase.css">
</head>

<bodytopmargin="0"leftmargin="0">

<SCRIPTLANGUAGE=vbscriptRUNAT=Server>
Dimfs,folderpara,folderArray
Setfs=CreateObject("Scripting.FileSystemObject")
ifnotisempty(request("txtRelative"))then
folderpara=server.mappath(request("txtRelative"))
else
folderpara=request("txtAbsolute")
endif
Response.write"<UL>"
Response.write"<LISTYLE=list-style-image:url(images/folder.gif)><ahref=files.asp?sPath="&
folderpara&">"&folderpara&"</a></LI>"
CallShowFolderList(folderpara)
Response.write"</UL>"
setfs=Nothing

SubShowFolderList(folderspec)
Dimf,f1,fc,s,fs
Setfs=Server.CreateObject("Scripting.FileSystemObject")
Setf=fs.GetFolder(folderspec)
Setfc=f.SubFolders
Setfs=f.Files
if(not(fc.count=0))then
Response.write"<UL>"
ForEachf1infc
s=f1.name
If(not((left(s,1))="_"))then
Response.write"<li>"
Response.write"<ahref=files.asp?sPath="&f1&">"
Response.writes&"</LI>"
Response.write"</a>"
CallShowFolderList((folderspec&"/"&s))
endif
Next

ForEachf1infs
s=f1.name
If(not((left(s,1))="_"))then
Response.write"<li>"
Response.write"<ahref=files.asp?sPath="&f1&"><fontcolor=666666>"
ifinstr(s,"product")>0then
Response.writereplace(s,"product","<fontcolor=008800>product</font>")
else
ifinstr(s,"prod")>0then
Response.writereplace(s,"prod","<fontcolor=008800>prod</font>")
else
Response.writes
endif
endif
Response.write"</f</p>asp，你就只能等着微软给你解决，它不乐意你就只好悲催。而且asp跑在windows服务器上，windows服务器跟linux比起来简直弱爆了！

只看该作者 · 发表于 2015-1-18 16:08:57

哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

仓酷云 · 发表于 2015-1-22 09:17:11

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

只看该作者 · 发表于 2015-1-31 05:20:53

代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

只看该作者 · 发表于 2015-2-6 17:30:33

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

只看该作者 · 发表于 2015-2-17 17:23:12

跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组

只看该作者 · 发表于 2015-3-5 21:17:53

以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

只看该作者 · 发表于 2015-3-12 15:13:47

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

只看该作者 · 发表于 2015-3-19 23:22:17

从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

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

[学习教程] ASP教程之列出指定目次下的一切文件和目次

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

相关帖子