ASP网页编程之用ASP列出目次及文件

只看该作者 · 发表于 2015-1-16 22:26:04

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

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

x

对于中小型web应用来说,php有很强的竞争力,linux+apache+mysql+php(lamp)的组合几乎可以胜任绝大多数网站的解决方案,对于大型应用来讲,对于系统架构要求更高,需要有成熟的框架支持,jsp的struts是个不错的框架,国内介绍它的资料也非常多,应用逐渐广泛起来。asp就不用说了，把以下文件建在统一目次，IIS中断定文件操纵组件可用，便可用ASP列出文件和目次了，呵呵
接待到临我的主页http://skypavilion.yeah.net

----文件folder.inc-----
<%
folderini="c:"
%>

----文件index.asp-----

<html>
<head>
<title>FileSearch</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
</head>

<framesetrows="80,*"frameborder="1"border="1"framespacing="1"cols="*">
<framename="topFrame"scrolling="NO"src="up.asp">
<framename="mainFrame"src="getinfo.asp?foldinfo=<%=folderini%>">
</frameset>
<noframes><bodybgcolor="#FFFFFF">

</body></noframes>
</html>

----文件up.asp-----

<html><title>Up</title>
<head>
<styletype="text/CSS">

</style>

</head>
<tablewidth="780"border="0"cellspacing="1"cellpadding="1">
<tralign="center">
<tdalign="center"><ahref="getinfo.asp?foldinfo=<%=folderini%>"target="mainFrame">ListAllFolder/FileInfo</a>
</td>
</tr>
</table>
</html>

----文件getinfo.asp-----

<%foldinfo=trim(Request.Querystring("foldinfo"))%>
<html>
<head>
<title>GetInfo</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<styletype="text/css">

