ASP网站制作之复杂的文件目次扫瞄源程序

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

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

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

x

由于ASP提供的是一对多的服务，所以用户的一些特殊需求很难得到满足。**************************************
Name:File/DirectoryViewer
Description:ThisWillDisplayAllThe
Files,FileSizeandfiledateofevery
fileinthedirectoryyouspecify.
Tomakethiswork,pastethecodeintoyourfavoritehtmleditor,saveitandThenviewit.
By:ThomasMichael

Inputs:None

Returns:None

Assumes:FileSystemObjectBeNeeded:)
anditissetuptolookforyoumydocum
entsfolderat"c:mydocu~1"butyoucan
changethelineofcodetolookinanyd
irectory.

SideEffects:None

Warranty:
codeprovidedbyPlanetSourceCode(tm)
(http://www.Planet-Source-Code.com)as
is,withoutwarrantiesastoperformanc
e,fitness,merchantability,andanyothe
rwarranty(whetherexpressedorimplied
).
TermsofAgreement:
Byusingthissourcecode,youagreeto
thefollowingterms...
1)Youmayusethissourcecodeinper
sonalprojectsandmaycompileitintoa
n.exe/.dll/.ocxanddistributeitinbi
naryformatfreelyandwithnocharge.
2)YouMAYNOTredistributethissourc
ecode(forexampletoawebsite)witho
utwrittenpermissionfromtheoriginal
author.Failuretodosoisaviolationo
fcopyrightlaws.
3)Youmaylinktothiscodefromanot
herwebsite,provideditisnotwrapped
inaframe.
4)Theauthorofthiscodemayhavere
tainedcertainadditionalcopyrightrigh
ts.Ifso,thisisindicatedintheautho
rsdescription.
**************************************

<%@LANGUAGE="VBSCRIPT"%>
<%OptionExplicit%>
<HTML>
<HEAD><TITLE>FileViewer</TITLE></HEAD>
<BODY>
<TABLEwidth="100%"border=1bordercolor="#000000"align="left"cellpadding="2"cellspacing="0">
<TRalign="left"valign="top"bgcolor="#000000">
<TDwidth="65%"><FONTcolor="#FFFFFF"><FONTsize="2"face="Verdana,Arial,Helvetica,sans-
serif">Title</TD>
<TDwidth="10%"><FONTcolor="#FFFFFF"><FONTsize="2"face="Verdana,Arial,Helvetica,sans-
serif">Size</TD>
<TDwidth="25%"><FONTcolor="#FFFFFF"><FONTsize="2"face="Verdana,Arial,Helvetica,sans-
serif">Date</TD>
</TR>
<%
FileSystemObject
DimobjFSO
FileObject
DimobjFile
FolderObject
DimobjFolder
StringToStoreTheRealPath
DimsMapPath
CreateFileSystemObjectToGetlistoffiles
SetobjFSO=CreateObject("Scripting.FileSystemObject")
GetThepathForthewebpageanditsdir.
changethissettingToviewdifferentdirectories
sMapPath="C:Mydocu~1"
SettheobjectfolderTothemappedpath
SetobjFolder=objFSO.GetFolder(sMapPath)
ForEachfileInthefolder
ForEachobjFileInobjFolder.Files
%>
<TRalign="left"valign="top"bordercolor="#999999"bgcolor="#FFFFFF">
<TD><FONTsize="2"face="Verdana,Arial,Helvetica,sans-serif"color="#000000"><Ahref="<%=
sMapPath&"/"&objFile.Name%>">
<%
writethefilesname
Response.WriteobjFile.Name
%>
</A>

</TD>
<TD>
<FONTsize="2"face="Verdana,Arial,Helvetica,sans-serif"color="#000000">

<%
Wewillformatthefilesizesoitlookspretty
IfobjFile.Size<1024Then
Response.WriteobjFile.Size&"Bytes"
ElseIfobjFile.Size<1048576Then
Response.WriteRound(objFile.Size/1024.1)&"KB"
Else
Response.WriteRound((objFile.Size/1024)/1024.1)&"MB"
EndIf
%>

</TD>
<TD>
<FONTsize="2"face="Verdana,Arial,Helvetica,sans-serif"color="#000000">
<%thefilesDate
Response.WriteobjFile.DateLastModified
%>

</TD>

</TD>
</TR>
<%
Next
%>
</TABLE>
</BODY>
</HTML>

asp可以轻松地实现对页面内容的动态控制，根据不同的浏览者，显示不同的页面内容。而浏览者一点觉察不出来，就像为他专门制作的页面一样。使用各种各样的组件，asp可以完成无比强大的功能。

只看该作者 · 发表于 2015-1-19 13:08:25

不能只是将它停留在纸上谈兵的程度上。

只看该作者 · 发表于 2015-1-27 06:13:55

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

只看该作者 · 发表于 2015-2-5 03:11:09

ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

只看该作者 · 发表于 2015-2-11 03:15:07

Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

只看该作者 · 发表于 2015-3-1 20:29:33

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

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

Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

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

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

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

[学习教程] ASP网站制作之复杂的文件目次扫瞄源程序

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

相关帖子