案例:ASP/ADO案例     状态:不可编辑再运行    进入竖版
 运行结果 
x
 
1
2
<html>
3
<body>
4
5
<%
6
Set fs=Server.CreateObject("Scripting.FileSystemObject")
7
8
Response.Write(fs.GetBaseName("c:\windows\cursors\abc.cur"))
9
Response.Write("<br />")
10
Response.Write(fs.GetBaseName("c:\windows\cursors\"))
11
Response.Write("<br />")
12
Response.Write(fs.GetBaseName("c:\windows\"))
13
14
set fs=nothing
15
%>
16
17
</body>
18
</html>
19