📄 4-8.asp
字号:
<html>
<head>
<title>4-7.asp</title>
</head>
<body>
<%
on error resume next
dim oFso,cDrvs,oDrv,oDic,oKey,oFolder,cFolders,oRootFolder
set oDic = Server.CreateObject("SCRIPTING.DICTIONARY")
oDic.Add "Name","名称"
oDic.Add "ShortName","短名"
oDic.Add "Type","类型"
oDic.Add "Path","绝对路径"
oDic.Add "ShortPath","短路径名"
oDic.Add "DateCreated","创建时间"
oDic.Add "DateLastAccessed","最后访问时间"
oDic.Add "DateLastModified","最后修改时间"
oDic.Add "Size","大小"
set oFso = Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")
set oDrv = oFso.GetDrive("e:")
set oRootFolder = oDrv.RootFolder
set cFolders = oRootFolder.SubFolders
response.write "<table border=""1"" width=""1800""><tr>" & vbCrLf
for each oFolder in cFolders
Response.Write " <td>" & vbCrLf
for each oKey in oDic
response.write "<font color=#0000ff>"& oDic.Item(oKey) &"：</font>"& Eval("oFolder." & oKey) &"<br>" & vbCrLf
next
Response.Write " </td>" & vbCrLf
next
response.write "</tr></table>"
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -