📄 example4.txt
字号:
<html>
<head>
<title>ASP Parser by Pablo Software Solutions: Example 4</title>
</head>
<body>
<%
Function ShowDirectory(strDir)
Dim objFileSystem
Dim objFolder
set objFileSystem = CreateObject("Scripting.FileSystemObject")
set objFolder = objFileSystem.GetFolder(strDir)
for each File in objFolder.Files
Response.Write Replace(File, objFolder & "\", "") & "<BR>"
next
end Function
%>
The following files are in this directory: <BR>
<%
ShowDirectory "c:\"
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -