ASP网站制作之复杂的文件目次扫瞄源程序
由于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"><B><FONTsize="2"face="Verdana,Arial,Helvetica,sans-
serif">Title</FONT></B></FONT></TD>
<TDwidth="10%"><FONTcolor="#FFFFFF"><B><FONTsize="2"face="Verdana,Arial,Helvetica,sans-
serif">Size</FONT></B></FONT></TD>
<TDwidth="25%"><FONTcolor="#FFFFFF"><B><FONTsize="2"face="Verdana,Arial,Helvetica,sans-
serif">Date</FONT></B></FONT></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>
</FONT>
</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
%>
</FONT>
</TD>
<TD>
<FONTsize="2"face="Verdana,Arial,Helvetica,sans-serif"color="#000000">
<%thefilesDate
Response.WriteobjFile.DateLastModified
%>
</FONT>
</TD>
</FONT>
</TD>
</TR>
<%
Next
%>
</TABLE>
</BODY>
</HTML>
asp可以轻松地实现对页面内容的动态控制，根据不同的浏览者，显示不同的页面内容。而浏览者一点觉察不出来，就像为他专门制作的页面一样。使用各种各样的组件，asp可以完成无比强大的功能。 不能只是将它停留在纸上谈兵的程度上。 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的? ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。 Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write 用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。
页:
[1]