案例:ASP/ADO案例     状态:不可编辑再运行    进入竖版
 运行结果 
x
 
1
2
<html>
3
<body>
4
5
<%
6
Set fs=Server.CreateObject("Scripting.FileSystemObject")
7
p=fs.GetParentFolderName("c:\winnt\cursors\3dgarro.cur")
8
9
Response.Write("c:\windows\cursors\abc.cur 的父文件夹名称是:" & p)
10
11
set fs=nothing
12
%>
13
14
</body>
15
</html>
16