较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.

				
				
				
				 文件浏览器 
				
				
				 
				文件名
				大小
				修改日期
				
								Dim objFSO
				Dim objFile
				Dim objFolder
				Dim sMapPath
				Set objFSO = CreateObject("Scripting.FileSystemObject")
				sMapPath ="c:\windows"
				Set objFolder = objFSO.GetFolder(sMapPath)
				For Each objFile In objFolder.Files
				%> 
				 
				  
								Response.Write objFile.Name
				%>
				
				
				
				
				
								If objFile.Size 				Response.Write objFile.Size & " Bytes"
				ElseIf objFile.Size < 1048576 Then
				Response.Write Round(objFile.Size / 1024.1) & " KB"
				Else
				Response.Write Round((objFile.Size/1024)/1024.1) & " MB"
				End If
				%>
				
				
				
				
								Response.Write objFile.DateLastModified
				%>
				
				
				
				
				
								Next
				%>