</style>
<ScriptLanguage="javascript">
functionfileinfo(filenamecode,filesize,lastmodify){
//document.write(filenamecode);
window.open("fileinfo.asp?filename="+filenamecode+"&filesize="+filesize+"&
lastmodify="+lastmodify,"","height=200,width=450,resizable=yes,scrollbars=yes,
status=yes,toolbar=no,menubar=no,location=no");
}
</Script>
</head>

<bodybgcolor="#FFFFFF"text="#000000">
<tablewidth="780"border="0"cellspacing="0"cellpadding="0">
<tr>
<tdclass="cnt_txt"><fontcolor="#000000">CurrentFolder:--</font><fontcolor="#FF7120"><%=foldinfo%></font></td>
</tr>
<tr>
<td>
<hrsize="1">
</td>
</tr>
<tr>
<td>
<tablewidth="780"border="0"cellspacing="1"cellpadding="1">
<trbgcolor="#00CC00">
<tdwidth="300"class="cnt_txt">FolderName:</td>
<tdwidth="180"class="cnt_txt">Size:</td>
<tdwidth="300"class="cnt_txt">LastModify:</td>
</tr>
</table>
</td>
</tr>
<tr>
<tdalign="right"class="cnt_txt">
<%
upfolder=left(foldinfo,len(foldinfo)-1)
upfolder=left(upfolder,InstrRev(upfolder,""))
iffoldinfofolderinithen
response.write("<ahref=getinfo.asp?foldinfo="&upfolder&">ParentFolder</a>")
else
response.write("ParentFolder")
endif%>
</td>
</tr>
<tr>
<tdclass="cnt_txt">
<%ShowFolderList(foldinfo)%>
</td>
</tr>
<tr>
<tdclass="cnt_txt">
<tablewidth="780"border="0"cellspacing="1"cellpadding="1">
<trbgcolor="#009999">
<tdwidth="300">FileName:</td>
<tdwidth="180">Size:</td>
<tdwidth="300">LastModify:</td>
</tr>
</table>
</td>
</tr>
<tr>
<tdclass="cnt_txt">
<%showfolderinfo(foldinfo)%>
</td>
</tr>
<tr>
<td></td>
</tr>
</table>

<%
SubShowFolderList(folderspec)
Dimfs,f,f1,fc,s,schild,p,fsize
Setfs=CreateObject("Scripting.FileSystemObject")
Setf=fs.GetFolder(folderspec)
Setfc=f.SubFolders
ForEachf1infc
s=f1.name
s=s&vbCrLf
p=f1.DateLastModified
fsize=f1.Size
schild=folderspec&s&""

Response.write("<tablewidth=780border=0cellspacing=1cellpadding=1>")
Response.write("<tr>")
Response.write("<tdwidth=300bgcolor=#ECFFD9><fontface=Wingdingsfontsize=3pt>0</font><ahref=getinfo.asp?foldinfo="&schild&">"&s&"</a></td>")
Response.write("<tdwidth=180bgcolor=#ECFFD9>"&fsize&"</td>")
Response.write("<tdwidth=300bgcolor=#ECFFD9>"&p&"</td>")
Response.write("</tr>")
Response.write("</table>")

Next
EndSub

Subshowfolderinfo(folderspc)
setMyFileObject=Server.CreateObject("Scripting.FileSystemObject")

SetMyFolder=MyFileObject.GetFolder(folderspc)

foreachthinginMyFolder.Files
Response.write("<br>"&thing)
===============Getfileinformation
Setafile=MyFileObject.GetFile(thing)

==========filenamecorrectcode
filenamecode=afile.name
filedetail=folderspc+filenamecode
filedetail=replace(filedetail,"","*s_p_l_I_t*")
filesize=afile.size
lastmodify=afile.DateLastModified

Response.write("<tablewidth=780border=0cellspacing=1cellpadding=1>")
Response.write("<tr>")
Response.write("<tdwidth=300bgcolor=#f4f4ff><fontface=Wingdingsfontsize=3pt><</font><ahref="&chr(34)&"javascript:fileinfo("&filedetail&","&filesize&","&lastmodify&")"&chr(34)&">"&filenamecode&"</a></td>")
Response.write("<tdwidth=180bgcolor=#f4f4ff>"&filesize&"</td>")
Response.write("<tdwidth=300bgcolor=#f4f4ff>"&lastmodify&"</td>")
Response.write("</tr>")
Response.write("</table>")
Next
Endsub
%>
</body>
</html>

----文件fileinfo.asp-----
<%
filename=Request.QueryString("filename")
filename=replace(filename,"*s_p_l_I_t*","")
filesize=Request.QueryString("filesize")
lastmodify=Request.QueryString("lastmodify")
%>
<html>
<head>
<styletype="text/css">

</style>
</head>
<body>
<%
Response.writefilename&"<br>"&filesize&"<br>"&lastmodify
%>
<tablewidth="400"border="0"cellspacing="0"cellpadding="0">
<tr>
<tdbgcolor="#00CC00"colspan="2">CurrentFileInfo:</td>
</tr>
<trvalign="top">
<tdwidth="110">FileLocation:</td>
<tdwidth="290"><fontcolor="#990000"><fontface=Wingdingsfontsize=3pt><</font><b><%=filename%></b></font></td>
</tr>
<tr>
<tdcolspan="2">
<hrsize="1">
</td>
</tr>
<trvalign="top">
<tdheight="11">FileSize:</td>
<tdheight="11"><%=filesize%>bytes</td>
</tr>
<tr>
<tdcolspan="2">
<hrsize="1">
</td>
</tr>
<trvalign="top">
<td>LastModify:</td>
<td><%=lastmodify%></td>
</tr>
<tr>
<tdcolspan="2">
<hrsize="1">
</td>
</tr>
<tr>
<tdheight="18"colspan="2">
<p>PleaseUseappropriateApplicationtoOpenthisFile.</p>
</td>
</tr>
<tr>
<tdheight="13"align="right"colspan="2"><ahref="javascript:this.window.close()">Close
Window</a></td>
</tr>
</table>
</body>
</html>

只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天

只看该作者 · 发表于 2015-1-19 11:56:56

兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的

只看该作者 · 发表于 2015-1-27 05:39:13

另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

只看该作者 · 发表于 2015-2-5 02:45:56

没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。

只看该作者 · 发表于 2015-2-11 03:04:27

尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。

只看该作者 · 发表于 2015-3-1 20:15:40

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

只看该作者 · 发表于 2015-3-10 23:37:37

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

只看该作者 · 发表于 2015-3-17 16:09:24

另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

只看该作者 · 发表于 2015-3-24 11:44:00

兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的

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

[学习教程] ASP网页编程之用ASP列出目次及文件

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

相关帖子